gforth/kernel/args.fs - diff

Return to args.fs CVS log

Up to [gforth] / gforth / kernel

version 1.16, 2003/03/09 15:17:04	version 1.17, 2004/01/16 21:27:31
Line 38 Variable argv ( -- addr ) \ gforth	Line 38 Variable argv ( -- addr ) \ gforth
Variable argc ( -- addr ) \ gforth	Variable argc ( -- addr ) \ gforth
\g @code{Variable} -- the number of command-line arguments (including the command name).	\g @code{Variable} -- the number of command-line arguments (including the command name).

	0 Value arg# ( -- addr ) \ gforth
	\g While processing the OS command line arguments, this points to the
	\g argument counter (otherwise @code{arg#} produces 0); @code{arg# @
	\g arg} produces the current argument, @code{1 arg# +!} will result in
	\g one argument being skipped, and @code{argc @ 1- arg# !} will skip
	\g all further arguments. Don't increase @code{arg# @} above
	\g @code{argc @ 1-} (undefined behaviour)!

0 Value script? ( -- flag )	0 Value script? ( -- flag )

: do-option ( addr1 len1 addr2 len2 -- n )	: do-option ( addr1 len1 addr2 len2 -- n )
Line 61 Variable argc ( -- addr ) \ gforth	Line 69 Variable argc ( -- addr ) \ gforth
\ >tib @ >r #tib @ >r >in @ >r	\ >tib @ >r #tib @ >r >in @ >r
argc @ 1	argc @ 1
?DO	?DO
	rp@ to arg#
I arg over c@ [char] - <>	I arg over c@ [char] - <>
IF	IF
\ 2dup dup #tib ! >in ! >tib !	\ 2dup dup #tib ! >in ! >tib !
Line 71 Variable argc ( -- addr ) \ gforth	Line 80 Variable argc ( -- addr ) \ gforth
THEN	THEN
+LOOP	+LOOP
\ r> >in ! r> #tib ! r> >tib !	\ r> >in ! r> #tib ! r> >tib !
	0 to arg#
false to script?	false to script?
;	;