version 1.8, 2007/02/12 18:56:23
|
version 1.9, 2007/02/23 22:33:21
|
Line 323 create gen-wrapped-types
|
Line 323 create gen-wrapped-types
|
noname create 2, |
noname create 2, |
parse-name { d: c-name } |
parse-name { d: c-name } |
here parse-function-types c-name string, |
here parse-function-types c-name string, |
s" xxx.c" w/o create-file throw ( file-id ) |
s" xxx.c" w/o create-file throw >r ( R:file-id ) |
dup >r >outfile gen-wrapper-function outfile< |
['] gen-wrapper-function r@ outfile-execute |
r> close-file throw |
r> close-file throw |
does> ( ... -- ... ) |
does> ( ... -- ... ) |
2@ { xt-defer xt-cfr } |
2@ { xt-defer xt-cfr } |