add trunc support + tests (#391)

Author: dromer

CHANGELOG.md

@@ -8,6 +8,7 @@ Features:
 
 * Support `list` object. Does not support tosymbol/fromsymbol.
 * Support `[route float]` for routing floats.
+* Support `trunc()` in `expr/expr~`.
 
 
 0.16.2

hvcc/generators/ir2c/expr/expr_arpeggio_grammar.py

@@ -100,6 +100,7 @@ def f_name():   return [
                     # regex(r"\bSum(?=\()"),
                     regex(r"\btan(?=\()"),
                     regex(r"\btanh(?=\()"),
+                    regex(r"\btrunc(?=\()"),
                 ]
 
 

hvcc/generators/ir2c/expr/expr_c_writer.py

@@ -248,6 +248,7 @@ class ExprOpMap:
         # "Sum":          "hv_?_f",          # sum of elemnets of a specified boundary of a table
         "tan":          "hv_tan_f",
         "tanh":         "hv_tanh_f",
+        "trunc":        "hv_cast_fi_expr",
         "_load_f":      "hv_var_k_f",
         "_load_i":      "hv_var_k_i",
     }

tests/pd/control_expr/test-int.pd

@@ -1,16 +1,21 @@
-#N canvas 827 239 734 565 12;
-#X obj 40 30 loadbang;
-#X obj 40 165 print;
-#X msg 40 90 2.3;
-#X obj 40 55 t b b b;
-#X msg 163 90 5.5;
-#X obj 40 132 expr int($f1);
-#X msg 101 90 -3.1;
-#X connect 0 0 3 0;
-#X connect 2 0 5 0;
-#X connect 3 0 2 0;
-#X connect 3 1 6 0;
-#X connect 3 2 4 0;
-#X connect 4 0 5 0;
-#X connect 5 0 1 0;
-#X connect 6 0 5 0;
+#N canvas 827 239 273 249 12;
+#X obj 40 9 loadbang;
+#X obj 40 190 print;
+#X msg 40 115 2.3;
+#X msg 113 115 5.5;
+#X obj 40 157 expr int($f1);
+#X msg 79 115 -3.1;
+#X obj 40 80 t b b b b;
+#X obj 147 157 expr trunc($f1);
+#X obj 147 190 print;
+#X obj 40 38 bng 25 250 50 0 empty empty empty 0 -10 0 10 #191919 #ffffff #ffffff;
+#X connect 0 0 9 0;
+#X connect 2 0 4 0;
+#X connect 3 0 7 0;
+#X connect 4 0 1 0;
+#X connect 5 0 4 0;
+#X connect 6 0 2 0;
+#X connect 6 1 5 0;
+#X connect 6 2 3 0;
+#X connect 7 0 8 0;
+#X connect 9 0 6 0;

tests/pd/signal_expr/test-int.pd

@@ -9,6 +9,10 @@
 #X msg 109 161 -3.1;
 #X msg 76 161 2.3;
 #X obj 143 256 expr~ int($v1);
+#X obj 248 222 sig~;
+#X obj 248 256 expr~ trunc($v1);
+#X obj 248 345 print;
+#X obj 248 313 snapshot~;
 #X connect 0 0 1 0;
 #X connect 1 0 5 0;
 #X connect 3 0 9 0;
@@ -17,9 +21,12 @@
 #X connect 5 1 8 0;
 #X connect 5 2 4 0;
 #X connect 5 3 7 0;
-#X connect 5 4 4 0;
+#X connect 5 4 13 0;
 #X connect 5 5 6 0;
-#X connect 6 0 3 0;
+#X connect 6 0 10 0;
 #X connect 7 0 3 0;
 #X connect 8 0 3 0;
 #X connect 9 0 4 0;
+#X connect 10 0 11 0;
+#X connect 11 0 13 0;
+#X connect 13 0 12 0;