Mercurial > urweb

comparison src/expl.sml @ 162:06a98129b23f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add datatype import constructor annotations; datatypes through explify
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 12:30:04 -0400
parents 7420fa18d657
children 33d4a8eea484
comparison
equal deleted inserted replaced
161:a5ae7b3e37a4 162:06a98129b23f
79 withtype exp = exp' located 79 withtype exp = exp' located
80 80
81 datatype sgn_item' = 81 datatype sgn_item' =
82 SgiConAbs of string * int * kind 82 SgiConAbs of string * int * kind
83 | SgiCon of string * int * kind * con 83 | SgiCon of string * int * kind * con
84 | SgiDatatype of string * int * (string * int * con option) list
85 | SgiDatatypeImp of string * int * int * string list * string * (string * int * con option) list
84 | SgiVal of string * int * con 86 | SgiVal of string * int * con
85 | SgiSgn of string * int * sgn 87 | SgiSgn of string * int * sgn
86 | SgiStr of string * int * sgn 88 | SgiStr of string * int * sgn
87 89
88 and sgn' = 90 and sgn' =
95 withtype sgn_item = sgn_item' located 97 withtype sgn_item = sgn_item' located
96 and sgn = sgn' located 98 and sgn = sgn' located
97 99
98 datatype decl' = 100 datatype decl' =
99 DCon of string * int * kind * con 101 DCon of string * int * kind * con
102 | DDatatype of string * int * (string * int * con option) list
103 | DDatatypeImp of string * int * int * string list * string * (string * int * con option) list
100 | DVal of string * int * con * exp 104 | DVal of string * int * con * exp
101 | DValRec of (string * int * con * exp) list 105 | DValRec of (string * int * con * exp) list
102 | DSgn of string * int * sgn 106 | DSgn of string * int * sgn
103 | DStr of string * int * sgn * str 107 | DStr of string * int * sgn * str
104 | DFfiStr of string * int * sgn 108 | DFfiStr of string * int * sgn