Changeset 189 for trunk

Timestamp:

04/22/07 08:12:22 (18 years ago)

Author:

Erik Huelsmann

Message:

Move 2 utility routines.

Location:

trunk

Files:

• protocol.lisp (modified) (1 diff)
• utility.lisp (modified) (2 diffs)

trunk/protocol.lisp ¶

@@ -335 +335 @@
   (loop while (read-message connection)))
 
-(defun try-decode-line (line external-formats)
-  (loop for external-format in external-formats
-        for decoded = nil
-        for error = nil
-        do (multiple-value-setq (decoded error)
-             (handler-case
-              (flexi-streams:with-input-from-sequence (in line)
-                (let* ((ex-fmt (external-format-fixup external-format))
-                       (flexi (flexi-streams:make-flexi-stream
-                               in
-                               ;; :element-type 'character
-                               :external-format ex-fmt)))
-                  (read-line flexi nil nil)))
-              (flexi-streams:flexi-stream-encoding-error ()
-                  nil)))
-        if decoded
-        do (return decoded)))
-
-(defun read-protocol-line (connection)
-  "Reads a line from the input network stream, returning a
-character array with the input read."
-  (multiple-value-bind
-      (buf buf-len)
-      ;; Note: we cannot use read-line here (or any other
-      ;; character based functions), since they may cause
-      ;; (at this time unwanted) character conversion
-      (read-sequence-until (network-stream connection)
-                           (make-array 1024
-                                       :element-type '(unsigned-byte 8)
-                                       :fill-pointer t)
-                           '(10))
-    (when (< 0 buf-len)
-      (setf (fill-pointer buf)
-            ;; remove all trailing CR and LF characters
-            ;; (This allows non-conforming clients to send CRCRLF
-            ;;  as a line separator too).
-            (or (position-if #'(lambda (x) (member x '(10 13)))
-                             buf :from-end t :end buf-len)
-                buf-len))
-      (try-decode-line buf *default-incoming-external-formats*))))
 
 (defmethod read-irc-message ((connection connection))

trunk/utility.lisp ¶

@@ -106 +106 @@
     (setf (getf (cdr new-format) :eol-style) :crlf)
     new-format))
+
+(defun try-decode-line (line external-formats)
+  (loop for external-format in external-formats
+        for decoded = nil
+        for error = nil
+        do (multiple-value-setq (decoded error)
+             (handler-case
+              (flexi-streams:with-input-from-sequence (in line)
+                (let* ((ex-fmt (external-format-fixup external-format))
+                       (flexi (flexi-streams:make-flexi-stream
+                               in
+                               ;; :element-type 'character
+                               :external-format ex-fmt)))
+                  (read-line flexi nil nil)))
+              (flexi-streams:flexi-stream-encoding-error ()
+                  nil)))
+        if decoded
+        do (return decoded)))
 
 (defun read-byte-no-hang (stream &optional eof-error-p eof-value)
@@ -140 +158 @@
                  (= limit-cur limit-max))
           do (return (values target (1+ targ-cur) nil)))))
+
+(defun read-protocol-line (connection)
+  "Reads a line from the input network stream, returning a
+character array with the input read."
+  (multiple-value-bind
+      (buf buf-len)
+      ;; Note: we cannot use read-line here (or any other
+      ;; character based functions), since they may cause
+      ;; (at this time unwanted) character conversion
+      (read-sequence-until (network-stream connection)
+                           (make-array 1024
+                                       :element-type '(unsigned-byte 8)
+                                       :fill-pointer t)
+                           '(10))
+    (when (< 0 buf-len)
+      (setf (fill-pointer buf)
+            ;; remove all trailing CR and LF characters
+            ;; (This allows non-conforming clients to send CRCRLF
+            ;;  as a line separator too).
+            (or (position-if #'(lambda (x) (member x '(10 13)))
+                             buf :from-end t :end buf-len)
+                buf-len))
+      (try-decode-line buf *default-incoming-external-formats*))))
+
 
 (defun substring (string start &optional end)