miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Finally make a clean sweep and delete / organize old files. Add skeleton for LaTeX formal writeup in doc/ and change license (since this is all new code from the past few years) to BSD-2-Clause-Patent

Browse Source
This commit is contained in:
Nathan Braswell
2022-01-30 16:57:21 -05:00
parent 315ae20698
commit 7f220c97b8
325 changed files with 901 additions and 31024 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
working_files/fungll_test.kp Normal file
View File

@@ -0,0 +1,48 @@
(with_import "./fungll.kp"
(let (
_ (println "The a parser")
just_a_parser (parse (nterm 'A (altOp altStart (seqOp seqStart (term "a")))))
_ (println "parse result for a " (just_a_parser "a"))
_ (println "parse result for b " (just_a_parser "b"))
_ (println "parse result for aa " (just_a_parser "aa"))
_ (println "parse result for ba " (just_a_parser "ba"))
_ (println "parse result for ab " (just_a_parser "ab"))
_ (println "The aa parser")
just_aa_parser (parse (nterm 'A (altOp altStart (seqOp seqStart (term "aa")))))
_ (println "parse result for a " (just_aa_parser "a"))
_ (println "parse result for b " (just_aa_parser "b"))
_ (println "parse result for aa " (just_aa_parser "aa"))
_ (println "parse result for ba " (just_aa_parser "ba"))
_ (println "parse result for ab " (just_aa_parser "ab"))
_ (println "The a.a parser")
just_aa_parser (parse (nterm 'A (altOp altStart (seqOp (seqOp seqStart (term "a")) (term "a")))))
_ (println "parse result for a " (just_aa_parser "a"))
_ (println "parse result for b " (just_aa_parser "b"))
_ (println "parse result for aa " (just_aa_parser "aa"))
_ (println "parse result for ba " (just_aa_parser "ba"))
_ (println "parse result for ab " (just_aa_parser "ab"))
_ (println "The b|a.a parser")
just_aa_parser (parse (nterm 'A (altOp (altOp altStart (seqOp seqStart (term "b"))) (seqOp (seqOp seqStart (term "a")) (term "a")))))
_ (println "parse result for a " (just_aa_parser "a"))
_ (println "parse result for b " (just_aa_parser "b"))
_ (println "parse result for aa " (just_aa_parser "aa"))
_ (println "parse result for ba " (just_aa_parser "ba"))
_ (println "parse result for ab " (just_aa_parser "ab"))
_ (println "The a|a,A parser")
just_aa_parser (let-rec (
As (nterm 'A (altOp (altOp altStart (seqOp seqStart (term "a"))) (seqOp (seqOp (seqOp seqStart (term "a")) (term ",")) As)))
) (parse As))
_ (println "parse result for a " (just_aa_parser "a"))
_ (println "parse result for b " (just_aa_parser "b"))
_ (println "parse result for aa " (just_aa_parser "aa"))
_ (println "parse result for ba " (just_aa_parser "ba"))
_ (println "parse result for ab " (just_aa_parser "ab"))
_ (println "parse result for a,a " (just_aa_parser "a,a"))
_ (println "parse result for a,a,a " (just_aa_parser "a,a,a"))
) nil))