|
version 1.23, 2006/02/04 19:26:37
|
version 1.24, 2006/02/06 09:59:06
|
|
Line 78 Variable argc ( -- addr ) \ gforth
|
Line 78 Variable argc ( -- addr ) \ gforth
|
| s" *OS command line*" execute-parsing-wrapper ; |
s" *OS command line*" execute-parsing-wrapper ; |
| |
|
| : args-required1 ( addr u -- ) |
: args-required1 ( addr u -- ) |
| dup >in ! required ; |
2dup input-lexeme! required ; |
| |
|
| : args-required ( i*x addr u -- i*x ) \ gforth |
: args-required ( i*x addr u -- i*x ) \ gforth |
| 2dup ['] args-required1 os-execute-parsing ; |
2dup ['] args-required1 os-execute-parsing ; |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to args.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel