version 1.45, 2006/03/19 23:27:38
|
version 1.49, 2006/10/11 19:18:51
|
Line 43 require string.fs
|
Line 43 require string.fs
|
case |
case |
'& of ." &" endof |
'& of ." &" endof |
'< of ." <" endof |
'< of ." <" endof |
\ '¤ of ." €" endof |
\ &164 of ." €" endof |
dup emit |
dup emit |
endcase |
endcase |
LOOP ; |
LOOP ; |
Line 68 s" " default-class $!
|
Line 68 s" " default-class $!
|
: tagged ( addr1 u1 addr2 u2 -- ) 2dup 2>r tag .type 2r> /tag ; |
: tagged ( addr1 u1 addr2 u2 -- ) 2dup 2>r tag .type 2r> /tag ; |
|
|
: opt ( addr u opt u -- ) s" " tag-option $+! |
: opt ( addr u opt u -- ) s" " tag-option $+! |
tag-option $+! s' ="' tag-option $+! tag-option $+! |
tag-option $+! s' ="' tag-option $+! |
|
\ BEGIN dup WHILE '& $split >r >r tag-option $+! r> r> |
|
\ dup IF s" %26" tag-option $+! THEN |
|
\ REPEAT 2drop |
|
tag-option $+! |
s' "' tag-option $+! ; |
s' "' tag-option $+! ; |
: n>string ( n -- addr u ) 0 <# #S #> ; |
: n>string ( n -- addr u ) 0 <# #S #> ; |
: xy>string ( x y -- ) swap 0 <# #S 'x hold 2drop 0 #S 's hold #> ; |
: xy>string ( x y -- ) swap 0 <# #S 'x hold 2drop 0 #S 's hold #> ; |