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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/basis/basis.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/basis/basis.sml

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

revision 4348, Tue Aug 2 15:48:33 2016 UTC revision 4349, Tue Aug 2 18:14:48 2016 UTC
# Line 15  Line 15 
15    (* operations that are allowed in constant expressions *)    (* operations that are allowed in constant expressions *)
16      val allowedInConstExp : AST.var -> bool      val allowedInConstExp : AST.var -> bool
17    
18      (* spatial queries *)
19        val isSpatialQueryOp : AST.var -> bool
20    
21    (* reduction operators *)    (* reduction operators *)
22      val isReductionOp : AST.var -> bool      val isReductionOp : AST.var -> bool
23    
# Line 43  Line 46 
46            BV.fn_inside,            BV.fn_inside,
47            BV.fn_length,            BV.fn_length,
48            BV.image_mirror,            BV.image_mirror,
 (* unimplemented  
           BV.fn_principleEvec,  
 *)  
49            BV.fn_size,            BV.fn_size,
50            BV.image_wrap,            BV.image_wrap,
51          (* reductions *)          (* reductions *)
# Line 205  Line 205 
205      fun allowedInConstExp x = Var.Set.member (allowed, x)      fun allowedInConstExp x = Var.Set.member (allowed, x)
206      end (* local *)      end (* local *)
207    
208      (* spatial queries *)
209        local
210          val qOps = List.foldl Var.Set.add' Var.Set.empty [
211                  BV.fn_sphere_im,
212                  BV.fn_sphere1_r,
213                  BV.fn_sphere2_t,
214                  BV.fn_sphere3_t
215                ]
216        in
217        fun isSpatialQueryOp x = Var.Set.member (qOps, x)
218        end
219    
220    (* the reduction operators *)    (* the reduction operators *)
221      local      local
222        val redOps = List.foldl Var.Set.add' Var.Set.empty [        val redOps = List.foldl Var.Set.add' Var.Set.empty [

Legend:
Removed from v.4348  
changed lines
  Added in v.4349

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