collapseos/blk/131

: UPPER DUP 'a' 'z' =><= IF 32 - THEN ;
: handle ( c -- f )
    DUP '0' '9' =><= IF num 0 EXIT THEN
    DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
    0 ACC ! UPPER 'Q' = ;
: bufp ( buf -- )
    DUP 64 + SWAP DO I C@ 0x20 MAX EMIT LOOP ;
: bufs
    1 aty ." I: " IBUF bufp
    2 aty ." F: " FBUF bufp 0 3 gutter ;
: VE
    clrscr 0 ACC ! 0 PREVPOS ! nums contents
    BEGIN status bufs setpos KEY handle UNTIL
    19 aty (infl) ;
Remove Extra words The few extra bytes they save in the core aren't worth the extra complexity. This was initially done in a context where I had troubles keeping the RC2014 binary with SDC inside the 8K limit. At this point, even with the few extra bytes we add here, we're at 7200 bytes, so I'd say we're fine. 2020-09-21 14:40:53 -04:00			`: UPPER DUP 'a' 'z' =><= IF 32 - THEN ;`
VE: add 'o' and 'O' 2020-06-07 07:25:02 -04:00			`: handle ( c -- f )`
			`DUP '0' '9' =><= IF num 0 EXIT THEN`
			`DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN`
VE: make ACC reset after each non-digit keystrokes It simplifies things. Also, removed ';' which became useless. 2020-06-10 16:54:36 -04:00			`0 ACC ! UPPER 'Q' = ;`
VE: add 'o' and 'O' 2020-06-07 07:25:02 -04:00			`: bufp ( buf -- )`
ed: rename I to i Shadowing core "I" is too messy. As soon as ed is loaded in memory, nothing else that isn't "i-aware" can be loaded anymore. I guess that's why "contexts" exist in Starting Forth, but adding this concept just for allowing the shadowing of core words seems overkill to me. Renaming I to i in ed seems better. 2020-06-23 07:08:21 -04:00			`DUP 64 + SWAP DO I C@ 0x20 MAX EMIT LOOP ;`
VE: add 'o' and 'O' 2020-06-07 07:25:02 -04:00			`: bufs`
			`1 aty ." I: " IBUF bufp`
VE: add gutter 2020-06-11 12:01:22 -04:00			`2 aty ." F: " FBUF bufp 0 3 gutter ;`
VE: use system input buffer for IBUF and FBUF typing This gives us backspace handling. Also, remove all usages of C< which allows us to remove the C<* override. 2020-06-11 20:31:18 -04:00			`: VE`
VE: decouple from core's LIST I'm planning on de-hardcoding columns in VE a bit to add support for screens narrower than 67 columns. There's a lot of hardcoding. Let's begin with not using core's LIST anymore. This allows us to spit 1-16 numbers only at startup. 2020-11-13 15:19:00 -05:00			`clrscr 0 ACC ! 0 PREVPOS ! nums contents`
VE: add 'o' and 'O' 2020-06-07 07:25:02 -04:00			`BEGIN status bufs setpos KEY handle UNTIL`
VE: Add dirtiness indicator in status bar Written from VE! 2020-06-11 21:52:08 -04:00			`19 aty (infl) ;`