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

SCM Repository

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

Diff of /branches/vis15/src/compiler/cxx-util/print-as-cxx.sml

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

revision 3988, Fri Jun 17 17:26:51 2016 UTC revision 3989, Fri Jun 17 18:47:15 2016 UTC
# Line 218  Line 218 
218                        PP.newline strm)                        PP.newline strm)
219                    | CL.D_ClassDef{name, from, public, protected, private} =>                    | CL.D_ClassDef{name, from, public, protected, private} =>
220                        raise Fail "FIXME: ClassDef"                        raise Fail "FIXME: ClassDef"
221                      | CL.D_Template(params, dcl) => let
222                          fun ppParam (CL.TypeParam name) = (str "typename"; sp(); str name)
223                            | ppParam (CL.ConstParam(ty, name)) = (
224                                str "const"; sp(); ppTy (ty, NONE); sp(); str name)
225                          in
226                            PP.openVBox strm indent0;
227                              inHBox (fn () => (
228                                str "template"; sp(); str "<";
229                                ppList {pp = ppParam, sep = fn () => str ",", l = params};
230                                str ">"));
231                              PP.newline strm;
232                              ppDecl (inClass, dcl);
233                            PP.closeBox strm
234                          end
235                  (* end case *))                  (* end case *))
236            and ppParam (CL.PARAM(attrs, ty, x)) = (            and ppParam (CL.PARAM(attrs, ty, x)) = (
237                  ppAttrs attrs;                  ppAttrs attrs;

Legend:
Removed from v.3988  
changed lines
  Added in v.3989

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