Mercurial > urweb

comparison src/elab_env.sig @ 753:d484df4e841a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Preparing to allow views in SELECT FROM clauses
author Adam Chlipala <adamc@hcoop.net>
date Tue, 28 Apr 2009 14:02:23 -0400
parents 059074c8d2fc
children 56bd4a4f6e66
comparison
equal deleted inserted replaced
752:bc5cfd6cb30f 753:d484df4e841a
69 69
70 val lookupConstructor : env -> string -> (Elab.datatype_kind * int * string list * Elab.con option * int) option 70 val lookupConstructor : env -> string -> (Elab.datatype_kind * int * string list * Elab.con option * int) option
71 71
72 val pushClass : env -> int -> env 72 val pushClass : env -> int -> env
73 val isClass : env -> Elab.con -> bool 73 val isClass : env -> Elab.con -> bool
74 val resolveClass : (Elab.con -> Elab.con) -> env -> Elab.con -> Elab.exp option 74 val resolveClass : (Elab.con -> Elab.con) -> (Elab.con * Elab.con -> bool)
75 -> env -> Elab.con -> Elab.exp option
75 val listClasses : env -> (Elab.con * (Elab.con * Elab.exp) list) list 76 val listClasses : env -> (Elab.con * (Elab.con * Elab.exp) list) list
76 77
77 val pushERel : env -> string -> Elab.con -> env 78 val pushERel : env -> string -> Elab.con -> env
78 val lookupERel : env -> int -> string * Elab.con 79 val lookupERel : env -> int -> string * Elab.con
79 80
116 117
117 val chaseMpath : env -> (int * string list) -> Elab.str * Elab.sgn 118 val chaseMpath : env -> (int * string list) -> Elab.str * Elab.sgn
118 119
119 val patBinds : env -> Elab.pat -> env 120 val patBinds : env -> Elab.pat -> env
120 121
122 exception Bad of Elab.con * Elab.con
123
121 end 124 end