c as sexps

(cc->string
 `(include (lib "string.h")
           (lib "stdio.h"))
 
 `(defun ((void remchars)
          ((ptr char) str)
          (char c))
    (declare (size_t offset) 0)
    (while (&& (deref str) (!= (deref str) c))
      (inc! str))
    (for (_ (deref str) (inc! str))
       (while (= (ref str offset) c)
          (inc! offset))
       (set! (deref str) (ref str offset)))))

Annotations for this paste:

Annotation number 1:     gtk
Pasted by:     Cin
    1 second ago
   
Paste contents:   
Raw Source | Display As
(printf "~A\n"
 (cc->string
  `(include (lib "gtk/gtk.h"))

  `(defun ((static void callback)
           ((ptr GtkWidget) widget)
           (gpointer data))
     (g_print "Hello again - %s was pressed\n"
              (cast data (ptr gchar))))

  `(defun ((static gboolean delete_event)
           ((ptr GtkWidget) widget)
           ((ptr GdkEvent) event)
           (gpointer data))
     (gtk_main_quit)
     (return FALSE))

  `(defun ((int main)
           (int argc)
           ((ptr char) argv (array)))
     (declare ((ptr GtkWidget) window))
     (declare ((ptr GtkWidget) button))
     (declare ((ptr GtkWidget) box1))

     (gtk_init (address-of argc) (address-of argv))

     (set! window (gtk_window_new GTK_WINDOW_TOPLEVEL))

     (gtk_window_set_title (GTK_WINDOW window) "Hello Buttons!")

     (g_signal_connect (G_OBJECT window) "delete_event"
                       (G_CALLBACK delete_event) NULL)

     (gtk_container_set_border_width (GTK_CONTAINER window) 10)

     (set! box1 (gtk_hbox_new FALSE 0))
    
     (gtk_container_add (GTK_CONTAINER window) box1)

     (set! button (gtk_button_new_with_label "Button 1"))

     (g_signal_connect (G_OBJECT button) "clicked"
                       (G_CALLBACK callback) (cast "button 1" gpointer))

     (gtk_box_pack_start (GTK_BOX box1) button TRUE TRUE 0)

     (gtk_widget_show button)

     (set! button (gtk_button_new_with_label "Button 2"))

     (g_signal_connect (G_OBJECT button) "clicked"
                       (G_CALLBACK callback) (cast "button 2" gpointer))

     (gtk_box_pack_start (GTK_BOX box1) button TRUE TRUE 0)

     (gtk_widget_show button)

     (gtk_widget_show box1)

     (gtk_widget_show window)

     (gtk_main)

     (return 0))))

>>7
How u figger?