[rep-gtk] remove all ^L

[Christopher Bratusek <chrisb src gnome org>]

commit f4f7a90fab0d48917f535ac7d2a5bfee33845ba5
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Sat Jan 23 07:04:17 2010 +0100

    remove all ^L

 README.gtk-defs |    8 --------
 build-gtk.jl    |   13 -------------
 gtk-support.c   |    1 -
 gtktext.defs    |    6 ------
 rep-gtk.c       |   19 +------------------
 rep-types.c     |    4 ----
 6 files changed, 1 insertions(+), 50 deletions(-)
---
diff --git a/README.gtk-defs b/README.gtk-defs
index d52f86b..bd916d2 100644
--- a/README.gtk-defs
+++ b/README.gtk-defs
@@ -2,24 +2,20 @@
 
 These notes describe the format of the .defs files
 
-
 (import "DEFS-FILE")
 (include "DEFS-FILE")
 
 
-
 (define-enum ENUM-TYPEDEF-NAME
   (LISP-SYM CPP-MACRO)
   ...)
 
 
-
 (define-flags FLAGS-TYPEDEF-NAME
   (LISP-SYM CPP-MACRO)
   ...)
 
 
-
 (define-boxed BOXED-TYPEDEF-NAME
   ATTR ...)
 
@@ -36,7 +32,6 @@ where each ATTR is one of:
       method of retrieving the value
 
 
-
 (define-object OBJECT-TYPEDEF-NAME (SUPER-CLASS-TYPEDEF)
   ATTR ...)
 
@@ -45,7 +40,6 @@ where each ATTR is one of:
       (fields FIELD ...)		[as above]
 
 
-
 (define-func C-FUNC-NAME
   RETURN-VALUE [RET-OPTIONS...]
   (ARG ...)
@@ -73,7 +67,6 @@ and each RET-OPTION may be one of:
   (copy nil)				; unimplemented?
 
 
-
 (options OPTION ...)
 
 where each OPTION can be:
@@ -87,7 +80,6 @@ where each OPTION can be:
 the `provide' option generates the rep dl stub required to provide
 FEATURE and call the init-func when loaded
 
-
 
 GTK fundamental types seem to include:
 
diff --git a/build-gtk.jl b/build-gtk.jl
index ec69a29..cf6d28a 100644
--- a/build-gtk.jl
+++ b/build-gtk.jl
@@ -32,7 +32,6 @@
 
 ;; WARNING: This makes some pretty gruesome assumptions. [where?]
 
-
 ;; Configuration
 
 ;; Alist of (TYPE ["C-TYPE" | DECL-FUNC] ["REP2GTK" | FROM-REP-FUNC]
@@ -64,7 +63,6 @@
 				    gtk-to-rep type-pred options)
 			     gtk-type-alist)))
 
-
 ;; Work variables
 
 (defvar gtk-enums nil
@@ -129,7 +127,6 @@
 
 (defvar gtk-emitted-composite-helpers nil)
 
-
 ;; Entry point
 
 (defun build-gtk (defs-file-name output-file-name)
@@ -178,7 +175,6 @@
     (setq command-line-args (nthcdr 2 command-line-args))
     (build-gtk in out)))
 
-
 ;; Parsing
 
 (defun parse-gtk (input)
@@ -297,7 +293,6 @@
 	      (gtk-warning "Ignoring `%S'" def))))))
     (end-of-stream)))
 
-
 ;; Code generation
 
 (defmacro @ args
@@ -550,7 +545,6 @@
   (output-subrs output)
   (output-footer output))
 
