Выбор GTK-server обусловлен тем, что это самый простой и наглядный способ прикрутить GUI к Вашим скриптам.

Существуют различные библиотеки, которые, как считают их авторы, облегчают создание GUI. Я не стану их использовать, хотя Вам стоит на них взглянуть. Возможно, это Ваш путь.

Для выполнения приведенных мной примеров Вам необходимо обзавестись Bigloo Scheme, а также, для пользователей windows еще и gtk2-runtime + gtk-server.

Когда GUI Вас удовлетворяет, можно создать файл, например, gtk-server-toolkit.scm, и поместить в него следующий макрос:

(define-syntax with-gtk-server

  (syntax-rules (gtk)

    ((_ expr ...)

       (let* ([gtk-server (run-process "gtk-server" "stdin" 

                                       input: pipe: output: pipe:)]

              [>>gtk-server-port (process-input-port gtk-server)]

              [<<gtk-server-port (process-output-port gtk-server)]

              [gtk (lambda message

                     (with-input-from-port

                       <<gtk-server-port

                       (lambda ()

                         (with-output-to-port

                           >>gtk-server-port

                           (lambda ()

                             (display (apply string-append message))

                             (flush-output-port (current-output-port))

                             (read-line))))))])

            expr ...))))

Теперь предыдущий пример можно переписать:

(load "gtk-server-toolkit.scm")

(with-gtk-server

  (gtk "gtk_init NULL NULL")

  (define dialog (gtk "gtk_message_dialog_new "

                      "NULL GTK_DIALOG_MODAL GTK_MESSAGE_INFO "

                      "GTK_BUTTONS_OK \"Hello!\""))

  (gtk "gtk_dialog_run " dialog)

  (gtk "gtk_widget_destroy " dialog)

  (gtk "gtk_server_exit"))

Лисп калькулятор.

(module calc

   (include "gtk-server-toolkit.scm")

   (main main))

 

(define (main args)

  (gui))

 

(define (gui)

  (with-gtk-server

    (gtk "gtk_init NULL NULL")

    (let* ([main-window (gtk "gtk_window_new GTK_WINDOW_TOPLEVEL")]

           [edit (gtk "gtk_entry_new")]

           [btn-eval (gtk "gtk_button_new_with_label \"Eval\"")]

           [table (gtk "gtk_table_new 1 4 1")])

      (gtk "gtk_window_set_title " main-window " \"(LispCalc)\"")

      (gtk "gtk_window_set_position " main-window " GTK_WIN_POS_CENTER")

      (gtk "gtk_table_attach_defaults " table " " edit " 0 3 0 1")

      (gtk "gtk_table_attach_defaults " table " " btn-eval " 3 4 0 1")

      (gtk "gtk_container_add " main-window " " table)

      (gtk "gtk_widget_show_all " main-window)

 

      (let ([btn-eval-clicked?

              (begin

                (gtk "gtk_server_connect " btn-eval 

                     " \"clicked\" \"btn-eval-clicked\"")

                (lambda (e) (string=? e "btn-eval-clicked")))]

            [edit-activate?

              (begin

                (gtk "gtk_server_connect " edit 

                     " \"activate\" \"edit-activate\"")

                (lambda (e) (string=? e "edit-activate")))])

        ; Обработка событий

        (let loop ([event (gtk "gtk_server_callback WAIT")])

          (cond

            ((equal? event main-window)

              (let ([dialog (gtk "gtk_message_dialog_new " main-window

                                 " GTK_DIALOG_MODAL GTK_MESSAGE_INFO"

                                 " GTK_BUTTONS_OK"

                                 " \"Good Bye!\"")])

                (gtk "gtk_window_set_title " dialog " \"(Exit)\"")

                (gtk "gtk_dialog_run " dialog)

                (gtk "gtk_widget_destroy " dialog)))

            ((or (edit-activate? event)

                 (btn-eval-clicked? event))

              (let ([str (gtk "gtk_entry_get_text " edit)])

                (when (> (string-length str) 0)

                    (gtk "gtk_entry_set_text " edit " "

                         (with-input-from-string

                           str

                           (lambda() (number->string (eval (read)))))))

                (loop (gtk "gtk_server_callback WAIT"))))

            (else

              (loop (gtk "gtk_server_callback WAIT")))))))

 

    (gtk "gtk_server_exit")))

Создайте файл calc.scm и поместите в него код. Затем откомпилируйте его.

Для пользователей windows:
Перейдите в каталог, где храниться Ваш исходник. Далее в командной строке введите:

1) bigloo --to-stdout calc.scm > calc.c

2) gcc -Ic:\bloo33a5\lib\bigloo\3.3a calc.c -o calc.exe -D_MINGW_VER -s -L. -Lc:\bloo33a5\lib\bigloo\3.3a c:\bloo33a5\lib\bigloo\3.3a/libbigloo_s-3.3a.a c:\bloo33a5\lib\bigloo\3.3a/libbigloogc-3.3a.a -Wl,--stack,8000000 -lm -lgmp -lws2_32 -mwindows

Цитата

---

Может кому-то интересно как создавать GUI используя только либы GTK2?

---

misha, мне очень интересно. Как раз ищу подобную информацию, для работы над интерпретатором.

Мне интересен принцип, для написания FFI, на самой схеме, без привлечения сторонних библиотек

Да, прочитал. И в принципе понял что надо делать. А интерпертатор прост - я дорабатываю до ума (для использования во встраиваемых системах) вот это http://www.stripedgazelle.org/joey/dream.html