|
version 1.12, 2003/08/17 22:52:33
|
version 1.13, 2003/08/18 19:29:15
|
|
Line 830 include ./optcmove.fs
|
Line 830 include ./optcmove.fs
|
| |
|
| : (bye) 0 execute ; |
: (bye) 0 execute ; |
| : float+ 8 + ; |
: float+ 8 + ; |
| : sgn ( n -- -1/0/1 ) |
|
| dup 0= IF EXIT THEN 0< 2* 1+ ; |
|
| : -text |
|
| swap bounds |
|
| ?DO dup c@ I c@ = WHILE 1+ LOOP drop 0 |
|
| ELSE c@ I c@ - unloop THEN sgn ; |
|
| : finish-code ; |
: finish-code ; |
| : capscomp ( c_addr1 u c_addr2 -- n ) |
|
| swap bounds |
|
| ?DO dup c@ I c@ <> |
|
| IF dup c@ toupper I c@ toupper = |
|
| ELSE true THEN WHILE 1+ LOOP drop 0 |
|
| ELSE c@ toupper I c@ toupper - unloop THEN sgn ; |
|
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prim.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / misc