projects
/
Faustine.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refactoring in faustexp.ml.
[Faustine.git]
/
interpretor
/
types.ml
diff --git
a/interpretor/types.ml
b/interpretor/types.ml
index
ba61990
..
6fa6513
100644
(file)
--- a/
interpretor/types.ml
+++ b/
interpretor/types.ml
@@
-86,6
+86,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
+117,13
@@
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 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 -> value_type array array
end;;
end;;
@@
-129,14
+131,19
@@
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 exp : faust_exp
+ method dim : dimension_type
+ method delay : int
method to_string : string
method evaluate : beam_type -> beam_type
end;;
method to_string : string
method evaluate : beam_type -> beam_type
end;;