aboutsummaryrefslogtreecommitdiffstats
path: root/examples/OCaml-Kaleidoscope/Chapter4/token.ml
diff options
context:
space:
mode:
authorErick Tryzelaar <idadesub@users.sourceforge.net>2010-03-08 19:32:27 +0000
committerErick Tryzelaar <idadesub@users.sourceforge.net>2010-03-08 19:32:27 +0000
commitcabc7af293504ad256d2203ae88ee11cbc34c2ed (patch)
tree8500bcc1ba0067ff7816b083d8b5a535be6ee50d /examples/OCaml-Kaleidoscope/Chapter4/token.ml
parent18048879b214b9a6d1d89040ccbf0b0da94d13c7 (diff)
downloadexternal_llvm-cabc7af293504ad256d2203ae88ee11cbc34c2ed.zip
external_llvm-cabc7af293504ad256d2203ae88ee11cbc34c2ed.tar.gz
external_llvm-cabc7af293504ad256d2203ae88ee11cbc34c2ed.tar.bz2
Add OCaml tutorial to the examples.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97966 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'examples/OCaml-Kaleidoscope/Chapter4/token.ml')
-rw-r--r--examples/OCaml-Kaleidoscope/Chapter4/token.ml15
1 files changed, 15 insertions, 0 deletions
diff --git a/examples/OCaml-Kaleidoscope/Chapter4/token.ml b/examples/OCaml-Kaleidoscope/Chapter4/token.ml
new file mode 100644
index 0000000..2ca782e
--- /dev/null
+++ b/examples/OCaml-Kaleidoscope/Chapter4/token.ml
@@ -0,0 +1,15 @@
+(*===----------------------------------------------------------------------===
+ * Lexer Tokens
+ *===----------------------------------------------------------------------===*)
+
+(* The lexer returns these 'Kwd' if it is an unknown character, otherwise one of
+ * these others for known things. *)
+type token =
+ (* commands *)
+ | Def | Extern
+
+ (* primary *)
+ | Ident of string | Number of float
+
+ (* unknown *)
+ | Kwd of char