work on dist

Makefile

@@ -128,7 +128,12 @@ C_HEADERS = \
  src/gi/__gi_giargument.h \
  src/gi/gi_ginterface.h \
  src/gi/__gi_ginterface.h \
- src/gi/gi_gstruct.h
+ src/gi/gi_gstruct.h \
+ src/gi/gi_gflags.h \
+ src/gi/gir_xguile.h \
+ src/gi/__gi_gboxed.h \
+ src/gi/gi_gboxed.h \
+ src/gi/gir_callback.h
 
 C_SOURCES = \
  src/gi/__gi_gobject.c \
@@ -149,7 +154,11 @@ C_SOURCES = \
  src/gi/__gi_giargument.c \
  src/gi/gi_gstruct.c \
  src/gi/gir_callback.c \
- src/gi/gir.c
+ src/gi/gir.c \
+ src/gi/gir_xguile.c \
+ src/gi/__gi_gboxed.c \
+ src/gi/gi_gboxed.c \
+ src/gi/gir_callback.c
 
 SCM_SOURCES = \
  src/gi.scm
@@ -185,6 +194,7 @@ docs/index.html: doc/guile-gi.texi
 # Tarballs
 
 DISTFILES = $(C_SOURCES) $(C_HEADERS) $(SCM_SOURCES) \
+  src/gi/fo_gen.c \
   doc/guile-gi.texi docs/document-1.0.1.css \
   README.md AUTHORS NEWS COPYING \
   Makefile Makefile.mingw ChangeLog

README.md

@@ -1,22 +1,19 @@
 # Guile GI
 
-This is pre-alpha code.  It does not work at all.  The API is in flux. *Do not attempt to use.*
+This is a library for GNU Guile.  GNU Guile is an implementation of
+Scheme, which is a Lisp-like language.
 
-This is a library for GNU Guile.  GNU Guile is an implementation of Scheme,
-which is a Lisp-like language.
-
-This library hopes to allow Guile to use GObject-based libraries, such as GTK+3.  GObject libraries are shared
-object libraries that have been written in a standardized way to make them easy to use
-from other languages.  GObject libraries come with metadata that describes the
+This library hopes to allow Guile to use GObject-based libraries, such
+as GTK+3.  GObject libraries are shared object libraries that have
+been written in a standardized way to make them easy to use from other
+languages.  GObject libraries come with metadata that describes the
 functions and procedures in the library.
 
-Guile GI has two primary components
-- (gi): which makes GObject-based libraries available from Guile
-- (gobject): which allows one to write and manipulate GObject-based types in Guile
-
-Guile GI is heavily based on PyGObject, and some of the code is a transliteration
-of the code in PyGObject.
+This is pre-alpha code.  It barely works.  The API is in flux.
 
-This is pre-alpha code.  It does not work at all.  The API is in flux. Do not attempt to use.
+Guile GI has two primary components
+- (gi) aka gi.scm: a guile module that provides functions to parse GObject typelib files
+- libguile-gi.so or libguile-gi.dll: a compiled module that contains glue code
+  to interface with GObject
 
 For the moment, the docs are at https://spk121.github.io/guile-gi/

src/gi/gi_gboxed.c

@@ -41,8 +41,6 @@ gi_gboxed_new (GType boxed_type, gpointer boxed, gboolean copy_boxed, gboolean o
     SCM tp;
     SCM self;
 
-    g_return_val_if_fail(boxed_type != 0, NULL);
-    g_return_val_if_fail(!copy_boxed || (copy_boxed && own_ref), NULL);
     if (!boxed) {
 	return SCM_NONE;
     }

src/gi/gi_gvalue.c

@@ -1,7 +1,7 @@
 /* -*- Mode: C; c-basic-offset: 4 -*- */
 #include <girepository.h>
 #include "gi_gvalue.h"
-#include "gi_gflags.h"
+//#include "gi_gflags.h"
 #include "gi_gtype.h"
 #include "gir_xguile.h"
 #include "gi_gobject.h"

src/gi/gir_xguile.c

@@ -87,7 +87,7 @@ scm_is_list (SCM x)
 int
 scm_is_none (SCM x)
 {
-    return x == SCM_NONE;
+    return scm_is_eq(x, SCM_NONE);
 }
 
 int
@@ -246,14 +246,14 @@ scm_parse_list (SCM args, const char *format, ...)
 		    return false;
 		}
 		break;
-	    case 'O':
-		if (format[i_fmt + 1] == '!') {
-		    if (!SCM_IS_A_P(entry, (SCM) ptr)) {
-			sprintf(parse_error_str, "%s: arg %zu, expected a matching type", name, i_fmt);
-			return false;
-		    }
-		}
-		break;
+	    /* case 'O': */
+	    /* 	if (format[i_fmt + 1] == '!') { */
+	    /* 	    if (!SCM_IS_A_P(entry, (SCM) ptr)) { */
+	    /* 		sprintf(parse_error_str, "%s: arg %zu, expected a matching type", name, i_fmt); */
+	    /* 		return false; */
+	    /* 	    } */
+	    /* 	} */
+	    /* 	break; */
 	    case '!':
 		/* We don't consume an argument here. */
 		continue;