-
 ;; Type management
 
 (defun gtk-outer-type (type)
@@ -623,7 +617,6 @@
 (defun gtk-type-prop (type prop)
   (gtk-typage-prop (gtk-type-info type) prop))
 
-
 ;; Function arg helpers
 
 (defmacro gtk-get-arg-options (option arg)
@@ -638,7 +631,6 @@
 (defmacro gtk-arg-name (arg)
   `(symbol-name (nth 1 ,arg)))
 
-
 ;; Type output functions
 
 (defun output-complex-type (type typage)
@@ -862,7 +854,6 @@
 	   "0"
 	 (format nil "_sgtk_helper_torep_nocopy_%s" inner-type)))))
 
-
 ;; Function generation
 
 (defun output-function (def output #!optional function-callback)
@@ -1093,7 +1084,6 @@
     ;; footer
     (@ "}\n\n")))
 
-
 ;; Field access functions
 
 (defun output-field-functions (type-list output)
@@ -1151,7 +1141,6 @@
     (@ "  return \(%s\) ? Qt : Qnil;\n}\n\n" pred)
     (setq gtk-subrs (cons (intern (format nil "%s_p" ctype)) gtk-subrs))))
 
-
 ;; Composite type helper functions
 
 (defun output-helper (type output)
@@ -1205,7 +1194,6 @@
       (@ "static repv\n_sgtk_helper_torep_nocopy_%s \(void *mem\)\n" type)
       (@ "\{\n  return %s;\n\}\n\n" to))))
 
-
 ;; Sundries
 
 (defun gtk-canonical-name (name)
@@ -1246,7 +1234,6 @@
   (apply format standard-error fmt args)
   (write standard-error ?\n))
 
-
 ;; initialisation
 
 (define-type 'type "GtkType" "sgtk_rep_to_type"
diff --git a/gtk-support.c b/gtk-support.c
index 2fc1c82..6e472aa 100644
--- a/gtk-support.c
+++ b/gtk-support.c
@@ -24,7 +24,6 @@
    as long as we do not want to have some SCM_PROCs for the (gdk gdk)
    module, we are safe. */
 
-
 
 GdkColor *
 gdk_color_intern (GdkColor *color)
diff --git a/gtktext.defs b/gtktext.defs
index e1049aa..3544c67 100644
--- a/gtktext.defs
+++ b/gtktext.defs
@@ -26,7 +26,6 @@
   (top GTK_TEXT_WINDOW_TOP)
   (bottom GTK_TEXT_WINDOW_BOTTOM))
 
-
 ;; TextMark
 
 (define-func gtk_text_mark_set_visible
@@ -54,7 +53,6 @@
   bool
   ((GtkTextMark mark)))
 
-
 ;; TextTag
 
 (define-func gtk_text_tag_new
@@ -79,7 +77,6 @@
 
 ;; XXX text_attributes foo?
 
-
 ;; TextTagTable
 
 (define-func gtk_text_tag_table_new
@@ -107,7 +104,6 @@
   int
   ((GtkTextTagTable table)))
 
-
 ;; TextIter
 
 ;; not in the usual API, defined locally
@@ -434,7 +430,6 @@
   ((GtkTextIter first)
    (GtkTextIter second)))
 
-
 ;; TextBuffer
 
 (define-func gtk_text_buffer_new
@@ -726,7 +721,6 @@
   none
   ((GtkTextBuffer buffer)))
 
-
 ;; TextView
 
 (define-func gtk_text_view_new
diff --git a/rep-gtk.c b/rep-gtk.c
index b225836..5df994a 100644
--- a/rep-gtk.c
+++ b/rep-gtk.c
@@ -42,7 +42,6 @@ list_length (repv list)
     return (len && rep_INTP (len)) ? rep_INT (len) : 0;
 }
 
-
 
 /* Associating SCM values with Gtk pointers.
 
@@ -77,7 +76,6 @@ forget_proxy (gpointer obj)
   g_hash_table_remove (proxy_tab, obj);
 }
 
-
 
 /* Storing additional info about a GType.
 
@@ -283,7 +281,6 @@ sgtk_find_type_info (GType type)
   abort ();
 }
 
-
 
 /* G[tk]Objects.
 
@@ -725,7 +722,6 @@ GtkObject * sgtk_get_gtkobj (repv obj)
   return GTK_OBJECT (sgtk_get_gobj (obj));
 }
 
-
 /* Enums.
 
    Enumerations are described by a `sgtk_enum_info' structure.  That
@@ -774,7 +770,6 @@ sgtk_rep_to_enum (repv obj, sgtk_enum_info *info)
   return -1;
 }
 
-
 /* Flags.
 
    Like enums, flags are described by a `sgtk_enum_info' structure.
@@ -902,7 +897,6 @@ sgtk_rep_to_senum (repv obj, sgtk_senum_info *info)
   return NULL;
 }
 
-
 
 /* Boxed Values.
 
@@ -1064,7 +1058,6 @@ sgtk_rect_to_rep (GdkRectangle r)
 		       rep_MAKE_INT (r.height)));
 }
 
-
 
 /* GType objects
 
@@ -1155,8 +1148,7 @@ sgtk_segment_to_rep (GdkSegment seg)
 			     rep_MAKE_INT (seg.y1)),
 		   Fcons (rep_MAKE_INT (seg.x2),
 			     rep_MAKE_INT (seg.y2)));
-}
-
+}
 /* Callbacks.
 
    Callbacks are executed within a new dynamic root.  That means that
@@ -1256,7 +1248,6 @@ sgtk_gclosure_callback_destroy (gpointer data, GClosure *closure)
   sgtk_unprotect ((sgtk_protshell *)data);
 }
 
-
 /* converting between SCM and GValue */
 
 repv
@@ -1414,7 +1405,6 @@ sgtk_rep_to_gvalue (GValue *a, repv obj)
     }
 }
 
