Changeset 11201 for trunk/CASL/AS_Basic_CASL.der.hs
- Timestamp:
- 03.01.2009 15:43:50 (15 months ago)
- Files:
-
- 1 modified
-
trunk/CASL/AS_Basic_CASL.der.hs (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/CASL/AS_Basic_CASL.der.hs
r11199 r11201 73 73 deriving Show 74 74 75 data FunKind = Total | Partial deriving (Show, Eq, Ord)76 77 data OP_TYPE = Op_type FunKind [SORT] SORT Range75 data OpKind = Total | Partial deriving (Show, Eq, Ord) 76 77 data OP_TYPE = Op_type OpKind [SORT] SORT Range 78 78 -- pos: "*"s, "->" ; if null [SORT] then Range = [] or pos: "?" 79 79 deriving (Show, Eq, Ord) … … 85 85 res_OP_TYPE (Op_type _ _ res _) = res 86 86 87 data OP_HEAD = Op_head FunKind [ARG_DECL] SORT Range87 data OP_HEAD = Op_head OpKind [ARG_DECL] SORT Range 88 88 -- pos: "(", semicolons, ")", colon 89 89 deriving Show … … 115 115 deriving Show 116 116 117 data ALTERNATIVE = Alt_construct FunKind OP_NAME [COMPONENTS] Range117 data ALTERNATIVE = Alt_construct OpKind OP_NAME [COMPONENTS] Range 118 118 -- pos: "(", semi colons, ")" optional "?" 119 119 | Subsorts [SORT] Range … … 121 121 deriving Show 122 122 123 data COMPONENTS = Cons_select FunKind [OP_NAME] SORT Range123 data COMPONENTS = Cons_select OpKind [OP_NAME] SORT Range 124 124 -- pos: commas, colon or ":?" 125 125 | Sort SORT