Fix bootstrap
parent
bab45d8915
commit
594751381e
|
@ -24,15 +24,6 @@ IN: alien.syntax
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: indirect-quot ( function-ptr-quot return types abi -- quot )
|
|
||||||
[ alien-indirect ] 3curry compose ;
|
|
||||||
|
|
||||||
: define-indirect ( abi return function-ptr-quot function-name parameters -- )
|
|
||||||
[ pick ] dip parse-arglist
|
|
||||||
rot create-in dup reset-generic
|
|
||||||
[ swapd roll indirect-quot ] dip
|
|
||||||
-rot define-declared ;
|
|
||||||
|
|
||||||
: DLL" lexer get skip-blank parse-string dlopen parsed ; parsing
|
: DLL" lexer get skip-blank parse-string dlopen parsed ; parsing
|
||||||
|
|
||||||
: ALIEN: scan string>number <alien> parsed ; parsing
|
: ALIEN: scan string>number <alien> parsed ; parsing
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
USING: alien alien.syntax combinators kernel parser sequences
|
USING: alien alien.syntax alien.syntax.private combinators
|
||||||
system words namespaces hashtables init math arrays assocs
|
kernel parser sequences system words namespaces hashtables init
|
||||||
continuations lexer ;
|
math arrays assocs continuations lexer ;
|
||||||
IN: opengl.gl.extensions
|
IN: opengl.gl.extensions
|
||||||
|
|
||||||
ERROR: unknown-gl-platform ;
|
ERROR: unknown-gl-platform ;
|
||||||
|
@ -36,6 +36,15 @@ reset-gl-function-number-counter
|
||||||
+gl-function-pointers+ get-global set-at
|
+gl-function-pointers+ get-global set-at
|
||||||
] if* ;
|
] if* ;
|
||||||
|
|
||||||
|
: indirect-quot ( function-ptr-quot return types abi -- quot )
|
||||||
|
[ alien-indirect ] 3curry compose ;
|
||||||
|
|
||||||
|
: define-indirect ( abi return function-ptr-quot function-name parameters -- )
|
||||||
|
[ pick ] dip parse-arglist
|
||||||
|
rot create-in
|
||||||
|
[ swapd roll indirect-quot ] 2dip
|
||||||
|
-rot define-declared ;
|
||||||
|
|
||||||
: GL-FUNCTION:
|
: GL-FUNCTION:
|
||||||
gl-function-calling-convention
|
gl-function-calling-convention
|
||||||
scan
|
scan
|
||||||
|
|
Loading…
Reference in New Issue