]> gitweb.factorcode.org Git - factor-unmaintained.git/blobdiff - irc-ui/commandparser/commandparser.factor
irc-ui: move to irc.ui to match IN: declarations.
[factor-unmaintained.git] / irc-ui / commandparser / commandparser.factor
diff --git a/irc-ui/commandparser/commandparser.factor b/irc-ui/commandparser/commandparser.factor
deleted file mode 100644 (file)
index 43ea80c..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-! Copyright (C) 2008 William Schlieper
-! See http://factorcode.org/license.txt for BSD license.
-
-USING: kernel vocabs.loader sequences strings splitting words irc.messages ;
-
-IN: irc.ui.commandparser
-
-: command ( string string -- string command )
-    [ "say" ] when-empty
-    dup "irc.ui.commands" lookup
-    [ nip ]
-    [ " " append prepend "quote" "irc.ui.commands" lookup ] if* ;
-
-: parse-message ( string -- )
-    "/" ?head [ " " split1 swap command ] [ "say" command ] if execute ;