18 lines
520 B
Common Lisp
18 lines
520 B
Common Lisp
; Die Funktion listet eine Ascii Datei am Schirm.
|
|
; Aufruf: (fprint "Dateiname.ext")
|
|
|
|
(defun fprint (s / c i)
|
|
(setq i (open s "r")) ; Datei fuer lesen oeffnen
|
|
(if i
|
|
(progn
|
|
(while (setq c (read-line i)) ; eine Zeile aus der Datei lesen
|
|
(princ c) ; und am Schirm anzeigen
|
|
(princ "\n")
|
|
)
|
|
(close i) ; Datei schliesen
|
|
)
|
|
(princ (strcat "Kann Datei nicht oeffnen " s))
|
|
)
|
|
(princ)
|
|
)
|
|
|