mirror of
https://github.com/tildearrow/furnace.git
synced 2024-11-18 10:35:11 +00:00
52 lines
1.7 KiB
OCaml
52 lines
1.7 KiB
OCaml
|
(*
|
||
|
|
* Copyright (c) 1997-1999 Massachusetts Institute of Technology
|
||
|
|
* Copyright (c) 2003, 2007-14 Matteo Frigo
|
||
|
|
* Copyright (c) 2003, 2007-14 Massachusetts Institute of Technology
|
||
|
|
*
|
||
|
|
* This program is free software; you can redistribute it and/or modify
|
||
|
|
* it under the terms of the GNU General Public License as published by
|
||
|
|
* the Free Software Foundation; either version 2 of the License, or
|
||
|
|
* (at your option) any later version.
|
||
|
|
*
|
||
|
|
* This program 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 General Public License for more details.
|
||
|
|
*
|
||
|
|
* You should have received a copy of the GNU General Public License
|
||
|
|
* along with this program; if not, write to the Free Software
|
||
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||
|
|
*
|
||
|
|
*)
|
||
|
|
|
||
|
|
type transcendent = I | MULTI_A | MULTI_B | CONJ
|
||
|
|
|
||
|
|
type expr =
|
||
|
|
| Num of Number.number
|
||
|
|
| NaN of transcendent
|
||
|
|
| Plus of expr list
|
||
|
|
| Times of expr * expr
|
||
|
|
| CTimes of expr * expr
|
||
|
|
| CTimesJ of expr * expr
|
||
|
|
| Uminus of expr
|
||
|
|
| Load of Variable.variable
|
||
|
|
| Store of Variable.variable * expr
|
||
|
|
|
||
|
|
type assignment = Assign of Variable.variable * expr
|
||
|
|
|
||
|
|
val hash_float : float -> int
|
||
|
|
val hash : expr -> int
|
||
|
|
val to_string : expr -> string
|
||
|
|
val assignment_to_string : assignment -> string
|
||
|
|
val transcendent_to_float : transcendent -> float
|
||
|
|
val string_of_transcendent : transcendent -> string
|
||
|
|
|
||
|
|
val find_vars : expr -> Variable.variable list
|
||
|
|
val is_constant : expr -> bool
|
||
|
|
val is_known_constant : expr -> bool
|
||
|
|
|
||
|
|
val dump : (string -> unit) -> assignment list -> unit
|
||
|
|
|
||
|
|
val expr_to_constants : expr -> Number.number list
|
||
|
|
val unique_constants : Number.number list -> Number.number list
|