Mercurial > hg > sv-dependency-builds

annotate src/fftw-3.3.8/genfft/number.mli @ 83:ae30d91d2ffe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace these with versions built using an older toolset (so as to avoid ABI compatibilities when linking on Ubuntu 14.04 for packaging purposes)
author Chris Cannam
date Fri, 07 Feb 2020 11:51:13 +0000
parents d0c2a83c1364
children
rev   line source
Chris@82 1 (*
Chris@82 2 * Copyright (c) 1997-1999 Massachusetts Institute of Technology
Chris@82 3 * Copyright (c) 2003, 2007-14 Matteo Frigo
Chris@82 4 * Copyright (c) 2003, 2007-14 Massachusetts Institute of Technology
Chris@82 5 *
Chris@82 6 * This program is free software; you can redistribute it and/or modify
Chris@82 7 * it under the terms of the GNU General Public License as published by
Chris@82 8 * the Free Software Foundation; either version 2 of the License, or
Chris@82 9 * (at your option) any later version.
Chris@82 10 *
Chris@82 11 * This program is distributed in the hope that it will be useful,
Chris@82 12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
Chris@82 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Chris@82 14 * GNU General Public License for more details.
Chris@82 15 *
Chris@82 16 * You should have received a copy of the GNU General Public License
Chris@82 17 * along with this program; if not, write to the Free Software
Chris@82 18 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
Chris@82 19 *
Chris@82 20 *)
Chris@82 21
Chris@82 22 type number
Chris@82 23
Chris@82 24 val equal : number -> number -> bool
Chris@82 25 val of_int : int -> number
Chris@82 26 val zero : number
Chris@82 27 val one : number
Chris@82 28 val two : number
Chris@82 29 val mone : number
Chris@82 30 val is_zero : number -> bool
Chris@82 31 val is_one : number -> bool
Chris@82 32 val is_mone : number -> bool
Chris@82 33 val is_two : number -> bool
Chris@82 34 val mul : number -> number -> number
Chris@82 35 val div : number -> number -> number
Chris@82 36 val add : number -> number -> number
Chris@82 37 val sub : number -> number -> number
Chris@82 38 val negative : number -> bool
Chris@82 39 val greater : number -> number -> bool
Chris@82 40 val negate : number -> number
Chris@82 41 val sqrt : number -> number
Chris@82 42
Chris@82 43 (* cexp n i = (cos (2 * pi * i / n), sin (2 * pi * i / n)) *)
Chris@82 44 val cexp : int -> int -> (number * number)
Chris@82 45
Chris@82 46 val to_konst : number -> string
Chris@82 47 val to_string : number -> string
Chris@82 48 val to_float : number -> float
Chris@82 49