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 1639, Wed Nov 16 01:48:07 2011 UTC revision 1640, Wed Nov 16 02:19:51 2011 UTC
# Line 90  Line 90 
90                  sp())                  sp())
91            fun ppDecl dcl = (case dcl            fun ppDecl dcl = (case dcl
92                   of CL.D_Comment l => List.app ppComLn l                   of CL.D_Comment l => List.app ppComLn l
93                    | CL.D_Verbatim l =>                    | CL.D_Verbatim l => List.app str l
                       List.app (fn s => (str s; PP.newline strm)) l  
94                    | CL.D_Var(attrs, ty, x, optInit) => (                    | CL.D_Var(attrs, ty, x, optInit) => (
95                        inHBox (fn () => (                        inHBox (fn () => (
96                          ppAttrs attrs;                          ppAttrs attrs;
# Line 218  Line 217 
217                   of CL.E_Grp e => (str "("; ppExp e; str ")")                   of CL.E_Grp e => (str "("; ppExp e; str ")")
218                    | CL.E_AssignOp(lhs, rator, rhs) => (                    | CL.E_AssignOp(lhs, rator, rhs) => (
219                        ppExp lhs; sp(); str(CL.assignopToString rator); sp(); ppExp rhs)                        ppExp lhs; sp(); str(CL.assignopToString rator); sp(); ppExp rhs)
220                      | CL.E_Cond(e1, e2, e3) => (
221                          ppExp e1; sp(); str "?"; sp(); ppExp e2; sp(); str ":"; sp(); ppExp e3)
222                    | CL.E_BinOp(e1, rator, e2) => (ppExp e1; str(CL.binopToString rator); ppExp e2)                    | CL.E_BinOp(e1, rator, e2) => (ppExp e1; str(CL.binopToString rator); ppExp e2)
223                    | CL.E_UnOp(rator, e) => (str(CL.unopToString rator); ppExp e)                    | CL.E_UnOp(rator, e) => (str(CL.unopToString rator); ppExp e)
224                    | CL.E_PostOp(e, rator) => (ppExp e; str(CL.postopToString rator))                    | CL.E_PostOp(e, rator) => (ppExp e; str(CL.postopToString rator))

Legend:
Removed from v.1639  
changed lines
  Added in v.1640

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