neauoire
/
uxnlin
mirror of https://git.sr.ht/~rabbits/uxnlin
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed issue with MS line-endings

This commit is contained in:
neauoire 2022-12-11 10:54:54 -08:00
parent 5bda31d762
commit 35bce0158b
2 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
etc/example.tal
View File

@ -72,12 +72,8 @@
DEI STH DEI STH
DEI2 STH2 DEI2 STH2
( MS Line-endings ) ( catch as static )
( this should not throw warnings ) #0102 ADD
SUB #0f GTH #50 SFT ( h )
STHr ORA
#40
ORA
BRK BRK

12
src/uxnlin.tal
View File

@ -54,8 +54,8 @@ JMP2
@walk ( char -- ) @walk ( char -- )
( msline ) DUP #0d EQU #1b MUL ADD ( msline to space ) DUP #0d EQU #13 MUL ADD
#0a EQUk NIP ,&line JCN #0a EQUk NIP ,&line JCN
LIT "( EQUk NIP ,&toggle-sleep JCN LIT "( EQUk NIP ,&toggle-sleep JCN
LIT ") EQUk NIP ,&toggle-sleep JCN LIT ") EQUk NIP ,&toggle-sleep JCN
@ -73,20 +73,19 @@ JMP2r
&toggle-mute LIT "[ EQU ,parse/mute STR ;token/last ;sclr JSR2 JMP2r &toggle-mute LIT "[ EQU ,parse/mute STR ;token/last ;sclr JSR2 JMP2r
&line .stats/lines LDZ2k INC2 ROT STZ2 ( , ) &line .stats/lines LDZ2k INC2 ROT STZ2 ( , )
@parse ( char -- recipe* ) @parse ( char -- )
( char ) POP ( char ) POP
( is mute ) [ LIT &mute $1 ] ;&ignore JCN2 ( is mute ) [ LIT &mute $1 ] ;&ignore JCN2
( is blank ) ;token LDA #00 EQU ;&ignore JCN2
( incr tokens ) .stats/tokens LDZ2k INC2 ROT STZ2 ( incr tokens ) .stats/tokens LDZ2k INC2 ROT STZ2
( token length ) ( token length )
;token ;slen JSR2 #0019 LTH2 ,&no-clip JCN ;token ;slen JSR2 #0019 LTH2 ,&no-clip JCN
;tokenlen ;print-warn JSR2 ;tokenlen ;print-warn JSR2
&no-clip &no-clip
( chain include ) ( chain include )
;token LDA LIT "~ NEQ ,&no-inc JCN ;token LDA LIT "~ NEQ ,&no-inc JCN
;src ;src
DUP2 ;sclr JSR2 DUP2 ;sclr JSR2
@ -126,9 +125,6 @@ JMP2r
;token ;is-arithmetic JSR2 #00 EQU ,&no-ari JCN ;token ;is-arithmetic JSR2 #00 EQU ,&no-ari JCN
;token/last ;is-static JSR2 #00 EQU ,&no-ari JCN ;token/last ;is-static JSR2 #00 EQU ,&no-ari JCN
;token/last2 ;is-static JSR2 #00 EQU ,&no-ari JCN ;token/last2 ;is-static JSR2 #00 EQU ,&no-ari JCN
;token/last ;pstr JSR2 #2018 DEO
;token/last2 ;pstr JSR2 #2018 DEO
;static ;print-warn2 JSR2 ;static ;print-warn2 JSR2
&no-ari &no-ari