projects
/
Faustine.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Csv IO class implemented.
[Faustine.git]
/
interpretor
/
types.ml
diff --git
a/interpretor/types.ml
b/interpretor/types.ml
index
ba61990
..
17dea67
100644
(file)
--- a/
interpretor/types.ml
+++ b/
interpretor/types.ml
@@
-22,6
+22,7
@@
class type value_type =
method to_int : int
method to_float : float
method to_float_array : float array
method to_int : int
method to_float : float
method to_float_array : float array
+ method of_float_array : float array -> value_type
method to_string : string
method normalize : unit
method add : value_type -> value_type
method to_string : string
method normalize : unit
method add : value_type -> value_type
@@
-45,7
+46,7
@@
class type value_type =
type symbol = Add
type symbol = Add
- | Su
p
+ | Su
b
| Mul
| Div
| Pass
| Mul
| Div
| Pass
@@
-57,7
+58,7
@@
type symbol = Add
| Sin
| Cos
| Atan
| Sin
| Cos
| Atan
- | Atan
two
+ | Atan
2
| Sqrt
| Rdtable
| Mod
| Sqrt
| Rdtable
| Mod
@@
-68,8
+69,8
@@
type symbol = Add
| Larger
| Smaller
| Prefix
| Larger
| Smaller
| Prefix
- | Select
two
- | Select
three
+ | Select
2
+ | Select
3
type faust_exp =
type faust_exp =
@@
-86,6
+87,7
@@
class type signal_type =
object
method frequency : int
method at : time -> value_type
object
method frequency : int
method at : time -> value_type
+ method add_memory : int -> unit
method add : signal_type -> signal_type
method neg : signal_type
method sub : signal_type -> signal_type
method add : signal_type -> signal_type
method neg : signal_type
method sub : signal_type -> signal_type
@@
-116,12
+118,15
@@
class type signal_type =
class type beam_type =
object
class type beam_type =
object
- method length : int
- method sub : start: int -> length: int -> beam_type
+ method get : signal_type array
+ method width : int
+ method sub : int -> int -> beam_type
+ method cut : int -> beam_type * beam_type
method append : beam_type -> beam_type
method append : beam_type -> beam_type
- method matching : size: int -> beam_type
- method time : time -> basic list
- method output : length: int -> (int list) * (float array list)
+ method matching : int -> beam_type
+ method at : time -> value_type array
+ method output : int -> float array array array
+ method frequency : int array
end;;
end;;
@@
-129,14
+134,25
@@
class type dimension_type =
object
method input : int
method output : int
object
method input : int
method output : int
+ method par : dimension_type -> dimension_type
+ method seq : dimension_type -> dimension_type
+ method split : dimension_type -> dimension_type
+ method merge : dimension_type -> dimension_type
+ method _rec : dimension_type -> dimension_type
end;;
end;;
-class type
expression
_type =
+class type
process
_type =
object
object
- method get_exp : faust_exp
- method get_dim : dimension_type
- method get_delay : int
- method to_string : string
- method evaluate : beam_type -> beam_type
+ method exp : faust_exp
+ method dim : dimension_type
+ method delay : int
+ method eval : beam_type -> beam_type
+ end;;
+
+
+class type io_type =
+ object
+ method read : string array -> beam_type
+ method write : int array -> float array array array -> string array
end;;
end;;