steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

irc.messages.parser: simplify parser

locals-and-roots
Doug Coleman 2016-05-09 11:49:19 -07:00
parent 334477d94a
commit 2d5368f4af
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/irc/messages/parser/parser.factor
View File

@ -9,20 +9,14 @@ IN: irc.messages.parser
: split-at-first ( seq separators -- before after ) : split-at-first ( seq separators -- before after )
dupd '[ _ member? ] find [ cut rest ] [ swap ] if ; dupd '[ _ member? ] find [ cut rest ] [ swap ] if ;
: split-trailing ( string -- string string/f ) ":" split1 ; ! ":ircuser!n=user@isp.net JOIN :#factortest"
: remove-heading-: ( seq -- seq ) ":" ?head drop ;
: split-prefix ( string -- string/f string )
dup ":" head? [
remove-heading-: " " split1
] [ f swap ] if ;
: split-message ( string -- prefix command parameters trailing ) : split-message ( string -- prefix command parameters trailing )
split-prefix split-trailing ":" ?head [ " " split1 ] [ f swap ] if
[ [ blank? ] trim " " split unclip swap ] dip ; ":" split1
[ " " split harvest unclip swap ] dip ;
: sender ( irc-message -- sender ) : sender ( irc-message -- sender )
prefix>> [ remove-heading-: "!" split-at-first drop ] [ f ] if* ; prefix>> [ ":" ?head drop "!" split-at-first drop ] [ f ] if* ;
PRIVATE> PRIVATE>
: string>irc-message ( string -- irc-message ) : string>irc-message ( string -- irc-message )