diff options
| author | Toomas Soome <tsoome@FreeBSD.org> | 2019-09-05 15:06:30 +0000 |
|---|---|---|
| committer | Toomas Soome <tsoome@FreeBSD.org> | 2019-09-05 15:06:30 +0000 |
| commit | 938cae327c01d64470e457ac68ff8561822cfe02 (patch) | |
| tree | 5f5ddc59e3413d0076794703549afcbbb0b5b33a /stand/ficl | |
| parent | d15e810db9a57833272cceffa41998575360cb0c (diff) | |
Notes
Diffstat (limited to 'stand/ficl')
| -rw-r--r-- | stand/ficl/softwords/softcore.fr | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/stand/ficl/softwords/softcore.fr b/stand/ficl/softwords/softcore.fr index a70ebaa634ef..ba210530a390 100644 --- a/stand/ficl/softwords/softcore.fr +++ b/stand/ficl/softwords/softcore.fr @@ -199,6 +199,14 @@ set-current \ stop hiding words a-addr 0 b-addr b-u strcat ; +: xemit ( xchar -- ) + dup 0x80 u< if emit exit then \ special case ASCII + 0 swap 0x3F + begin 2dup u> while + 2/ >r dup 0x3F and 0x80 or swap 6 rshift r> + repeat 0x7F xor 2* or + begin dup 0x80 u< 0= while emit repeat drop + ; previous \ lose hidden words from search order |