/unmaintained/irc-ui/commandparser/commandparser.factor

http://github.com/abeaumont/factor · Factor · 15 lines · 9 code · 4 blank · 2 comment · 4 complexity · 52eb8c0fd870f1fe8135bdad655752d3 MD5 · raw file 

    

  1. ! Copyright (C) 2008 William Schlieper

    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.

    3. 

  3. 

    4. 

  4. USING: kernel vocabs.loader sequences strings splitting words irc.messages ;

    5. 

  5. 

    6. 

  6. IN: irc.ui.commandparser

    7. 

  7. 

    8. 

  8. : command ( string string -- string command )

    9. 

  9.     [ "say" ] when-empty

    10. 

  10.     dup "irc.ui.commands" lookup

    11. 

  11.     [ nip ]

    12. 

  12.     [ " " append prepend "quote" "irc.ui.commands" lookup ] if* ;

    13. 

  13. 

    14. 

  14. : parse-message ( string -- )

    15. 

  15.     "/" ?head [ " " split1 swap command ] [ "say" command ] if execute ;
    16.