unmaintained/sandbox/syntax/syntax.factor

   1 ! Copyright (C) 2009 Maxim Savchenko.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3
   4 USING: kernel sequences assocs namespaces lexer vocabs.parser sandbox ;
   5 IN: sandbox.syntax
   6
   7 <PRIVATE
   8
   9 ERROR: sandbox-error vocab ;
  10
  11 : sandbox-use+ ( alias -- )
  12     dup whitelist get at [ add-use ] [ sandbox-error ] ?if ;
  13
  14 PRIVATE>
  15
  16 SYNTAX: APPLY: scan sandbox-use+ ;
  17
  18 SYNTAX: APPLYING: ";" parse-tokens [ sandbox-use+ ] each ;
  19
  20 REVEALING:
  21     ! !
  22     HEX: OCT: BIN: f t CHAR: "
  23     [ { T{
  24     ] } ;
  25
  26 REVEAL: ;