mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 19:30:56 +11:00
58ece9f9a1
Also, made LIST properly handle full 64-chars lines not ending with a null or CR. Previously, such a line would be accompanied by its following line, duplicating that line's output.
16 lines
477 B
Plaintext
16 lines
477 B
Plaintext
: _ilen ( length of str in IBUF )
|
|
IBUF BEGIN C@+ EOL? UNTIL IBUF - 1- ;
|
|
: I
|
|
IBUF _type EDPOS @ 64 /MOD ( cno lno )
|
|
1+ 64 * _cpos ( cno next-line-ptr )
|
|
SWAP 63 -^ _ilen ( nlp nb-of-chars-to-move ilen )
|
|
2DUP > IF
|
|
SWAP OVER - 1+ ( nlp ilen nbc ) 0 DO ( a ilen )
|
|
SWAP 1- 2DUP -^ ( ilen a-1 a-ilen-1 ) C@ OVER C!
|
|
SWAP ( a ilen )
|
|
LOOP
|
|
ELSE DROP ( ilen becomes nbc )
|
|
THEN
|
|
SWAP DROP IBUF EDPOS @ _cpos ROT MOVE
|
|
;
|