Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/system/Basis/Implementation/real64-vector.sml
ViewVC logotype

View of /sml/trunk/system/Basis/Implementation/real64-vector.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4089 - (download) (annotate)
Thu Aug 13 11:31:29 2015 UTC (4 years, 9 months ago) by jhr
File size: 1199 byte(s)
  Adding preliminary support for new Basis Library functions.  Specifically, the
  monomorphic vector operations.
(* real64-vector.sml
 *
 * COPYRIGHT (c) 2015 The Fellowship of SML/NJ (http://www.smlnj.org)
 * All rights reserved.
 *
 * Vectors of Real64.real values.
 * NOTE: currently, we do not have sufficient tag bits to use a packed
 * representation for this type.
 *)

structure Real64Vector : MONO_VECTOR_2015
    where type elem = Real64.real
  = struct
    type elem = Real64.real
    type vector = elem Vector.vector
    
    val maxLen = Vector.maxLen

    val fromList = Vector.fromList
    val tabulate = Vector.tabulate

    val length   = Vector.length
    val sub      = Vector.sub
    val update   = Vector.update
    val concat   = Vector.concat

    val appi   = Vector.appi
    val app    = Vector.app
    val mapi   = Vector.mapi
    val map    = Vector.map
    val foldli = Vector.foldli
    val foldri = Vector.foldri
    val foldl  = Vector.foldl
    val foldr  = Vector.foldr

    val findi   = Vector.findi
    val find    = Vector.find
    val exists  = Vector.exists
    val all     = Vector.all
    val collate = Vector.collate

  (* added for Basis Library proposal 2015-003 *)
    val toList = Vector.toList
    val append = Vector.append
    val prepend = Vector.prepend

  end

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