This commit is contained in:
~d6 2023-01-28 10:40:47 -05:00
parent 68505fcadf
commit e57df8c544
2 changed files with 70 additions and 10 deletions

4
BUGS
View File

@ -4,5 +4,7 @@
4. less 'G' has problems 4. less 'G' has problems
5. line editing after M-a has issues 5. line editing after M-a has issues
6. log more control codes 6. log more control codes
7. shift text to right when inserting [x] shift text to right when inserting
8. when running links (duckduckgo -> varvara), return stack underflow 8. when running links (duckduckgo -> varvara), return stack underflow
9. crash on backspace in femto
10. M-backspace doesn't redraw properly

View File

@ -11,6 +11,8 @@
( ) ( )
( set attributes: ESC [ x ; ... m -> 0:reset 1:bright 2:dim 7:reverse ) ( set attributes: ESC [ x ; ... m -> 0:reset 1:bright 2:dim 7:reverse )
( get cursor position: ESC [ 6 n -> ESC [ $row ; $col R ) ( get cursor position: ESC [ 6 n -> ESC [ $row ; $col R )
( set insert: ESC [ 4 h )
( set replace (def): ESC [ 4 l )
( enable line wrap: ESC [ 7 h ) ( enable line wrap: ESC [ 7 h )
( disable line wrap: ESC [ 7 l ) ( disable line wrap: ESC [ 7 l )
( ) ( )
@ -34,7 +36,7 @@
( show cursor: ESC [ ? 25 h ) ( show cursor: ESC [ ? 25 h )
( hide cursor: ESC [ ? 25 l ) ( hide cursor: ESC [ ? 25 l )
( insert lines: ESC [ $n L ) ( insert lines: ESC [ $n L )
( ESC \) ) ( ESC lpar )
( ESC 7 ) ( ESC 7 )
( ) ( )
( set bracketed paste mode (xterm): ESC [ ? 2004 h ) ( set bracketed paste mode (xterm): ESC [ ? 2004 h )
@ -62,6 +64,10 @@
@max-x $2 ( cols-1 ) @max-x $2 ( cols-1 )
@max-y $2 ( rows-1 ) @max-y $2 ( rows-1 )
( terminal settings )
@irm $1 ( 01: insert and move right, 00: replace and overwrite )
@awm $1 ( 01: wrap chars at margin, 00: overwrite at margin )
|0100 |0100
( 80 cols x 24 rows ) ( 80 cols x 24 rows )
#0028 .rows STZ2 #0028 .rows STZ2
@ -92,6 +98,10 @@
#02 .attr STZ #02 .attr STZ
;update-tint JSR2 ;update-tint JSR2
( set initial modes )
#01 .irm STZ ( insert and move right )
#01 .awm STZ ( wrap at margin )
( clear screen for initial draw ) ( clear screen for initial draw )
;clear-screen JSR2 ;clear-screen JSR2
@ -100,7 +110,8 @@
;on-key .Controller/vect DEO2 ( set up keyboard ) ;on-key .Controller/vect DEO2 ( set up keyboard )
;on-read .Console/vect DEO2 ( set up stdin ) ;on-read .Console/vect DEO2 ( set up stdin )
#99 #010e DEO #99
( #010e DEO )
( set up debug log ) ( set up debug log )
;debug .File/name DEO2 ;debug .File/name DEO2
#01 .File/append DEO #01 .File/append DEO
@ -244,7 +255,7 @@
BRK BRK
@on-read-csi ( -> ) @on-read-csi ( -> )
#010e DEO ( #010e DEO )
.Console/r DEI .Console/r DEI
DUP LIT "? EQU ;start-priv JCN2 DUP LIT "? EQU ;start-priv JCN2
DUP LIT "; EQU ;next-arg JCN2 DUP LIT "; EQU ;next-arg JCN2
@ -339,6 +350,7 @@
DUP LIT "l EQU ;exec-reset-mode JCN2 ( disable line wrap ) DUP LIT "l EQU ;exec-reset-mode JCN2 ( disable line wrap )
DUP LIT "m EQU ;exec-set-attr JCN2 ( set attr ) DUP LIT "m EQU ;exec-set-attr JCN2 ( set attr )
DUP LIT "n EQU ;exec-status JCN2 ( get status ) DUP LIT "n EQU ;exec-status JCN2 ( get status )
DUP LIT "@ EQU ;exec-insert-blanks JCN2 ( insert blank characters )
DUP LIT "A EQU ;exec-up JCN2 ( up ) DUP LIT "A EQU ;exec-up JCN2 ( up )
DUP LIT "B EQU ;exec-down JCN2 ( down ) DUP LIT "B EQU ;exec-down JCN2 ( down )
DUP LIT "C EQU ;exec-forward JCN2 ( forward ) DUP LIT "C EQU ;exec-forward JCN2 ( forward )
@ -356,9 +368,18 @@
( set mode ) ( set mode )
( TODO: insert/replace, line wrap, etc. ) ( TODO: insert/replace, line wrap, etc. )
@exec-set-mode ( c^ -> ) @exec-set-mode ( c^ -> )
POP BRK POP #0001 ;read-arg-1 JSR2
DUP2 #0004 NEQ2 ,&!irm JCN POP2 .irm ,&set JMP
&!irm DUP2 #0007 NEQ2 ,&!awm JCN POP2 .awm ,&set JMP
&!awm POP2 BRK
&set #01 SWP STZ BRK
@exec-reset-mode ( c^ -> ) @exec-reset-mode ( c^ -> )
POP BRK POP #0001 ;read-arg-1 JSR2
DUP2 #0004 NEQ2 ,&!irm JCN POP2 .irm ,&reset JMP
&!irm DUP2 #0007 NEQ2 ,&!awm JCN POP2 .awm ,&reset JMP
&!awm POP2 BRK
&reset #00 SWP STZ BRK
@read-attr ( attr* -> ) @read-attr ( attr* -> )
DUP2 #0000 NEQ2 ,&!0 JCN #02 .attr STZ ,&done JMP ( reset ) DUP2 #0000 NEQ2 ,&!0 JCN #02 .attr STZ ,&done JMP ( reset )
@ -401,6 +422,7 @@
@exec-down POP ;down-n ;exec1 JMP2 @exec-down POP ;down-n ;exec1 JMP2
@exec-forward POP ;forward-n ;exec1 JMP2 @exec-forward POP ;forward-n ;exec1 JMP2
@exec-back POP ;back-n ;exec1 JMP2 @exec-back POP ;back-n ;exec1 JMP2
@exec-insert-blanks POP ;insert-n-spaces ;exec1 JMP2
@exec-erase-line @exec-erase-line
POP #0000 ;read-arg-1 JSR2 POP #0000 ;read-arg-1 JSR2
@ -584,6 +606,42 @@
@down ( -> ) @down ( -> )
#0001 ,down-n JMP #0001 ,down-n JMP
@insert ( c^ -> )
.attr LDZ SWP ,insert-cell JMP
@insert-cell ( cell* -> )
.irm LDZ #00 EQU ,&replace JCN ( cell* )
;eol-addr JSR2 #0001 SUB2 ( cell* last=eol-1* )
;cur-addr JSR2 ( cell* last* cur* )
&loop ( cell* last* pos* )
LDA2k OVR2 INC2 STA2 ( cell* last* pos* ; pos+1<-pos )
INC2 LTH2k ,&loop JCN ( cell* last pos+1* )
POP2 POP2 ( cell* )
&replace ( cell* )
;cur-addr JSR2 STA2 JMP2r ( )
@insert-n-spaces ( n* -> )
STH2 ( [n*] )
.irm LDZ #00 EQU ,&replace JCN ( [n*] )
;eol-addr JSR2 #0001 SUB2 ( last* [n*] )
STH2kr DUP2 ADD2 SUB2 ( start=last-2n* [n*] )
;cur-addr JSR2 SWP2 ( end* start* [n*] )
DUP2kr ADD2r ( end* start* [n* 2n*] )
&loop ( end* pos* [n* 2n*] )
LDA2k OVR2 STH2kr ADD2 ( end* pos* x* pos+2n* )
STA2 #0002 SUB2 ( end* pos-2* [n* 2n*] )
GTH2k #00 EQU ,&loop JCN ( end* pos-2* [n* 2n*] )
POP2 POP2 POP2r ( [n*] )
&replace ( [n*] )
LIT2r 0000 SWP2r SUB2r ( [-n*] )
#4220 ;cur-addr JSR2 ( 4220 cur* [-n*] )
&loop2 ( 4220 pos* [-i*] )
STA2k INC2 INC2 INC2r ( 4220 pos+2* [-i+1*] )
ORAkr STHr ,&loop2 JCN ( 4220 pos+2* [-i+1*] )
&done
POP2 POP2 POP2r ( )
#01 .dirty? STZ JMP2r ( )
@scroll @scroll
;limit-addr JSR2 STH2 ;limit-addr JSR2 STH2
;cells .cols LDZ2 #0002 MUL2 ADD2 STH2 ;cells .cols LDZ2 #0002 MUL2 ADD2 STH2