summaryrefslogtreecommitdiff
path: root/t/parse.lisp
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2025-04-16 16:40:03 -0400
committerbd <bdunahu@operationnull.com>2025-04-16 16:40:03 -0400
commit76dca859f9a4c5e5575a3097d3d3a6f96d781258 (patch)
treec129a6d326a10f40e1a53144313d397b71eefba7 /t/parse.lisp
parent768ebe5c796d85d0262260c9a0b1f7aec28b8844 (diff)
remove tabs
Diffstat (limited to 't/parse.lisp')
-rw-r--r--t/parse.lisp46
1 files changed, 23 insertions, 23 deletions
diff --git a/t/parse.lisp b/t/parse.lisp
index 29c313d..2cb5b42 100644
--- a/t/parse.lisp
+++ b/t/parse.lisp
@@ -20,7 +20,7 @@
(test esrap-register-bases
(is (equal '(emit::p
- (emit::d)
+ (emit::d)
(emit::x
(emit::r "ADD" (emit::rr 10) (emit::rr 10) (emit::rr 10))))
(esrap:parse 'parse:str->ast (format nil ".DATA~%.TEXT~%~tADD $0O012 $0B1010 $0XA~%")))))
@@ -28,7 +28,7 @@
(test esrap-instr-all-type-r
(is (equal
'(emit::p
- (emit::d)
+ (emit::d)
(emit::x
(emit::r "ADDV" (emit::rr 1) (emit::rr 2) (emit::rr 3))
(emit::r "NOT" (emit::rr 4) (emit::rr 0) (emit::rr 5))
@@ -39,7 +39,7 @@
(test esrap-instr-all-type-i
(is (equal
'(emit::p
- (emit::d)
+ (emit::d)
(emit::x
(emit::i "LOADV" (emit::rr 8) (emit::rr 9) 1)
(emit::i "STORE" (emit::rr 3) (emit::rr 5) 3)
@@ -50,11 +50,11 @@
(test esrap-instr-type-all-type-j
(is (equal
'(emit::p
- (emit::d)
+ (emit::d)
(emit::x
- (emit::j "JMP" (emit::rr 0) (emit::l "FOO"))
- (emit::j "JRL" (emit::rr 0) (emit::l "FOO" 8))
- (emit::j "RET" (emit::rr 0) 0)
+ (emit::j "JMP" (emit::rr 0) (emit::l "FOO"))
+ (emit::j "JRL" (emit::rr 0) (emit::l "FOO" 8))
+ (emit::j "RET" (emit::rr 0) 0)
(emit::j "PUSH" (emit::rr 5) 0)))
(esrap:parse 'parse:str->ast (format nil ".DATA~%.TEXT~%~tJMP FOO
~tJRL FOO~%~tRET~%~tPUSH $5~%")))))
@@ -62,7 +62,7 @@
(test esrap-instr-type-i-negative
(is (equal
'(emit::p
- (emit::d)
+ (emit::d)
(emit::x
(emit::i "LOADV" (emit::rr 8) (emit::rr 3) -3)))
(esrap:parse 'parse:str->ast (format nil ".DATA~%.TEXT~%~tLOADV $8 -3($3)~%")))))
@@ -70,7 +70,7 @@
(test esrap-instr-type-i-vars
(is (equal
'(emit::p
- (emit::d)
+ (emit::d)
(emit::x
(emit::i "LOADV" (emit::rr 8) (emit::rr 4) 2)
(emit::i "STORE" (emit::rr 1) (emit::rr 5) 2)))
@@ -80,7 +80,7 @@
(test esrap-instr-type-all-lazy-spaces
(is (equal
'(emit::p
- (emit::d)
+ (emit::d)
(emit::x
(emit::j "JMP" (emit::rr 0) (emit::l "FOO"))
(emit::j "JRL" (emit::rr 0) (emit::l "FOO" 15))
@@ -91,10 +91,10 @@ JRL FOO~t~%PUSH $5~%")))))
(test esrap-instr-type-comments
(is (equal
'(emit::p
- (emit::d)
+ (emit::d)
(emit::x
- (emit::j "JMP" (emit::rr 0) (emit::l "FOO"))
- (emit::j "JRL" (emit::rr 0) (emit::l "FOO" 18))
+ (emit::j "JMP" (emit::rr 0) (emit::l "FOO"))
+ (emit::j "JRL" (emit::rr 0) (emit::l "FOO" 18))
(emit::j "PUSH" (emit::rr 5) 0)))
(esrap:parse 'parse:str->ast (format nil ".DATA~%.TEXT;; dot dot dot
~tJMP FOO ;; this does things
@@ -108,7 +108,7 @@ JRL FOO~t~%PUSH $5~%")))))
'(emit::p
(emit::d
1)
- (emit::x))
+ (emit::x))
(esrap:parse 'parse:str->ast (format nil ".DATA~%~tA 1~%.TEXT~%")))))
(test esrap-data-loaded
@@ -116,7 +116,7 @@ JRL FOO~t~%PUSH $5~%")))))
'(emit::p
(emit::d
1 2 3 4 5 6 7 8)
- (emit::x))
+ (emit::x))
(esrap:parse 'parse:str->ast (format nil ".DATA~%~tB 1 2 3 4 5 6 7 8
.TEXT~%")))))
@@ -125,7 +125,7 @@ JRL FOO~t~%PUSH $5~%")))))
'(emit::p
(emit::d
5 6 7 8 4 3 5)
- (emit::x))
+ (emit::x))
(esrap:parse 'parse:str->ast (format nil ".DATA~%~tC 5 6 7 8~%~tD 4
~tE 3 5~%.TEXT~%")))))
@@ -134,18 +134,18 @@ JRL FOO~t~%PUSH $5~%")))))
'(emit::p
(emit::d
5 6 7 8 4 3 5)
- (emit::x))
+ (emit::x))
(esrap:parse 'parse:str->ast (format nil "~%~t.DATA~t~%F 5 6 7 8~t~%G 4
H 3 5~%.TEXT~%")))))
(test esrap-negative-ints
(is (equal
- '(emit::p
- (emit::d
- -1)
- (emit::x
- (emit::i "LOADV" (emit::rr -8) (emit::rr -3) -3)))
- (esrap:parse 'parse:str->ast (format nil ".DATA~%~tm -1~%.TEXT~%~tLOADV $-8 -3($-3)~%")))))
+ '(emit::p
+ (emit::d
+ -1)
+ (emit::x
+ (emit::i "LOADV" (emit::rr -8) (emit::rr -3) -3)))
+ (esrap:parse 'parse:str->ast (format nil ".DATA~%~tm -1~%.TEXT~%~tLOADV $-8 -3($-3)~%")))))
(test esrap-data-full
(is (equal