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 /pgraph/releases/release-110.64/scan.sml
ViewVC logotype

Diff of /pgraph/releases/release-110.64/scan.sml

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

revision 977, Wed Nov 14 16:53:16 2001 UTC revision 1011, Thu Jan 10 20:22:04 2002 UTC
# Line 142  Line 142 
142                                           env = e, syms = ss },                                           env = e, syms = ss },
143                               s)                               s)
144                      end                      end
145                        fun sym ns = let
146                            val (n, s) = string s
147                        in
148                            def (P.SYM (ns, n), s)
149                        end
150                  in                  in
151                      case f of                      case f of
152                          "syms" => let                          "syms" => let
# Line 168  Line 173 
173                          in                          in
174                              def (P.FILTER { env = e, syms = ss }, s)                              def (P.FILTER { env = e, syms = ss }, s)
175                          end                          end
176                        | "sym" => let                        | "sgn" => sym P.SGN
177                              val (ns, s) = string s                        | "str" => sym P.STR
178                              val (n, s) = string s                        | "fct" => sym P.FCT
                         in  
                             def (P.SYM (ns, n), s)  
                         end  
179                        | x => raise ParseError ("unknown function: " ^ x)                        | x => raise ParseError ("unknown function: " ^ x)
180                  end                  end
181                | _ => NONE                | _ => NONE
# Line 190  Line 192 
192          fun graph s = let          fun graph s = let
193              val s = allof [#2 o S.inputLine, expectId "fn"] s              val s = allof [#2 o S.inputLine, expectId "fn"] s
194              val (imports, s) = varlist s              val (imports, s) = varlist s
195              val s = allof [expect #"=", expect #">", expectId "let"] s              val s = allof [expect #"=", expect #">", expectId "let",
196                               expectId "open", expectId "PGOps"] s
197              val (defs, s) = deflist s              val (defs, s) = deflist s
198              val s = allof [expectId "in", expectId "export", expectId "c"] s              val s = allof [expectId "in", expectId "export", expectId "c"] s
199                val (export, s) = ident s                val (export, s) = ident s

Legend:
Removed from v.977  
changed lines
  Added in v.1011

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