Question

在Common Lisp中，是否有一种简单的方法可以从输入流中读取单个以空格分隔的单词？基本上我正在寻找与C scanf("%s", somevar);相当的东西。

我确实想出了以下内容：

(defun read-word-from-stream (in)
  (peek-char t in) ; skip initial whitespace
  (do ((str (make-array 16 :fill-pointer 0 :element-type 'standard-char :adjustable t) 
            (progn (vector-push-extend (read-char in) str) str)))
      ((let ((c (peek-char nil in))) 
            (or (char= c #\Newline) (char= c #\Space))) str)))

......虽然功能对我有限的需求有用，但对于如此简单的操作感觉有点笨拙。理想情况下，我会有一个方法为我做，但是使用任何可用的Common Lisp库（最好是与flexi-streams一起使用的东西），最干净，最短的正确方法是什么？

Answer 1

使用peek-char检测空格

虽然我在a comment发布了没有标准方法可以做到这一点，部分原因是因为没有普遍的空白概念。（你的版本包括Space和Newline，但是Tab，Vertical Tab，Carriage Return等等呢？）那就是说，你使用 peek-char 提醒我 peek-char 获取一个可选的 peek-type 参数，该参数指示是否应跳过空格。如果您使用两种类型的偷看，那么当它们不同意时，您必须使用空格字符。这意味着您可以通过以下函数读取空白字符（其中空白字符的确切含义由实现确定）：

(defun read-string (&optional (stream *standard-input*))
  (loop
     for c = (peek-char nil stream nil nil)              ; include whitespace
     while (and c (eql c (peek-char t stream nil nil)))  ; skip whitespace
     collect (read-char stream) into letters
     finally (return (coerce letters 'string))))

CL-USER> (read-string)
this is some input
"this"

我使用（强制字母'字符串）来获取字符串，但您也可以使用 with-output-to-string ：

(defun read-string (&optional (stream *standard-input*))
  (with-output-to-string (out)
    (loop
       for c = (peek-char nil stream nil nil)
       while (and c (eql c (peek-char t stream nil nil)))
       do (write-char (read-char stream) out))))

CL-USER> (read-string)
some more input
"some"

使用空格的词汇表条目

空格的词汇表条目说：

whitespace n。的 1。一个或多个字符，可以是图形字符＃\空格或非图形字符，如＃\ Newline 仅移动打印位置。 2. a。 ñ。 a的语法类型作为标记分隔符的字符。有关详细信息，请参见第2.1.4.7节（空白字符）。湾ADJ。（一个角色）有空格[2a]语法类型[2]。 C。 ñ。一个空格[2b]字符。

根据第一个定义，很容易定义一个粗略的近似值（这不会检查打印位置;我不确定是否有可行的方法来检查）：

(defun whitespace-char-p (x)
  (or (char= #\space x)
      (not (graphic-char-p x))))

然后很容易做到：

(defun read-until (test &optional (stream *standard-input*))
  (with-output-to-string (out)
    (loop for c = (peek-char nil stream nil nil)
       while (and c (not (funcall test c)))
       do (write-char (read-char stream) out))))

CL-USER> (read-until 'whitespace-char-p)
this is some input
"this"

如何从流中读取以空格分隔的单词？

1 个答案:

使用peek-char检测空格

使用空格的词汇表条目