[Gaim-commits] CVS: gaim/plugins/perl/common Account.xs,1.12,1.13 AccountOpts.xs,1.1,1.2 BuddyIcon.xs,1.1,1.2 Cipher.xs,1.1,1.2 Makefile.mingw,1.3,1.4 Request.xs,1.1,1.2 SavedStatuses.xs,1.1,1.2 Status.xs,1.1,1.2 module.h,1.10,1.11 typemap,1.8,1.9

[John H. K. <joh...@us...>]

Update of /cvsroot/gaim/gaim/plugins/perl/common
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29593

Modified Files:
	Account.xs AccountOpts.xs BuddyIcon.xs Cipher.xs 
	Makefile.mingw Request.xs SavedStatuses.xs Status.xs module.h 
	typemap 
Log Message:
Fixed warning messages

Index: Account.xs
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/common/Account.xs,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -p -r1.12 -r1.13
--- Account.xs	18 Jul 2005 13:36:22 -0000	1.12
+++ Account.xs	19 Jul 2005 10:03:09 -0000	1.13
@@ -185,7 +185,7 @@ void
 gaim_account_get_status_types(account)
 	Gaim::Account account
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_account_get_status_types(account); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Status::Type")));

Index: AccountOpts.xs
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/common/AccountOpts.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -p -r1.1 -r1.2
--- AccountOpts.xs	18 Jul 2005 13:31:46 -0000	1.1
+++ AccountOpts.xs	19 Jul 2005 10:03:09 -0000	1.2
@@ -83,7 +83,7 @@ void
 gaim_account_option_get_list(option)
 	Gaim::Account::Option option
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_account_option_get_list(option); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry")));

Index: BuddyIcon.xs
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/common/BuddyIcon.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -p -r1.1 -r1.2
--- BuddyIcon.xs	18 Jul 2005 13:31:47 -0000	1.1
+++ BuddyIcon.xs	19 Jul 2005 10:03:10 -0000	1.2
@@ -56,7 +56,7 @@ const char *
 gaim_buddy_icon_get_username(icon)
 	Gaim::Buddy::Icon icon
 
-void *
+const void *
 gaim_buddy_icon_get_data(icon, len)
 	Gaim::Buddy::Icon icon
 	size_t &len

Index: Cipher.xs
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/common/Cipher.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -p -r1.1 -r1.2
--- Cipher.xs	18 Jul 2005 13:31:47 -0000	1.1
+++ Cipher.xs	19 Jul 2005 10:03:10 -0000	1.2
@@ -22,8 +22,8 @@ gboolean 
 gaim_cipher_digest_region(name, data, data_len, in_len, digest, out_len)
 	const gchar * name
 	const guint8 * data 
-	size_t &data_len
-	size_t &in_len
+	size_t data_len
+	size_t in_len
 	guint8 &digest 
 	size_t * out_len
 

Index: Makefile.mingw
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/common/Makefile.mingw,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -p -r1.3 -r1.4
--- Makefile.mingw	9 Apr 2005 17:12:07 -0000	1.3
+++ Makefile.mingw	19 Jul 2005 10:03:10 -0000	1.4
@@ -44,17 +44,37 @@ LIB_PATHS = 		-L$(PERL_TOP) \
 ##  SOURCES, OBJECTS
 ##
 
-XS_FILES =		Account.xs \
-			BuddyList.xs \
-			BuddyList_Buddy.xs \
-			BuddyList_Chat.xs \
-			BuddyList_Group.xs \
-			Connection.xs \
-			ConvWindow.xs \
-			Conversation.xs \
-			Conversation_Chat.xs \
-			Conversation_IM.xs \
-			Gaim.xs
+XS_FILES =		Account.xs 
+ 	       		AccountOpts.xs 
+        		BuddyIcon.xs 
+ 	       		BuddyList.xs 
+ 	       		Cipher.xs 
+		       	Cmds.xs 
+        		Connection.xs 
+        		Conversation.xs 
+        		FT.xs 
+			Gaim.xs 
+        		ImgStore.xs 
+        		Log.xs 
+        		Network.xs 
+        		Notify.xs 
+        		Plugin.xs 
+        		PluginPref.xs 
+        		Pounce.xs 
+        		Prefs.xs 
+        		Privacy.xs 
+        		Proxy.xs 
+        		Prpl.xs 
+        		Request.xs 
+        		Roomlist.xs 
+        		SSLConn.xs 
+        		SavedStatuses.xs 
+        		Server.xs 
+        		Sound.xs 
+        		Status.xs 
+        		Stringref.xs 
+        		Util.xs 
+        		XMLNode.xs 
 
 FALLBACKS =		const-c.inc const-xs.inc
 

