Rielaborazione

Questo passaggio risolve un comportamento sottile nell’esempio di messaggistica.

Stavamo passando la stringa “Hello world!\n” come messaggio. Il “\n” è un tipo speciale di carattere, un carattere di “fuga”. Dice alla stampa dell’output di iniziare una nuova riga. In Scheme, forzerà anche la visualizzazione di un messaggio inviato alla barra di stato come finestra della GUI.

L’helper send-to-gui invia messaggi a una finestra di dialogo Lumi.

Aggiorna il contenuto e le destinazioni del messaggio in modo che l’esempio si comporti in modo coerente.

Rimozione del carattere di escape ed estensione delle funzioni:

#!/usr/bin/env lumi-scheme-interpreter-0.1

(load "/path/to/your/messaging.scm")

(define (scheme-hello-world)
  (let ((message "Hello world!"))
    (send-message message 'dialog-box)
    (send-message message 'status-bar)
    (send-message message 'error-console)
    (send-message message 'terminal)))

(scheme-register-procedure "scheme-hello-world"
  "Hello world!"
  "A Scheme procedure plug-in refactored"
  "Mark Sweeney"
  "Under GNU GENERAL PUBLIC LICENSE Version 3"
  "2024")

(scheme-menu-register
  "scheme-hello-world"
  "<Image>/Funky")

Sostituisci i numeri magici con le costanti fornite da Lumi (ad esempio, MESSAGE-BOX e ERROR-CONSOLE).

Quindi suddividi la convalida in due funzioni in modo che possa essere riutilizzata da più siti di chiamata.

(is-valid-string?) Per verificare che una stringa sia una stringa e non una stringa vuota, all’interno di una funzione send-to*.
(is-valid-output-display?) Per verificare che una determinata destinazione di output sia valida, nella funzione send-message.

Rielaborare la libreria:

(define (send-to-status-bar message)
  (is-valid-string? message)
  (lumi-message-set-handler MESSAGE-BOX)
  (lumi-message message)
  (lumi-message-set-handler ERROR-CONSOLE))

(define (send-to-dialog-box message)
  (is-valid-string? message)
  (lumi-message-set-handler MESSAGE-BOX)

  ;; Aggiungere un a capo per forzare una casella di messaggio
  (lumi-message (string-append message "\n"))
  (lumi-message-set-handler ERROR-CONSOLE))

(define (send-to-error-console message)
  (is-valid-string? message)
  (lumi-message-set-handler ERROR-CONSOLE)
  (lumi-message message))

(define (send-to-terminal message)
  (is-valid-string? message)
  (display message)
  (lumi-message-set-handler ERROR-CONSOLE))

;; Scopo: Invia un messaggio alla destinazione di output appropriata
(define (send-message message output)
  (is-valid-output-display? output)
  (cond
    ((eq? output 'error-console) (send-to-error-console message))
    ((eq? output 'dialog-box) (send-to-dialog-box message))
    ((eq? output 'status-bar) (send-to-status-bar message))
    ((eq? output 'terminal) (send-to-terminal message))))

;; Scopo: Verifica che il messaggio sia una stringa non vuota
(define (is-valid-string? message)
  ;; Verificare se il messaggio è una stringa non vuota
  (if (or (not (string? message)) (string=? message ""))
      (error "Message must be a non-empty string")))

;; Scopo: Verifica che il messaggio venga inviato a un output valido
(define (is-valid-output-display? output)
  ;; Verificare se l'output è una delle destinazioni di visualizzazione previste
  (if (not (member output '(dialog-box status-bar error-console terminal)))
      (error "Invalid output destination: " output)))

Conclusione

Rielaborando la nostra libreria di messaggistica, l’abbiamo resa più solida e affidabile. Abbiamo risolto il problema nascosto con il carattere di nuova riga, introdotto costanti per una maggiore chiarezza e ampliato la funzionalità aggiungendo il supporto per la barra di stato e gli output delle finestre di dialogo. Inoltre, separare la logica di convalida in funzioni più piccole e mirate garantisce che il nostro codice sia più facile da mantenere ed estendere in futuro.

Questa rielaborazione dimostra come piccoli cambiamenti possano migliorare la struttura e la funzionalità complessive della nostra libreria, aprendo la strada a una maggiore flessibilità e riusabilità man mano che il nostro progetto cresce.

Libreria di messaggistica Valori restituiti