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

SCM Repository

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

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

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

revision 2115, Sat Jan 12 15:52:27 2013 UTC revision 2152, Sun Feb 17 19:39:37 2013 UTC
# Line 90  Line 90 
90                  ppList {pp=str, sep=sp, l = attrs};                  ppList {pp=str, sep=sp, l = attrs};
91                  sp())                  sp())
92            fun ppDecl dcl = (case dcl            fun ppDecl dcl = (case dcl
93                   of CL.D_Comment l => List.app ppComLn l                   of CL.D_Pragma l => (
94                          inHBox (fn () => (
95                            str "#pragma";
96                            List.app (fn s => (sp(); str s)) l));
97                          PP.newline strm)
98                      | CL.D_Comment l => List.app ppComLn l
99                    | CL.D_Verbatim l => List.app str l                    | CL.D_Verbatim l => List.app str l
100                    | CL.D_Var(attrs, ty, x, optInit) => (                    | CL.D_Var(attrs, ty, x, optInit) => (
101                        inHBox (fn () => (                        inHBox (fn () => (
# Line 186  Line 191 
191            and ppStm stm = (case stm            and ppStm stm = (case stm
192                   of CL.S_Block stms => ppBlock stms                   of CL.S_Block stms => ppBlock stms
193                    | CL.S_Comment l => List.app ppComLn l                    | CL.S_Comment l => List.app ppComLn l
194                      | CL.S_Verbatim [] => ()
195                      | CL.S_Verbatim (stm::stms) => (
196                          str stm;
197                          List.app (fn stm => (PP.newline strm; str stm)) stms)
198                    | CL.S_Decl(attrs, ty, x, NONE) => inHBox (fn () => (                    | CL.S_Decl(attrs, ty, x, NONE) => inHBox (fn () => (
199                        ppAttrs attrs;                        ppAttrs attrs;
200                        ppTy(ty, SOME x); str ";"))                        ppTy(ty, SOME x); str ";"))

Legend:
Removed from v.2115  
changed lines
  Added in v.2152

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