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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/tree-il/low-to-tree-fn.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/tree-il/low-to-tree-fn.sml

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

revision 2014, Mon Oct 8 14:58:19 2012 UTC revision 2015, Mon Oct 8 15:00:51 2012 UTC
# Line 529  Line 529 
529              walk (IL.CFG.entry globalInit, Nd.dummy, [])              walk (IL.CFG.entry globalInit, Nd.dummy, [])
530            end            end
531    
532    (*
533      (* translate an input initialization *)
534        fun trInitialization init = let
535              in
536                case init
537                 of Inputs.String s => ([], CL.mkStr s)
538                  | Inputs.Bool b => ([], CL.mkBool b)
539                  | Inputs.Int n => ([], CL.mkIntTy(n, !N.gIntTy))
540                  | Inputs.Real f => ([], CL.mkFlt(f, !N.gRealTy))
541                  | Inputs.Tensor([d], vs) => let
542                      val ty = !gRealTy
543                      fun mk i = fn i => CL.mkFlt(Vector.sub(vs, i), ty)
544                      in
545                        case shp
546                         of [d] => ([], CL.mkApply(N.mkVec d, List.tabulate(d, mk)))
547                          | _ => raise Fail "FIXME"
548                        (* end case *)
549                      end
550                  | Inputs.Seq vs =>
551                  | Inputs.DynSeq nrrd =>
552                  | Inputs.Proxy(nrrd, info) =>
553                  | Inputs.
554                (* end case *)
555              end
556    *)
557    
558      fun translate prog = let      fun translate prog = let
559          (* first we do a variable analysis pass on the Low IL *)          (* first we do a variable analysis pass on the Low IL *)
560            val prog as IL.Program{props, globalInit, initially, strands} = VA.optimize prog            val prog as IL.Program{props, globalInit, initially, strands} = VA.optimize prog

Legend:
Removed from v.2014  
changed lines
  Added in v.2015

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