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/src/cm/smlfile/skeleton.sml
ViewVC logotype

Annotation of /sml/trunk/src/cm/smlfile/skeleton.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 291 - (view) (download)

1 : blume 270 (*
2 :     * SML source skeletons.
3 : blume 286 * (This has been vastly streamlined and simplified.)
4 : blume 270 *
5 : blume 286 * Copyright (c) 1999 by Bell Laboratories, Lucent Technologies
6 : blume 270 * Copyright (c) 1995 by AT&T Bell Laboratories
7 :     * Copyright (c) 1993 by Carnegie Mellon University,
8 :     * School of Computer Science
9 :     * contact: Gene Rollins (rollins+@cs.cmu.edu)
10 :     *
11 :     * contact: Matthias Blume (blume@cs.princeton.edu)
12 :     *)
13 :     structure Skeleton = struct
14 :    
15 : blume 278 type symbol = Symbol.symbol
16 : blume 270 type sympath = GenericVC.SymPath.path
17 :    
18 :     datatype decl =
19 : blume 286 Bind of symbol * modExp
20 :     | Local of decl * decl
21 :     | Par of decl list
22 :     | Seq of decl list
23 :     | Open of modExp
24 :     | Ref of SymbolSet.set
25 : blume 270
26 : blume 286 and modExp =
27 :     Var of sympath
28 :     | Decl of decl
29 :     | Let of decl * modExp
30 : blume 291 | Ign1 of modExp * modExp
31 : blume 270 end

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