Hatena::Groupcadr

わだばLisperになる このページをアンテナに追加 RSSフィード

2004 | 12 |
2005 | 01 | 02 | 07 | 10 | 11 |
2006 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 11 |

2010-01-05

KMRCLを眺める (59) READ-FILE-TO-STRING

| 21:53 | KMRCLを眺める (59) READ-FILE-TO-STRING - わだばLisperになる を含むブックマーク はてなブックマーク - KMRCLを眺める (59) READ-FILE-TO-STRING - わだばLisperになる

今回はKMRCLのio.lisp中からREAD-FILE-TO-STRINGです。

前回定義したいREAD-STREAM-TO-STRINGをWITH-OPEN-FILEでラップしてファイルを扱えるようにしたものです。

(defun read-file-to-string (file)
  "Opens a reads a file. Returns the contents as a single string"
  (with-open-file (in file :direction :input)
    (read-stream-to-string in)))

動作は、

(READ-FILE-TO-STRING "/etc/motd")
;⇒ 
"Linux setq 2.6.31-14-generic #48-Ubuntu SMP Fri Oct 16 14:05:01 UTC 2009 x86_64

To access official Ubuntu documentation, please visit:
http://help.ubuntu.com/
"

という感じです。

READ-STREAM-TO-STRINGをラップしているだけに、前回問題にした改行が余計につくことがある問題も当然引き継いでいます。