MightyPork/crsn
1
1
Fork 2
Code Issues 15 Pull Requests Releases Wiki Activity

add better string and number parsing to sexp. cleaning, more tests

Browse Source
This commit is contained in:
MightyPork
2020-10-09 00:41:09 +02:00
parent 548addc78c
commit 1f2dbaa81d
22 changed files with 612 additions and 424 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/stacks.csn
+1 -1
View File
@@ -32,5 +32,5 @@
(rpop r1 @r0)
(cmp r1 1000 (ne? (fault)))
(drop @r0)
(del @r0)
)
examples/stdio.csn
+6 -4
View File
@@ -1,8 +1,10 @@
(
; we don't have strings yet 👌
(ld @stdout 'H') (ld @stdout 'e') (ld @stdout 'l') (ld @stdout 'l') (ld @stdout 'o')
(ld @stdout 32) (ld @stdout 'c') (ld @stdout 'r') (ld @stdout 's') (ld @stdout 'n')
(ld @stdout '…') (ld @stdout 32)
(ld @stdout 'P') (ld @stdout 'r') (ld @stdout 'e') (ld @stdout 's') (ld @stdout 's') (ld @stdout ' ')
(ld @stdout 'q') (ld @stdout ' ')
(ld @stdout 't') (ld @stdout 'o') (ld @stdout ' ')
(ld @stdout 'q') (ld @stdout 'u') (ld @stdout 'i') (ld @stdout 't')
(ld @stdout '…') (ld @stdout ' ')
(:loop)
(ld r0 @stdin)
@@ -15,7 +17,7 @@
; uppercase ASCII
(cmp r0 'a' (<? (j :badchar)))
(cmp r0 'z' (>? (j :badchar)))
(sub r0 32)
(sub r0 ' ')
(ld @stdout r0)
(j :loop)