steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

modern-transition: scratchpad of commands.

locals-and-roots
Doug Coleman 2016-06-05 12:54:49 -07:00
parent d5bc631401
commit 2c4a58927e
1 changed files with 83 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
modern-transition.factor Normal file
View File

@ -0,0 +1,83 @@
! add each syntax word to core/bootstrap/syntax.factor
! scp boot.unix-x86.64.image.locals-and-roots slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/boot.unix-x86.64.image.locals-and-roots
! find . -type f -name '*.factor' -exec sed -i '' 's/\(^CALLBACK:.* (.*)\)/\1 ;/g' {} +
! lexable-core-paths [ dup . flush path>literals ] map-zip
"resource:ffi" vocabs-from
{ "cocoa.dialogs" "opengl.gl.extensions" "python.syntax"
"windows.com.syntax" "x11.syntax"
"cocoa.application" "opencl.syntax" "mongodb.tuple" "cuda.syntax" "core-foundation.strings"
"cocoa.windows" "cocoa.views" "cocoa.subclassing"
"cocoa.nibs" "cocoa.plists" "cocoa" "cocoa.messages"
"gobject-introspection" "cocoa.apple-script" } diff
[ dup . flush vocab>literals ] map-zip
"resource:language" vocabs-from
{ "constructors" "descriptive" "eval" "functors" "literals"
"match" "method-chains" "multi-methods" "multiline"
"pair-methods" "peg" "promises" "shuffle" "tr" "tuple-arrays"
"variables" "variants" "alien.data" "alien.endian" "alien.fortran"
"alien.syntax" "alien.data.map" "classes.struct"
"classes.struct.vectored" "compiler.codegen" "functors.backend"
"compiler.cfg.dataflow-analysis" "compiler.cfg.renaming.functor"
"compiler.cfg.registers" "cpu.8080.emulator" "definitions.icons"
"compiler.cfg.instructions.syntax" "cpu.x86.assembler.syntax"
"io.encodings.euc" "peg.ebnf" "prettyprint.stylesheet" "slots.syntax"
} diff
[ dup . flush vocab>literals ] map-zip
in: syntax
USING: classes.tuple.parser classes.builtin ;
SYNTAX: in: scan-token set-current-vocab ;
SYNTAX: use: scan-token use-vocab ;
SYNTAX: unuse: scan-token unuse-vocab ;
SYNTAX: postpone: scan-word suffix! ;
SYNTAX: postpone: scan-word suffix! ;
SYNTAX: @inline last-word make-inline ;
SYNTAX: @recursive last-word make-recursive ;
SYNTAX: @foldable last-word make-foldable ;
SYNTAX: @flushable last-word make-flushable ;
SYNTAX: @delimiter last-word t "delimiter" set-word-prop ;
SYNTAX: @deprecated last-word make-deprecated ;
SYNTAX: @final last-word make-final ;
SYNTAX: symbol: scan-new-word define-symbol ;
SYNTAX: singleton: scan-new-class define-singleton-class ;
SYNTAX: mixin: scan-new-class define-mixin-class ;
SYNTAX: forget: scan-object forget ;
SYNTAX: main:
scan-word dup ( -- ) check-stack-effect
[ current-vocab main<< ]
[ current-source-file get [ main<< ] [ drop ] if* ] bi ;
SYNTAX: nan: 16 scan-base <fp-nan> suffix! ;
SYNTAX: char:
lexer get parse-raw [ "token" throw-unexpected-eof ] unless*
{
{ [ dup length 1 = ] [ first ] }
{ [ "\\" ?head ] [ next-escape >string "" assert= ] }
[ name>char-hook get ( name -- char ) call-effect ]
} cond suffix! ;
SYNTAX: defer:
scan-token current-vocab create-word
[ fake-definition ] [ set-last-word ]
[ undefined-def define ] tri ;
SYNTAX: PRIMITIVE:
current-vocab name>> scan-word scan-effect ";" expect ensure-primitive ;
SYNTAX: CONSTANT: scan-new-word scan-object ";" expect define-constant ;
SYNTAX: qualified: scan-token dup add-qualified ;
SYNTAX: QUALIFIED-WITH: scan-token scan-token ";" expect add-qualified ;