62 lines
1.8 KiB
Factor
62 lines
1.8 KiB
Factor
USING: accessors arrays effects effects.parser fry generalizations
|
|
kernel lexer math namespaces parser python python.ffi python.objects sequences
|
|
sequences.generalizations vocabs.parser words ;
|
|
IN: python.syntax
|
|
|
|
py-initialize
|
|
|
|
<PRIVATE
|
|
|
|
SYMBOL: current-context
|
|
|
|
: with-each-definition ( quot -- )
|
|
scan-token dup ";" = [ 2drop ] [
|
|
scan-effect rot [ call( tok eff -- ) ] keep with-each-definition
|
|
] if ; inline recursive
|
|
|
|
: scan-definitions ( quot -- )
|
|
scan-token current-context set "=>" expect with-each-definition ; inline
|
|
|
|
: unpack-value ( alien -- * )
|
|
[ 0 = [ drop 0 <py-tuple> ] when ] keep
|
|
[ 1 = [ <1py-tuple> ] when ] keep
|
|
[ py-tuple>array ] dip firstn ; inline
|
|
|
|
: make-function-quot ( alien in out -- quot )
|
|
swapd '[ _ narray array>py-tuple _ swap call-object _ unpack-value ] ;
|
|
|
|
: function-callable ( name alien effect -- )
|
|
[ create-in ] 2dip
|
|
[ [ in>> length ] [ out>> length ] bi make-function-quot ] keep
|
|
define-inline ; inline
|
|
|
|
: function-object ( name alien -- )
|
|
[ "$" prepend create-in ] [ '[ _ ] ] bi*
|
|
{ } { "obj" } <effect> define-inline ; inline
|
|
|
|
: add-function ( name effect -- )
|
|
[ dup current-context get import swap getattr 2dup ] dip
|
|
function-callable function-object ; inline
|
|
|
|
: make-method-quot ( name in out -- ret )
|
|
swapd '[
|
|
_ narray array>py-tuple swap
|
|
_ getattr swap call-object
|
|
_ unpack-value
|
|
] ;
|
|
|
|
: method-object ( name -- )
|
|
[ "$" prepend create-in ] [ '[ _ getattr ] ] bi
|
|
{ "obj" } { "obj'" } <effect> define-inline ;
|
|
|
|
: add-method ( name effect -- )
|
|
[ dup dup create-in swap ] dip
|
|
[ [ in>> length 1 - ] [ out>> length ] bi make-method-quot ] keep
|
|
define-inline method-object ;
|
|
|
|
PRIVATE>
|
|
|
|
SYNTAX: PY-FROM: [ add-function ] scan-definitions ; inline
|
|
|
|
SYNTAX: PY-METHODS: [ add-method ] scan-definitions ; inline
|