soundex: move to extra as it's unused; fix authors.txt filename

diff --git a/basis/soundex/author.txt b/basis/soundex/author.txt
deleted file mode 100644 (file)
index 1901f27..0000000
--- a/basis/soundex/author.txt
+++ /dev/null
@@ -1 +0,0 @@
-Slava Pestov

diff --git a/basis/soundex/soundex-tests.factor b/basis/soundex/soundex-tests.factor
deleted file mode 100644 (file)
index 6ee00c5..0000000
--- a/basis/soundex/soundex-tests.factor
+++ /dev/null
@@ -1,12 +0,0 @@
-USING: soundex tools.test ;
-
-{ "S162" } [ "supercalifrag" soundex ] unit-test
-{ "M000" } [ "M" soundex ] unit-test
-
-{ "R163" } [ "Robert" soundex ] unit-test
-{ "R163" } [ "Rupert" soundex ] unit-test
-{ "R150" } [ "Rubin" soundex ] unit-test
-{ "A261" } [ "Ashcraft" soundex ] unit-test
-{ "A261" } [ "Ashcroft" soundex ] unit-test
-{ "T522" } [ "Tymczak" soundex ] unit-test
-{ "P236" } [ "Pfister" soundex ] unit-test

diff --git a/basis/soundex/soundex.factor b/basis/soundex/soundex.factor
deleted file mode 100644 (file)
index 13a7e9e..0000000
--- a/basis/soundex/soundex.factor
+++ /dev/null
@@ -1,36 +0,0 @@
-! Copyright (C) 2008 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: ascii kernel sequences tr ;
-IN: soundex
-
-<PRIVATE
-
-TR: soundex-digits
-    "AEHIOUWYBFPVCGJKQSXZDTLMNR"
-    "AEHIOUWY111122222222334556" ;
-
-: remove-duplicates ( seq -- seq' )
-    ! Remove _consecutive_ duplicates (unlike prune which removes
-    ! all duplicates).
-    f swap [ [ = ] keep swap ] reject nip ;
-
-: pad-4 ( seq -- seq' ) "000" append 4 head ;
-
-: remove-hw ( seq -- seq' )
-    unclip [ [ "HW" member? ] reject ] [ prefix ] bi* ;
-
-: remove-aeiouy ( seq -- seq' )
-    unclip [ [ "AEIOUY" member? ] reject ] [ prefix ] bi* ;
-
-: ?replace-first ( seq first -- seq )
-    over first digit? [ over set-first ] [ drop ] if ;
-
-PRIVATE>
-
-: soundex ( string -- soundex )
-    >upper [ LETTER? ] filter [
-        remove-hw
-        soundex-digits
-        remove-duplicates
-        remove-aeiouy
-    ] keep first ?replace-first pad-4 ;

diff --git a/basis/soundex/summary.txt b/basis/soundex/summary.txt
deleted file mode 100644 (file)
index 95a271d..0000000
--- a/basis/soundex/summary.txt
+++ /dev/null
@@ -1 +0,0 @@
-Soundex is a phonetic algorithm for indexing names by sound

diff --git a/basis/soundex/tags.txt b/basis/soundex/tags.txt
deleted file mode 100644 (file)
index 8e27be7..0000000
--- a/basis/soundex/tags.txt
+++ /dev/null
@@ -1 +0,0 @@
-text

diff --git a/extra/soundex/authors.txt b/extra/soundex/authors.txt
new file mode 100644 (file)
index 0000000..1901f27
--- /dev/null
+++ b/extra/soundex/authors.txt
@@ -0,0 +1 @@
+Slava Pestov

diff --git a/extra/soundex/soundex-tests.factor b/extra/soundex/soundex-tests.factor
new file mode 100644 (file)
index 0000000..6ee00c5
--- /dev/null
+++ b/extra/soundex/soundex-tests.factor
@@ -0,0 +1,12 @@
+USING: soundex tools.test ;
+
+{ "S162" } [ "supercalifrag" soundex ] unit-test
+{ "M000" } [ "M" soundex ] unit-test
+
+{ "R163" } [ "Robert" soundex ] unit-test
+{ "R163" } [ "Rupert" soundex ] unit-test
+{ "R150" } [ "Rubin" soundex ] unit-test
+{ "A261" } [ "Ashcraft" soundex ] unit-test
+{ "A261" } [ "Ashcroft" soundex ] unit-test
+{ "T522" } [ "Tymczak" soundex ] unit-test
+{ "P236" } [ "Pfister" soundex ] unit-test

diff --git a/extra/soundex/soundex.factor b/extra/soundex/soundex.factor
new file mode 100644 (file)
index 0000000..13a7e9e
--- /dev/null
+++ b/extra/soundex/soundex.factor
@@ -0,0 +1,36 @@
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: ascii kernel sequences tr ;
+IN: soundex
+
+<PRIVATE
+
+TR: soundex-digits
+    "AEHIOUWYBFPVCGJKQSXZDTLMNR"
+    "AEHIOUWY111122222222334556" ;
+
+: remove-duplicates ( seq -- seq' )
+    ! Remove _consecutive_ duplicates (unlike prune which removes
+    ! all duplicates).
+    f swap [ [ = ] keep swap ] reject nip ;
+
+: pad-4 ( seq -- seq' ) "000" append 4 head ;
+
+: remove-hw ( seq -- seq' )
+    unclip [ [ "HW" member? ] reject ] [ prefix ] bi* ;
+
+: remove-aeiouy ( seq -- seq' )
+    unclip [ [ "AEIOUY" member? ] reject ] [ prefix ] bi* ;
+
+: ?replace-first ( seq first -- seq )
+    over first digit? [ over set-first ] [ drop ] if ;
+
+PRIVATE>
+
+: soundex ( string -- soundex )
+    >upper [ LETTER? ] filter [
+        remove-hw
+        soundex-digits
+        remove-duplicates
+        remove-aeiouy
+    ] keep first ?replace-first pad-4 ;

diff --git a/extra/soundex/summary.txt b/extra/soundex/summary.txt
new file mode 100644 (file)
index 0000000..3b60812
--- /dev/null
+++ b/extra/soundex/summary.txt
@@ -0,0 +1 @@
+Phonetic algorithm for indexing names by sound

diff --git a/extra/soundex/tags.txt b/extra/soundex/tags.txt
new file mode 100644 (file)
index 0000000..8e27be7
--- /dev/null
+++ b/extra/soundex/tags.txt
@@ -0,0 +1 @@
+text