d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small clean up

This commit is contained in:
~d6 2022-04-07 00:16:25 -04:00
parent 397d60693b
commit cfdc0371db
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
femto.tal
View File

@ -92,12 +92,16 @@
|0000 |0000
( terminal size information ) ( terminal size information )
( )
( for now these are constant but eventually we could detect terminal resizes )
@term [ @term [
&cols $2 ( relative x coordinate of cursor, from 0 ) &cols $2 ( relative x coordinate of cursor, from 0 )
&rows $2 ( relative y coordinate of cursor, from 1 ) &rows $2 ( relative y coordinate of cursor, from 1 )
] ]
( configuration settings used when editing ) ( configuration settings used when editing )
( )
( these can be changed at any time without breaking anything else )
@config [ @config [
&tab-width $2 ( how many spaces to display tab chars ) &tab-width $2 ( how many spaces to display tab chars )
&insert-tabs $1 ( tab key inserts tabs when true ) &insert-tabs $1 ( tab key inserts tabs when true )
@ -105,14 +109,19 @@
] ]
( tracks information related to the buffer's view of data ) ( tracks information related to the buffer's view of data )
( )
( limit and line-count change when we modify the buffer. )
( offset and line-offset change when we move the view port. )
@buffer [ @buffer [
&limit $2 ( last byte of actual data (not including \0) + 1 ) &limit $2 ( last byte of actual data (not including \0) + 1 )
&offset $2 ( first byte of data visible in terminal )
&line-count $2 ( total number of lines in file ) &line-count $2 ( total number of lines in file )
&offset $2 ( first byte of data visible in terminal )
&line-offset $2 ( first line of text visible in terminal ) &line-offset $2 ( first line of text visible in terminal )
] ]
( relative cursor positions, e.g. 0 to cols-1 ) ( relative cursor positions, e.g. 0 to cols-1 )
( )
( when these change we may need to move the view port as well )
@cursor [ @cursor [
&col $2 ( current column value 0-n (may exceed lenght of row) ) &col $2 ( current column value 0-n (may exceed lenght of row) )
&row $2 ( current relative row value, 0-(height-1) ) &row $2 ( current relative row value, 0-(height-1) )
@ -160,32 +169,22 @@
( startup ) ( startup )
|0100 |0100
;init-zero-page JSR2 ( init zero page )
;startup JMP2
( import uxn regex library )
~regex.tal
( intialize zero page variables )
( )
( everything not specified starts as zero )
@init-zero-page ( -> )
#0050 .term/cols STZ2 #0050 .term/cols STZ2
#0018 .term/rows STZ2 #0018 .term/rows STZ2
#0004 .config/tab-width STZ2 #0004 .config/tab-width STZ2
#00 .config/insert-tabs STZ #00 .config/insert-tabs STZ
#3333 .config/color STZ2 #3333 .config/color STZ2
;data .buffer/offset STZ2 ;data .buffer/offset STZ2
JMP2r
( code to run on startup ) ( start reading the filename from argv )
@startup
;filename .tmp/pos STZ2 ;filename .tmp/pos STZ2
;read-filename .Console/vector DEO2 ;read-filename .Console/vector DEO2
BRK BRK
( import uxn regex library )
~regex.tal
( ERROR HANDLING ) ( ERROR HANDLING )
( using error! will print the given message before causing ) ( using error! will print the given message before causing )