s-cargot-0.1.4.0: A flexible, extensible s-expression library.

Safe HaskellNone
LanguageHaskell2010

Data.SCargot.Language.Basic

Contents

Synopsis

Spec

The basicSpec describes S-expressions whose atoms are simply text strings that contain alphanumeric characters and a small set of punctuation. It does no parsing of numbers or other data types, and will accept tokens that typical Lisp implementations would find nonsensical (like 77foo).

Atoms recognized by the basicSpec are any string matching the regular expression [A-Za-z0-9+*<>/=!?-]+.

basicParser :: SExprParser Text (SExpr Text) Source #

A SExprParser that understands atoms to be sequences of alphanumeric characters as well as the punctuation characters [-*/+<>=!?], and does no processing of them.

>>> decode basicParser "(1 elephant)"
Right [SCons (SAtom "1") (SCons (SAtom "elephant") SNil)]

basicPrinter :: SExprPrinter Text (SExpr Text) Source #

A SExprPrinter that prints textual atoms directly (without quoting or any other processing) onto a single line.

>>> encode basicPrinter [L [A "1", A "elephant"]]
"(1 elephant)"

locatedBasicParser :: SExprParser (Located Text) (SExpr (Located Text)) Source #

A basicParser which produces Located values

>>> decode locatedBasicParser $ pack "(1 elephant)"
Right [SCons (SAtom (At (Span (line 1, column 2) (line 1, column 3)) "1")) (SCons (SAtom (At (Span (line 1, column 4) (line 1, column 12)) "elephant")) SNil)]
>>> decode locatedBasicParser $ pack "(let ((x 1))\n  x)"
Right [SCons (SAtom (At (Span (line 1, column 2) (line 1, column 5)) "let")) (SCons (SCons (SCons (SAtom (At (Span (line 1, column 8) (line 1, column 9)) "x")) (SCons (SAtom (At (Span (line 1, column 10) (line 1, column 11)) "1")) SNil)) SNil) (SCons (SAtom (At (Span (line 2, column 3) (line 2, column 4)) "x")) SNil))]

locatedBasicPrinter :: SExprPrinter (Located Text) (SExpr (Located Text)) Source #

A SExprPrinter for Located values. Works exactly like basicPrinter It ignores the location tags when printing the result.

>>> let (Right dec) = decode locatedBasicParser $ pack "(1 elephant)"
[SCons (SAtom (At (Span (line 1, column 2) (line 1, column 3)) "1")) (SCons (SAtom (At (Span (line 1, column 4) (line 1, column 12)) "elephant")) SNil)]
>>> encode locatedBasicPrinter dec
"(1 elephant)"