-- ------------- Sting format ---------------

: GetNextArg ( -- c-addr true | false )
	BL Word dup nullstring compare* 0= if drop false else true then
;
: GetFirstArg ( -- c-addr true | false )
	parsecommandline GetNextArg
;

-- ------------- ASCIIz format ---------------

: GetNextArgZ ( -- a-addr true | false )
	BL Word dup nullstring compare* 0= if drop false else >asciiz true then
;
: GetFirstArgZ ( -- a-addr true | false )
	parsecommandline GetNextArgZ
;

-- ------------- Number format ---------------

: GetNextArgN ( -- n true | false )
	BL Word dup nullstring compare* 0=
	if
		drop false
	else
		val				\ d true | c-addr n false
		if				\ d      | c-addr n
			drop true		\ n true |
		else
			2drop false		\        | false
		then
	then
;

." \n CommandLine tools loaded\n"