a syntax pearl for literal string arrays

diff --git a/extra/qw/authors.txt b/extra/qw/authors.txt
new file mode 100644 (file)
index 0000000..f13c9c1
--- /dev/null
+++ b/extra/qw/authors.txt
@@ -0,0 +1 @@
+Joe Groff

diff --git a/extra/qw/qw-docs.factor b/extra/qw/qw-docs.factor
new file mode 100644 (file)
index 0000000..8af2c14
--- /dev/null
+++ b/extra/qw/qw-docs.factor
@@ -0,0 +1,11 @@
+USING: help.markup help.syntax multiline ;
+IN: qw
+
+HELP: qw{
+{ $syntax "qw{ lorem ipsum }" }
+{ $description "Marks the beginning of a literal array of strings. Component strings are delimited by whitespace." }
+{ $examples
+{ $unchecked-example <" USING: prettyprint qw ;
+qw{ pop quiz my hive of big wild ex tranny jocks } . ">
+<" { "pop" "quiz" "my" "hive" "of" "big" "wild" "ex" "tranny" "jocks" } "> }
+} ;

diff --git a/extra/qw/qw-tests.factor b/extra/qw/qw-tests.factor
new file mode 100644 (file)
index 0000000..c9d9208
--- /dev/null
+++ b/extra/qw/qw-tests.factor
@@ -0,0 +1,5 @@
+! (c)2009 Joe Groff bsd license
+USING: qw tools.test ;
+IN: qw.tests
+
+[ { "zippity" "doo" "dah" } ] [ qw{ zippity doo dah } ] unit-test

diff --git a/extra/qw/qw.factor b/extra/qw/qw.factor
new file mode 100644 (file)
index 0000000..ce96587
--- /dev/null
+++ b/extra/qw/qw.factor
@@ -0,0 +1,5 @@
+! (c)2009 Joe Groff bsd license
+USING: lexer parser ;
+IN: qw
+
+SYNTAX: qw{ "}" parse-tokens parsed ;

diff --git a/extra/qw/summary.txt b/extra/qw/summary.txt
new file mode 100644 (file)
index 0000000..8c31961
--- /dev/null
+++ b/extra/qw/summary.txt
@@ -0,0 +1 @@
+Perlish syntax for literal arrays of whitespace-delimited strings (qw{ foo bar })