comparison src/mono.sml @ 736:796e42c93c48

Cookie signatures for RPCs
author Adam Chlipala <adamc@hcoop.net>
date Thu, 23 Apr 2009 16:13:02 -0400
parents e0dd85ea58e1
children f7e2026dd5ae
comparison
equal deleted inserted replaced
735:5ccb67665d05 736:796e42c93c48
60 datatype javascript_mode = 60 datatype javascript_mode =
61 Attribute 61 Attribute
62 | Script 62 | Script
63 | Source of typ 63 | Source of typ
64 64
65 datatype effect = datatype Export.effect
66 datatype export_kind = datatype Export.export_kind
67
65 datatype exp' = 68 datatype exp' =
66 EPrim of Prim.t 69 EPrim of Prim.t
67 | ERel of int 70 | ERel of int
68 | ENamed of int 71 | ENamed of int
69 | ECon of datatype_kind * patCon * exp option 72 | ECon of datatype_kind * patCon * exp option
107 110
108 | ESignalReturn of exp 111 | ESignalReturn of exp
109 | ESignalBind of exp * exp 112 | ESignalBind of exp * exp
110 | ESignalSource of exp 113 | ESignalSource of exp
111 114
112 | EServerCall of exp * exp * typ 115 | EServerCall of exp * exp * typ * effect
113 | ERecv of exp * exp * typ 116 | ERecv of exp * exp * typ
114 | ESleep of exp * exp 117 | ESleep of exp * exp
115 118
116 withtype exp = exp' located 119 withtype exp = exp' located
117
118 datatype effect = datatype Export.effect
119 datatype export_kind = datatype Export.export_kind
120 120
121 datatype decl' = 121 datatype decl' =
122 DDatatype of string * int * (string * int * typ option) list 122 DDatatype of string * int * (string * int * typ option) list
123 | DVal of string * int * typ * exp * string 123 | DVal of string * int * typ * exp * string
124 | DValRec of (string * int * typ * exp * string) list 124 | DValRec of (string * int * typ * exp * string) list