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

update GL-FUNCTION: to use new FUNCTION: factors

db4
Joe Groff 2010-02-28 16:40:34 -08:00
parent 078ca0fa58
commit 9412fe8297
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
basis/opengl/gl/extensions/extensions.factor
View File

@ -11,11 +11,11 @@ ERROR: unknown-gl-platform ;
[ unknown-gl-platform ] [ unknown-gl-platform ]
} cond use-vocab >> } cond use-vocab >>
SYMBOL: +gl-function-number-counter+ SYMBOL: +gl-function-counter+
SYMBOL: +gl-function-pointers+ SYMBOL: +gl-function-pointers+
: reset-gl-function-number-counter ( -- ) : reset-gl-function-number-counter ( -- )
0 +gl-function-number-counter+ set-global ; 0 +gl-function-counter+ set-global ;
: reset-gl-function-pointers ( -- ) : reset-gl-function-pointers ( -- )
100 <hashtable> +gl-function-pointers+ set-global ; 100 <hashtable> +gl-function-pointers+ set-global ;
@ -23,9 +23,9 @@ SYMBOL: +gl-function-pointers+
reset-gl-function-pointers reset-gl-function-pointers
reset-gl-function-number-counter reset-gl-function-number-counter
: gl-function-number ( -- n ) : gl-function-counter ( -- n )
+gl-function-number-counter+ get-global +gl-function-counter+ get-global
dup 1 + +gl-function-number-counter+ set-global ; dup 1 + +gl-function-counter+ set-global ;
: gl-function-pointer ( names n -- funptr ) : gl-function-pointer ( names n -- funptr )
gl-function-context 2array dup +gl-function-pointers+ get-global at gl-function-context 2array dup +gl-function-pointers+ get-global at
@ -41,18 +41,15 @@ reset-gl-function-number-counter
: indirect-quot ( function-ptr-quot return types abi -- quot ) : indirect-quot ( function-ptr-quot return types abi -- quot )
'[ @ _ _ _ alien-indirect ] ; '[ @ _ _ _ alien-indirect ] ;
:: define-indirect ( abi return function-ptr-quot function-name parameters -- ) :: define-indirect ( abi return function-name function-ptr-quot types names -- )
function-name create-in dup reset-generic function-name create-in dup reset-generic
function-ptr-quot return function-ptr-quot return types abi indirect-quot
parameters return parse-arglist [ abi indirect-quot ] dip names return function-effect
define-declared ; define-declared ;
SYNTAX: GL-FUNCTION: SYNTAX: GL-FUNCTION:
gl-function-calling-convention gl-function-calling-convention
scan-c-type scan-function-name
scan dup "{" expect "}" parse-tokens over prefix
scan drop "}" parse-tokens swap prefix gl-function-counter '[ _ _ gl-function-pointer ]
gl-function-number ";" scan-c-args define-indirect ;
[ gl-function-pointer ] 2curry swap
";" parse-tokens [ "()" subseq? not ] filter
define-indirect ;