extra/smalltalk/ast/ast.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: strings arrays memoize kernel sequences accessors ;
   4 IN: smalltalk.ast
   5
   6 SINGLETONS: nil self super ;
   7
   8 TUPLE: ast-comment { string string } ;
   9 TUPLE: ast-block { arguments array } { body array } ;
  10 TUPLE: ast-message-send receiver { selector string } { arguments array } ;
  11 TUPLE: ast-message { selector string } { arguments array } ;
  12 TUPLE: ast-cascade receiver { messages array } ;
  13 TUPLE: ast-name { name string } ;
  14 TUPLE: ast-return value ;
  15 TUPLE: ast-assignment { name ast-name } value ;
  16 TUPLE: ast-local-variables { names array } ;
  17 TUPLE: ast-method { name string } { body ast-block } ;
  18 TUPLE: ast-class { name string } { superclass string } { ivars array } { methods array } ;
  19 TUPLE: ast-foreign { class string } { name string } ;
  20 TUPLE: ast-sequence { statements array } ;
  21
  22 : <ast-cascade> ( receiver messages -- ast )
  23     dup length 1 =
  24     [ first [ selector>> ] [ arguments>> ] bi ast-message-send boa ]
  25     [ ast-cascade boa ]
  26     if ;
  27
  28 TUPLE: symbol { name string } ;
  29 MEMO: intern ( name -- symbol ) symbol boa ;