[hcoop/debian/mlton.git] / basis-library / arrays-and-vectors / mono-array2.fun

(* Copyright (C) 2015 Matthew Fluet.
 * Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
 *    Jagannathan, and Stephen Weeks.
 * Copyright (C) 1997-2000 NEC Research Institute.
 *
 * MLton is released under a BSD-style license.
 * See the file MLton-LICENSE for details.
 *)

functor MonoArray2 (type elem
                    structure MV: MONO_VECTOR
                      where type elem = elem
                        and type vector = elem Vector.vector): MONO_ARRAY2 =
   struct
      type elem = MV.elem
      type vector = MV.vector
      open Array2
      type array = elem array
      type region = {base: array,
                     row: int,
                     col: int,
                     nrows: int option,
                     ncols: int option}
   end
Commit	Line	Data
7f918cf1 CE	1	(* Copyright (C) 2015 Matthew Fluet.
	2	* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
	3	* Jagannathan, and Stephen Weeks.
	4	* Copyright (C) 1997-2000 NEC Research Institute.
	5	*
	6	* MLton is released under a BSD-style license.
	7	* See the file MLton-LICENSE for details.
	8	*)
	9
	10	functor MonoArray2 (type elem
	11	structure MV: MONO_VECTOR
	12	where type elem = elem
	13	and type vector = elem Vector.vector): MONO_ARRAY2 =
	14	struct
	15	type elem = MV.elem
	16	type vector = MV.vector
	17	open Array2
	18	type array = elem array
	19	type region = {base: array,
	20	row: int,
	21	col: int,
	22	nrows: int option,
	23	ncols: int option}
	24	end