Add header and change perms

1 files changed, 23 insertions, 0 deletions

@@ -0,0 +1,23 @@
+(use-modules (ice-9 format)
+             (ice-9 peg)
+             (ice-9 textual-ports)
+             (fff))
+
+(define (read-file file)
+  (call-with-input-file file get-string-all))
+
+(define (test-parse input)
+  (let loop ((str "")
+             (num 0)
+             (lst (string-split input #\newline)))
+    (cond
+     ((null? lst) (match-pattern fff str))
+     ((not (match-pattern fff str))
+      (format #t "!!!!!!!!!!!!!!!!!!!!!!!~%~s~%" lst))
+     (else
+      (format #t "~s~%~%" (peg:tree (match-pattern fff str)))
+      (when (match-pattern fff str)
+        (format #t "~s~%" (car lst)))
+      (loop (string-append str "\n" (car lst))
+            (+ num 1)
+            (cdr lst))))))