Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/lamont_dev/src/compiler/simplify/simple-pp.sml
ViewVC logotype

Diff of /branches/lamont_dev/src/compiler/simplify/simple-pp.sml

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

revision 2038, Tue Oct 16 11:31:02 2012 UTC revision 2039, Wed Oct 17 16:10:37 2012 UTC
# Line 69  Line 69 
69            fun pp e = (case e            fun pp e = (case e
70                   of S.E_Var x => var x                   of S.E_Var x => var x
71                    | S.E_Lit lit => string (Literal.toString lit)                    | S.E_Lit lit => string (Literal.toString lit)
72            | S.E_RadiusQuery e =>            | S.E_SphereQuery args =>
73                 (string "radius("; sp();  pp e; string ")"; sp())                 (string "sphere("; sp();  ppArgs (ppStrm, args); string ")"; sp())
74                    | S.E_Tuple es => ppArgs (ppStrm, es)                    | S.E_Tuple es => ppArgs (ppStrm, es)
75                    | S.E_Apply(f, [], args, _) => (var f; sp(); ppArgs (ppStrm, args))                    | S.E_Apply(f, [], args, _) => (var f; sp(); ppArgs (ppStrm, args))
76                    | S.E_Apply(f, mvs, args, _) => (                    | S.E_Apply(f, mvs, args, _) => (
# Line 148  Line 148 
148                        PP.openHBox ppStrm;                        PP.openHBox ppStrm;
149                          sp(); string "else"; sp(); ppBlock (ppStrm, [], blk2);                          sp(); string "else"; sp(); ppBlock (ppStrm, [], blk2);
150                        PP.closeBox ppStrm)                        PP.closeBox ppStrm)
151            | S.S_Foreach (x, S.Block[s]) => (            | S.S_Foreach (x, S.Block[s],_) => (
152                PP.openHBox ppStrm;                PP.openHBox ppStrm;
153                string "foreach("; sp(); ppVar(ppStrm, x); string ")";                string "foreach("; sp(); ppVar(ppStrm, x); string ")";
154                sp(); nl(); ppStmt s;                sp(); nl(); ppStmt s;
155                PP.closeBox ppStrm)                PP.closeBox ppStrm)
156            | S.S_Foreach (x, blk) => (            | S.S_Foreach (x, blk,_) => (
157                PP.openVBox ppStrm indent;                PP.openVBox ppStrm indent;
158                            PP.openHBox ppStrm;                            PP.openHBox ppStrm;
159                string "foreach("; sp(); ppVar(ppStrm, x); string ")";                string "foreach("; sp(); ppVar(ppStrm, x); string ")";

Legend:
Removed from v.2038  
changed lines
  Added in v.2039

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