! Copyright (C) 2004, 2005 Slava Pestov. ! See http://factor.sf.net/license.txt for BSD license. IN: image USING: kernel lists math namespaces parser words vectors hashtables generic ; ! Bring up a bare cross-compiling vocabulary. "syntax" vocab "generic" vocab ! This symbol needs the same hashcode in the target as in the ! host. vocabularies vocabularies set vocabularies get [ reveal "generic" set "syntax" set ] bind classes set 2 [ [[ "words" "execute" ]] [[ "kernel" "call" ]] [[ "kernel" "ifte" ]] [[ "lists" "cons" ]] [[ "vectors" "" ]] [[ "strings" "str-nth" ]] [[ "strings" "str-compare" ]] [[ "strings" "str=" ]] [[ "strings" "index-of*" ]] [[ "strings" "substring" ]] [[ "strings" "str-reverse" ]] [[ "strings" "" ]] [[ "strings" "sbuf-length" ]] [[ "strings" "set-sbuf-length" ]] [[ "strings" "sbuf-nth" ]] [[ "strings" "set-sbuf-nth" ]] [[ "strings" "sbuf-append" ]] [[ "strings" "sbuf>str" ]] [[ "strings" "sbuf-reverse" ]] [[ "strings" "sbuf-clone" ]] [[ "strings" "sbuf=" ]] [[ "strings" "sbuf-hashcode" ]] [[ "math-internals" "arithmetic-type" ]] [[ "math" ">fixnum" ]] [[ "math" ">bignum" ]] [[ "math" ">float" ]] [[ "math-internals" "(fraction>)" ]] [[ "parser" "str>float" ]] [[ "unparser" "(unparse-float)" ]] [[ "math-internals" "" ]] [[ "math-internals" "fixnum=" ]] [[ "math-internals" "fixnum+" ]] [[ "math-internals" "fixnum-" ]] [[ "math-internals" "fixnum*" ]] [[ "math-internals" "fixnum/i" ]] [[ "math-internals" "fixnum/f" ]] [[ "math-internals" "fixnum-mod" ]] [[ "math-internals" "fixnum/mod" ]] [[ "math-internals" "fixnum-bitand" ]] [[ "math-internals" "fixnum-bitor" ]] [[ "math-internals" "fixnum-bitxor" ]] [[ "math-internals" "fixnum-bitnot" ]] [[ "math-internals" "fixnum-shift" ]] [[ "math-internals" "fixnum<" ]] [[ "math-internals" "fixnum<=" ]] [[ "math-internals" "fixnum>" ]] [[ "math-internals" "fixnum>=" ]] [[ "math-internals" "bignum=" ]] [[ "math-internals" "bignum+" ]] [[ "math-internals" "bignum-" ]] [[ "math-internals" "bignum*" ]] [[ "math-internals" "bignum/i" ]] [[ "math-internals" "bignum/f" ]] [[ "math-internals" "bignum-mod" ]] [[ "math-internals" "bignum/mod" ]] [[ "math-internals" "bignum-bitand" ]] [[ "math-internals" "bignum-bitor" ]] [[ "math-internals" "bignum-bitxor" ]] [[ "math-internals" "bignum-bitnot" ]] [[ "math-internals" "bignum-shift" ]] [[ "math-internals" "bignum<" ]] [[ "math-internals" "bignum<=" ]] [[ "math-internals" "bignum>" ]] [[ "math-internals" "bignum>=" ]] [[ "math-internals" "float=" ]] [[ "math-internals" "float+" ]] [[ "math-internals" "float-" ]] [[ "math-internals" "float*" ]] [[ "math-internals" "float/f" ]] [[ "math-internals" "float<" ]] [[ "math-internals" "float<=" ]] [[ "math-internals" "float>" ]] [[ "math-internals" "float>=" ]] [[ "math-internals" "facos" ]] [[ "math-internals" "fasin" ]] [[ "math-internals" "fatan" ]] [[ "math-internals" "fatan2" ]] [[ "math-internals" "fcos" ]] [[ "math-internals" "fexp" ]] [[ "math-internals" "fcosh" ]] [[ "math-internals" "flog" ]] [[ "math-internals" "fpow" ]] [[ "math-internals" "fsin" ]] [[ "math-internals" "fsinh" ]] [[ "math-internals" "fsqrt" ]] [[ "words" "" ]] [[ "words" "update-xt" ]] [[ "profiler" "call-profiling" ]] [[ "profiler" "allot-profiling" ]] [[ "words" "compiled?" ]] [[ "kernel" "drop" ]] [[ "kernel" "dup" ]] [[ "kernel" "swap" ]] [[ "kernel" "over" ]] [[ "kernel" "pick" ]] [[ "kernel" ">r" ]] [[ "kernel" "r>" ]] [[ "kernel" "eq?" ]] [[ "kernel-internals" "getenv" ]] [[ "kernel-internals" "setenv" ]] [[ "io-internals" "open-file" ]] [[ "files" "stat" ]] [[ "files" "(directory)" ]] [[ "kernel" "garbage-collection" ]] [[ "kernel" "gc-time" ]] [[ "kernel" "save-image" ]] [[ "kernel" "datastack" ]] [[ "kernel" "callstack" ]] [[ "kernel" "set-datastack" ]] [[ "kernel" "set-callstack" ]] [[ "kernel" "exit*" ]] [[ "io-internals" "client-socket" ]] [[ "io-internals" "server-socket" ]] [[ "io-internals" "close-port" ]] [[ "io-internals" "add-accept-io-task" ]] [[ "io-internals" "accept-fd" ]] [[ "io-internals" "can-read-line?" ]] [[ "io-internals" "add-read-line-io-task" ]] [[ "io-internals" "read-line-fd-8" ]] [[ "io-internals" "can-read-count?" ]] [[ "io-internals" "add-read-count-io-task" ]] [[ "io-internals" "read-count-fd-8" ]] [[ "io-internals" "can-write?" ]] [[ "io-internals" "add-write-io-task" ]] [[ "io-internals" "write-fd-8" ]] [[ "io-internals" "add-copy-io-task" ]] [[ "io-internals" "pending-io-error" ]] [[ "io-internals" "next-io-task" ]] [[ "kernel" "room" ]] [[ "kernel" "os-env" ]] [[ "kernel" "millis" ]] [[ "random" "init-random" ]] [[ "random" "(random-int)" ]] [[ "kernel" "type" ]] [[ "files" "cwd" ]] [[ "files" "cd" ]] [[ "assembler" "compiled-offset" ]] [[ "assembler" "set-compiled-offset" ]] [[ "assembler" "literal-top" ]] [[ "assembler" "set-literal-top" ]] [[ "kernel" "address" ]] [[ "alien" "dlopen" ]] [[ "alien" "dlsym" ]] [[ "alien" "dlclose" ]] [[ "alien" "" ]] [[ "alien" "" ]] [[ "alien" "alien-cell" ]] [[ "alien" "set-alien-cell" ]] [[ "alien" "alien-4" ]] [[ "alien" "set-alien-4" ]] [[ "alien" "alien-2" ]] [[ "alien" "set-alien-2" ]] [[ "alien" "alien-1" ]] [[ "alien" "set-alien-1" ]] [[ "kernel" "heap-stats" ]] [[ "errors" "throw" ]] [[ "kernel-internals" "string>memory" ]] [[ "kernel-internals" "memory>string" ]] [[ "alien" "local-alien?" ]] [[ "alien" "alien-address" ]] [[ "lists" ">cons" ]] [[ "vectors" ">vector" ]] [[ "strings" ">string" ]] [[ "words" ">word" ]] [[ "hashtables" ">hashtable" ]] [[ "kernel-internals" "slot" ]] [[ "kernel-internals" "set-slot" ]] [[ "kernel-internals" "integer-slot" ]] [[ "kernel-internals" "set-integer-slot" ]] [[ "kernel-internals" "grow-array" ]] [[ "hashtables" "" ]] [[ "kernel-internals" "" ]] [[ "kernel-internals" "" ]] [[ "kernel-internals" ">array" ]] [[ "kernel-internals" ">tuple" ]] ] [ unswons create swap 1 + [ f define ] keep ] each drop