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 477, Sat Nov 13 16:02:07 2010 UTC revision 499, Tue Feb 1 17:37:51 2011 UTC
# Line 76  Line 76 
76              PP.openHBox ppStrm;              PP.openHBox ppStrm;
77                case Var.kindOf x                case Var.kindOf x
78                 of AST.InputVar => (string "input"; sp())                 of AST.InputVar => (string "input"; sp())
79                  | AST.ActorOutputVar => (string "output"; sp())                  | AST.StrandOutputVar => (string "output"; sp())
80                  | _ => ()                  | _ => ()
81                (* end case *);                (* end case *);
82                string(TU.toString(#2(Var.typeOf x))); sp(); string(Var.nameOf x);                string(TU.toString(#2(Var.typeOf x))); sp(); string(Var.nameOf x);
# Line 135  Line 135 
135                          var x; sp(); string "="; sp(); ppExp(ppStrm, e); string ";";                          var x; sp(); string "="; sp(); ppExp(ppStrm, e); string ";";
136                        PP.closeBox ppStrm;                        PP.closeBox ppStrm;
137                        nl())                        nl())
138                    | AST.S_New(actor, args) => (                    | AST.S_New(strand, args) => (
139                        PP.openHBox ppStrm;                        PP.openHBox ppStrm;
140                          string "new"; sp(); string(Atom.toString actor); sp();                          string "new"; sp(); string(Atom.toString strand); sp();
141                          ppArgs (ppStrm, args); string ";";                          ppArgs (ppStrm, args); string ";";
142                        PP.closeBox ppStrm;                        PP.closeBox ppStrm;
143                        nl())                        nl())
# Line 154  Line 154 
154              PP.closeBox ppStrm              PP.closeBox ppStrm
155            end            end
156    
157      fun ppActor (ppStrm, {name, params, state, methods}) = let      fun ppStrand (ppStrm, {name, params, state, methods}) = let
158            fun sp () = PP.space ppStrm 1            fun sp () = PP.space ppStrm 1
159            fun nl () = PP.newline ppStrm            fun nl () = PP.newline ppStrm
160            val string = PP.string ppStrm            val string = PP.string ppStrm
# Line 165  Line 165 
165                  nl(); string(Atom.toString name); nl(); ppBlock (ppStrm, [stm]))                  nl(); string(Atom.toString name); nl(); ppBlock (ppStrm, [stm]))
166            in            in
167              PP.openHBox ppStrm;              PP.openHBox ppStrm;
168                string "actor"; sp(); string(Atom.toString name); sp();                string "strand"; sp(); string(Atom.toString name); sp();
169                ppList (fn (_, x) => (string(TU.toString(#2(Var.typeOf x))); sp(); var x))                ppList (fn (_, x) => (string(TU.toString(#2(Var.typeOf x))); sp(); var x))
170                  ("(", ",", ")") (ppStrm, params);                  ("(", ",", ")") (ppStrm, params);
171              PP.closeBox ppStrm;              PP.closeBox ppStrm;
# Line 199  Line 199 
199                  PP.closeBox ppStrm;                  PP.closeBox ppStrm;
200                  nl())                  nl())
201               | AST.D_Var vdcl => (ppVarDecl ppStrm vdcl; nl())               | AST.D_Var vdcl => (ppVarDecl ppStrm vdcl; nl())
202               | AST.D_Actor def => ppActor (ppStrm, def)               | AST.D_Strand def => ppStrand (ppStrm, def)
203               | AST.D_InitialArray(create, iters) => (* FIXME *) ()               | AST.D_InitialArray(create, iters) => (* FIXME *) ()
204               | AST.D_InitialCollection(create, iters) => (* FIXME *) ()               | AST.D_InitialCollection(create, iters) => (* FIXME *) ()
205            end            end

Legend:
Removed from v.477  
changed lines
  Added in v.499

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