Mercurial > urweb
comparison src/source.sml @ 211:e86411f647c6
Initial type class support
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 16 Aug 2008 14:32:18 -0400 |
parents | f4033abd6ab1 |
children | 42dfb0d61cf0 |
comparison
equal
deleted
inserted
replaced
210:f4033abd6ab1 | 211:e86411f647c6 |
---|---|
81 | SgiStr of string * sgn | 81 | SgiStr of string * sgn |
82 | SgiSgn of string * sgn | 82 | SgiSgn of string * sgn |
83 | SgiInclude of sgn | 83 | SgiInclude of sgn |
84 | SgiConstraint of con * con | 84 | SgiConstraint of con * con |
85 | SgiTable of string * con | 85 | SgiTable of string * con |
86 | SgiClassAbs of string | |
87 | SgiClass of string * con | |
86 | 88 |
87 and sgn' = | 89 and sgn' = |
88 SgnConst of sgn_item list | 90 SgnConst of sgn_item list |
89 | SgnVar of string | 91 | SgnVar of string |
90 | SgnFun of string * sgn * sgn | 92 | SgnFun of string * sgn * sgn |
117 | ERecord of (con * exp) list | 119 | ERecord of (con * exp) list |
118 | EField of exp * con | 120 | EField of exp * con |
119 | ECut of exp * con | 121 | ECut of exp * con |
120 | EFold | 122 | EFold |
121 | 123 |
122 | ESqlInfer | 124 | EWild |
123 | 125 |
124 | ECase of exp * (pat * exp) list | 126 | ECase of exp * (pat * exp) list |
125 | 127 |
126 withtype exp = exp' located | 128 withtype exp = exp' located |
127 | 129 |
137 | DOpen of string * string list | 139 | DOpen of string * string list |
138 | DConstraint of con * con | 140 | DConstraint of con * con |
139 | DOpenConstraints of string * string list | 141 | DOpenConstraints of string * string list |
140 | DExport of str | 142 | DExport of str |
141 | DTable of string * con | 143 | DTable of string * con |
144 | DClass of string * con | |
142 | 145 |
143 and str' = | 146 and str' = |
144 StrConst of decl list | 147 StrConst of decl list |
145 | StrVar of string | 148 | StrVar of string |
146 | StrProj of str * string | 149 | StrProj of str * string |