-
 
 /* Type conversions */
 
@@ -1465,7 +1455,6 @@ sgtk_font_conversion (repv font)
   return font;
 }
 
-
 #ifndef NO_GTK1_COMPAT_CODE
 
 /* converting between SCM and GtkArg */
@@ -1691,7 +1680,6 @@ sgtk_rep_to_ret (GtkArg *a, repv obj)
     }
 }
 
-
 /* Old callback style */
 
 struct callback_info {
@@ -1759,7 +1747,6 @@ sgtk_callback_destroy (gpointer data)
 
 #endif /* NO_GTK1_COMPAT_CODE */
 
-
 /* Support for g_object_new, g_object_set, ... */
 
 /* The SCM_PROC for the exported functions is in gtk-support.c to have
@@ -2035,7 +2022,6 @@ DEFUN ("g-object-list", Fg_object_list,
     return Qnil;
 }
 
-
 #ifndef NO_GTK1_COMPAT_CODE
 
 /* Creating new object classes */
@@ -2132,7 +2118,6 @@ sgtk_signal_emit (GtkObject *obj, char *name, repv scm_args)
 
 #endif /* NO_GTK1_COMPAT_CODE */
 
-
 /* Support rep input handling through gtk_main */
 
 /* The input_tags table hashes fds to gdk tags; the input_callbacks
@@ -2344,7 +2329,6 @@ sgtk_sigchld_callback (void)
 	gtk_main_quit ();
 }
 
-
 
 /* GError handling */
 DEFSYM(g_error, "glib-error");
@@ -2608,7 +2592,6 @@ sgtk_init (void)
   Fset (Qcommand_line_args, head);
 }
 
-
 
 /* DL hooks */
 
diff --git a/rep-types.c b/rep-types.c
index 587b849..c2aa2f1 100644
--- a/rep-types.c
+++ b/rep-types.c
@@ -25,7 +25,6 @@
 #include <string.h>
 #include <limits.h>
 
-
 
 /* Hacking the basic types --jsh */
 
@@ -239,7 +238,6 @@ gobject_get_type (void)
   return G_TYPE_OBJECT;
 }
 
-
 /* Floats. */
 
 int
@@ -278,7 +276,6 @@ sgtk_double_to_rep (double f)
   return rep_make_float (f, rep_FALSE);
 }
 
-
 
 /* Composites. */
 
@@ -588,7 +585,6 @@ sgtk_cvec_to_rep (sgtk_cvec *cvec, repv (*toscm)(void *), size_t sz)
     return obj;
 }
 
-
 /* dl hooks */
 
 repv