4

このように機能するclispの「システム」コマンドを作成しようとしています

(setq result (system "pwd"))

;;now result is equal to /my/path/here

私はこのようなものを持っています:

(defun system (cmd)
 (ext:run-program :output :stream))

しかし、ストリームを文字列に変換する方法がわかりません。ハイパースペックとグーグルを何度も見直しました。

編集: Ranier のコマンドを使用し、with-output-to-stream を使用して、

(defun system (cmd)
  (with-output-to-string (stream)
    (ext:run-program cmd :output stream)))

そしてgrep、私のパスにある を実行しようとしています...

[11]> (system "grep")

*** - STRING: argument #<OUTPUT STRING-OUTPUT-STREAM> should be a string, a
      symbol or a character
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead.
ABORT          :R2      Abort main loop
Break 1 [12]> :r2
4

4 に答える 4

5

このようなもの？

バージョン 2:

(defun copy-stream (in out)
   (loop for line = (read-line in nil nil)
         while line
         do (write-line line out)))

(defun system (cmd)
  (with-open-stream (s1 (ext:run-program cmd :output :stream))
    (with-output-to-string (out)
      (copy-stream s1 out))))


[6]> (system "ls")
"#.emacs#
Applications
..."
于 2010-06-10T23:22:41.750 に答える
3

のCLISP ドキュメントにrun-programよると、:output引数は次のいずれかである必要があります。

  • :terminal- 端末に書き込みます
  • :stream-読み取り可能な入力ストリームを作成して返します
  • パス名指定子- 指定されたファイルに書き込みます
  • nil- 出力を無視します

出力を文字列に収集する場合は、読み書きコピー ループを使用して、返されたストリームから文字列にデータを転送する必要があります。レイナーの提案によると、既にwith-output-to-string機能していますが、その出力ストリームを に提供する代わりに、によって返された入力ストリームrun-programからデータをコピーして、自分で書き込む必要があります。run-program

于 2010-06-11T00:13:23.170 に答える
2

あなたは特にclispについて尋ねています。ここで、Clozure CL を使用している場合は、os サブプロセスも簡単に実行できることを付け加えておきます。

いくつかの例：

;;; Capture the output of the "uname" program in a lisp string-stream
;;; and return the generated string (which will contain a trailing
;;; newline.)
? (with-output-to-string (stream)
    (run-program "uname" '("-r") :output stream))
;;; Write a string to *STANDARD-OUTPUT*, the hard way.
? (run-program "cat" () :input (make-string-input-stream "hello") :output t)
;;; Find out that "ls" doesn't expand wildcards.
? (run-program "ls" '("*.lisp") :output t)
;;; Let the shell expand wildcards.
? (run-program "sh" '("-c" "ls *.lisp") :output t)

http://ccl.clozure.com/ccl-documentation.htmlにある CCL ドキュメントで run-program を検索してください。

このstackoverflowの回答には、これを行うためのLispの優れた方法がいくつかあります。stdout出力を文字列として返すシステムコールを作成する もう一度、Rainerに助けてもらいます。ありがとうラニエ。

于 2011-05-18T02:18:45.057 に答える
0

これは短い方です

(defun system(cmd)
  (ext:shell (string cmd)))

> (system '"cd ..; ls -lrt; pwd")
于 2014-07-10T05:47:15.803 に答える