projects
/
Faustine.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
MRFausti -> Faustine in Makefile.in.
[Faustine.git]
/
interpretor
/
types.ml
diff --git
a/interpretor/types.ml
b/interpretor/types.ml
index
5e88a1a
..
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 =
@@
-120,10
+121,12
@@
class type beam_type =
method get : signal_type array
method width : int
method sub : int -> 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 matching : int -> beam_type
method at : time -> value_type array
method append : beam_type -> beam_type
method matching : int -> beam_type
method at : time -> value_type array
- method output : int -> value_type array array
+ method output : int -> float array array array
+ method frequency : int array
end;;
end;;
@@
-144,5
+147,12
@@
class type process_type =
method exp : faust_exp
method dim : dimension_type
method delay : int
method exp : faust_exp
method dim : dimension_type
method delay : int
- method evaluate : beam_type -> beam_type
+ 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;;