new parser

1 files changed, 89 insertions, 0 deletions

diff --git a/_tests/test.scm b/_tests/test.scm
new file mode 100644
index 0000000..d893c9f
--- /dev/null
+++ b/_tests/test.scm
@@ -0,0 +1,89 @@
+(import
+ (rnrs eval)
+ (rnrs hashtables))
+
+(define-syntax eval-when-compile
+  (lambda (stx)
+    (syntax-case stx ()
+      ((_ imports body ...)
+       (eval
+         (syntax->datum #'(begin body ...))
+         (apply environment (syntax->datum #'imports)))))))
+
+(eval-when-compile
+ ((rnrs))
+ (display "foo\n"))
+
+(define-syntax process-data
+  (lambda (stx)
+    (syntax-case stx ()
+      ((_ file)
+       (let ((ht (make-eqv-hashtable)))
+         (hashtable-set! ht 1 2)
+         ht)))))
+
+(define lookup-table (process-data "lookup-table.dat"))
+
+(define seconds-per-day (number->string (* 24 60 60)))
+
+(define (foo arg1:Num arg2:Record)
+  (do-stuff arg2.field ))
+
+
+
+(define-class Person
+  (fields
+   name date-of-birth sex
+   (age person-age set-person-age!))
+  (methods
+   ((jump height)
+    (if (string=? name "lebron")
+        (perform-jump height)))))
+
+
+
+(define-record (r1 a b))
+
+(define-record (r1 a b)
+  (fields a b)
+  (set-r1-a! a)
+  (set-r1-b! b))
+
+(define my-r1 (r1 1 2))
+
+
+(define-record (r2 a b c d)
+  (parent (r1 a b)))
+
+(define-record (r2 a b c d)
+  (parent (r1 a b))
+  (fields c d)
+  (set-r2-c! c)
+  (set-r2-d! d))
+
+(define-record (r2 a b c d)
+  (parent (r1 (* 2 c) (* 4 d)))
+  (fields x y z)
+  (set-r2-x! a)
+  (set-r2-y! b)
+  (set-r2-z! (/ a b)))
+
+(define my-r2 (r2 1 2 3 4))
+
+
+(define-record (r3 a b c d e f)
+  (parent r2))
+
+(define-record r3
+  (parent r2)
+  (fields e f))
+
+(define (init-r3! r a b c d e f)
+  (init-r2! r a b c d)
+  (set-r3-e! e)
+  (set-r3-f! f))
+
+
+(define r (make-r3))
+(init-r3! r 1 2 3 4 5 6)
+