Merge pull request #13 from philburk/fixrom

[pforth] / fth / private.fth

\ @(#) private.fth 98/01/26 1.2\r
\ PRIVATIZE\r
\\r
\ Privatize words that are only needed within the file\r
\ and do not need to be exported.\r
\\r
\ Usage:\r
\    PRIVATE{\r
\    : FOO ;  \ Everything between PRIVATE{ and }PRIVATE will become private.\r
\    : MOO ;\r
\    }PRIVATE\r
\    : GOO   foo moo ;  \ can use foo and moo\r
\    PRIVATIZE          \ smudge foo and moo\r
\    ' foo              \ will fail\r
\\r
\ Copyright 1996 Phil Burk\r
\\r
\ 19970701 PLB Use unsigned compares for machines with "negative" addresses.\r
\r
anew task-private.fth\r
\r
variable private-start\r
variable private-stop\r
$ 20 constant FLAG_SMUDGE\r
\r
: PRIVATE{\r
	latest private-start !\r
	0 private-stop !\r
;\r
: }PRIVATE\r
	private-stop @ 0= not abort" Extra }PRIVATE"\r
	latest private-stop !\r
;\r
: PRIVATIZE  ( -- , smudge all words between PRIVATE{ and }PRIVATE )\r
	private-start @ 0= abort" Missing PRIVATE{"\r
	private-stop @ 0= abort" Missing }PRIVATE"\r
	private-stop @\r
	BEGIN\r
		dup private-start @ u>    \ 19970701\r
	WHILE\r
\		." Smudge " dup id. cr\r
		dup c@ flag_smudge or over c!\r
		prevname\r
	REPEAT\r
	drop\r
	0 private-start !\r
	0 private-stop !\r
;\r