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

SCM Repository

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

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

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

revision 1443, Mon Jul 11 10:36:10 2011 UTC revision 1444, Mon Jul 11 12:11:53 2011 UTC
# Line 59  Line 59 
59                          | RawTypes.RT_Double => "double"                          | RawTypes.RT_Double => "double"
60                        (* end case *))                        (* end case *))
61                    | getBaseTy (CL.T_Named ty) = ty                    | getBaseTy (CL.T_Named ty) = ty
62                      | getBaseTy (CL.T_Qual(attr, ty)) =
63                          concat[attr, " ", getBaseTy ty]
64                  fun pp (isFirst, CL.T_Ptr ty, optVar) = (                  fun pp (isFirst, CL.T_Ptr ty, optVar) = (
65                        if isFirst then sp() else ();                        if isFirst then sp() else ();
66                        case ty                        case ty
# Line 72  Line 74 
74                         of NONE => str "[]"                         of NONE => str "[]"
75                          | SOME n => (str "["; str(Int.toString n); str "]")                          | SOME n => (str "["; str(Int.toString n); str "]")
76                        (* end case *))                        (* end case *))
77                      | pp (isFirst, CL.T_Qual(_, ty), optVar) =
78                          pp (isFirst, ty, optVar)
79                    | pp (isFirst, _, SOME x) = (                    | pp (isFirst, _, SOME x) = (
80                        if isFirst then sp() else ();                        if isFirst then sp() else ();
81                        str x)                        str x)
# Line 176  Line 180 
180                        str "else"; ppStms blk2)                        str "else"; ppStms blk2)
181                    | CL.S_While(e, blk) => (                    | CL.S_While(e, blk) => (
182                        inHBox (fn () => (str "while"; sp(); ppExp e)); ppStms blk)                        inHBox (fn () => (str "while"; sp(); ppExp e)); ppStms blk)
183                      | CL.S_DoWhile(blk, e) => (
184                          str "do"; sp(); ppStms blk;
185                          inHBox (fn () => (str "while"; sp(); ppExp e)))
186                    | CL.S_For(inits, cond, incrs, blk) => let                    | CL.S_For(inits, cond, incrs, blk) => let
187                        fun ppInit (ty, x, e) = inHBox (fn () => (                        fun ppInit (ty, x, e) = inHBox (fn () => (
188                              ppTy(ty, SOME x);                              ppTy(ty, SOME x);

Legend:
Removed from v.1443  
changed lines
  Added in v.1444

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