2008-01-30 01:18:25 -05:00
|
|
|
USING: alien.syntax alien.syntax.private kernel
|
|
|
|
|
namespaces parser sequences syntax words ;
|
2008-01-13 01:58:56 -05:00
|
|
|
|
|
|
|
|
IN: opengl.gl.unix
|
|
|
|
|
|
2008-01-30 01:18:25 -05:00
|
|
|
: GL-FUNCTION:
|
|
|
|
|
scan "c-library" get scan
|
|
|
|
|
scan drop "}" parse-tokens drop
|
|
|
|
|
";" parse-tokens [ "()" subseq? not ] subset
|
|
|
|
|
define-function ; parsing
|
