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 3603, Mon Jan 18 22:21:24 2016 UTC revision 3604, Tue Jan 19 01:24:00 2016 UTC
# Line 19  Line 19 
19      fun handleSumRange (mu,lb,ub)= String.concat[(handleIndex mu),"[",iTos(lb),"-",iTos(ub),"]"]      fun handleSumRange (mu,lb,ub)= String.concat[(handleIndex mu),"[",iTos(lb),"-",iTos(ub),"]"]
20      fun printbody b= let      fun printbody b= let
21            val _ ="\nstart printer"            val _ ="\nstart printer"
22   (*  
23          val str=(case b          val str=(case b
24          of E.B(E.Const r) => iTos(r)          of E.B(E.Const r) => iTos(r)
25          | E.B(E.ConstR r) =>RationalEin.toString r          | E.B(E.ConstR r) =>RationalEin.toString r
# Line 79  Line 79 
79          | E.BuildPos(e1,e2)=>String.concat["Buildpos ",printbody e2]          | E.BuildPos(e1,e2)=>String.concat["Buildpos ",printbody e2]
80          (* end case *))          (* end case *))
81          val _ ="\nrtn printer"          val _ ="\nrtn printer"
82          *)  
83          val str=""  
84          in str end          in str end
85    
86      (*printerE:EIN ->string*)      (*printerE:EIN ->string*)

Legend:
Removed from v.3603  
changed lines
  Added in v.3604

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