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

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/parse/parse.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/parse/parse.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 274, Fri May 14 05:23:02 1999 UTC revision 275, Sat May 15 09:54:52 1999 UTC
# Line 30  Line 30 
30          val currentDir = AbsPath.dir group          val currentDir = AbsPath.dir group
31          val context = AbsPath.relativeContext (AbsPath.dir group)          val context = AbsPath.relativeContext (AbsPath.dir group)
32          val filename = AbsPath.name group          val filename = AbsPath.name group
33            val _ = Say.vsay (concat ["[scanning ", filename, "]\n"])
34          val stream = TextIO.openIn filename          val stream = TextIO.openIn filename
35          val errcons =          val errcons =
36              { linewidth = !P.linewidth, flush = P.flush, consumer = P.say }              { linewidth = !P.linewidth, flush = P.flush, consumer = P.say }
# Line 48  Line 49 
49                  NONE => (#anyErrors source := true; CMSemant.emptyGroup)                  NONE => (#anyErrors source := true; CMSemant.emptyGroup)
50                | SOME res => res                | SOME res => res
51    
52          fun doMember (p, p1, p2, c) =          fun doMember (p, p1, p2, c, e) =
53              CMSemant.member (recParse (p1, p2)) { sourcepath = p,              CMSemant.member (recParse (p1, p2)) { sourcepath = p,
54                                                    group = group,                                                    group = group,
55                                                    class = c }                                                    class = c,
56                                                      error = e }
57    
58          (* checking for cycles among groups and printing them nicely *)          (* checking for cycles among groups and printing them nicely *)
59          val _ = let          val _ = let

Legend:
Removed from v.274  
changed lines
  Added in v.275

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