قيم الإرجاع

;; الغرض: التحقق من أن الرسالة سلسلة غير فارغة
(define (is-valid-string? message)
  ;; التحقق من أن الرسالة سلسلة غير فارغة
  (if (or (not (string? message)) (string=? message ""))
    (error "Message must be a non-empty string")))

;; الغرض: التحقق من أن الرسالة تُرسَل إلى مخرج صالح
(define (is-valid-output-display? output)
  ;; التحقق من أن الإخراج إحدى وجهات العرض المتوقعة
  (if (not (member output '(dialog-box status-bar error-console terminal)))
    (error "Invalid output destination: " output)
    #t))

;; الغرض: توجيه رسالة إلى وجهة الإخراج المناسبة
(define (send-message message output)
  (if (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)))))

(if (conditional test)
  do if true
  do if false)

(if (conditional test)
  (begin
    do if true)
  (begin
    do if false))

;; الغرض: إرسال رسالة إلى شريط الحالة، يُعيد #t عند النجاح
(define (send-to-status-bar message)
  (if (is-valid-string? message)
    (begin
      (lumi-message-set-handler MESSAGE-BOX)
      (lumi-message message)
      (lumi-message-set-handler ERROR-CONSOLE)
      #t)
    #f))

;; الغرض: إرسال رسالة إلى مربع الحوار، يُعيد #t عند النجاح
(define (send-to-dialog-box message)
  (if (is-valid-string? message)
    (begin
      (lumi-message-set-handler MESSAGE-BOX)
      (lumi-message (string-append message "\n"))
      (lumi-message-set-handler ERROR-CONSOLE)
      #t)
    #f))

;; الغرض: إرسال رسالة إلى وحدة تحكم الأخطاء، يُعيد #t عند النجاح
(define (send-to-error-console message)
  (if (is-valid-string? message)
    (begin
      (lumi-message-set-handler ERROR-CONSOLE)
      (lumi-message message)
      #t)
    #f))

;; الغرض: إرسال رسالة إلى الطرفية، يُعيد #t عند النجاح
(define (send-to-terminal message)
  (if (is-valid-string? message)
    (begin
      (display message)
      (lumi-message-set-handler ERROR-CONSOLE)
      #t)
    #f))

;; الغرض: توجيه رسالة إلى المخرج المناسب، يُعيد #t عند النجاح
(define (send-message message output)
  (if (is-valid-string-output? 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)))
    #f))

;; الغرض: التحقق من أن الرسالة سلسلة غير فارغة، يُعيد #t إذا كانت صالحة
(define (is-valid-string? message)
  (if (or (not (string? message)) (string=? message ""))
    (begin
      (error "Message must be a non-empty string")
      #f)
    #t))

;; الغرض: التحقق من أن الإخراج وجهة صالحة، يُعيد #t إذا كان صالحًا
(define (is-valid-string-output? output)
  (if (not (member output '(dialog-box status-bar error-console terminal)))
    (begin
      (error "Invalid output destination: " output)
      #f)
    #t))