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

SCM Repository

[smlnj] Annotation of /sml/trunk/src/compiler/PervEnv/Basis/real64-vector.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/PervEnv/Basis/real64-vector.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 89 - (view) (download)

1 : monnier 89 (* real64-vector.sml
2 :     *
3 :     * COPYRIGHT (c) 1997 Bell Labs, Lucent Technologies.
4 :     *
5 :     * Vectors of Real64.real values.
6 :     * NOTE: currently, we do not have sufficient tag bits to use a packed
7 :     * representation for this type.
8 :     *)
9 :    
10 :     structure Real64Vector : MONO_VECTOR
11 :     where type elem = Real64.real
12 :     = struct
13 :     type elem = Real64.real
14 :     type vector = elem Vector.vector
15 :    
16 :     val maxLen = Vector.maxLen
17 :    
18 :     val fromList = Vector.fromList
19 :     val tabulate = Vector.tabulate
20 :    
21 :     val length = Vector.length
22 :     val sub = Vector.sub
23 :     val extract = Vector.extract
24 :     val concat = Vector.concat
25 :    
26 :     val app = Vector.app
27 :     val map = Vector.map
28 :     val foldl = Vector.foldl
29 :     val foldr = Vector.foldr
30 :    
31 :     val appi = Vector.appi
32 :     val mapi = Vector.mapi
33 :     val foldli = Vector.foldli
34 :     val foldri = Vector.foldri
35 :    
36 :     end
37 :    
38 :     (*
39 :     * $Log: real64-vector.sml,v $
40 :     * Revision 1.1.1.1 1998/04/08 18:40:03 george
41 :     * Version 110.5
42 :     *
43 :     *)
44 :    

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