Index: Request.xs
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/common/Request.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -p -r1.1 -r1.2
--- Request.xs	18 Jul 2005 13:31:47 -0000	1.1
+++ Request.xs	19 Jul 2005 10:03:10 -0000	1.2
@@ -61,9 +61,13 @@ Gaim::Account
 gaim_request_field_account_get_default_value(field)
 	Gaim::Request::Field field
 
-SV *
+IV
 gaim_request_field_account_get_filter(field)
 	Gaim::Request::Field field
+CODE:
+	RETVAL = PTR2IV(gaim_request_field_account_get_filter(field));
+OUTPUT:
+	RETVAL
 
 gboolean 
 gaim_request_field_account_get_show_all(field)
@@ -271,7 +275,7 @@ void
 gaim_request_field_list_get_items(field)
 	Gaim::Request::Field field
 PREINIT:
-        GList *l;
+        const GList *l;
 PPCODE:
         for (l = gaim_request_field_list_get_items(field); l != NULL; l = l->next) {
                 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
@@ -285,7 +289,7 @@ void
 gaim_request_field_list_get_selected(field)
 	Gaim::Request::Field field
 PREINIT:
-        GList *l;
+        const GList *l;
 PPCODE:
         for (l = gaim_request_field_list_get_selected(field); l != NULL; l = l->next) {
                 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
@@ -439,7 +443,7 @@ void
 gaim_request_fields_get_required(fields)
 	Gaim::Request::Fields fields
 PREINIT:
-        GList *l;
+        const GList *l;
 PPCODE:
         for (l = gaim_request_fields_get_required(fields); l != NULL; l = l->next) {
                 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));

Index: SavedStatuses.xs
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/common/SavedStatuses.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -p -r1.1 -r1.2
--- SavedStatuses.xs	18 Jul 2005 13:31:47 -0000	1.1
+++ SavedStatuses.xs	19 Jul 2005 10:03:10 -0000	1.2
@@ -49,7 +49,7 @@ PROTOTYPES: ENABLE
 void
 gaim_savedstatuses_get_all()
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_savedstatuses_get_all(); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));

Index: Status.xs
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/common/Status.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -p -r1.1 -r1.2
--- Status.xs	18 Jul 2005 13:31:47 -0000	1.1
+++ Status.xs	19 Jul 2005 10:03:10 -0000	1.2
@@ -74,7 +74,7 @@ void
 gaim_presence_get_buddies(presence)
 	Gaim::Presence presence
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_presence_get_buddies(presence); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
@@ -109,7 +109,7 @@ void
 gaim_presence_get_statuses(presence)
 	Gaim::Presence presence
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_presence_get_statuses(presence); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
@@ -370,7 +370,7 @@ void
 gaim_status_type_get_attrs(status_type)
 	Gaim::StatusType status_type
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_status_type_get_attrs(status_type); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));

Index: module.h
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/common/module.h,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -p -r1.10 -r1.11
--- module.h	18 Jul 2005 13:37:38 -0000	1.10
+++ module.h	19 Jul 2005 10:03:10 -0000	1.11
@@ -84,7 +84,7 @@ typedef GaimCipherOps *			Gaim__Cipher__
 typedef GaimCipherContext *		Gaim__Cipher__Context;	
 
 	/* cmds.h */
-typedef GaimCmdId *             Gaim__CmdId;
+typedef GaimCmdId              Gaim__CmdId;
 
 	/* connection.h */
 typedef GaimConnectionFlags		Gaim__ConnectionFlags;

Index: typemap
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/common/typemap,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -p -r1.8 -r1.9
--- typemap	18 Jul 2005 13:37:38 -0000	1.8
+++ typemap	19 Jul 2005 10:03:10 -0000	1.9
@@ -29,6 +29,7 @@ const struct tm *			T_PTR
 xmlnode *				T_PTR
 const xmlnode *				T_PTR
 gssize					T_IV
+const void *				T_PTR
 
 Gaim::Account           		T_GaimObj
 Gaim::Account::Option   		T_GaimObj