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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/gen-tys-and-ops.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/gen-tys-and-ops.sml

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

revision 4063, Mon Jun 27 22:01:18 2016 UTC revision 4064, Mon Jun 27 22:18:26 2016 UTC
# Line 265  Line 265 
265                          | baseTy (Ty.TensorTy[]) = Ty.realTy                          | baseTy (Ty.TensorTy[]) = Ty.realTy
266                          | baseTy ty = ty                          | baseTy ty = ty
267                        val argTy = trType argTy                        val argTy = trType argTy
268                        (* for sequences of scalar values, we set nDims to 0 so that it matches the
269                         * format of a nrrd, where the dimension is not represented.
270                         *)
271                          fun scalarSeqTrait ty = trait ({
272                                    argTy = argTy, baseTy = ty, elemTy = argTy,
273                                    ndims = 0, dims = []
274                                  },
275                                dcls)
276                        in                        in
277                          case baseTy ty                          case baseTy ty
278                           of ty as Ty.TensorTy(shp as _::_) => trait ({                           of ty as Ty.TensorTy(shp as _::_) => trait ({
# Line 273  Line 281 
281                                    dims = shp                                    dims = shp
282                                  },                                  },
283                                dcls)                                dcls)
284                            | ty => trait ({                            | ty as Ty.BoolTy => scalarSeqTrait ty
285                                    argTy = argTy, baseTy = ty, elemTy = argTy,                            | ty as Ty.IntTy => scalarSeqTrait ty
286                                    ndims = 1, dims = [1]                            | ty as Ty.VecTy(1, 1) => scalarSeqTrait ty
287                                  },                            | ty => raise Fail "FIXME: unsupported dynamic sequence type"
                               dcls)  
288                          (* end case *)                          (* end case *)
289                        end                        end
290                    | _ => dcls                    | _ => dcls

Legend:
Removed from v.4063  
changed lines
  Added in v.4064

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