Diff of /trunk/src/compiler/ast/ast-pp.sml

Parent Directory | Revision Log | Patch

	revision 163, Tue Jul 20 18:55:32 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();

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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

---

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