Powered by ViewCVS 1.0-dev
| version 1.8, Mon Feb 12 18:56:23 2007 UTC | version 1.9, Fri Feb 23 22:33:21 2007 UTC | ||
|---|---|---|---|
|
|
||
| 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 } |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |