3c97aa04fa8acc86cf8d070201bd0c20a26ebb1a
[Faustine.git] / interpretor / value.ml
1 (**
2 Module: Value
3 Description: basic data type in the vectorial faust interpreter.
4 @author WANG Haisheng
5 Created: 31/05/2013 Modified: 17/07/2013
6 *)
7
8 open Types;;
9 open Basic;;
10
11 let convert : (basic -> 'a) -> basic -> 'a =
12 fun oper -> fun b -> oper b;;
13
14 class value : basic -> value_type =
15 fun (b_init : basic) ->
16 object (self)
17 val mutable b = b_init
18 method get = b
19 method normalize = b <- basic_normalize self#get
20
21 method to_float = convert basic_to_float self#get
22 method to_int = convert basic_to_int self#get
23 method to_float_array = convert basic_to_float_array self#get
24 method to_string = convert basic_to_string self#get
25 method of_float_array : float array -> value_type =
26 fun data -> new value (basic_of_float_array data)
27
28 method private prim1 : (basic -> basic) -> value =
29 fun oper ->
30 new value (oper self#get)
31
32 method neg = self#prim1 basic_neg
33 method recip = self#prim1 basic_recip
34 method zero = self#prim1 basic_zero
35 method floor = self#prim1 basic_floor
36 method int = self#prim1 basic_int
37 method sin = self#prim1 basic_sin
38 method cos = self#prim1 basic_cos
39 method atan = self#prim1 basic_atan
40 method sqrt = self#prim1 basic_sqrt
41
42 method private prim2 : (basic -> basic -> basic) -> value -> value =
43 fun oper ->
44 fun v ->
45 new value (oper self#get v#get)
46
47 method add = self#prim2 basic_add
48 method sub = self#prim2 basic_sub
49 method mul = self#prim2 basic_mul
50 method div = self#prim2 basic_div
51 method atan2 = self#prim2 basic_atan2
52 method _mod = self#prim2 basic_mod
53 method larger = self#prim2 basic_larger
54 method smaller = self#prim2 basic_smaller
55
56 end;;
57