| : |
: |
| swap bounds |
swap bounds |
| ?DO dup c@ I c@ = WHILE 1+ LOOP drop 0 |
?DO dup c@ I c@ = WHILE 1+ LOOP drop 0 |
| ELSE c@ I c@ - unloop THEN -text-flag ; |
ELSE c@ I c@ - unloop THEN sgn ; |
| : sgn ( n -- -1/0/1 ) |
: sgn ( n -- -1/0/1 ) |
| dup 0= IF EXIT THEN 0< 2* 1+ ; |
dup 0= IF EXIT THEN 0< 2* 1+ ; |
| |
|
| ?DO dup c@ I c@ <> |
?DO dup c@ I c@ <> |
| IF dup c@ toupper I c@ toupper = |
IF dup c@ toupper I c@ toupper = |
| ELSE true THEN WHILE 1+ LOOP drop 0 |
ELSE true THEN WHILE 1+ LOOP drop 0 |
| ELSE c@ toupper I c@ toupper - unloop THEN -text-flag ; |
ELSE c@ toupper I c@ toupper - unloop THEN sgn ; |
| |
|
| -trailing ( c_addr u1 -- c_addr u2 ) string dash_trailing |
-trailing ( c_addr u1 -- c_addr u2 ) string dash_trailing |
| ""Adjust the string specified by @i{c-addr, u1} to remove all trailing |
""Adjust the string specified by @i{c-addr, u1} to remove all trailing |
| }; |
}; |
| c_addr=newline; |
c_addr=newline; |
| u=sizeof(newline); |
u=sizeof(newline); |
| |
: |
| |
"newline count ; |
| |
Create "newline 1 c, $0A c, |
