gforth/smartdots.fs - diff

Return to smartdots.fs CVS log

Up to [gforth] / gforth

version 1.5, 2012/03/16 20:34:22	version 1.6, 2012/03/27 23:02:01
Line 20	Line 20
\ idea: Gerald Wodni	\ idea: Gerald Wodni

: addr? ( addr -- flag )	: addr? ( addr -- flag )
TRY @ IFERROR 2drop false nothrow ELSE drop true THEN ENDTRY ;	TRY c@ IFERROR 2drop false nothrow ELSE drop true THEN ENDTRY ;

: string? ( addr u -- flag )	: string? ( addr u -- flag )
TRY bounds ?DO I c@ bl < IF -1 throw THEN LOOP	TRY dup #80 u> throw bounds ?DO I c@ bl < IF -1 throw THEN LOOP
IFERROR 2drop drop false nothrow ELSE true THEN ENDTRY ;	IFERROR 2drop drop false nothrow ELSE true THEN ENDTRY ;

: .string. ( addr u -- )	: .string. ( addr u -- )
Line 41 Variable smart.s-skip	Line 41 Variable smart.s-skip
ELSE . THEN	ELSE . THEN
THEN ;	THEN ;

' smart.s. IS .s.

	' smart.s. IS .s.