src/voodoo_translator/antimony_symbols.sb

   1 # Symbols that commonly occur in Antimony code.
   2
   3 section data
   4 export antimony_do antimony_else antimony_equals antimony_function \
   5   antimony_if antimony_loop antimony_return antimony_var antimony_while \
   6   sb_core sb_core_call
   7
   8 var antimony_do = 0
   9 var antimony_else = 0
  10 var antimony_equals = 0
  11 var antimony_function = 0
  12 var antimony_if = 0
  13 var antimony_loop = 0
  14 var antimony_post_test = 0
  15 var antimony_return = 0
  16 var antimony_var = 0
  17 var antimony_while = 0
  18 var sb_core = 0
  19 var sb_core_call = 0
  20
  21 section functions
  22 export antimony_builtins antimony_symbols init_antimony_symbols
  23 import *namespace* array dynarray dynarray_add dynarray_to_array
  24 import get_namespace get_namespace_absolute intern make_blob namespace_intern
  25
  26 function antimony_builtins {
  27   let items dynarray 0 0
  28   dynarray_add items #`add
  29   dynarray_add items #`and
  30   dynarray_add items #`asr
  31   dynarray_add items #`auto-bytes
  32   dynarray_add items #`auto-words
  33   dynarray_add items #`bsr
  34   dynarray_add items #`call
  35   dynarray_add items #`div
  36   dynarray_add items #`do
  37   dynarray_add items #`export
  38   dynarray_add items #`field-offset
  39   dynarray_add items #`function
  40   dynarray_add items #`get-byte
  41   dynarray_add items #`get-word
  42   dynarray_add items #`if
  43   dynarray_add items #`import
  44   dynarray_add items #`let
  45   dynarray_add items #`log
  46   dynarray_add items #`loop
  47   dynarray_add items #`mod
  48   dynarray_add items #`mul
  49   dynarray_add items #`not
  50   dynarray_add items #`or
  51   dynarray_add items #`quote
  52   dynarray_add items #`return
  53   dynarray_add items #`section
  54   dynarray_add items #`set
  55   dynarray_add items #`set-byte
  56   dynarray_add items #`set-word
  57   dynarray_add items #`shl
  58   dynarray_add items #`shr
  59   dynarray_add items #`size-of
  60   dynarray_add items #`struct
  61   dynarray_add items #`sub
  62   dynarray_add items #`var
  63   dynarray_add items #`while
  64   dynarray_add items #`xor
  65   dynarray_add items #`alias
  66   dynarray_add items #`extern
  67   return (dynarray_to_array items)
  68 }
  69
  70 function antimony_symbols {
  71   let items dynarray 0 0
  72   dynarray_add items #`_global_namespace
  73   dynarray_add items #`eq
  74   dynarray_add items #`false
  75   dynarray_add items #`ge
  76   dynarray_add items #`gt
  77   dynarray_add items #`le
  78   dynarray_add items #`lt
  79   dynarray_add items #`ne
  80   dynarray_add items #`true
  81   dynarray_add items #`allocate_bytes
  82   dynarray_add items #`allocate_words
  83   dynarray_add items #`array
  84   dynarray_add items #`array_each
  85   dynarray_add items #`array_iterator
  86   dynarray_add items #`array_length
  87   dynarray_add items #`array_map
  88   dynarray_add items #`array_nth
  89   dynarray_add items #`array_t
  90   dynarray_add items #`blob_builder
  91   dynarray_add items #`blob_builder_append_byte
  92   dynarray_add items #`blob_builder_t
  93   dynarray_add items #`blob_builder_to_blob
  94   dynarray_add items #`blob_ends_with
  95   dynarray_add items #`blob_find_last
  96   dynarray_add items #`blob_find_last_before
  97   dynarray_add items #`blob_length
  98   dynarray_add items #`blob_nth
  99   dynarray_add items #`blob_starts_with
 100   dynarray_add items #`blob_t
 101   dynarray_add items #`blobs_equal
 102   dynarray_add items #`block
 103   dynarray_add items #`block_length
 104   dynarray_add items #`block_nth
 105   dynarray_add items #`block_t
 106   dynarray_add items #`boolean_t
 107   dynarray_add items #`boolean_to_blob
 108   dynarray_add items #`close_stream
 109   dynarray_add items #`closedir
 110   dynarray_add items #`comment_t
 111   dynarray_add items #`comment_to_blob
 112   dynarray_add items #`compare_blobs
 113   dynarray_add items #`concatenate_arrays
 114   dynarray_add items #`concatenate_blobs
 115   dynarray_add items #`copy_blob_part
 116   dynarray_add items #`dynarray
 117   dynarray_add items #`dynarray_add
 118   dynarray_add items #`dynarray_each
 119   dynarray_add items #`dynarray_length
 120   dynarray_add items #`dynarray_nth
 121   dynarray_add items #`dynarray_t
 122   dynarray_add items #`dynarray_to_array
 123   dynarray_add items #`each
 124   dynarray_add items #`empty_blob
 125   dynarray_add items #`empty_list
 126   dynarray_add items #`error
 127   dynarray_add items #`first
 128   dynarray_add items #`fixnum_t
 129   dynarray_add items #`fixnum_to_blob
 130   dynarray_add items #`flush_stream
 131   dynarray_add items #`gensym
 132   dynarray_add items #`getenv
 133   dynarray_add items #`get_namespace
 134   dynarray_add items #`get_namespace_absolute
 135   dynarray_add items #`hash_table_each
 136   dynarray_add items #`hash_table_get
 137   dynarray_add items #`hash_table_get_or_put
 138   dynarray_add items #`hash_table_put
 139   dynarray_add items #`input_file
 140   dynarray_add items #`intern
 141   dynarray_add items #`is_boolean
 142   dynarray_add items #`is_fixnum
 143   dynarray_add items #`list
 144   dynarray_add items #`make_blob
 145   dynarray_add items #`make_hash_table
 146   dynarray_add items #`make_pair
 147   dynarray_add items #`mkdir
 148   dynarray_add items #`namespace_intern
 149   dynarray_add items #`opendir
 150   dynarray_add items #`output_file
 151   dynarray_add items #`pair_t
 152   dynarray_add items #`path_join
 153   dynarray_add items #`path_split
 154   dynarray_add items #`path_basename
 155   dynarray_add items #`read_antimony
 156   dynarray_add items #`read_blob_from_stream
 157   dynarray_add items #`readdir
 158   dynarray_add items #`rest
 159   dynarray_add items #`second
 160   dynarray_add items #`split_blob
 161   dynarray_add items #`standard_error
 162   dynarray_add items #`standard_input
 163   dynarray_add items #`standard_output
 164   dynarray_add items #`stream_t
 165   dynarray_add items #`subarray
 166   dynarray_add items #`symbol_eq
 167   dynarray_add items #`symbol_hash
 168   dynarray_add items #`symbol_name
 169   dynarray_add items #`symbol_namespace
 170   dynarray_add items #`symbol_t
 171   dynarray_add items #`tempdir
 172   dynarray_add items #`type_name
 173   dynarray_add items #`type_of
 174   dynarray_add items #`type_t
 175   dynarray_add items #`write_antimony
 176   dynarray_add items #`write_blob_to_stream
 177   dynarray_add items #`write_newline_and_flush_stream
 178   dynarray_add items #`write_newline_to_stream
 179   return (dynarray_to_array items)
 180 }
 181
 182 function init_antimony_symbols {
 183   let sb @*namespace*
 184   set @sb_core get_namespace (namespace_intern sb "core")
 185   set @sb_core_call namespace_intern @sb_core "call"
 186   set @antimony_do intern "do"
 187   set @antimony_else intern "else"
 188   set @antimony_equals intern "="
 189   set @antimony_function intern "function"
 190   set @antimony_if intern "if"
 191   set @antimony_loop intern "loop"
 192   set @antimony_return intern "return"
 193   set @antimony_var intern "var"
 194   set @antimony_while intern "while"
 195 }