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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/high-to-mid/handleEin.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/high-to-mid/handleEin.sml

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

revision 3259, Mon Sep 21 15:14:52 2015 UTC revision 3260, Wed Sep 23 16:09:21 2015 UTC
# Line 26  Line 26 
26      fun test0 n=(case testinitial      fun test0 n=(case testinitial
27          of 0=>testp n          of 0=>testp n
28          | _ => (print(String.concat n);1))          | _ => (print(String.concat n);1))
29      fun printEINAPP e=MidToString.printEINAPP e      fun toStringBind e= MidToString.toStringBind e
30    
31      fun expandEinOp bind00=let      fun expandEinOp bind00=let
32    
33          val star="************"          val star="************"
34          val _ =test0[star,"\n Original EinApp",star,"\n\n","start get test",printEINAPP bind00]          val _ =test0[star,"\n Original EinApp",star,"\n\n","start get test",toStringBind bind00]
35          val (y,einapp as DstIL.EINAPP(Ein.EIN{params, index, body},args))=bind00          val (y,einapp as DstIL.EINAPP(Ein.EIN{params, index, body},args))=bind00
36    
37    
# Line 43  Line 43 
43    
44          (* ************** distribute and push Summation*********** *)          (* ************** distribute and push Summation*********** *)
45          val bind3 = (y,DstIL.EINAPP(SummationEin.main ein1,args))          val bind3 = (y,DstIL.EINAPP(SummationEin.main ein1,args))
46          val _ =testp["\n\n summation \n\n =>", printEINAPP bind3]          val _ =testp["\n\n summation \n\n =>", toStringBind bind3]
47    
48          (* **************** split phase ************* *)          (* **************** split phase ************* *)
49          val (newbies5)= Split.splitEinApp bind3          val (newbies5)= Split.splitEinApp bind3
50          val _ =testp["\n\n Returning \n\n =>",          val _ =testp["\n\n Returning \n\n =>",
51              String.concatWith",\n\t"(List.map printEINAPP newbies5)]              String.concatWith",\n\t"(List.map toStringBind newbies5)]
52    
53    
54           (* ************** ProbeEIN *********** *)           (* ************** ProbeEIN *********** *)

Legend:
Removed from v.3259  
changed lines
  Added in v.3260

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