;;datei_lesen.lsp


(in-package  :GDM)
(use-package :OLI)

(sd-defdialog 'datei_anzeigen
  :dialog-title "Datei anzeigen"
  :variables
  '(
    (DATEI
       :value-type :filename :direction :input
    )
  );;variables

  :local-functions
  '(
     (Auslesen-Datei (D)
      (let (DATEIHANDLE INPUT-LINE) 
       (setf DATEIHANDLE (open D :direction :input))
       (loop
         (setf INPUT-LINE (read-line DATEIHANDLE nil 'END-OF-FILE))
         (if (string= input-line 'END-OF-FILE)
             (progn
                (close DATEIHANDLE)
                (return)
             );;progn
             (display INPUT-LINE)
         );;if
       );;loop
      );;let
     );;Auslesen-Datei
  );;local-functions

  :ok-action '(Auslesen-Datei (FIRST DATEI))

);;sd-defdialog