# HG changeset patch
# User Chris Cannam
# Date 1367855773 -3600
# Node ID 12818af285cc04bfac34a1fc05e8f22059dbc84a
# Parent  054855112a1ccafac5701a0dae5f99e232d33a13
More type declarations

diff -r 054855112a1c -r 12818af285cc yetilab/block/blockfuncs.yeti
--- a/yetilab/block/blockfuncs.yeti	Mon May 06 16:56:04 2013 +0100
+++ b/yetilab/block/blockfuncs.yeti	Mon May 06 16:56:13 2013 +0100
@@ -4,6 +4,8 @@
 b = load yetilab.block.block;
 vec = load yetilab.block.fvector;
 
+load yetilab.block.blocktype;
+
 sum' bl =
    (v = b.data bl;
     tot = new double[1];
@@ -51,13 +53,15 @@
     b.concat [b.rangeOf half (len-half) bl, b.rangeOf 0 half bl]);
 
 {
-sum = sum',
-mean,
-multiply, divideBy, sqr,
-sqrt = sqrt',
-rms,
-fftshift,
-ifftshift,
+sum is block -> number = sum',
+mean is block -> number,
+multiply is block -> block -> block, 
+divideBy is number -> block -> block, 
+sqr is block -> block,
+sqrt is block -> block = sqrt',
+rms is block -> number,
+fftshift is block -> block,
+ifftshift is block -> block,
 }