Source file slap_misc.ml

(* Sized Linear Algebra Package (SLAP)

   Copyright (C) 2013- Akinori ABE <abe@kb.ecei.tohoku.ac.jp>

   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.

   This library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with this library; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*)

(** Miscellaneous definitions. *)

type cnt
(** The flag for contiguous vectors and matrices. *)

type dsc
(** The flag for discrete vectors and matrices. *)

(** The identity function. *)
let identity x = x

(** [failwith] + [printf]-style format *)
let failwithf fmt = Format.ksprintf (fun s () -> failwith s) fmt

(** [invalid_arg] + [printf]-style format *)
let invalid_argf fmt = Format.ksprintf (fun s () -> invalid_arg s) fmt

(** [Internal_error (location, code)] is thrown when a BLAS or LAPACK
    function returns unexpected error. [location] is the function name
    (containing its module name) and [code] is an error code returned by the
    function. *)
exception Internal_error of string * int