التحقق

(define (send-message message output)
  ;; التحقق من وسيطة الإخراج
  (if (not (member output '(gui error-console terminal)))
    (error "Invalid output destination: " output)
    (cond
      ;; الإرسال إلى وحدة تحكم الأخطاء
      ((eq? output 'error-console)
         (lumi-message-set-handler 2)
         (lumi-message message))

      ;; الإرسال إلى مربع حوار GUI
      ((eq? output 'gui)
         (lumi-message-set-handler 0)
         (lumi-message message))

      ;; الإرسال إلى نافذة الطرفية
      ((eq? output 'terminal)
         (display message))))

  ;; استعادة معالج الرسائل الافتراضي إلى وحدة تحكم الأخطاء
  (lumi-message-set-handler 2))

(define (send-message message output)
  ;; التحقق مما إذا كانت الرسالة فارغة
  (if (or (not message) (string=? message ""))
    (error "Message cannot be empty")
    (cond
      ((eq? output 'error-console)
         (lumi-message-set-handler 2)
         (lumi-message message))
      ((eq? output 'gui)
         (lumi-message-set-handler 0)
         (lumi-message message))
      ((eq? output 'terminal)
         (display message))))

  (lumi-message-set-handler 2))

;; وظيفة لمعالجة إخراج الرسائل إلى وجهات مختلفة
(define (send-message message output)

  ;; التحقق من وسيطتي الرسالة والإخراج
  (if (or (not (string? message)) (string=? message ""))
    (error "Message must be a non-empty string")
    (if (not (member output '(gui error-console terminal)))
      (error "Invalid output destination: " output)
      (cond
        ;; الإرسال إلى وحدة تحكم الأخطاء
        ((eq? output 'error-console)
           (lumi-message-set-handler 2)
           (lumi-message message))

        ;; الإرسال إلى مربع حوار GUI
        ((eq? output 'gui)
           (lumi-message-set-handler 0)
           (lumi-message message))

        ;; الإرسال إلى نافذة الطرفية
        ((eq? output 'terminal)
           (display message)))))

  ;; استعادة معالج الرسائل الافتراضي إلى وحدة تحكم الأخطاء
  (lumi-message-set-handler 2))