Return to nesting.fs CVS log

Up to [gforth] / gforth / ec

Mega-Patch; added directories

\ nesting.fs displays nesting for primitive trace	12jun97jaw

Variable nestlevel

: main
  cr
  0 nestlevel !
  BEGIN
	key dup 9 u> WHILE
	dup
	CASE	': OF 	cr nestlevel @ spaces 1 nestlevel +! emit ENDOF
		'; OF	cr -1 nestlevel +! nestlevel @ spaces emit 
			cr nestlevel @ spaces ENDOF
		dup OF	dup 31 u> IF emit THEN ENDOF
	ENDCASE
  REPEAT drop bye ;