Diff of /branches/pure-cfg/src/compiler/c-target/print-as-c.sml

Parent Directory | Revision Log | Patch

	revision 526, Sat Feb 12 23:17:46 2011 UTC	revision 527, Sun Feb 13 02:08:31 2011 UTC
#	Line 10	Line 10
10
11	val new : TextIO.outstream -> strm	val new : TextIO.outstream -> strm
12
13		val close : strm -> unit
14
15	val output : strm * CLang.decl -> unit	val output : strm * CLang.decl -> unit
16
17	end = struct	end = struct
#	Line 23	Line 25
25
26	fun new outs = PP.openOut {dst = outs, wid = 90}	fun new outs = PP.openOut {dst = outs, wid = 90}
27
28		val close = PP.closeStream
29
30	fun output (strm, decl) = let	fun output (strm, decl) = let
31	val str = PP.string strm	val str = PP.string strm
32	fun sp () = PP.space strm 1	fun sp () = PP.space strm 1

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.526   changed lines   Added in v.527

---

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