Parents: | gml |
Authors: | Slava Pestov |
Class | Superclass | Slots |
exec-register | tuple | name n |
gml | tuple | operand-stack dictionary-stack |
gml-exec-name | identity-tuple | name |
gml-marker | identity-tuple | |
gml-name | identity-tuple | string |
gml-stack-underflow | tuple | |
no-marker-found | tuple | |
pathname | tuple | names |
read-register | tuple | name n |
unbound-name | tuple | name |
unbound-register | tuple | name |
use-registers | tuple | n |
write-register | tuple | name n |
Word | Syntax |
EXEC: | |
EXEC:: | |
GML: | |
GML:: | |
exec" |
Word | Stack effect |
(exec) | ( registers gml obj -- registers gml ) |
exec-proc | ( registers gml proc -- registers gml ) |
Word | Stack effect |
gml-primitive | ( inputs# outputs# quot: ( registers gml inputs... -- outputs... ) -- quot: ( registers gml -- registers gml ) ) |
inputs | ( inputs# -- quot: ( gml -- gml inputs... ) ) |
outputs | ( outputs# -- quot: ( gml outputs... -- gml ) ) |
global-dictionary |
gml-names |
Word | Stack effect |
(EXEC:) | ( quot -- method def ) |
(GML:) | ( -- word name effect def ) |
<exec-register> | ( name -- exec-register ) |
<gml> | ( -- gml ) |
<pathname> | ( names -- pathname ) |
<read-register> | ( name -- read-register ) |
<use-registers> | ( -- use-registers ) |
<write-register> | ( name -- write-register ) |
>gml-exec-name | ( string -- name ) |
>gml-name | ( string -- name ) |
add-primitive | ( word name -- ) |
at-pathname | ( pathname assoc -- value ) |
check-stack | ( seq n -- seq n ) |
define-gml-primitive | ( word name effect def -- ) |
exec | ( gml proc -- gml ) |
find-marker | ( gml -- n ) |
gml-stack-underflow | ( -- * ) |
is-gml | ( registers gml obj -- registers gml obj ) |
lookup-name | ( name gml -- value ) |
lookup-register | ( registers gml obj -- value ) |
marker | ( -- value ) |
no-marker-found | ( -- * ) |
peek-operand | ( gml -- value ? ) |
pop-operand | ( gml -- value ) |
popn | ( seq n -- elts... ) |
primitive-effect | ( -- value ) |
push-operand | ( value gml -- ) |
pushn | ( elts... seq n -- ) |
scan-gml-name | ( -- word name ) |
unbound-name | ( name -- * ) |
unbound-register | ( name -- * ) |
Word | Stack effect |
exec-register? | ( object -- ? ) |
gml-exec-name? | ( object -- ? ) |
gml-marker? | ( object -- ? ) |
gml-name? | ( object -- ? ) |
gml-stack-underflow? | ( object -- ? ) |
gml? | ( object -- ? ) |
no-marker-found? | ( object -- ? ) |
pathname? | ( object -- ? ) |
read-register? | ( object -- ? ) |
unbound-name? | ( object -- ? ) |
unbound-register? | ( object -- ? ) |
use-registers? | ( object -- ? ) |
write-register? | ( object -- ? ) |