version 1.156, 2006/02/19 13:33:40
|
version 1.157, 2006/03/04 22:45:07
|
Line 1751 Ghost state drop
|
Line 1751 Ghost state drop
|
swap -rot bounds ?DO I c@ over X c! X char+ LOOP drop ; |
swap -rot bounds ?DO I c@ over X c! X char+ LOOP drop ; |
|
|
2Variable last-string |
2Variable last-string |
|
X has? rom [IF] $60 [ELSE] $00 [THEN] Constant header-masks |
|
|
|
: ht-header, ( addr count -- ) |
|
dup there swap last-string 2! |
|
dup header-masks or T c, H bounds ?DO I c@ T c, H LOOP ; |
: ht-string, ( addr count -- ) |
: ht-string, ( addr count -- ) |
dup there swap last-string 2! |
dup there swap last-string 2! |
dup T c, H bounds ?DO I c@ T c, H LOOP ; |
dup T c, H bounds ?DO I c@ T c, H LOOP ; |
Line 2060 $20 constant restrict-mask
|
Line 2064 $20 constant restrict-mask
|
|
|
>TARGET |
>TARGET |
X has? f83headerstring [IF] |
X has? f83headerstring [IF] |
: name, ( "name" -- ) bl word count ht-string, X cfalign ; |
: name, ( "name" -- ) bl word count ht-header, X cfalign ; |
[ELSE] |
[ELSE] |
: name, ( "name" -- ) bl word count ht-lstring, X cfalign ; |
: name, ( "name" -- ) bl word count ht-lstring, X cfalign ; |
[THEN] |
[THEN] |