EMA-XPS Online


WITH-OPEN-FILE

WITH-OPEN-FILE
==============

Syntax: (with-open-file
             ; Common Lisp: Diese Funktion realisiert
                            in- und output!
                (<stream-var> <Dateiname>       
                [{<options> ...}])              
                [{<declaration> ...}]           
                [{<form> ...}])
        (with-open-input-file
             ; Babylon Lisp
                (<stream-var> <Dateiname>)
                {<form> ...})
        (with-open-output-file
             ; Babylon Lisp
                (<stream-var> <Dateiname>
                [<if-exists-option>])
                {<form> ...})

Diese Funktion öffnet eine Datei mit Namen
<Dateiname> zum Lesen bzw. Schreiben. Falls die Datei
nicht eröffnet werden kann, wird NIL geliefert.

Beispiel:      >(with-open-file (f "test.temp"
                       :direction :output)
                       (print '(1 2 3 4 5) f)
                       (format f "~%abc"))
               NIL

               >(with-open-file (f "test.temp"
                       :direction :input)
                       (list (read f)
                             (read-line f
                               'sollte-zeile-sein)
                             (read f 'ende)
                             (read-line f 'ende2)))
               ((1 2 3 4 5) " " ABC ENDE2)


In diesem Beispiel:    Eine Datei mit Namen
                         "test.temp" wurde angelegt
                            und
	
                       (1 2 3 4 5)
                       abc

                       ist hineingeschrieben worden.


EMA-XPS Online