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 281, Tue May 18 14:57:00 1999 UTC revision 282, Wed May 19 05:14:03 1999 UTC
# Line 56  Line 56 
56           * call to parse.           * call to parse.
57           * This function is used to parse aliases and sub-groups. *)           * This function is used to parse aliases and sub-groups. *)
58          fun recParse (p1, p2) p =          fun recParse (p1, p2) p =
59              case parse' (p, (group, (source, p1, p2)) :: groupstack) of              (case parse' (p, (group, (source, p1, p2)) :: groupstack) of
60                  NONE => (#anyErrors source := true; CMSemant.emptyGroup)                  NONE => (#anyErrors source := true; CMSemant.emptyGroup)
61                | SOME res => res                 | SOME res => res)
62                handle exn as IO.Io _ => (error (p1, p2) (General.exnMessage exn);
63                                          CMSemant.emptyGroup)
64    
65          fun doMember (p, p1, p2, c, e) =          fun doMember (p, p1, p2, c, e) =
66              CMSemant.member (recParse (p1, p2))              CMSemant.member (recParse (p1, p2))
# Line 80  Line 82 
82                              val s = EM.matchErrorString s (p1, p2)                              val s = EM.matchErrorString s (p1, p2)
83                          in                          in
84                              PrettyPrint.add_string pps s;                              PrettyPrint.add_string pps s;
85                              PrettyPrint.add_string pps ": ";                              PrettyPrint.add_string pps ": importing ";
86                              PrettyPrint.add_string pps (AbsPath.spec g0);                              PrettyPrint.add_string pps (AbsPath.spec g0);
87                              PrettyPrint.add_newline pps;                              PrettyPrint.add_newline pps;
88                              loop (g, t)                              loop (g, t)

Legend:
Removed from v.281  
changed lines
  Added in v.282

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