diff plugins/perl/common/Connection.xs @ 11118:134d0001983d

[gaim-migrate @ 13174] Some new xsubs for the perl interpreter and a work around to get it all working again. committer: Tailor Script <[e-mail]>

--- a/plugins/perl/common/Connection.xs	Mon Jul 18 07:26:09 2005 +0000
+++ b/plugins/perl/common/Connection.xs	Mon Jul 18 13:37:38 2005 +0000
@@ -1,42 +1,108 @@
 #include "module.h"
 
-MODULE = Gaim::Connection  PACKAGE = Gaim::Connection  PREFIX = gaim_connection_
+/* TODO
+;
+
+;
+;
+;
+;;;;;
+;;;
+
+
+
+*/
+
+/**********************XS Code for Conversation.xs*********************************/
+MODULE = Gaim::Connection  PACKAGE = Gaim::GTK::Connection  PREFIX = gaim_gtk_connections_
 PROTOTYPES: ENABLE
 
-void
-gaim_connection_set_display_name(gc, name)
-	Gaim::Connection gc
-	const char *name
+Gaim::Connection::UiOps
+gaim_gtk_connections_get_ui_ops()
+
+MODULE = Gaim::Connection  PACKAGE = Gaim::Connection  PREFIX = gaim_connections_
+PROTOTYPES: ENABLE
 
 Gaim::Account
 gaim_connection_get_account(gc)
 	Gaim::Connection gc
 
 const char *
+gaim_connection_get_password(gc)
+	Gaim::Connection gc
+
+const char *
 gaim_connection_get_display_name(gc)
 	Gaim::Connection gc
 
+void 
+gaim_connection_notice(gc, text)
+	Gaim::Connection gc
+	const char *text
 
-MODULE = Gaim::Connections  PACKAGE = Gaim::Connections  PREFIX = gaim_connections_
-PROTOTYPES: ENABLE
+void 
+gaim_connection_error(gc, reason)
+	Gaim::Connection gc
+	const char *reason
 
-void
+void 
 gaim_connections_disconnect_all()
 
-void *
-handle()
-CODE:
-	RETVAL = gaim_connections_get_handle();
-OUTPUT:
-	RETVAL
+void
+gaim_connections_get_all()
+PREINIT:
+	GList *l;
+PPCODE:
+	for (l = gaim_connections_get_all(); l != NULL; l = l->next) {
+		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry")));
+	}
 
 
-MODULE = Gaim::Connection  PACKAGE = Gaim
-
 void
-connections()
+gaim_connections_get_connecting()
 PREINIT:
 	GList *l;
 PPCODE:
-	for (l = gaim_connections_get_all(); l != NULL; l = l->next)
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Connection")));
+	for (l = gaim_connections_get_connecting(); l != NULL; l = l->next) {
+		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry")));
+	}
+
+void 
+gaim_connections_set_ui_ops(ops)
+	Gaim::Connection::UiOps ops
+
+Gaim::Connection::UiOps
+gaim_connections_get_ui_ops()
+
+void 
+gaim_connections_init()
+
+void 
+gaim_connections_uninit()
+
+void *
+gaim_connections_get_handle()
+
+void 
+gaim_connection_destroy(gc)
+	Gaim::Connection gc
+
+void 
+gaim_connection_set_state(gc, state)
+	Gaim::Connection gc
+	Gaim::ConnectionState state
+
+void 
+gaim_connection_set_account(gc, account)
+	Gaim::Connection gc
+	Gaim::Account account
+
+void 
+gaim_connection_set_display_name(gc, name)
+	Gaim::Connection gc
+	const char *name
+
+Gaim::ConnectionState 
+gaim_connection_get_state(gc)
+	Gaim::Connection gc
+