Imported Upstream version 2.6.0

[debian/amanda] / perl / amglue / glib.swg

diff --git a/perl/amglue/glib.swg b/perl/amglue/glib.swg
new file mode 100644 (file)
index 0000000..4ed25c1
--- /dev/null
+++ b/perl/amglue/glib.swg
@@ -0,0 +1,37 @@
+/*
+ * Copyright (c) Zmanda, Inc.  All Rights Reserved.
+ *
+ * This library is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU Lesser General Public License version 2.1
+ * as published by the Free Software Foundation.
+ *
+ * This library is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
+ * License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public License
+ * along with this library; if not, write to the Free Software Foundation,
+ * Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA.
+ *
+ * Contact information: Zmanda Inc., 505 N Mathlida Ave, Suite 120
+ * Sunnyvale, CA 94085, USA, or: http://www.zmanda.com
+ */
+
+/* Typedefs for a few glib basic types that SWIG doesn't recognize
+ * automatically.  Integers are handled specially; see bigint.{swg,c}
+ */
+
+%{
+#include "amglue.h"
+%}
+
+typedef int gboolean;
+typedef void *gpointer;
+typedef void *gconstpointer;
+
+typedef char gchar;
+typedef unsigned char guchar;
+
+typedef float gfloat;
+typedef double gdouble;