Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/ckit/src/ast-utils/equality/eq-ast-ext-sig.sml
ViewVC logotype

Annotation of /sml/trunk/ckit/src/ast-utils/equality/eq-ast-ext-sig.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 597 - (view) (download)

1 : dbm 597 (* Copyright (c) 1998 by Lucent Technologies *)
2 :    
3 :     local
4 :     type tables = Tables.tidtab * Tables.tidtab
5 :     type maps = Tid.uid Tidtab.uidtab * Pidtab.uid Pidtab.uidtab
6 :    
7 :     type expExt = (Ast.expression, Ast.statement, Ast.binop, Ast.unop) AstExt.expressionExt
8 :     type stmtExt = (Ast.expression, Ast.statement, Ast.binop, Ast.unop) AstExt.statementExt
9 :     type extDeclExt = (Ast.expression, Ast.statement, Ast.binop, Ast.unop) AstExt.externalDeclExt
10 :     in
11 :     signature EQASTEXT = sig
12 :     val eqExpressionExt : tables -> maps -> (expExt * expExt) -> unit
13 :     val eqStatementExt : tables -> maps -> (stmtExt * stmtExt) -> unit
14 :     val eqExternalDeclExt : tables -> maps -> (extDeclExt * extDeclExt) -> unit
15 :     end
16 :     end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0