extra/irc/ui/commandparser/commandparser.factor

   1 ! Copyright (C) 2008 William Schlieper\r
   2 ! See http://factorcode.org/license.txt for BSD license.\r
   3 \r
   4 USING: kernel vocabs.loader sequences strings splitting words irc.messages ;\r
   5 \r
   6 IN: irc.ui.commandparser\r
   7 \r
   8 "irc.ui.commands" require\r
   9 \r
  10 : command ( string string -- string command )\r
  11     [ "say" ] when-empty\r
  12     dup "irc.ui.commands" lookup\r
  13     [ nip ]\r
  14     [ " " append prepend "quote" "irc.ui.commands" lookup ] if* ;\r
  15 \r
  16 : parse-message ( string -- )\r
  17     "/" ?head [ " " split1 swap command ] [ "say" command ] if execute ;\r