IO-Test

Aus ProgrammingWiki

Prozedureingabe

(require-library 'sisc/libs/srfi/srfi-6) (import srfi-6)

Mit dem nachfolgenden Beispiel kann das Konzept der Prozeduren höherer Ordnung durch Interaktion umgesetzt werden:

(define proz (read (open-input-string (inputDialog "Prozedur (Lambda-Term):")))) ((eval proz) 4)

ausführen

Soll eine einfache Syntaxkontrolle erfolgen, können mögliche Eingabefehler über eine Exception erfasst und behandelt werden:

(define termeingabe (lambda (x) (let ([proz (read (open-input-string (inputDialog "Prozedur (Lambda-Term):")))]) (with-failure-continuation (lambda (error-record error-k) (display "--> Eingabefehler") (newline) 'ok) (lambda () ((eval proz) x))))))

(termeingabe 2)

ausführen