Changeset 19181 in project


Ignore:
Timestamp:
08/08/10 01:04:35 (10 years ago)
Author:
Moritz Heidkamp
Message:

vandusen: get rid of regex-case dependency

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/vandusen/trunk/vandusen-remote.scm

    r18259 r19181  
    11(module vandusen-remote ()
    22
    3 (import chicken scheme extras)
    4 (use vandusen tcp srfi-18 regex-case)
     3(import chicken scheme extras srfi-13)
     4(require-library regex)
     5(import irregex)
     6(use vandusen tcp srfi-18)
    57
    68(plugin 'remote
     
    1517                               (receive (in out) (tcp-accept listener)
    1618                                        (thread-start! (lambda ()
    17                                                          (regex-case (read-line in)
    18                                                            ((quote (: bos (submatch (+ (~ space)))
    19                                                                       " " (submatch (+ any)) eos))
    20                                                             (_ recipient message)
    21                                                             (say message recipient)))
     19                                                         (and-let* ((match (irregex-match
     20                                                                            '(seq (submatch (+ (~ space)))
     21                                                                                  " "
     22                                                                                  (submatch (+ any)))
     23                                                                            (read-line in))))
     24                                                           (say (string-trim (irregex-match-substring match 2))
     25                                                                (irregex-match-substring match 1)))
    2226                                                         (close-input-port in)
    2327                                                         (close-output-port out)))
Note: See TracChangeset for help on using the changeset viewer.