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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/ein/printer.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/ein/printer.sml

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

revision 3459, Mon Nov 23 19:29:51 2015 UTC revision 3472, Tue Dec 1 18:45:25 2015 UTC
# Line 10  Line 10 
10      fun iTos e=Int.toString e      fun iTos e=Int.toString e
11      fun intList l = String.concatWith "," (List.map iTos l)      fun intList l = String.concatWith "," (List.map iTos l)
12      fun handleIndex e= (case e      fun handleIndex e= (case e
13          of E.C(cx)=> String.concat["'",iTos(cx),"'"]          of E.C(cx,true)=> String.concat["'",iTos(cx),"'"]
14            | E.C(cx,false)=> String.concat["S",iTos(cx),"'"]
15          |  E.V(ix)=> iTos(ix)          |  E.V(ix)=> iTos(ix)
16      (*end case*))      (*end case*))
17      fun handleAlpha alpha= String.concat[String.concatWith "," (List.map handleIndex alpha)]      fun handleAlpha alpha= String.concat[String.concatWith "," (List.map handleIndex alpha)]

Legend:
Removed from v.3459  
changed lines
  Added in v.3472

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