LISP - 輸入和輸出


Common Lisp提供了大量的輸入輸出功能。我們已經使用的格式功能,列印輸出功能。在本節中,我們將探討一些在LISP提供了最常用的輸入輸出功能。

輸入函式

下表提供了LISP的最常用的輸入功能:

SL No. 函式和說明
1 read &optional input-stream eof-error-p eof-value recursive-p

它讀取一個Lisp物件從輸入流的列印形式,建立相應的Lisp物件,並返回該物件。

2 read-preserving-whitespace &optional in-stream eof-error-p eof-value recursive-p

這是用在一些特殊情況下,最好是確定擴充套件令牌正好是字元結束。

3 read-line &optional input-stream eof-error-p eof-value recursive-p

它讀取一個文字行由換行符終止。

4 read-char &optional input-stream eof-error-p eof-value recursive-p

這需要一個字元從輸入流並將其作為一個字元的物件。

5 unread-char character &optional input-stream

它把最近從輸入流中讀取的字元,到輸入資料流的前部。

6 peek-char &optional peek-type input-stream eof-error-p eof-value recursive-p

它返回的下一個字元被從輸入流中讀取,而無需實際從輸入流中除去它。

7 listen &optional input-stream

謂詞監聽為true如果有立即從輸入流中的字元,如果不是則為false。

8 read-char-no-hang &optional input-stream eof-error-p eof-value recursive-p

它類似於read-char字元,但是如果它沒有得到一個字元,它不會等待一個字元,但立即返回為nil。

9 clear-input &optional input-stream

它清除與輸入流關聯的所有緩衝的輸入。

10 read-from-string string &optional eof-error-p eof-value &key :start :end :preserve-whitespace

它採用字串的字元,並相繼建立一個LISP的物件,並返回該物件。它也返回第一個字元的索引無法讀取字串或字串(或長度+1)的長度,視具體情況而定。

11 parse-integer string &key :start :end :radix :junk-allowed

它會檢查字串的子串被分隔:start 和:end(預設為字串的開頭和結尾)。它會跳過空白字元,然後嘗試解析一個整數。

12 read-byte binary-input-stream &optional eof-error-p eof-value

它讀取1位元組的二進位制輸入流並將其返回一個整數的形式。

讀取鍵盤的輸入

read 函式用於從鍵盤輸入。也可以不帶任何引數。

例如,考慮程式碼片段:

(write ( + 15.0 (read)))

假設使用者輸入10.2 來自stdin 輸入,它返回,

25.2

read 函式從輸入流中讀取字元,並通過解析為Lisp物件的表示解釋它們。

範例

建立一個名為main.lisp一個新的原始碼檔案,並在其中輸入如下程式碼:

; the function AreaOfCircle
; calculates area of a circle
; when the radius is input from keyboard

(defun AreaOfCircle()
(terpri)
(princ "Enter Radius: ")
(setq radius (read))
(setq area (* 3.1416 radius radius))
(princ "Area: ")
(write area))
(AreaOfCircle)

當執行程式碼,它返回以下結果:

Enter Radius: 5 (STDIN Input)
Area: 78.53999

範例

建立一個名為main.lisp一個新的原始碼檔案,並在其中輸入如下程式碼:

