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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/ast/ast-pp.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/ast/ast-pp.sml

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

revision 110, Wed Jun 23 19:28:48 2010 UTC revision 164, Tue Jul 20 18:56:04 2010 UTC
# Line 76  Line 76 
76              PP.closeBox ppStrm              PP.closeBox ppStrm
77            end            end
78    
79        fun ppStateVarDecl ppStrm (isOutput, AST.VD_Decl(x, e)) = let
80              fun sp () = PP.space ppStrm 1
81              val string = PP.string ppStrm
82              fun var x = string(Var.nameOf x)
83              in
84                PP.openHBox ppStrm;
85                  if isOutput then (string "output"; sp()) else ();
86                  string(TU.toString(#2(Var.typeOf x))); sp(); var x;
87                  sp(); string "="; sp(); ppExp(ppStrm, e); string ";";
88                PP.closeBox ppStrm
89              end
90    
91      fun ppBlock (ppStrm, stms) = let      fun ppBlock (ppStrm, stms) = let
92            fun sp () = PP.space ppStrm 1            fun sp () = PP.space ppStrm 1
93            fun nl () = PP.newline ppStrm            fun nl () = PP.newline ppStrm
# Line 164  Line 176 
176              nl();              nl();
177              PP.openVBox ppStrm indent;              PP.openVBox ppStrm indent;
178                string "{";                string "{";
179                List.app (fn vdcl => (nl(); ppVarDecl ppStrm vdcl)) state;                List.app (fn vdcl => (nl(); ppStateVarDecl ppStrm vdcl)) state;
180                List.app ppMethod methods;                List.app ppMethod methods;
181              PP.closeBox ppStrm;              PP.closeBox ppStrm;
182              nl();              nl();

Legend:
Removed from v.110  
changed lines
  Added in v.164

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