Merge branch 'master' of git://repo.or.cz/cslatevm

vito · Mar 20, 2010 · 737bcaf · 737bcaf
2 parents 171cc77 + 033eb79
commit 737bcaf
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 2 deletions.
diff --git a/src/net/init.slate b/src/net/init.slate
@@ -1,6 +1,6 @@
 
 
-load: 'src/lib/regex.slate'.
+load: 'src/text/regex.slate'.
 load: 'src/net/sockets.slate'.
 load: 'src/lib/converter.slate'.
 load: 'src/net/uri.slate'.

diff --git a/src/shell/init.slate b/src/shell/init.slate
@@ -1,6 +1,6 @@
 "shell routines"
 
-load: 'src/lib/regex.slate'.
+load: 'src/text/regex.slate'.
 load: 'src/shell/matching.slate'.
 load: 'src/shell/shell.slate'.
 
diff --git a/src/lib/regex.slate → src/text/regex.slate b/src/lib/regex.slate → src/text/regex.slate
diff --git a/src/text/stream-processors.slate b/src/text/stream-processors.slate
@@ -0,0 +1,21 @@
+
+streams define: #LimitedProcessor &parents: {StreamProcessor} &slots: {#count -> 0}.
+
+s@(LimitedProcessor traits) for: n
+[
+  s clone `>> [count: n. ]
+].
+
+
+s@(LimitedProcessor traits) isAtEnd
+[
+  s count <= s count zero \/ [resend]
+].
+
+
+s@(LimitedProcessor traits) next
+[
+  s count: s count - 1.
+  s source next
+].
+