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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/c-util/print-as-c.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-util/print-as-c.sml

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

revision 1715, Sat Mar 10 14:42:07 2012 UTC revision 1716, Sat Mar 10 17:08:11 2012 UTC
# Line 118  Line 118 
118                          str ")"));                          str ")"));
119                        PP.newline strm;                        PP.newline strm;
120                        ppBlock (case body of CL.S_Block stms => stms | stm => [stm]))                        ppBlock (case body of CL.S_Block stms => stms | stm => [stm]))
121                    | CL.D_StructDef(fields, tyName) => (                    | CL.D_StructDef(SOME name, fields, NONE) => (
122                          inHBox (fn () => (str "struct"; sp(); str name; sp(); str "{"));
123                          PP.openVBox strm indent;
124                            List.app (fn (ty, x) => (
125                                PP.newline strm;
126                                inHBox (fn () => (ppTy(ty, SOME x); str ";"))))
127                              fields;
128                          PP.closeBox strm;
129                          PP.newline strm;
130                          str "};";
131                          PP.newline strm)
132                      | CL.D_StructDef(optStruct, fields, SOME tyName) => (
133                        str "typedef struct {";                        str "typedef struct {";
134                        PP.openVBox strm indent;                        PP.openVBox strm indent;
135                          List.app (fn (ty, x) => (                          List.app (fn (ty, x) => (

Legend:
Removed from v.1715  
changed lines
  Added in v.1716

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