diff plugins/perl/common/Gaim.xs @ 13190:60b863ecd89b

[gaim-migrate @ 15553] perl scripts can use signal priority now. Also it's always bothered me that the debug and signal stuff was just stuck at the bottom of Gaim.xs so I've moved them to their own files, committer: Tailor Script <[e-mail]>

--- a/plugins/perl/common/Gaim.xs	Wed Feb 08 22:15:46 2006 +0000
+++ b/plugins/perl/common/Gaim.xs	Wed Feb 08 23:13:56 2006 +0000
@@ -11,6 +11,7 @@
 GAIM_PERL_BOOT_PROTO(Cmd);
 GAIM_PERL_BOOT_PROTO(Connection);
 GAIM_PERL_BOOT_PROTO(Conversation);
+GAIM_PERL_BOOT_PROTO(Debug);
 GAIM_PERL_BOOT_PROTO(Xfer);
 GAIM_PERL_BOOT_PROTO(ImgStore);
 GAIM_PERL_BOOT_PROTO(Log);
@@ -27,6 +28,7 @@
 GAIM_PERL_BOOT_PROTO(Roomlist);
 GAIM_PERL_BOOT_PROTO(SSL);
 GAIM_PERL_BOOT_PROTO(SavedStatus);
+GAIM_PERL_BOOT_PROTO(Signal);
 GAIM_PERL_BOOT_PROTO(Sound);
 GAIM_PERL_BOOT_PROTO(Status);
 GAIM_PERL_BOOT_PROTO(Stringref);
@@ -47,6 +49,7 @@
 	GAIM_PERL_BOOT(Cmd);
 	GAIM_PERL_BOOT(Connection);
 	GAIM_PERL_BOOT(Conversation);
+	GAIM_PERL_BOOT(Debug);
 	GAIM_PERL_BOOT(Xfer);
 	GAIM_PERL_BOOT(ImgStore);
 	GAIM_PERL_BOOT(Log);
@@ -63,6 +66,7 @@
 	GAIM_PERL_BOOT(Roomlist);
 	GAIM_PERL_BOOT(SSL);
 	GAIM_PERL_BOOT(SavedStatus);
+	GAIM_PERL_BOOT(Signal);
 	GAIM_PERL_BOOT(Sound);
 	GAIM_PERL_BOOT(Status);
 	GAIM_PERL_BOOT(Stringref);
@@ -79,65 +83,6 @@
 	gaim_perl_timeout_add(plugin, seconds, callback, data);
 
 void
-signal_connect(instance, signal, plugin, callback, data = 0)
-	void *instance
-	const char *signal
-	Gaim::Plugin plugin
-	SV *callback
-	SV *data
-CODE:
-	gaim_perl_signal_connect(plugin, instance, signal, callback, data);
-
-void
-signal_disconnect(instance, signal, plugin)
-	void *instance
-	const char *signal
-	Gaim::Plugin plugin
-CODE:
-	gaim_perl_signal_disconnect(plugin, instance, signal);
-
-void
-gaim_debug(level, category, string)
-	Gaim::DebugLevel level
-	const char *category
-	const char *string
-
-void
-debug_misc(category, string)
-	const char *category
-	const char *string
-CODE:
-	gaim_debug(GAIM_DEBUG_MISC, category, string);
-
-void
-debug_info(category, string)
-	const char *category
-	const char *string
-CODE:
-	gaim_debug(GAIM_DEBUG_INFO, category, string);
-
-void
-debug_warning(category, string)
-	const char *category
-	const char *string
-CODE:
-	gaim_debug(GAIM_DEBUG_WARNING, category, string);
-
-void
-debug_error(category, string)
-	const char *category
-	const char *string
-CODE:
-	gaim_debug(GAIM_DEBUG_ERROR, category, string);
-
-void
-debug_fatal(category, string)
-	const char *category
-	const char *string
-CODE:
-	gaim_debug(GAIM_DEBUG_FATAL, category, string);
-
-void
 deinit()
 CODE:
 	gaim_perl_timeout_clear();