HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
client: function to check if stdin is a tty
[hcoop/domtool2.git]
/
src
/
ast.sml
diff --git
a/src/ast.sml
b/src/ast.sml
index
ead8531
..
caa7e9d
100644
(file)
--- a/
src/ast.sml
+++ b/
src/ast.sml
@@
-1,5
+1,5
@@
(* HCoop Domtool (http://hcoop.sourceforge.net/)
(* HCoop Domtool (http://hcoop.sourceforge.net/)
- * Copyright (c) 2006, Adam Chlipala
+ * Copyright (c) 2006
-2007
, Adam Chlipala
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
@@
-91,12
+91,15
@@
datatype exp' =
(* Apply a TNested to an action *)
| EALam of string * pred * exp
(* Abstraction for building TNested values *)
(* Apply a TNested to an action *)
| EALam of string * pred * exp
(* Abstraction for building TNested values *)
+ | EIf of exp * exp * exp
+ (* If..then..else *)
withtype exp = exp' * position
datatype decl' =
DExternType of string
| DExternVal of string * typ
| DVal of string * typ option * exp
withtype exp = exp' * position
datatype decl' =
DExternType of string
| DExternVal of string * typ
| DVal of string * typ option * exp
+ | DEnv of string * typ option * exp
| DContext of string
type decl = decl' * string option * position
| DContext of string
type decl = decl' * string option * position