SHA1 Hash:	0400d5b703267cefb398433f9f026a8c5e8cd56d
Date:	2011-03-30 17:18:58
User:	crc
Comment:	move some stuff into 'util' directory
Timelines:	family | ancestors | descendants | both | trunk
Other Links:	files | manifest

• branch=trunk inherited from [dc67bca1f3]
• sym-trunk inherited from [dc67bca1f3]

[hide diffs]    [patch]

Modified editor.rx from [ae8e2736d12b9eec] to [1cbcb3e2e29d3451].

@@ -18,11 +18,11 @@
 (  z      Exit RxE                                                            )
 (  {      Load "blocks"                                                       )
 (  }      Save "blocks"                                                       )
 ( TAB     Switch between edit and command mode                                )
 ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
+
 chain: editor'
 : textColor   ^console'cyan   ;
 : statusColor ^console'yellow ;
 : uiColor     ^console'red    ;
 

Deleted grep.rx version [c4a277026873894a]

@@ -1,30 +0,0 @@
-( "filename"  "substring" grep )
-( display all lines containing "substring" in "filename" )
-
-{{
-  2 elements token content
-
-  : clean ( $- )
-    withLength
-    [ dup @ 10 13 within [ 999 swap &! sip ] ifTrue 1+ ] times drop ;
-
-  : getLine ( $-$$ )
-    999 ^strings'splitAtChar ^strings'chop ;
-
-  : process ( $- )
-    dup @token ^strings'search [ puts cr ] &drop if ;
-
-  : loadSourceData ( $- )
-    here swap ^files'slurp here !content heap +! 32 , 0 ,
-    @content clean ;
-
-  : eachLine ( $- )
-    [ getLine process dup 1 <> ] while drop ;
-
----reveal---
-  : grep ( $$- )
-    cr here !base
-    keepString !token
-    heap [ loadSourceData @content eachLine ] preserve ;
-}}
-

Execute permission cleared for util/grep.rx

Execute permission cleared for util/wc.rx

Deleted wc.rx version [a433321878465eba]

@@ -1,28 +0,0 @@
-{{
-  3 elements content lines words
-
-  : clean ( $- )
-    withLength
-    [ dup @ 10 13 within [ 999 swap &! sip ] ifTrue 1+ ] times drop ;
-
-  : remaining ( $-n )
-    32 ^strings'splitAtChar ^strings'chop drop ;
-
-  : getLine ( $-$$ )
-    999 ^strings'splitAtChar ^strings'chop ;
-
-  : countWords ( $- )
-    [ words ++ remaining dup 1 <> ] while drop ;
-
-  : loadSourceData ( $- )
-    here swap ^files'slurp here !content heap +! 32 , 0 ,
-    @content clean ;
-
-  : countLines ( $- )
-    [ getLine lines ++ countWords dup 1 <> ] while drop ;
----reveal---
-  : wc ( $-nnn )
-    lines words [ 0 swap ! ] bi@
-    heap [ loadSourceData @content countLines ] preserve
-    @lines @words @content getLength [ 1- ] tri@ ;
-}}