(with-input-from-string (stream "Welcome to Tutorials Yiibai!")
    (print (read-char stream))
    (print (read-char stream))
    (print (read-char stream))
    (print (read-char stream))
    (print (read-char stream))
    (print (read-char stream))
    (print (read-char stream))
    (print (read-char stream))
    (print (read-char stream))
    (print (read-char stream))
    (print (peek-char nil stream nil 'the-end))
    (values))

當執行程式碼,它返回以下結果:

#W 
#e 
#l 
#c 
#o 
#m 
#e 
#Space 
#	 
#o 
#Space 

輸出功能

在LISP所有的輸出函式都有一個稱為輸出流可選引數,其輸出傳送。如果沒有提及或nil,輸出流預設為變數*標準輸出*的值。

下表提供了LISP的最常用的輸出函式:

SL No. 函式和說明
1

write object &key :stream :escape :radix :base :circle :pretty :level :length :case :gensym :array

write object &key :stream :escape :radix :base :circle :pretty :level :length :case :gensym :array :readably :right-margin :miser-width :lines :pprint-dispatch

既寫物件通過指定的輸出流:stream,預設為標準輸出*值*。其他值預設為列印設定相應的全域性變數。

2

prin1object &optional output-stream

print object &optional output-stream

pprint object &optional output-stream

princ object &optional output-stream

所有這些函式物件的列印形式輸出到輸出流。但是,下面的不同之處有:

  • prin1 返回物件作為其值。

  • print 列印與前一個換行符的目標和後跟一個空格。它返回的物件。

  • pprint 就像印刷不同之處在於省略了結尾間隔。

  • princ 就像prin1除了輸出沒有跳脫字元。

3

write-to-string object &key :escape :radix :base :circle :pretty :level :length :case :gensym :array

write-to-stringobject &key :escape :radix :base :circle :pretty :level :length :case :gensym :array :readably :right-margin :miser-width :lines :pprint-dispatch

prin1-to-string object

princ-to-string object

該物件被有效地列印和輸出的字元被轉成一個字串,並將該字串返回。

4

write-char character &optional output-stream

它輸出的字元輸出流,並返回字元。

5

write-string string &optional output-stream &key :start :end

它寫入字串的指定子字串的字元輸出流。

6

write-line string &optional output-stream &key :start :end

它的工作原理與write-string的方式相同,但是之後輸出一個換行符。

7

terpri &optional output-stream

它輸出一個換行符到output-stream。

8

fresh-line &optional output-stream

它只輸出一個換行,如果流不是已經在一行的開始。

9

finish-output &optional output-stream

force-output &optional output-stream

clear-output &optional output-stream

  • 函式finish-output嘗試確保傳送到輸出流的所有輸出已達到其目標,然後才返回nil。

  • 函式force-output發起的任何內部緩衝區清空,但返回nil,而無需等待完成或確認。

  • 函式clear-output 嘗試中止,以便使盡可能少的輸出繼續到目標中的任何出色的輸出操作。

10

write-byte integer binary-output-stream

它寫入一個位元組,整數的值。

範例

建立一個名為main.lisp一個新的原始碼檔案,並在其中輸入如下程式碼:

; this program inputs a numbers and doubles it
(defun DoubleNumber()
(terpri)
(princ "Enter Number : ")
(setq n1 (read))
(setq doubled (* 2.0 n1))
(princ "The Number: ")
(write n1)
(terpri)
(princ "The Number Doubled: ")
(write doubled)
)
(DoubleNumber)

當執行程式碼,它返回以下結果:

Enter Number : 3456.78 (STDIN Input)
The Number: 3456.78
The Number Doubled: 6913.56

格式化輸出

format函式是用於生產很好的格式化文字。它的語法如下:

format destination control-string &rest arguments

那麼,

  • destination 是一個標準輸出

  • control-string 持有的字元要被輸出和列印指令。

format directive 由符號(?)的,用逗號,可選的冒號(:)和符號(@)修飾符和一個字元指明了哪些指令是分開的可選字首引數。

字首引數一般都是整數,記載為可選符號十進位制數。

下表提供了常用的指令的簡要說明:

指令 描述
~A 後跟ASCII碼引數
~S 後跟S-表示式
~D 為十進位制引數
~B 用於二進位制引數
~O 用於八進位制引數
~X 用於十六進位制引數
~C 用於字元引數
~F 用於固定格式的浮點引數。
~E 指數浮點引數
~$ 美元和浮點引數。
~% 被列印新的一行
~* 被忽略的下一個引數
~? 間接。下一個引數必須是一個字串,一個接一個列表。

範例

讓我們重寫程式計算圓的面積:

建立一個名為main.lisp一個新的原始碼檔案,並在其中輸入如下程式碼:

(defun AreaOfCircle()
(terpri)
(princ "Enter Radius: ")
(setq radius (read))
(setq area (* 3.1416 radius radius))
(format t "Radius: = ~F~% Area = ~F" radius area)
)
(AreaOfCircle)

當執行程式碼,它返回以下結果:

Enter Radius: 10.234 (STDIN Input)
Radius: = 10.234
Area = 329.03473