Mercurial > urweb

comparison src/cjr.sml @ 288:4260ad920c36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Converting string to int
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Sep 2008 11:33:13 -0400
parents c0e4ac23522d
children df00701f2323
comparison
equal deleted inserted replaced
287:3ed7a7c7b060 288:4260ad920c36
34 datatype typ' = 34 datatype typ' =
35 TFun of typ * typ 35 TFun of typ * typ
36 | TRecord of int 36 | TRecord of int
37 | TDatatype of datatype_kind * int * (string * int * typ option) list ref 37 | TDatatype of datatype_kind * int * (string * int * typ option) list ref
38 | TFfi of string * string 38 | TFfi of string * string
39 | TOption of typ
39 40
40 withtype typ = typ' located 41 withtype typ = typ' located
41 42
42 datatype patCon = 43 datatype patCon =
43 PConVar of int 44 PConVar of int
47 PWild 48 PWild
48 | PVar of string * typ 49 | PVar of string * typ
49 | PPrim of Prim.t 50 | PPrim of Prim.t
50 | PCon of datatype_kind * patCon * pat option 51 | PCon of datatype_kind * patCon * pat option
51 | PRecord of (string * pat * typ) list 52 | PRecord of (string * pat * typ) list
53 | PNone of typ
54 | PSome of typ * pat
52 55
53 withtype pat = pat' located 56 withtype pat = pat' located
54 57
55 datatype exp' = 58 datatype exp' =
56 EPrim of Prim.t 59 EPrim of Prim.t