Mercurial > hg > ishara

diff sinks/@sink/or.m @ 0:672052bd81f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial partial import.
author samer
date Wed, 19 Dec 2012 22:38:28 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sinks/@sink/or.m	Wed Dec 19 22:38:28 2012 +0000
@@ -0,0 +1,11 @@
+% or - parallel sink combinator
+function s=or(s1,s2), 
+	c1=1:channels(s1);
+	c2=channels(s1) + (1:channels(s2));
+	s=sinkbinop(@vertsplit,@plus,s1,s2);
+	function [y1,y2]=vertsplit(x)
+		y1=x(c1,:);
+		y2=x(c2,:);
+	end
+end
+