X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2Famglue%2Fglib.swg;h=2c1ce07005db65265c711b510ca616bfed055fd3;hb=b116e9366c7b2ea2c2eb53b0a13df4090e176235;hp=5198e256a435bf5709d668fc5444e37005a442b8;hpb=2627875b7d18858bc1f9f7652811e4d8c15a23eb;p=debian%2Famanda

diff --git a/perl/amglue/glib.swg b/perl/amglue/glib.swg
index 5198e25..2c1ce07 100644
--- a/perl/amglue/glib.swg
+++ b/perl/amglue/glib.swg
@@ -1,21 +1,21 @@
 /*
- * Copyright (c) Zmanda, Inc.  All Rights Reserved.
+ * Copyright (c) 2007, 2008, 2009, 2010 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 program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 as published
+ * by the Free Software Foundation.
  *
- * This library is distributed in the hope that it will be useful, but
+ * This program 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.
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 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.
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  *
- * Contact information: Zmanda Inc., 465 S Mathlida Ave, Suite 300
- * Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
+ * Contact information: Zmanda Inc., 465 S. Mathilda Ave., Suite 300
+ * Sunnyvale, CA 94085, USA, or: http://www.zmanda.com
  */
 
 /* Typedefs for a few glib basic types that SWIG doesn't recognize
@@ -27,6 +27,18 @@
 %}
 
 typedef int gboolean;
+%typemap(in) gboolean {
+    $1 = SvTRUE($input);
+}
+
+%typemap(out) gboolean {
+    if ($1)
+	$result = &PL_sv_yes;
+    else
+	$result = &PL_sv_no;
+    argvi++;
+}
+
 typedef void *gpointer;
 typedef void *gconstpointer;