Skip to content

Alternative method of lazy evaluation #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 14 commits into from
Apr 25, 2012
Merged

Alternative method of lazy evaluation #2

Changes from 1 commit
Commits
Show all changes
14 commits
Select commit Hold shift + click to select a range
75795d6
removed force functions, using new method of lazy evaluation
Jun 3, 2011
04e1040
added a new method of lazy evaluation for recursive parsers. added un…
Jun 4, 2011
b64434e
added an error msg.
Jun 4, 2011
63f8024
refactoring
Jun 4, 2011
7573844
fixed spelling mistake
Jun 4, 2011
573e5ac
chose better names, m-lazy is now called lazy
Jun 4, 2011
02240cc
deleting newlines
Jun 4, 2011
9f7f57e
added tutorial on xml parsing
Jun 4, 2011
b1efc1e
refactoring
Jun 4, 2011
f26580a
improving docs
Jun 4, 2011
98ca6d8
added none-of and eol parsers like haskell
Jun 4, 2011
6d037f4
added csv example
Jun 4, 2011
21a5066
fixed compilation error around eol
Jun 4, 2011
79789dc
applicative programming
Jun 14, 2011
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
added csv example
  • Loading branch information
Jason Jackson committed Jun 4, 2011
commit 6d037f45286e44efd82b0b367fee883393be96b5
28 changes: 28 additions & 0 deletions doc/csv.clj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,28 @@
(ns csv
(:use
[eu.dnetlib.clojure.clarsec]
[eu.dnetlib.clojure.monad]))

;; Parsing simplified XML:
;;
;; Sample Input:

(def input
"Year,Make,Model,Length
1997,Ford,Model-350,234
2000,Mercury,\"Model 800\",238")

(def cell (<|> stringLiteral
(stringify (many (none-of ",\n")))))
(def line (sep-by cell comma))
(def csv (sep-by line eol))

(defn -main []
(prn (:value (parse csv input))))

;; Output:
;;
;; (("Year" "Make" "Model" "Length")
;; ("1997" "Ford" "Model-350" "234")
;; ("2000" "Mercury" "Model 800" "238"))