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 3472, Tue Dec 1 18:45:25 2015 UTC revision 3489, Tue Dec 8 20:49:31 2015 UTC
# Line 11  Line 11 
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,true)=> String.concat["'",iTos(cx),"'"]          of E.C(cx,true)=> String.concat["'",iTos(cx),"'"]
14          | E.C(cx,false)=> String.concat["S",iTos(cx),"'"]          | 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)]
# Line 40  Line 40 
40   (*   (*
41          | E.Probe (e1,e2)=> String.concat [printbody(e1),"[", printbody(e2),"]"]          | E.Probe (e1,e2)=> String.concat [printbody(e1),"[", printbody(e2),"]"]
42   *)   *)
43           | E.Probe (e1,e2)=> String.concat ["Probe(",printbody(e1),")"]          | E.Probe (e1,e2)=> String.concat ["Probe(",printbody(e1),",",printbody(e2),")"]
44          | E.Value(ix)=> String.concat["_",iTos(ix),"_"]          | E.Value(ix)=> String.concat["_",iTos(ix),"_"]
45          | E.Img (fid,alpha,pos)=> String.concat [" V", iTos(fid),"_",handleAlpha alpha,"[", (String.concatWith "," (List.map printbody pos)),"]"]          | E.Img (fid,alpha,pos)=> String.concat [" V", iTos(fid),"_",handleAlpha alpha,"[", (String.concatWith "," (List.map printbody pos)),"]"]
46          | E.Krn(tid,[],pos) =>String.concat[" H ",iTos(tid),"[",  (printbody pos),"]"]          | E.Krn(tid,[],pos) =>String.concat[" H ",iTos(tid),"[",  (printbody pos),"]"]

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

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