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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/simplify/simple-pp.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/simplify/simple-pp.sml

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

revision 2019, Wed Oct 10 11:48:09 2012 UTC revision 2020, Wed Oct 10 11:53:00 2012 UTC
# Line 244  Line 244 
244            fun var x = ppVar (ppStrm, x)            fun var x = ppVar (ppStrm, x)
245            fun pp (x, Inputs.INP{name, desc, init, ...}) = (            fun pp (x, Inputs.INP{name, desc, init, ...}) = (
246                  PP.openHBox ppStrm;                  PP.openHBox ppStrm;
247                    string "input"; sp(); ppVar (ppStrm, x); string ": ";                    string "input"; sp();
248                      string(TU.toString(#2(Var.typeOf x))); sp();
249                      ppVar (ppStrm, x); string ": ";
250                    string name;                    string name;
251                    case desc                    case desc
252                     of SOME desc => string(concat["(\"", desc, "\")"])                     of SOME desc => string(concat["(\"", desc, "\")"])

Legend:
Removed from v.2019  
changed lines
  Added in v.2020

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