Merged in rw_grim/pidgin (pull request #24)
1fb661b5f206
--- a/libpurple/plugins/fortuneprofile.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,125 +0,0 @@
-# Sets your AIM profile to a fortune (with a header and footer of your-# Updated by Nathan Conrad, 31 January 2002-# * Fortunes have HTML tabs and newlines-# Updated by Mark Doliner, 15 October 2002-# * Modified to work with the changed perl interface of gaim 0.60-# * Fixed a bug where your info would be set to nothing if you had -# no pre and no post message-# Updated by Christian Hammond, 20 August 2003-# * Modified to work with the changed perl interface of gaim 0.68-# Copyright (C) 2001 Sean Egan-# This program is free software; you can redistribute it and/or modify-# it under the terms of the GNU General Public License as published by-# the Free Software Foundation; either version 2 of the License, or-# (at your option) any later version.-# 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 General Public License for more details.-# 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA- name => "Fortune Profile",- summary => "Sets your AIM profile to a fortune (with a header and footer of your choice).",- description => "Sets your AIM profile to a fortune (with a header and footer of your choice).",- author => "Sean Egan <seanegan\@gmail.com>",- url => "https://pidgin.im/",- $tab = $tab . $tab . $tab . $tab;- $seconds = 30; # Delay before updating away messages.- $max = 1020; # Max length of an profile. It should be- # 1024, but I am being safe- $pre_message = ""; # This gets added before the fortune- if ($pre_message ne "") {- $len += length( $pre_message . "---$nl" );- if ($post_message ne "") {- $len += length("---$nl" . $post_message);- # Command to get dynamic message from- $command = "fortune -sn " . ($max - $len);- # output the first message and start the timers...- # This is done as a timeout to prevent attempts to set the- # profile before logging in.- Gaim::timeout_add($plugin, $seconds, \&update_away, 0);- # The fortunes are expanded into HTML (the tabs and newlines) which- # causes the -s option of fortune to be a little bit meaningless. This- # will loop until it gets a fortune of a good size (after expansion).- do { #It's a while loop because it doesn't always work for some reason- } while ($fortune eq "");- $fortune =~ s/\n/$nl/g;- $fortune =~ s/\t/$tab/g;- } while ((length($fortune) + $len ) > $max);- if ($pre_message ne "") {- $message = $pre_message . "---$nl" . $message;- if ($post_message ne "") {- $message = $message . "---$nl" . $post_message ;- foreach $account (Gaim::accounts()) {- if ($account->is_connected()) {- $account->set_user_info($message);- Gaim::timeout_add($plugin, $seconds, \&update_away, 0);--- a/libpurple/plugins/mono/BooPlugin.boo Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,22 +0,0 @@
-class BooPlugin(PurplePlugin):- def handle(*args as (object)):- Debug.debug(Debug.INFO, "booplugin", "Boo Plugin knows that " + b.Alias + " is away\n")- Debug.debug(Debug.INFO, "booplugin", "loading...\n")- BuddyList.OnBuddyAway.connect(self, handle)- Debug.debug(Debug.INFO, "booplugin", "unloading...\n")- override def Destroy():- Debug.debug(Debug.INFO, "booplugin", "destroying...\n")- return PurplePluginInfo("mono-boo", "Boo Plugin", "0.1", "Test Boo Plugin", "Longer Description", "Eoin Coffey", "urled")--- a/libpurple/plugins/mono/GetBuddyBack.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,34 +0,0 @@
-public class GetBuddyBack : Plugin- private static PluginInfo info = new PluginInfo("mono-buddyback", "C# Get Buddy Back", "0.1", "Prints when a Buddy returns", "Longer Description", "Eoin Coffey", "urled");- public void HandleSig(object[] args)- Buddy buddy = (Buddy)args[0];- Debug.debug(Debug.INFO, "buddyback", "buddy " + buddy.Name + " is back!\n");- public override void Load()- Debug.debug(Debug.INFO, "buddyback", "loading...\n");- /*Signal.connect(BuddyList.GetHandle(), this, "buddy-back", new Signal.Handler(HandleSig));*/- BuddyList.OnBuddyStatusChanged.connect(this, new Signal.Handler(HandleSig));- public override void Unload()- public override void Destroy()--- a/libpurple/plugins/mono/MPlugin.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,38 +0,0 @@
-public class MPlugin : Plugin- private static PluginInfo info = new PluginInfo("mono-mplugin", "C# Plugin", "0.1", "Test C# Plugin", "Longer Description", "Eoin Coffey", "urled");- public void HandleSig(object[] args)- Buddy buddy = (Buddy)args[0];- Status old_status = (Status)args[1];- Status status = (Status)args[2];- Debug.debug(Debug.INFO, "mplug", "buddy " + buddy.Name + " went from " + old_status.Id + " to " + status.Id + "\n");- public override void Load()- Debug.debug(Debug.INFO, "mplug", "loading...\n");- /*Signal.connect(BuddyList.GetHandle(), this, "buddy-away", new Signal.Handler(HandleSig));*/- BuddyList.OnBuddyStatusChanged.connect(this, new Signal.Handler(HandleSig));- public override void Unload()- Debug.debug(Debug.INFO, "mplug", "unloading...\n");- public override void Destroy()- Debug.debug(Debug.INFO, "mplug", "destroying...\n");--- a/libpurple/plugins/mono/Makefile.am Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,19 +0,0 @@
-mono_sources = GetBuddyBack.cs \-EXTRA_DIST = $(mono_sources)-monodir = @PURPLE_PLUGINDIR@-mono_SCRIPTS = MPlugin.dll GetBuddyBack.dll-mono_build_sources = $(addprefix $(srcdir)/, $(mono_sources))-.cs.dll: api/PurpleAPI.dll $(mono_build_sources)- mcs -t:library -lib:./api -out:$@ -r:PurpleAPI.dll $<--- a/libpurple/plugins/mono/api/BlistNode.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,4 +0,0 @@
- public abstract class BlistNode {--- a/libpurple/plugins/mono/api/Buddy.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,9 +0,0 @@
- public class Buddy : BlistNode {- public string Name { get { return name; } set { name = value; } }- public string Alias { get { return alias; } set { alias = value; } }--- a/libpurple/plugins/mono/api/BuddyList.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,19 +0,0 @@
- using System.Runtime.CompilerServices;- public class BuddyList {- [MethodImplAttribute(MethodImplOptions.InternalCall)]- extern private static IntPtr _get_handle();- private static IntPtr handle = _get_handle();- public static Event OnBuddyStatusChanged =- new Event(handle, "buddy-status-changed");- public static IntPtr GetHandle()--- a/libpurple/plugins/mono/api/Contact.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,4 +0,0 @@
- public class Contact : BlistNode {--- a/libpurple/plugins/mono/api/Debug.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,28 +0,0 @@
-using System.Runtime.CompilerServices;- public static int ALL = 0;- public static int MISC = 1;- public static int INFO = 2;- public static int WARNING = 3;- public static int ERROR = 4;- public static int FATAL = 5;- [MethodImplAttribute(MethodImplOptions.InternalCall)]- extern private static void _debug(int type, string cat, string str);- public static void debug(int type, string cat, string format)- _debug(type, cat, format);- public static void debug(int type, string cat, string format, params object[] args)- _debug(type, cat, String.Format(format, args));--- a/libpurple/plugins/mono/api/Event.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,21 +0,0 @@
- public Event(IntPtr h, string s)- public void connect(object plugin, Signal.Handler handler)- Signal.connect(handle, plugin, signal, handler);--- a/libpurple/plugins/mono/api/Group.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,4 +0,0 @@
- public class Group : BlistNode {--- a/libpurple/plugins/mono/api/Makefile.am Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,27 +0,0 @@
-monodir=@PURPLE_PLUGINDIR@-EXTRA_DIST = $(mono_sources)-mono_SCRIPTS = PurpleAPI.dll-mono_build_sources = $(addprefix $(srcdir)/, $(mono_sources))-$(mono_SCRIPTS): $(mono_build_sources)- mcs -t:library -out:$(mono_SCRIPTS) $(mono_build_sources)--- a/libpurple/plugins/mono/api/PurplePlugin.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,67 +0,0 @@
- public class PluginInfo {- private string version;- private string summary;- private string description;- private string homepage;- public PluginInfo(string id, string name, string version, string summary,- string description, string author, string homepage)- this.version = version;- this.summary = summary;- this.description = description;- this.homepage = homepage; - public string Version {- get { return version; }- public string Summary {- get { return summary; }- public string Description {- get { return description; }- public string Homepage {- get { return homepage; }- abstract public class Plugin {- private PluginInfo info;- public Plugin(PluginInfo info) {- public abstract void Load();- public abstract void Unload();- public abstract void Destroy();- public PluginInfo Info {--- a/libpurple/plugins/mono/api/Signal.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,18 +0,0 @@
-using System.Runtime.CompilerServices;- [MethodImplAttribute(MethodImplOptions.InternalCall)]- extern private static int _connect(IntPtr handle, object plugin, string signal, object evnt);- public delegate void Handler(object[] args);- public static int connect(IntPtr handle, object plugin, string signal, object evnt)- return _connect(handle, plugin, signal, evnt);--- a/libpurple/plugins/mono/api/Status.cs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,9 +0,0 @@
- public string Id { get { return id; } set { id = value; } }--- a/libpurple/plugins/mono/loader/Makefile.am Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,25 +0,0 @@
-plugindir = @PURPLE_PLUGINDIR@-plugin_LTLIBRARIES = mono.la-mono_la_LDFLAGS = -module @PLUGIN_LDFLAGS@-mono_la_LIBADD = $(GPLUGIN_LIBS) $(MONO_LIBS)- -I$(top_srcdir)/libpurple \--- a/libpurple/plugins/mono/loader/blist-glue.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,26 +0,0 @@
-#include "mono-helper.h"-MonoObject* purple_blist_get_handle_glue(void)- void *handle = purple_blist_get_handle();- return mono_value_box(ml_get_domain(), mono_get_intptr_class(), &handle);-MonoObject* purple_blist_build_buddy_object(void* data)- MonoObject *obj = NULL;- PurpleBuddy *buddy = PURPLE_BUDDY(data);- obj = ml_create_api_object("Buddy");- g_return_val_if_fail(obj != NULL, NULL);- ml_set_prop_string(obj, "Name", (char*)purple_buddy_get_name(buddy));- ml_set_prop_string(obj, "Alias", (char*)purple_buddy_get_alias(buddy));--- a/libpurple/plugins/mono/loader/debug-glue.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,16 +0,0 @@
-void purple_debug_glue(int type, MonoString *cat, MonoString *str)- ccat = mono_string_to_utf8(cat);- cstr = mono_string_to_utf8(str);- purple_debug(type, ccat, "%s", cstr);--- a/libpurple/plugins/mono/loader/mono-glue.h Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,19 +0,0 @@
-#ifndef _PURPLE_MONO_LOADER_GLUE_H_-#define _PURPLE_MONO_LOADER_GLUE_H_-#include <mono/jit/jit.h>-#include <mono/metadata/object.h>-#include <mono/metadata/environment.h>-#include <mono/metadata/assembly.h>-void purple_debug_glue(int type, MonoString *cat, MonoString *str);-int purple_signal_connect_glue(MonoObject *h, MonoObject *plugin, MonoString *signal, MonoObject *func);-MonoObject* purple_blist_get_handle_glue(void);-MonoObject* purple_blist_build_buddy_object(void* buddy);-MonoObject* purple_status_build_status_object(void* data);--- a/libpurple/plugins/mono/loader/mono-helper.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,260 +0,0 @@
- * -- Thanks to the perl plugin loader for all the great tips ;-)-#include "mono-helper.h"-static gboolean _runtime_active = FALSE;- g_return_val_if_fail(_runtime_active == FALSE, TRUE);- d = mono_jit_init("purple");- ml_init_internal_calls();- _runtime_active = TRUE;- g_return_if_fail(_runtime_active == TRUE);- mono_jit_cleanup(ml_get_domain());- _runtime_active = FALSE;-MonoObject* ml_delegate_invoke(MonoObject *method, void **params)- MonoObject *ret, *exception;- ret = mono_runtime_delegate_invoke(method, params, &exception);- purple_debug(PURPLE_DEBUG_ERROR, "mono", "caught exception: %s\n", mono_class_get_name(mono_object_get_class(exception)));-MonoObject* ml_invoke(MonoMethod *method, void *obj, void **params)- MonoObject *ret, *exception;- ret = mono_runtime_invoke(method, obj, params, &exception);- purple_debug(PURPLE_DEBUG_ERROR, "mono", "caught exception: %s\n", mono_class_get_name(mono_object_get_class(exception)));-MonoClass* ml_find_plugin_class(MonoImage *image)- MonoClass *klass, *pklass = NULL;- total = mono_image_get_table_rows (image, MONO_TABLE_TYPEDEF);- for (i = 1; i <= total; ++i) {- klass = mono_class_get (image, MONO_TOKEN_TYPE_DEF | i);- pklass = mono_class_get_parent(klass);- if (strcmp("Plugin", mono_class_get_name(pklass)) == 0)-void ml_set_prop_string(MonoObject *obj, char *field, char *data)- klass = mono_object_get_class(obj);- prop = mono_class_get_property_from_name(klass, field);- str = mono_string_new(ml_get_domain(), data);- mono_property_set_value(prop, obj, args, NULL);-gchar* ml_get_prop_string(MonoObject *obj, char *field)- klass = mono_object_get_class(obj);- prop = mono_class_get_property_from_name(klass, field);- str = (MonoString*)mono_property_get_value(prop, obj, NULL, NULL);- return mono_string_to_utf8(str);-MonoObject* ml_get_info_prop(MonoObject *obj)- klass = mono_class_get_parent(mono_object_get_class(obj));- prop = mono_class_get_property_from_name(klass, "Info");- return mono_property_get_value(prop, obj, NULL, NULL);-gboolean ml_is_api_dll(MonoImage *image)- total = mono_image_get_table_rows (image, MONO_TABLE_TYPEDEF);- for (i = 1; i <= total; ++i) {- klass = mono_class_get (image, MONO_TOKEN_TYPE_DEF | i);- if (strcmp(mono_class_get_name(klass), "Debug") == 0)- if (strcmp(mono_class_get_namespace(klass), "Purple") == 0) {- ml_set_api_image(image);-MonoObject* ml_object_from_purple_type(GType type, gpointer data)- MonoObject *obj = NULL;- case PURPLE_TYPE_BUDDY:- obj = purple_blist_build_buddy_object(data);- case PURPLE_TYPE_STATUS:- obj = purple_status_build_status_object(data);-MonoObject* ml_create_api_object(char *class_name)- MonoObject *obj = NULL;- MonoClass *klass = NULL;- klass = mono_class_from_name(ml_get_api_image(), "Purple", class_name);- purple_debug(PURPLE_DEBUG_FATAL, "mono", "couldn't find the '%s' class\n", class_name);- obj = mono_object_new(ml_get_domain(), klass);- purple_debug(PURPLE_DEBUG_FATAL, "mono", "couldn't create the object from class '%s'\n", class_name);- mono_runtime_object_init(obj);-static MonoDomain *_domain = NULL;-MonoDomain* ml_get_domain(void)-void ml_set_domain(MonoDomain *d)-static MonoImage *_api_image = NULL;-void ml_set_api_image(MonoImage *image)-MonoImage* ml_get_api_image()-void ml_init_internal_calls(void)- mono_add_internal_call("Purple.Debug::_debug", purple_debug_glue);- mono_add_internal_call("Purple.Signal::_connect", purple_signal_connect_glue);- mono_add_internal_call("Purple.BuddyList::_get_handle", purple_blist_get_handle_glue);-static GHashTable *plugins_hash = NULL;-void ml_add_plugin(PurpleMonoPlugin *plugin)- plugins_hash = g_hash_table_new(NULL, NULL);- g_hash_table_insert(plugins_hash, plugin->klass, plugin);-gboolean ml_remove_plugin(PurpleMonoPlugin *plugin)- return g_hash_table_remove(plugins_hash, plugin->klass);-gpointer ml_find_plugin(PurpleMonoPlugin *plugin)- return g_hash_table_lookup(plugins_hash, plugin->klass);-gpointer ml_find_plugin_by_class(MonoClass *klass)- return g_hash_table_lookup(plugins_hash, klass);-GHashTable* ml_get_plugin_hash()--- a/libpurple/plugins/mono/loader/mono-helper.h Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,72 +0,0 @@
-#ifndef _PURPLE_MONO_LOADER_MONO_HELPER_H_-#define _PURPLE_MONO_LOADER_MONO_HELPER_H_-#include <mono/jit/jit.h>-#include <mono/metadata/object.h>-#include <mono/metadata/environment.h>-#include <mono/metadata/assembly.h>-#include <mono/metadata/debug-helpers.h>-#include <mono/metadata/tokentype.h>-MonoObject* ml_invoke(MonoMethod *method, void *obj, void **params);-MonoObject* ml_delegate_invoke(MonoObject *method, void **params);-MonoClass* ml_find_plugin_class(MonoImage *image);-gchar* ml_get_prop_string(MonoObject *obj, char *field);-void ml_set_prop_string(MonoObject *obj, char *field, char *data);-MonoObject* ml_get_info_prop(MonoObject *obj);-gboolean ml_is_api_dll(MonoImage *image);-MonoDomain* ml_get_domain(void);-void ml_set_domain(MonoDomain *d);-void ml_init_internal_calls(void);-MonoObject* ml_object_from_purple_type(GType type, gpointer data);-MonoObject* ml_create_api_object(char *class_name);-void ml_set_api_image(MonoImage *image);-MonoImage* ml_get_api_image(void);-/* hash table stuff; probably don't need it anymore */-void ml_add_plugin(PurpleMonoPlugin *plugin);-gboolean ml_remove_plugin(PurpleMonoPlugin *plugin);-gpointer ml_find_plugin(PurpleMonoPlugin *plugin);-gpointer ml_find_plugin_by_class(MonoClass *klass);-GHashTable* ml_get_plugin_hash(void);--- a/libpurple/plugins/mono/loader/mono.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,249 +0,0 @@
- * -- Thanks to the perl plugin loader for all the great tips ;-)-#include "mono-helper.h"-#define MONO_PLUGIN_ID "core-mono"-/******************************************************************************- *****************************************************************************/-/* probes the given plugin to determine if its a plugin */-static gboolean probe_mono_plugin(PurplePlugin *plugin)- MonoObject *plugin_info;- gboolean found_load = FALSE, found_unload = FALSE, found_destroy = FALSE;- PurplePluginInfo *info;- PurpleMonoPlugin *mplug;- char *file = plugin->path;- assm = mono_domain_assembly_open(ml_get_domain(), file);- purple_debug(PURPLE_DEBUG_INFO, "mono", "Probing plugin\n");- if (ml_is_api_dll(mono_assembly_get_image(assm))) {- purple_debug_info("mono", "Found our PurpleAPI.dll\n");- mono_assembly_close(assm);- mplug = g_new0(PurpleMonoPlugin, 1);- mplug->signal_data = NULL;- mplug->klass = ml_find_plugin_class(mono_assembly_get_image(mplug->assm));- purple_debug(PURPLE_DEBUG_ERROR, "mono", "no plugin class in \'%s\'\n", file);- mono_assembly_close(assm);- mplug->obj = mono_object_new(ml_get_domain(), mplug->klass);- purple_debug(PURPLE_DEBUG_ERROR, "mono", "obj not valid\n");- mono_assembly_close(assm);- mono_runtime_object_init(mplug->obj);- while ((m = mono_class_get_methods(mplug->klass, &iter))) {- purple_debug_info("mono", "plugin method: %s\n", mono_method_get_name(m));- if (strcmp(mono_method_get_name(m), "Load") == 0) {- } else if (strcmp(mono_method_get_name(m), "Unload") == 0) {- } else if (strcmp(mono_method_get_name(m), "Destroy") == 0) {- if (!(found_load && found_unload && found_destroy)) {- purple_debug(PURPLE_DEBUG_ERROR, "mono", "did not find the required methods\n");- mono_assembly_close(assm);- plugin_info = ml_get_info_prop(mplug->obj);- /* now that the methods are filled out we can populate- the info struct with all the needed info */- info = g_new0(PurplePluginInfo, 1);- info->id = ml_get_prop_string(plugin_info, "Id");- info->name = ml_get_prop_string(plugin_info, "Name");- info->version = ml_get_prop_string(plugin_info, "Version");- info->summary = ml_get_prop_string(plugin_info, "Summary");- info->description = ml_get_prop_string(plugin_info, "Description");- info->author = ml_get_prop_string(plugin_info, "Author");- info->homepage = ml_get_prop_string(plugin_info, "Homepage");- info->magic = PURPLE_PLUGIN_MAGIC;- info->major_version = PURPLE_MAJOR_VERSION;- info->minor_version = PURPLE_MINOR_VERSION;- info->type = PURPLE_PLUGIN_STANDARD;- /* this plugin depends on us; duh */- info->dependencies = g_list_append(info->dependencies, MONO_PLUGIN_ID);- mplug->plugin = plugin;- info->extra_info = mplug;- return purple_plugin_register(plugin);-/* Loads a Mono Plugin by calling 'load' in the class */-static gboolean load_mono_plugin(PurplePlugin *plugin)- PurpleMonoPlugin *mplug;- purple_debug(PURPLE_DEBUG_INFO, "mono", "Loading plugin\n");- mplug = (PurpleMonoPlugin*)plugin->info->extra_info;- ml_invoke(mplug->load, mplug->obj, NULL);-/* Unloads a Mono Plugin by calling 'unload' in the class */-static gboolean unload_mono_plugin(PurplePlugin *plugin)- PurpleMonoPlugin *mplug;- purple_debug(PURPLE_DEBUG_INFO, "mono", "Unloading plugin\n");- mplug = (PurpleMonoPlugin*)plugin->info->extra_info;- purple_signals_disconnect_by_handle((gpointer)mplug->klass);- g_list_foreach(mplug->signal_data, (GFunc)g_free, NULL);- g_list_free(mplug->signal_data);- mplug->signal_data = NULL;- ml_invoke(mplug->unload, mplug->obj, NULL);-static void destroy_mono_plugin(PurplePlugin *plugin)- PurpleMonoPlugin *mplug;- purple_debug(PURPLE_DEBUG_INFO, "mono", "Destroying plugin\n");- mplug = (PurpleMonoPlugin*)plugin->info->extra_info;- ml_invoke(mplug->destroy, mplug->obj, NULL);- g_free(plugin->info->name);- g_free(plugin->info->version);- g_free(plugin->info->summary);- g_free(plugin->info->description);- g_free(plugin->info->author);- g_free(plugin->info->homepage);- mono_assembly_close(mplug->assm);-/******************************************************************************- *****************************************************************************/-static void plugin_destroy(PurplePlugin *plugin)-static PurplePluginLoaderInfo loader_info =-static GPluginPluginInfo *-plugin_query(GError **error)- const gchar * const authors[] = {- "Eoin Coffey <ecoffey@simla.colostate.edu>",- return gplugin_plugin_info_new(- "name", N_("Mono Plugin Loader"),- "version", DISPLAY_VERSION,- "category", N_("Loader"),- "summary", N_("Loads .NET plugins with Mono."),- "description", N_("Loads .NET plugins with Mono."),- "website", PURPLE_WEBSITE,- "abi-version", PURPLE_ABI_VERSION,-plugin_load(PurplePlugin *plugin, GError **error)-plugin_unload(PurplePlugin *plugin, GError **error)-static void init_plugin(PurplePlugin *plugin)- loader_info.exts = g_list_append(loader_info.exts, "dll");-PURPLE_PLUGIN_INIT(mono, plugin_query, plugin_load, plugin_unload);--- a/libpurple/plugins/mono/loader/signal-glue.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,131 +0,0 @@
-#include "mono-helper.h"-static PurpleCallback get_callback(SignalData *sig_data);-static gpointer dispatch_callback(SignalData *sig_data, int num_vals, ...)- va_start(args, num_vals);- array = mono_array_new(ml_get_domain(), mono_get_object_class(), num_vals);- for (i = 0; i < num_vals; i++) {- purple_obj = va_arg(args, gpointer);- obj = ml_object_from_purple_type(sig_data->types[i], purple_obj);- mono_array_set(array, MonoObject*, i, obj);- return ml_delegate_invoke(sig_data->func, meth_args);-static void cb_void__pointer(void *arg1, void *data)- dispatch_callback((SignalData*)data, ((SignalData*)data)->num_vals, arg1);-static void cb_void__pointer_pointer_pointer(void *arg1, void *arg2, void *arg3, void *data)- dispatch_callback((SignalData*)data, ((SignalData*)data)->num_vals, arg1, arg2, arg3);-int purple_signal_connect_glue(MonoObject* h, MonoObject *plugin, MonoString *signal, MonoObject *func)- void **instance = NULL;- PurpleMonoPlugin *mplug;- sig = mono_string_to_utf8(signal);- purple_debug(PURPLE_DEBUG_INFO, "mono", "connecting signal: %s\n", sig);- instance = (void*)mono_object_unbox(h);- sig_data = g_new0(SignalData, 1);- sig_data->signal = sig;- purple_signal_get_types(*instance, sig, &sig_data->ret_type, &sig_data->num_vals, &sig_data->types);- klass = mono_object_get_class(plugin);- mplug = ml_find_plugin_by_class(klass);- mplug->signal_data = g_list_append(mplug->signal_data, (gpointer)sig_data);- return purple_signal_connect(*instance, sig, (gpointer)klass, get_callback(sig_data), (gpointer)sig_data);-static int determine_index(GType type)- if (G_TYPE_IS_OBJECT(type) || G_TYPE_IS_BOXED(type))-static gpointer callbacks[]= {- cb_void__pointer_pointer_pointer-static int callbacks_array_size = sizeof(callbacks) / sizeof(PurpleCallback);-static PurpleCallback get_callback(SignalData *sig_data)- if (sig_data->ret_type == NULL)- index = determine_index(sig_data->ret_type);- for (i = 0; i < sig_data->num_vals; i++) {- index += determine_index(sig_data->types[i]);- purple_debug(PURPLE_DEBUG_INFO, "mono", "get_callback index = %d\n", index);- if (index >= callbacks_array_size || callbacks[index] == NULL) {- purple_debug(PURPLE_DEBUG_ERROR, "mono", "couldn't find a callback function for signal: %s\n", sig_data->signal);- purple_debug(PURPLE_DEBUG_MISC, "mono", "using callback at index: %d\n", index);- return PURPLE_CALLBACK(callbacks[index]);--- a/libpurple/plugins/mono/loader/status-glue.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,16 +0,0 @@
-#include "mono-helper.h"-MonoObject* purple_status_build_status_object(void* data)- MonoObject *obj = NULL;- PurpleStatus *status = (PurpleStatus*)data;- obj = ml_create_api_object("Status");- g_return_val_if_fail(obj != NULL, NULL);- ml_set_prop_string(obj, "Id", (char*)purple_status_get_id(status));--- a/libpurple/plugins/perl/Makefile.am Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,171 +0,0 @@
-plugindir = @PURPLE_PLUGINDIR@-plugin_LTLIBRARIES = perl.la-perl_la_LDFLAGS = -module -avoid-version-perl_la_LIBADD = $(GLIB_LIBS) $(GPLUGIN_LIBS) $(PERL_LIBS)-perl_la_DEPENDENCIES = \- @rm -f .libs/libperl_orig.a- @if [ x$(LIBPERL_A) = x ]; then \- touch .libs/libperl_orig.a; \- $(LN_S) $(LIBPERL_A) .libs/libperl_orig.a; \- @rm -f .libs/DynaLoader.a- @if [ x$(DYNALOADER_A) = x ]; then \- touch .libs/DynaLoader.a; \- $(LN_S) $(DYNALOADER_A) .libs/DynaLoader.a; \- common/AccountOpts.xs \- common/Certificate.xs \- common/Conversation.xs \- common/Makefile.PL.in \- common/SavedStatuses.xs \-# common/fallback/const-c.inc \-# common/fallback/const-xs.inc- scripts/function_list.pl \- scripts/signals-test.pl- common/Makefile.mingw \-common/Makefile: common/Makefile.PL- $(AM_V_GEN)if test "x${top_srcdir}" != "x${top_builddir}"; then \- for f in ${common_sources}; do \- case $$srcloc in /*) ;; *) srcloc=../${srcdir} ;; esac; \- ${LN_S} -f $$srcloc/$$f $$f; \- $(AM_V_at)cd common && $(perlpath) Makefile.PL > /dev/null-common/Makefile.PL: common/Makefile.PL.in $(top_builddir)/config.status- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)-all-local: common/Makefile- @for dir in $(perl_dirs); do \- if [ ! -f Makefile ]; then \- $(perlpath) Makefile.PL; \- ($(MAKE) CC="@$(abs_top_srcdir)/libpurple/tag.sh CC $(CC)" LD="@$(abs_top_srcdir)/libpurple/tag.sh LD $(CC)" PERLRUN="@$(abs_top_srcdir)/libpurple/tag.sh PERL $(PERL)" CCFLAGS="$(PERL_CFLAGS) $(CFLAGS)" CP="@cp" RM_F="@rm -f" CHMOD="@chmod" $(PERL_EXTRA_OPTS) || \- $(MAKE) CC="@$(abs_top_srcdir)/libpurple/tag.sh CC $(CC)" LD="@$(abs_top_srcdir)/libpurple/tag.sh LD $(CC)" PERLRUN="@$(abs_top_srcdir)/libpurple/tag.sh PERL $(PERL)" CCFLAGS="$(PERL_CFLAGS) $(CFLAGS)" CP="@cp" RM_F="@rm -f" CHMOD="@chmod" $(PERL_EXTRA_OPTS)) && \- @for dir in $(perl_dirs); do \-# ... which doesn't work with DESTDIR installs. FIXME?- @for dir in $(perl_dirs); do \- `$(MAKE) uninstall | grep unlink | sed -e 's#/usr#${prefix}#' -e 's#unlink#rm -f#'` && \- @for dir in $(perl_dirs); do \- cd common ; rm -rf *.c *.o pm_to_blib Purple.bs MYMETA.* blib/*/.exists blib/*/auto/Purple blib/*/Purple.*pm ; cd ..- @for dir in $(perl_dirs); do \-# @rm -f common/const-c.inc common/const-xs.inc- @if test "x${top_srcdir}" != "x${top_builddir}"; then \- for f in ${common_sources}; do \- case $$srcloc in /*) ;; *) srcloc=../${srcdir} ;; esac; \- ${LN_S} -f $$srcloc/$$f $$f; \- -I$(top_srcdir)/libpurple \- -I$(top_builddir)/libpurple \--- a/libpurple/plugins/perl/Makefile.mingw Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,87 +0,0 @@
-# Description: Makefile for perl plugin loader plugin.-PIDGIN_TREE_TOP := ../../..-include $(PIDGIN_TREE_TOP)/libpurple/win32/global.mak-#we cannot include win32dep.h, but we need struct sockaddr_in6 definition-CFLAGS += -include ws2tcpip.h-DEFINES := $(subst -DWIN32_LEAN_AND_MEAN,,$(DEFINES))-# Perl headers with /* /* */ type comments.. Turn off warnings.-GCCWARNINGS += -Wno-comment- -I$(PURPLE_TOP)/win32 \- -I$(GTK_TOP)/include/glib-2.0 \- -I$(GTK_TOP)/lib/glib-2.0/include \- -I$(PERL_LIB_TOP)/include-LIB_PATHS += -L$(GTK_TOP)/lib \-OBJECTS = $(C_SRC:%.c=%.o)-include $(PIDGIN_COMMON_RULES)-.PHONY: all install clean- $(MAKE_at) $(MAKE) -C ./common -f $(MINGW_MAKEFILE)-install: all $(PURPLE_INSTALL_PLUGINS_DIR)- cp $(TARGET).dll $(PURPLE_INSTALL_PLUGINS_DIR)- $(MAKE_at) $(MAKE) -C ./common -f $(MINGW_MAKEFILE) install-$(OBJECTS): $(PURPLE_CONFIG_H)-$(TARGET).dll $(TARGET).dll.a: $(PURPLE_DLL).a $(OBJECTS)- $(CC) -shared $(OBJECTS) $(LIB_PATHS) $(LIBS) $(DLL_LD_FLAGS) -Wl,--export-all-symbols -Wl,--out-implib,$(TARGET).dll.a -o $(TARGET).dll- rm -rf $(TARGET).dll $(TARGET).dll.a- $(MAKE_at) $(MAKE) -C ./common -f $(MINGW_MAKEFILE) clean-include $(PIDGIN_COMMON_TARGETS)--- a/libpurple/plugins/perl/common/Account.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,353 +0,0 @@
-#include "../perl-handlers.h"-MODULE = Purple::Account PACKAGE = Purple::Accounts PREFIX = purple_accounts_-purple_accounts_add(account)- Purple::Account account-purple_accounts_remove(account)- Purple::Account account-purple_accounts_delete(account)- Purple::Account account-purple_accounts_reorder(account, new_index)- Purple::Account account-purple_accounts_get_all()- for (l = purple_accounts_get_all(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Account")));-purple_accounts_get_all_active()- list = purple_accounts_get_all_active();- for (iter = list; iter != NULL; iter = iter->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(iter->data, "Purple::Account")));-purple_accounts_restore_current_statuses()-purple_accounts_find(name, protocol)-purple_accounts_get_handle()-MODULE = Purple::Account PACKAGE = Purple::Account PREFIX = purple_account_-purple_account_get_presence(account)- Purple::Account account-purple_account_new(class, username, protocol_id)- const char * protocol_id-purple_account_connect(account)- Purple::Account account-purple_account_register(account)- Purple::Account account-purple_account_disconnect(account)- Purple::Account account-purple_account_request_change_password(account)- Purple::Account account-purple_account_request_change_user_info(account)- Purple::Account account-purple_account_set_username(account, username)- Purple::Account account-purple_account_set_password(account, password, func, data = 0)- Purple::Account account- purple_perl_account_set_password(account, password, func, data);-purple_account_set_private_alias(account, alias)- Purple::Account account-purple_account_set_user_info(account, user_info)- Purple::Account account-purple_account_set_buddy_icon_path(account, icon)- Purple::Account account-purple_account_set_connection(account, gc)- Purple::Account account-purple_account_set_remember_password(account, value)- Purple::Account account-purple_account_set_check_mail(account, value)- Purple::Account account-void purple_account_set_enabled(account, ui, value)- Purple::Account account-purple_account_set_proxy_info(account, info)- Purple::Account account-purple_account_set_status(account, status_id, active)- Purple::Account account- purple_account_set_status(account, status_id, active, NULL);-purple_account_set_status_types(account, status_types)- Purple::Account account- t_len = av_len((AV *)SvRV(status_types));- for (i = 0; i <= t_len; i++)- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(status_types), i, 0)));- purple_account_set_status_types(account, t_GL);-purple_account_clear_settings(account)- Purple::Account account-purple_account_set_int(account, name, value)- Purple::Account account-purple_account_is_connected(account)- Purple::Account account-purple_account_get_username(account)- Purple::Account account-purple_account_get_password(account, func, data = 0)- Purple::Account account- purple_perl_account_get_password(account, func, data);-purple_account_get_private_alias(account)- Purple::Account account-purple_account_get_user_info(account)- Purple::Account account-purple_account_get_buddy_icon_path(account)- Purple::Account account-purple_account_get_protocol_id(account)- Purple::Account account-purple_account_get_protocol_name(account)- Purple::Account account-purple_account_get_connection(account)- Purple::Account account-purple_account_get_remember_password(account)- Purple::Account account-purple_account_get_check_mail(account)- Purple::Account account-purple_account_get_enabled(account, ui)- Purple::Account account-purple_account_get_proxy_info(account)- Purple::Account account-purple_account_get_active_status(account)- Purple::Account account-purple_account_get_status_types(account)- Purple::Account account- for (l = purple_account_get_status_types(account); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::StatusType")));-purple_account_get_log(account, create)- Purple::Account account-purple_account_destroy_log(account)- Purple::Account account-purple_account_add_buddies(account, list, message)- Purple::Account account- t_len = av_len((AV *)SvRV(list));- for (i = 0; i <= t_len; i++)- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0)));- purple_account_add_buddies(account, t_GL, message);-purple_account_add_buddy(account, buddy, message)- Purple::Account account- Purple::BuddyList::Buddy buddy-purple_account_change_password(account, a, b)- Purple::Account account-purple_account_remove_buddies(account, A, B)- Purple::Account account- t_len = av_len((AV *)SvRV(A));- for (i = 0; i <= t_len; i++)- t_GL1 = g_list_append(t_GL1, SvPVutf8_nolen(*av_fetch((AV *)SvRV(A), i, 0)));- t_len = av_len((AV *)SvRV(B));- for (i = 0; i <= t_len; i++)- t_GL2 = g_list_append(t_GL2, SvPVutf8_nolen(*av_fetch((AV *)SvRV(B), i, 0)));- purple_account_remove_buddies(account, t_GL1, t_GL2);-purple_account_remove_buddy(account, buddy, group)- Purple::Account account- Purple::BuddyList::Buddy buddy- Purple::BuddyList::Group group-purple_account_remove_group(account, group)- Purple::Account account- Purple::BuddyList::Group group-MODULE = Purple::Account PACKAGE = Purple::Account::Privacy PREFIX = purple_account_privacy_-purple_account_privacy_permit_add(account, name, local_only)- Purple::Account account-purple_account_privacy_permit_remove(account, name, local_only)- Purple::Account account-purple_account_privacy_deny_add(account, name, local_only)- Purple::Account account-purple_account_privacy_deny_remove(account, name, local_only)- Purple::Account account-purple_account_privacy_check(account, who)- Purple::Account account--- a/libpurple/plugins/perl/common/AccountOpts.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,166 +0,0 @@
-MODULE = Purple::Account::Option PACKAGE = Purple::Account::Option PREFIX = purple_account_option_-purple_account_option_destroy(option)- Purple::Account::Option option-purple_account_option_get_default_string(option)- Purple::Account::Option option-purple_account_option_add_list_item(option, key, value)- Purple::Account::Option option-purple_account_option_set_default_string(option, value);- Purple::Account::Option option-purple_account_option_set_default_int(option, value);- Purple::Account::Option option-purple_account_option_set_default_bool(option, value);- Purple::Account::Option option-purple_account_option_list_new(class, text, pref_name, values)- t_len = av_len((AV *)SvRV(values));- for (i = 0; i <= t_len; i++)- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(values), i, 0)));- RETVAL = purple_account_option_list_new(text, pref_name, t_GL);-purple_account_option_string_new(class, text, pref_name, default_value)- const char * default_value- text, pref_name, default_value-purple_account_option_int_new(class, text, pref_name, default_value)- text, pref_name, default_value-purple_account_option_bool_new(class, text, pref_name, default_value)- text, pref_name, default_value-purple_account_option_new(class, type, text, pref_name)-purple_account_option_get_list(option)- Purple::Account::Option option- for (l = purple_account_option_get_list(option); l != NULL; l = l->next) {- /* XXX These are actually PurpleKeyValuePairs but we don't have a- * type for that and even if we did I don't think there's- * anything perl could do with them, so I'm just going to- * leave this as a Purple::ListEntry for now. */- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListEntry")));-purple_account_option_get_pref_type(option)- Purple::Account::Option option-purple_account_option_string_get_masked(option)- Purple::Account::Option option-purple_account_option_get_default_int(option)- Purple::Account::Option option;-purple_account_option_get_default_bool(option)- Purple::Account::Option option;-purple_account_option_get_setting(option)- Purple::Account::Option option-purple_account_option_get_text(option)- Purple::Account::Option option-purple_account_option_set_list(option, values)- Purple::Account::Option option- t_len = av_len((AV *)SvRV(values));- for (i = 0; i <= t_len; i++)- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(values), i, 0)));- purple_account_option_set_list(option, t_GL);-purple_account_option_string_set_masked(option, masked)- Purple::Account::Option option-MODULE = Purple::Account::Option PACKAGE = Purple::Account::UserSplit PREFIX = purple_account_user_split_-Purple::Account::UserSplit-purple_account_user_split_new(class, text, default_value, sep)- const char * default_value- text, default_value, sep-purple_account_user_split_get_separator(split)- Purple::Account::UserSplit split-purple_account_user_split_get_text(split)- Purple::Account::UserSplit split-purple_account_user_split_destroy(split)- Purple::Account::UserSplit split--- a/libpurple/plugins/perl/common/BuddyIcon.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,71 +0,0 @@
-MODULE = Purple::Buddy::Icon PACKAGE = Purple::Buddy::Icon PREFIX = purple_buddy_icon_-purple_buddy_icon_ref(icon)- Purple::Buddy::Icon icon-purple_buddy_icon_unref(icon)- Purple::Buddy::Icon icon-purple_buddy_icon_update(icon)- Purple::Buddy::Icon icon-purple_buddy_icon_set_data(icon, data, len, checksum)- Purple::Buddy::Icon icon-purple_buddy_icon_get_account(icon)- Purple::Buddy::Icon icon-purple_buddy_icon_get_username(icon)- Purple::Buddy::Icon icon-purple_buddy_icon_get_data(icon, len)- Purple::Buddy::Icon icon-purple_buddy_icon_get_extension(icon)- Purple::Buddy::Icon icon-purple_buddy_icon_spec_get_scaled_size(spec, width, height)- Purple::Buddy::Icon::Spec spec-purple_buddy_icon_get_full_path(icon);- Purple::Buddy::Icon icon-MODULE = Purple::Buddy::Icon PACKAGE = Purple::Buddy::Icons PREFIX = purple_buddy_icons_-purple_buddy_icons_set_caching(caching)-purple_buddy_icons_is_caching()-purple_buddy_icons_set_cache_dir(cache_dir)-purple_buddy_icons_get_cache_dir();-purple_buddy_icons_get_handle();--- a/libpurple/plugins/perl/common/BuddyList.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,418 +0,0 @@
-#undef PURPLE_DISABLE_DEPRECATED-#include "../perl-handlers.h"-chat_components_foreach(gpointer key, gpointer value, gpointer user_data)- if (hv_store(hv, key, strlen(key), newSVpv(value, 0), 0) == NULL)- purple_debug_error("perl", "hv_store failed\n");-MODULE = Purple::BuddyList PACKAGE = Purple::Find PREFIX = purple_-purple_group_on_account(group, account)- Purple::BuddyList::Group group- Purple::Account account-MODULE = Purple::BuddyList PACKAGE = Purple::BuddyList::Contact PREFIX = purple_contact_-Purple::BuddyList::Contact-Purple::BuddyList::Buddy-purple_contact_get_priority_buddy(contact)- Purple::BuddyList::Contact contact-purple_contact_get_alias(contact)- Purple::BuddyList::Contact contact-purple_contact_on_account(contact, account)- Purple::BuddyList::Contact contact- Purple::Account account-purple_contact_invalidate_priority_buddy(contact)- Purple::BuddyList::Contact contact-purple_contact_merge(source, node)- Purple::BuddyList::Contact source- Purple::BuddyList::Node node-MODULE = Purple::BuddyList PACKAGE = Purple::BuddyList::Group PREFIX = purple_group_-Purple::BuddyList::Group-purple_group_get_accounts(group)- Purple::BuddyList::Group group- ll = purple_group_get_accounts(group);- for (l = ll; l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Account")));-purple_group_on_account(group, account)- Purple::BuddyList::Group group- Purple::Account account-purple_group_set_name(group, name)- Purple::BuddyList::Group group-purple_group_get_name(group)- Purple::BuddyList::Group group-MODULE = Purple::BuddyList PACKAGE = Purple::BuddyList PREFIX = purple_blist_-purple_blist_get_buddy_list()-Purple::BuddyList::Buddy-purple_blist_find_buddy(account, name)- Purple::Account account-purple_blist_find_buddies(account, name)- Purple::Account account- ll = purple_blist_find_buddies(account, name);- for (l = ll; l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::BuddyList::Buddy")));-Purple::BuddyList::Group-purple_blist_find_group(name)-purple_blist_add_contact(contact, group, node)- Purple::BuddyList::Contact contact- Purple::BuddyList::Group group- Purple::BuddyList::Node node-purple_blist_add_group(group, node)- Purple::BuddyList::Group group- Purple::BuddyList::Node node-purple_blist_add_buddy(buddy, contact, group, node)- Purple::BuddyList::Buddy buddy- Purple::BuddyList::Contact contact- Purple::BuddyList::Group group- Purple::BuddyList::Node node-purple_blist_remove_buddy(buddy)- Purple::BuddyList::Buddy buddy-purple_blist_remove_contact(contact)- Purple::BuddyList::Contact contact-purple_blist_remove_chat(chat)- Purple::BuddyList::Chat chat-purple_blist_remove_group(group)- Purple::BuddyList::Group group-purple_blist_find_chat(account, name)- Purple::Account account-purple_blist_add_chat(chat, group, node)- Purple::BuddyList::Chat chat- Purple::BuddyList::Group group- Purple::BuddyList::Node node-purple_blist_set_visible(show)-purple_blist_add_account(account)- Purple::Account account-purple_blist_remove_account(account)- Purple::Account account-purple_blist_schedule_save()-purple_blist_request_add_group()-purple_blist_get_handle()-MODULE = Purple::BuddyList PACKAGE = Purple::BuddyList::Node PREFIX = purple_blist_node_-purple_blist_node_get_extended_menu(node)- Purple::BuddyList::Node node- ll = purple_blist_node_get_extended_menu(node);- for (l = ll; l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Menu::Action")));- /* We can free the list here but the script needs to free the- * Purple::Menu::Action 'objects' itself. */-purple_blist_node_set_bool(node, key, value)- Purple::BuddyList::Node node-purple_blist_node_get_bool(node, key)- Purple::BuddyList::Node node-purple_blist_node_set_int(node, key, value)- Purple::BuddyList::Node node-purple_blist_node_get_int(node, key)- Purple::BuddyList::Node node-purple_blist_node_get_string(node, key)- Purple::BuddyList::Node node-purple_blist_node_set_transient(node, transient)- Purple::BuddyList::Node node-purple_blist_node_is_transient(node);- Purple::BuddyList::Node node-purple_blist_node_remove_setting(node, key)- Purple::BuddyList::Node node-MODULE = Purple::BuddyList PACKAGE = Purple::BuddyList::CountingNode PREFIX = purple_counting_node_-purple_counting_node_get_total_size(counter);- Purple::BuddyList::CountingNode counter-purple_counting_node_get_current_size(counter);- Purple::BuddyList::CountingNode counter-purple_counting_node_get_online_count(counter);- Purple::BuddyList::CountingNode counter-purple_counting_node_change_total_size(counter, delta);- Purple::BuddyList::CountingNode counter-purple_counting_node_change_current_size(counter, delta);- Purple::BuddyList::CountingNode counter-purple_counting_node_change_online_count(counter, delta);- Purple::BuddyList::CountingNode counter-purple_counting_node_set_total_size(counter, totalsize);- Purple::BuddyList::CountingNode counter-purple_counting_node_set_current_size(counter, currentsize);- Purple::BuddyList::CountingNode counter-purple_counting_node_set_online_count(counter, onlinecount);- Purple::BuddyList::CountingNode counter-MODULE = Purple::BuddyList PACKAGE = Purple::BuddyList::Chat PREFIX = purple_chat_-Purple::BuddyList::Group-purple_chat_get_group(chat)- Purple::BuddyList::Chat chat-purple_chat_set_alias(chat, alias)- Purple::BuddyList::Chat chat-purple_chat_get_name(chat)- Purple::BuddyList::Chat chat-purple_chat_get_name_only(chat)- Purple::BuddyList::Chat chat-purple_chat_get_components(chat)- Purple::BuddyList::Chat chat- t_GHash = purple_chat_get_components(chat);- RETVAL = t_HV = newHV();- g_hash_table_foreach(t_GHash, chat_components_foreach, t_HV);-purple_chat_new(account, alias, components)- Purple::Account account- t_HV = (HV *)SvRV(components);- t_GHash = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, g_free);- for (t_HE = hv_iternext(t_HV); t_HE != NULL; t_HE = hv_iternext(t_HV) ) {- t_key = hv_iterkey(t_HE, &len);- t_SV = *hv_fetch(t_HV, t_key, len, 0);- t_value = SvPVutf8_nolen(t_SV);- g_hash_table_insert(t_GHash, g_strdup(t_key), g_strdup(t_value));- RETVAL = purple_chat_new(account, alias, t_GHash);-MODULE = Purple::BuddyList PACKAGE = Purple::BuddyList::Buddy PREFIX = purple_buddy_-Purple::BuddyList::Buddy-purple_buddy_new(account, name, alias)- Purple::Account account-purple_buddy_update_status(buddy, old_status)- Purple::BuddyList::Buddy buddy- Purple::Status old_status-purple_buddy_set_name(buddy, name)- Purple::BuddyList::Buddy buddy-purple_buddy_set_local_alias(buddy, alias)- Purple::BuddyList::Buddy buddy-purple_buddy_set_server_alias(buddy, alias)- Purple::BuddyList::Buddy buddy-purple_buddy_get_server_alias(buddy)- Purple::BuddyList::Buddy buddy-purple_buddy_set_icon(buddy, icon)- Purple::BuddyList::Buddy buddy- Purple::Buddy::Icon icon-purple_buddy_get_account(buddy)- Purple::BuddyList::Buddy buddy-Purple::BuddyList::Group-purple_buddy_get_group(buddy)- Purple::BuddyList::Buddy buddy-purple_buddy_get_name(buddy)- Purple::BuddyList::Buddy buddy-purple_buddy_get_icon(buddy)- Purple::BuddyList::Buddy buddy-Purple::BuddyList::Contact-purple_buddy_get_contact(buddy)- Purple::BuddyList::Buddy buddy-purple_buddy_get_presence(buddy)- Purple::BuddyList::Buddy buddy-purple_buddy_get_alias_only(buddy)- Purple::BuddyList::Buddy buddy-purple_buddy_get_contact_alias(buddy)- Purple::BuddyList::Buddy buddy-purple_buddy_get_alias(buddy)- Purple::BuddyList::Buddy buddy--- a/libpurple/plugins/perl/common/Certificate.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,309 +0,0 @@
-static void cb_cert_verify(PurpleCertificateVerificationStatus st, struct cb_data *d) {- XPUSHs(sv_2mortal(newSViv(st)));- call_sv(d->cb, G_VOID | G_EVAL);- purple_debug_warning("perl", "Failed to run 'certificate verify' callback: %s\n", SvPV(ERRSV, l_a));- SvREFCNT_dec(d->user_data);-MODULE = Purple::Certificate PACKAGE = Purple::Certificate PREFIX = purple_certificate_- HV *stash = gv_stashpv("Purple::Certificate", 1);- static const constiv *civ, const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_CERTIFICATE_##name}- const_iv(UNKNOWN_ERROR),- const_iv(NON_FATALS_MASK),- const_iv(NOT_ACTIVATED),- const_iv(NAME_MISMATCH),- const_iv(INVALID_CHAIN),- for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; )- newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv));-purple_certificate_add_ca_search_path(path)-purple_certificate_check_subject_name(crt, name)- Purple::Certificate crt-purple_certificate_copy(crt)- Purple::Certificate crt-purple_certificate_destroy(crt)- Purple::Certificate crt-## changed order of arguments, so that $cert->export($file) could be used-purple_certificate_export(crt, filename)- Purple::Certificate crt-Purple::Certificate::Pool-purple_certificate_find_pool(scheme_name, pool_name)- const gchar* scheme_name-Purple::Certificate::Scheme-purple_certificate_find_scheme(name)-Purple::Certificate::Verifier-purple_certificate_find_verifier(scheme_name, ver_name)- const gchar* scheme_name-purple_certificate_get_handle()-purple_certificate_get_issuer_unique_id(crt)- Purple::Certificate crt-purple_certificate_get_subject_name(crt)- Purple::Certificate crt-purple_certificate_get_unique_id(crt)- Purple::Certificate crt-purple_certificate_import(scheme, filename)- Purple::Certificate::Scheme scheme-purple_certificate_register_pool(pool)- Purple::Certificate::Pool pool-purple_certificate_register_scheme(scheme)- Purple::Certificate::Scheme scheme-purple_certificate_register_verifier(vr)- Purple::Certificate::Verifier vr-purple_certificate_signed_by(crt, issuer)- Purple::Certificate crt- Purple::Certificate issuer-purple_certificate_unregister_pool(pool)- Purple::Certificate::Pool pool-purple_certificate_unregister_scheme(scheme)- Purple::Certificate::Scheme scheme-purple_certificate_unregister_verifier(vr)- Purple::Certificate::Verifier vr-purple_certificate_verify_complete(vrq, st)- Purple::Certificate::VerificationRequest vrq- Purple::Certificate::VerificationStatus st-purple_certificate_get_times(crt, OUTLIST gint64 activation, OUTLIST gint64 expiration)- Purple::Certificate crt-purple_certificate_destroy_list(...)- for(i = 0; i < items; i++) { /* PurpleCertificate */- l = g_list_prepend(l, purple_perl_ref_object(ST(i)));- purple_certificate_destroy_list(l);-purple_certificate_get_pools()- for(l = purple_certificate_get_pools(); l; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Certificate::Pool")));-purple_certificate_get_schemes()- for(l = purple_certificate_get_schemes(); l; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Certificate::Scheme")));-purple_certificate_get_verifiers()- for(l = purple_certificate_get_verifiers(); l; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Certificate::Verifier")));-purple_certificate_check_signature_chain(...)- for(i = 0; i < items; i++) { /* PurpleCertificate */- l = g_list_prepend(l, purple_perl_ref_object(ST(i)));- ret = purple_certificate_check_signature_chain(l, NULL);-purple_certificate_get_fingerprint_sha1(crt)- Purple::Certificate crt- GByteArray *gba = NULL;- gba = purple_certificate_get_fingerprint_sha1(crt);- RETVAL = newSVpv((gchar *)gba->data, gba->len);- g_byte_array_free(gba, TRUE);-purple_certificate_verify(verifier, subject_name, cert_chain, cb, cb_data)- Purple::Certificate::Verifier verifier- const gchar* subject_name- struct cb_data *d = NULL;- len = av_len(cert_chain);- for(i = 0; i <= len; i++) {- SV **sv = av_fetch(cert_chain, i, 0);- if(!sv || !purple_perl_is_ref_object(*sv)) {- warn("Purple::Certificate::verify: cert_chain: non-purple object in array...");- l = g_list_prepend(l, purple_perl_ref_object(*sv));- d = g_new0(struct cb_data, 1);- d->cb = newSVsv(ST(3));- d->user_data = newSVsv(cb_data);- purple_certificate_verify(verifier, subject_name, l, (PurpleCertificateVerifiedCallback) cb_cert_verify, d);-MODULE = Purple::Certificate PACKAGE = Purple::Certificate::Pool PREFIX = purple_certificate_pool_-purple_certificate_pool_get_idlist(pool)- Purple::Certificate::Pool pool- b = purple_certificate_pool_get_idlist(pool);- for(l = b; l; l = l->next) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));- purple_certificate_pool_destroy_idlist(b);-purple_certificate_pool_contains(pool, id)- Purple::Certificate::Pool pool-purple_certificate_pool_delete(pool, id)- Purple::Certificate::Pool pool-Purple::Certificate::Scheme-purple_certificate_pool_get_scheme(pool)- Purple::Certificate::Pool pool-purple_certificate_pool_mkpath(pool, id)- Purple::Certificate::Pool pool-purple_certificate_pool_retrieve(pool, id)- Purple::Certificate::Pool pool-purple_certificate_pool_store(pool, id, crt)- Purple::Certificate::Pool pool- Purple::Certificate crt-purple_certificate_pool_usable(pool)- Purple::Certificate::Pool pool--- a/libpurple/plugins/perl/common/Cipher.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,329 +0,0 @@
-MODULE = Purple::Cipher PACKAGE = Purple::Cipher PREFIX = purple_cipher_- HV *stash = gv_stashpv("Purple::Cipher::BatchMode", 1);- static const constiv *civ, const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_CIPHER_BATCH_MODE_##name}- for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; )- newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv));-purple_http_digest_calculate_response(algorithm, method, digest_uri, qop, entity, nonce, nonce_count, client_nonce, session_key)- const gchar* digest_uri- const gchar* nonce_count- const gchar* client_nonce- const gchar* session_key-purple_http_digest_calculate_session_key(algorithm, username, realm, password, nonce, client_nonce)- const gchar* client_nonce-purple_cipher_reset(cipher)-purple_cipher_set_iv(Purple::Cipher cipher, guchar *iv, size_t length(iv))-purple_cipher_append(Purple::Cipher cipher, guchar *data, size_t length(data))-purple_cipher_digest(cipher, digest)- digest_size = purple_cipher_get_digest_size(cipher);- SvUPGRADE_common(digest, SVt_PV);- buff = (guchar *)SvGROW(digest, digest_size);- if (purple_cipher_digest(cipher, buff, digest_size)) {- SvCUR_set(digest, digest_size);- /* coverity[extra_comma] */- SvSetSV_nosteal(digest, &PL_sv_undef);-purple_cipher_digest_to_str(cipher, digest_s)- size_t digest_size, str_len;- digest_size = purple_cipher_get_digest_size(cipher);- str_len = 2 * digest_size;- SvUPGRADE_common(digest_s, SVt_PV);- buff = SvGROW(digest_s, str_len + 1);- if (purple_cipher_digest_to_str(cipher, buff, str_len + 1)) {- SvCUR_set(digest_s, str_len);- /* coverity[extra_comma] */- SvSetSV_nosteal(digest_s, &PL_sv_undef);-purple_cipher_encrypt(cipher, input, output)- size_t input_len, output_len;- data = (guchar *)SvPV(input, input_len);- output_len = input_len + purple_cipher_get_block_size(cipher);- SvUPGRADE_common(output, SVt_PV);- buff = (guchar *)SvGROW(output, output_len);- ret = purple_cipher_encrypt(cipher, data, input_len, buff, output_len);- /* coverity[extra_comma] */- SvCUR_set(output, ret);- SvSetSV_nosteal(output, &PL_sv_undef);-purple_cipher_decrypt(cipher, input, output)- size_t input_len, output_len;- data = (guchar *)SvPV(input, input_len);- output_len = input_len + purple_cipher_get_block_size(cipher);- SvUPGRADE_common(output, SVt_PV);- buff = (guchar *)SvGROW(output, output_len);- ret = purple_cipher_decrypt(cipher, data, input_len, buff, output_len);- /* coverity[extra_comma] */- SvCUR_set(output, ret);- SvSetSV_nosteal(output, &PL_sv_undef);-purple_cipher_set_salt(cipher, salt, len)-purple_cipher_set_key(cipher, key, len)-purple_cipher_get_key_size(cipher)-Purple::Cipher::BatchMode-purple_cipher_get_batch_mode(cipher)-purple_cipher_get_block_size(cipher)-purple_cipher_set_batch_mode(cipher, mode)- Purple::Cipher::BatchMode mode-MODULE = Purple::Cipher PACKAGE = Purple::AESCipher PREFIX = purple_aes_cipher_-MODULE = Purple::Cipher PACKAGE = Purple::DES3Cipher PREFIX = purple_des3_cipher_-purple_des3_cipher_new()-MODULE = Purple::Cipher PACKAGE = Purple::DESCipher PREFIX = purple_des_cipher_-MODULE = Purple::Cipher PACKAGE = Purple::HMACCipher PREFIX = purple_hmac_cipher_-purple_hmac_cipher_new(hash)-MODULE = Purple::Cipher PACKAGE = Purple::PBKDF2Cipher PREFIX = purple_pbkdf2_cipher_-purple_pbkdf2_cipher_new(hash)-MODULE = Purple::Cipher PACKAGE = Purple::RC4Cipher PREFIX = purple_rc4_cipher_-MODULE = Purple::Cipher PACKAGE = Purple::Hash PREFIX = purple_hash_-purple_http_digest_calculate_response(algorithm, method, digest_uri, qop, entity, nonce, nonce_count, client_nonce, session_key)- const gchar* digest_uri- const gchar* nonce_count- const gchar* client_nonce- const gchar* session_key-purple_http_digest_calculate_session_key(algorithm, username, realm, password, nonce, client_nonce)- const gchar* client_nonce-purple_hash_append(Purple::Hash hash, guchar *data, size_t length(data))-purple_hash_digest(hash, digest)- digest_size = purple_hash_get_digest_size(hash);- SvUPGRADE_common(digest, SVt_PV);- buff = (guchar *)SvGROW(digest, digest_size);- if (purple_hash_digest(hash, buff, digest_size)) {- SvCUR_set(digest, digest_size);- /* coverity[extra_comma] */- SvSetSV_nosteal(digest, &PL_sv_undef);-purple_hash_digest_to_str(hash, digest_s)- size_t digest_size, str_len;- digest_size = purple_hash_get_digest_size(hash);- str_len = 2 * digest_size;- SvUPGRADE_common(digest_s, SVt_PV);- buff = SvGROW(digest_s, str_len + 1);- if (purple_hash_digest_to_str(hash, buff, str_len + 1)) {- SvCUR_set(digest_s, str_len);- /* coverity[extra_comma] */- SvSetSV_nosteal(digest_s, &PL_sv_undef);-purple_hash_get_block_size(hash)-MODULE = Purple::Hash PACKAGE = Purple::MD4Hash PREFIX = purple_md4_hash_-MODULE = Purple::Hash PACKAGE = Purple::MD5Hash PREFIX = purple_md5_hash_-MODULE = Purple::Hash PACKAGE = Purple::SHA1Hash PREFIX = purple_sha1_hash_-MODULE = Purple::Hash PACKAGE = Purple::SHA256Hash PREFIX = purple_sha256_hash_-purple_sha256_hash_new()--- a/libpurple/plugins/perl/common/Cmds.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,108 +0,0 @@
-#include "../perl-handlers.h"-MODULE = Purple::Cmd PACKAGE = Purple::Cmd PREFIX = purple_cmd_- HV *status_stash = gv_stashpv("Purple::Cmd::Status", 1);- HV *ret_stash = gv_stashpv("Purple::Cmd::Return", 1);- HV *p_stash = gv_stashpv("Purple::Cmd::Priority", 1);- HV *flag_stash = gv_stashpv("Purple::Cmd::Flag", 1);- static const constiv *civ, status_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_CMD_STATUS_##name}- const_iv(WRONG_PROTOCOL),- static const constiv ret_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_CMD_RET_##name}- static const constiv p_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_CMD_P_##name}- static const constiv flag_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_CMD_FLAG_##name}- const_iv(PROTOCOL_ONLY),- const_iv(ALLOW_WRONG_ARGS),- for (civ = status_const_iv + sizeof(status_const_iv) / sizeof(status_const_iv[0]); civ-- > status_const_iv;)- newCONSTSUB(status_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = ret_const_iv + sizeof(ret_const_iv) / sizeof(ret_const_iv[0]); civ-- > ret_const_iv;)- newCONSTSUB(ret_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = p_const_iv + sizeof(p_const_iv) / sizeof(p_const_iv[0]); civ-- > p_const_iv;)- newCONSTSUB(p_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = flag_const_iv + sizeof(flag_const_iv) / sizeof(flag_const_iv[0]); civ-- > flag_const_iv;)- newCONSTSUB(flag_stash, (char *)civ->name, newSViv(civ->iv));-purple_cmd_help(conv, command)- Purple::Conversation conv- for (l = ll = purple_cmd_help(conv, command); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));- Purple::Conversation conv- for (l = ll = purple_cmd_list(conv); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));-purple_cmd_register(plugin, command, args, priority, flag, protocol_id, func, helpstr, data = 0)- Purple::Cmd::Priority priority- const gchar *protocol_id- RETVAL = purple_perl_cmd_register(plugin, command, args, priority, flag,- protocol_id, func, helpstr, data);-purple_cmd_unregister(id)- purple_perl_cmd_unregister(id);--- a/libpurple/plugins/perl/common/Connection.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,87 +0,0 @@
-MODULE = Purple::Connection PACKAGE = Purple::Connection PREFIX = purple_connection_- HV *stash = gv_stashpv("Purple::Connection::State", 1);- static const constiv *civ, const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_CONNECTION_##name}- const_iv(DISCONNECTED),- for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; )- newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv));-purple_connection_get_account(gc)-purple_connection_get_password(gc)-purple_connection_get_active_chats(gc)- for (l = purple_connection_get_active_chats(gc); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ChatConversation")));-purple_connection_get_display_name(gc)-purple_connection_notice(gc, text)-purple_connection_set_state(gc, state)- Purple::ConnectionState state-purple_connection_set_display_name(gc, name)-purple_connection_get_state(gc)-MODULE = Purple::Connection PACKAGE = Purple::Connections PREFIX = purple_connections_-purple_connections_disconnect_all()-purple_connections_get_all()- for (l = purple_connections_get_all(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Connection")));-purple_connections_get_connecting()- for (l = purple_connections_get_connecting(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Connection")));-purple_connections_get_handle()--- a/libpurple/plugins/perl/common/Conversation.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,435 +0,0 @@
-MODULE = Purple::Conversation PACKAGE = Purple PREFIX = purple_- HV *update_stash = gv_stashpv("Purple::Conversation::UpdateType", 1);- HV *typing_stash = gv_stashpv("Purple::IMTypingState", 1);- HV *flags_stash = gv_stashpv("Purple::MessageFlags", 1);- HV *cbflags_stash = gv_stashpv("Purple::ChatUser::Flags", 1);- static const constiv *civ, update_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_CONVERSATION_UPDATE_##name}- static const constiv typing_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_IM_##name}- static const constiv flags_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_MESSAGE_##name}- static const constiv cbflags_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_CHAT_USER_##name}- for (civ = update_const_iv + sizeof(update_const_iv) / sizeof(update_const_iv[0]); civ-- > update_const_iv; )- newCONSTSUB(update_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = typing_const_iv + sizeof(typing_const_iv) / sizeof(typing_const_iv[0]); civ-- > typing_const_iv; )- newCONSTSUB(typing_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = flags_const_iv + sizeof(flags_const_iv) / sizeof(flags_const_iv[0]); civ-- > flags_const_iv; )- newCONSTSUB(flags_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = cbflags_const_iv + sizeof(cbflags_const_iv) / sizeof(cbflags_const_iv[0]); civ-- > cbflags_const_iv; )- newCONSTSUB(cbflags_stash, (char *)civ->name, newSViv(civ->iv));-MODULE = Purple::Conversation PACKAGE = Purple::Conversations PREFIX = purple_conversations_-purple_conversations_add(conv)- Purple::Conversation conv-purple_conversations_remove(conv)- Purple::Conversation conv-purple_conversations_get_handle()-Purple::ChatConversation-purple_conversations_find_chat(gc, id)-purple_conversations_get_ims()- for (l = purple_conversations_get_ims(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::IMConversation")));-purple_conversations_get_all()- for (l = purple_conversations_get_all(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Conversation")));-purple_conversations_get_chats()- for (l = purple_conversations_get_chats(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ChatConversation")));-purple_conversations_find_with_account(name, account)- Purple::Account account-Purple::ChatConversation-purple_conversations_find_chat_with_account(name, account)- Purple::Account account-purple_conversations_find_im_with_account(name, account)- Purple::Account account-MODULE = Purple::Conversation PACKAGE = Purple::Conversation PREFIX = purple_conversation_-purple_conversation_get_account(conv)- Purple::Conversation conv-purple_conversation_get_connection(conv)- Purple::Conversation conv-purple_conversation_set_title(conv, title);- Purple::Conversation conv-purple_conversation_get_title(conv)- Purple::Conversation conv-purple_conversation_autoset_title(conv)- Purple::Conversation conv-purple_conversation_set_name(conv, name)- Purple::Conversation conv-purple_conversation_get_name(conv)- Purple::Conversation conv-purple_conversation_set_logging(conv, log)- Purple::Conversation conv-purple_conversation_is_logging(conv)- Purple::Conversation conv-purple_conversation_get_features(conv)- Purple::Conversation conv-purple_conversation_has_focus(conv)- Purple::Conversation conv-purple_conversation_update(conv, type)- Purple::Conversation conv- Purple::Conversation::UpdateType type-purple_conversation_set_account(conv, account);- Purple::Conversation conv- Purple::Account account-purple_conversation_send(conv, message)- Purple::Conversation conv-purple_conversation_send_with_flags(conv, message, flags)- Purple::Conversation conv- Purple::MessageFlags flags-purple_conversation_do_command(conv, cmdline, markup, error)- Purple::Conversation conv-MODULE = Purple::Conversation PACKAGE = Purple::IMConversation PREFIX = purple_im_conversation_-purple_im_conversation_new(class, account, name)- Purple::Account account-purple_im_conversation_set_icon(im, icon)- Purple::IMConversation im- Purple::Buddy::Icon icon-purple_im_conversation_get_icon(im)- Purple::IMConversation im-purple_im_conversation_set_typing_state(im, state)- Purple::IMConversation im- Purple::IMTypingState state-purple_im_conversation_get_typing_state(im)- Purple::IMConversation im-purple_im_conversation_start_typing_timeout(im, timeout)- Purple::IMConversation im-purple_im_conversation_stop_typing_timeout(im)- Purple::IMConversation im-purple_im_conversation_get_typing_timeout(im)- Purple::IMConversation im-purple_im_conversation_set_type_again(im, val)- Purple::IMConversation im-purple_im_conversation_get_type_again(im)- Purple::IMConversation im-purple_im_conversation_start_send_typed_timeout(im)- Purple::IMConversation im-purple_im_conversation_stop_send_typed_timeout(im)- Purple::IMConversation im-purple_im_conversation_get_send_typed_timeout(im)- Purple::IMConversation im-purple_im_conversation_update_typing(im)- Purple::IMConversation im-MODULE = Purple::Conversation PACKAGE = Purple::Conversation::Helper PREFIX = purple_conversation_helper_-purple_conversation_present_error(who, account, what)- Purple::Account account-MODULE = Purple::Conversation PACKAGE = Purple::Conversation PREFIX = purple_conversation_-MODULE = Purple::Conversation PACKAGE = Purple::ChatConversation PREFIX = purple_chat_conversation_-Purple::ChatConversation-purple_chat_conversation_new(class, account, name)- Purple::Account account-purple_chat_conversation_get_users(chat)- Purple::ChatConversation chat- users = purple_chat_conversation_get_users(chat);- for (l = users; l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListEntry")));-purple_chat_conversation_ignore(chat, name)- Purple::ChatConversation chat-purple_chat_conversation_unignore(chat, name)- Purple::ChatConversation chat-purple_chat_conversation_set_ignored(chat, ignored)- Purple::ChatConversation chat- t_len = av_len((AV *)SvRV(ignored));- for (i = 0; i <= t_len; i++)- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(ignored), i, 0)));- for (l = purple_chat_conversation_set_ignored(chat, t_GL); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListEntry")));-purple_chat_conversation_get_ignored(chat)- Purple::ChatConversation chat- for (l = purple_chat_conversation_get_ignored(chat); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListEntry")));-purple_chat_conversation_get_topic(chat)- Purple::ChatConversation chat-purple_chat_conversation_set_id(chat, id)- Purple::ChatConversation chat-purple_chat_conversation_get_id(chat)- Purple::ChatConversation chat-purple_chat_conversation_add_users(chat, users, extra_msgs, flags, new_arrivals)- Purple::ChatConversation chat- GList *t_GL_users, *t_GL_extra_msgs, *t_GL_flags;- t_len = av_len((AV *)SvRV(users));- for (i = 0; i <= t_len; i++)- t_GL_users = g_list_append(t_GL_users, SvPVutf8_nolen(*av_fetch((AV *)SvRV(users), i, 0)));- t_len = av_len((AV *)SvRV(flags));- for (i = 0; i <= t_len; i++)- t_GL_flags = g_list_append(t_GL_flags, SvPVutf8_nolen(*av_fetch((AV *)SvRV(flags), i, 0)));- t_GL_extra_msgs = NULL;- t_len = av_len((AV *)SvRV(extra_msgs));- for (i = 0; i <= t_len; i++)- t_GL_extra_msgs = g_list_append(t_GL_extra_msgs, SvPVutf8_nolen(*av_fetch((AV *)SvRV(extra_msgs), i, 0)));- purple_chat_conversation_add_users(chat, t_GL_users, t_GL_extra_msgs, t_GL_flags, new_arrivals);- g_list_free(t_GL_users);- g_list_free(t_GL_extra_msgs);- g_list_free(t_GL_flags);-purple_chat_conversation_has_user(chat, user)- Purple::ChatConversation chat-void purple_chat_conversation_clear_users(chat)- Purple::ChatConversation chat-void purple_chat_conversation_set_nick(chat, nick)- Purple::ChatConversation chat-purple_chat_conversation_get_nick(chat)- Purple::ChatConversation chat-void purple_chat_conversation_leave(chat)- Purple::ChatConversation chat-gboolean purple_chat_conversation_has_left(chat)- Purple::ChatConversation chat-purple_chat_conversation_find_user(chat, name)- Purple::ChatConversation chat-purple_chat_user_get_name(cb)--- a/libpurple/plugins/perl/common/Core.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,21 +0,0 @@
-MODULE = Purple::Core PACKAGE = Purple::Core PREFIX = purple_core_- /* The argument to purple_core_quit_cb is not used,- * so there's little point in requiring it on the- RETVAL = purple_core_quit_cb(NULL);- ST(0) = boolSV(RETVAL);-purple_core_get_version()--- a/libpurple/plugins/perl/common/Debug.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,72 +0,0 @@
-MODULE = Purple::Debug PACKAGE = Purple::Debug PREFIX = purple_debug_- HV *stash = gv_stashpv("Purple::Debug", 1);- static const constiv *civ, const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_DEBUG_##name}- for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; )- newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv));-purple_debug(level, category, string)- Purple::DebugLevel level- purple_debug(level, category, "%s", string);-purple_debug_misc(category, string)- purple_debug_misc(category, "%s", string);-purple_debug_info(category, string)- purple_debug_info(category, "%s", string);-purple_debug_warning(category, string)- purple_debug_warning(category, "%s", string);-purple_debug_error(category, string)- purple_debug_error(category, "%s", string);-purple_debug_fatal(category, string)- purple_debug_fatal(category, "%s", string);-purple_debug_set_enabled(enabled)-purple_debug_is_enabled()--- a/libpurple/plugins/perl/common/Idle.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,12 +0,0 @@
-MODULE = Purple::Idle PACKAGE = Purple::Idle PREFIX = purple_idle_--- a/libpurple/plugins/perl/common/Log.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,129 +0,0 @@
-MODULE = Purple::Log PACKAGE = Purple::Log PREFIX = purple_log_- HV *type_stash = gv_stashpv("Purple::Log::Type", 1);- HV *flags_stash = gv_stashpv("Purple::Log::ReadFlags", 1);- static const constiv *civ, type_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_LOG_##name}- static const constiv flags_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_LOG_READ_##name}- for (civ = type_const_iv + sizeof(type_const_iv) / sizeof(type_const_iv[0]); civ-- > type_const_iv; )- newCONSTSUB(type_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = flags_const_iv + sizeof(flags_const_iv) / sizeof(flags_const_iv[0]); civ-- > flags_const_iv; )- newCONSTSUB(flags_stash, (char *)civ->name, newSViv(civ->iv));-purple_log_common_sizer(log)-purple_log_common_writer(log, ext)-purple_log_compare(y, z)-purple_log_get_log_dir(type, name, account)- Purple::Account account-purple_log_get_log_sets()- l = purple_log_get_log_sets();- XPUSHs(sv_2mortal(purple_perl_bless_object(l, "GHashTable")));-purple_log_get_logs(type, name, account)- Purple::Account account- ll = purple_log_get_logs(type, name, account);- for (l = ll; l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Log")));- /* We can free the list here but the script needs to free the- * Purple::Log 'objects' itself. */-purple_log_get_size(log)-purple_log_get_system_logs(account)- Purple::Account account- ll = purple_log_get_system_logs(account);- for (l = ll; l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Log")));- /* We can free the list here but the script needs to free the- * Purple::Log 'objects' itself. */-purple_log_get_total_size(type, name, account)- Purple::Account account-purple_log_logger_free(logger)- Purple::Log::Logger logger-purple_log_logger_get_options()- /* This might want to be massaged to a hash, since that's essentially- * what the key/value list is emulating. */- for (l = ll = purple_log_logger_get_options(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));-purple_log_read(log, flags)- Purple::Log::ReadFlags flags-purple_log_set_compare(y, z)--- a/libpurple/plugins/perl/common/MANIFEST Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,36 +0,0 @@
--- a/libpurple/plugins/perl/common/Makefile.PL.in Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,29 +0,0 @@
-use ExtUtils::MakeMaker;-# See lib/ExtUtils/MakeMaker.pm for details of how to influence the contents-# of the Makefile that is written.- 'VERSION' => '@VERSION@',- 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1- ($] >= 5.005 ? ## Add these new keywords supported since 5.005- (ABSTRACT_FROM => '@srcdir@/Purple.pm', # finds $ABSTRACT- AUTHOR => 'Purple <https://pidgin.im/>') : ()),- 'DEFINE' => '@DEBUG_CFLAGS@ -Wno-float-equal',- 'dynamic_lib' => { 'OTHERLDFLAGS' => '@LDFLAGS@' },- 'INC' => '-I. -I@srcdir@ -I@top_srcdir@ -I@top_builddir@ -I@top_srcdir@/libpurple @GLIB_CFLAGS@ -DHAVE_CONFIG_H',- 'OBJECT' => '$(O_FILES)', # link all the C files too-# 'OPTIMIZE' => '-g', # For debugging- 'INSTALLDIRS' => 'vendor',- 'INSTALL_BASE' => '$(prefix)',- 'INSTALLVENDORARCH' => '$(libdir)/purple-$(PURPLE_MAJOR_VERSION)/perl',- 'INSTALLVENDORMAN3DIR' => '$(mandir)/man3',- 'prefix' => '@prefix@',- 'exec_prefix' => '@exec_prefix@',- 'libdir' => '@libdir@',- 'mandir' => '@mandir@',- 'datarootdir' => '@datarootdir@',- 'PURPLE_MAJOR_VERSION' => '@PURPLE_MAJOR_VERSION@',--- a/libpurple/plugins/perl/common/Makefile.mingw Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,128 +0,0 @@
-# Description: Makefile for Purple perl module.-PIDGIN_TREE_TOP := ../../../..-include $(PIDGIN_TREE_TOP)/libpurple/win32/global.mak-#we cannot include win32dep.h, but we need struct sockaddr_in6 definition-CFLAGS += -include ws2tcpip.h-GCCWARNINGS += -Wno-comment -Wno-unused -Wno-nested-externs-DEFINES := $(subst -DWIN32_LEAN_AND_MEAN,,$(DEFINES))-AUTOSPLIT = lib/auto/Purple/autosplit.ix- -I$(PURPLE_TOP)/win32 \- -I$(GTK_TOP)/include/glib-2.0 \- -I$(GTK_TOP)/lib/glib-2.0/include \- -I$(PERL_LIB_TOP)/include- -L$(PERL_LIB_TOP)/lib \-#FALLBACKS = const-c.inc const-xs.inc-C_FILES = $(XS_FILES:%.xs=%.c)-OBJECTS = $(C_FILES:%.c=%.o)-include $(PIDGIN_COMMON_RULES)-.PHONY: all install clean-all: $(TARGET).dll $(AUTOSPLIT)- rm -rf $(PURPLE_INSTALL_PERL_DIR)- mkdir -p $(PURPLE_INSTALL_PERL_DIR)- cp -R lib/* $(PURPLE_INSTALL_PERL_DIR)- cp $(TARGET).dll $(PURPLE_INSTALL_PERL_DIR)/auto/Purple-$(C_FILES): $(PURPLE_CONFIG_H)- @$(PERL) -MAutoSplit -e 'autosplit("lib/Purple.pm")'-$(TARGET).dll: $(PURPLE_DLL).a $(PURPLE_PERL_DLL).a $(FALLBACKS) $(OBJECTS)- $(CC) -shared $(OBJECTS) $(LIB_PATHS) $(LIBS) $(DLL_LD_FLAGS) -o $(TARGET).dll- rm -rf $(TARGET).dll $(FALLBACKS) lib-include $(PIDGIN_COMMON_TARGETS)--- a/libpurple/plugins/perl/common/Network.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,42 +0,0 @@
-MODULE = Purple::Network PACKAGE = Purple::Network PREFIX = purple_network_-purple_network_get_local_system_ip(fd)-purple_network_get_my_ip(fd)-purple_network_get_port_from_fd(fd)-purple_network_get_public_ip()-Purple::NetworkListenData-purple_network_listen(port, socket_family, socket_type, map_external, cb, cb_data)- Purple::NetworkListenCallback cb-Purple::NetworkListenData-purple_network_listen_range(start, end, socket_family, socket_type, map_external, cb, cb_data)- Purple::NetworkListenCallback cb-purple_network_set_public_ip(ip)--- a/libpurple/plugins/perl/common/Notify.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,178 +0,0 @@
-MODULE = Purple::Notify PACKAGE = Purple::Notify PREFIX = purple_notify_- HV *type_stash = gv_stashpv("Purple::Notify::Type", 1);- HV *msg_type_stash = gv_stashpv("Purple::Notify::Msg", 1);- HV *user_info_stash = gv_stashpv("Purple::NotifyUserInfo::Type", 1);- static const constiv *civ, type_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_NOTIFY_##name}- const_iv(SEARCHRESULTS),- static const constiv msg_type_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_NOTIFY_MSG_##name}- static const constiv user_info_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_NOTIFY_USER_INFO_ENTRY_##name}- const_iv(SECTION_BREAK),- const_iv(SECTION_HEADER),- for (civ = type_const_iv + sizeof(type_const_iv) / sizeof(type_const_iv[0]); civ-- > type_const_iv; )- newCONSTSUB(type_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = msg_type_const_iv + sizeof(msg_type_const_iv) / sizeof(msg_type_const_iv[0]); civ-- > msg_type_const_iv; )- newCONSTSUB(msg_type_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = user_info_const_iv + sizeof(user_info_const_iv) / sizeof(user_info_const_iv[0]); civ-- > user_info_const_iv; )- newCONSTSUB(user_info_stash, (char *)civ->name, newSViv(civ->iv));-purple_notify_close(type, ui_handle)- Purple::NotifyType type-purple_notify_close_with_handle(handle)-purple_notify_email(handle, subject, from, to, url, cb, user_data)- Purple::NotifyCloseCallback cb-purple_notify_emails(handle, count, detailed, subjects, froms, tos, urls, cb, user_data)- Purple::NotifyCloseCallback cb-purple_notify_formatted(handle, title, primary, secondary, text, cb, user_data)- Purple::NotifyCloseCallback cb-purple_notify_userinfo(gc, who, user_info, cb, user_data)- Purple::NotifyUserInfo user_info- Purple::NotifyCloseCallback cb-purple_notify_message(handle, type, title, primary, secondary, cb, user_data)- Purple::NotifyMsgType type- Purple::NotifyCloseCallback cb- RETVAL = purple_notify_message(handle, type, title, primary, secondary, NULL, cb, user_data);-purple_notify_searchresults(gc, title, primary, secondary, results, cb, user_data)- Purple::NotifySearchResults results- Purple::NotifyCloseCallback cb-purple_notify_uri(handle, uri)-MODULE = Purple::Notify PACKAGE = Purple::NotifyUserInfo PREFIX = purple_notify_user_info_-purple_notify_user_info_new(class)-purple_notify_user_info_destroy(user_info)- Purple::NotifyUserInfo user_info-purple_notify_user_info_get_entries(user_info)- Purple::NotifyUserInfo user_info- l = purple_notify_user_info_get_entries(user_info)->head;- for (; l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::NotifyUserInfoEntry")));-purple_notify_user_info_get_text_with_newline(user_info, newline)- Purple::NotifyUserInfo user_info-void purple_notify_user_info_add_pair_html(user_info, label, value)- Purple::NotifyUserInfo user_info-void purple_notify_user_info_prepend_pair_html(user_info, label, value)- Purple::NotifyUserInfo user_info-void purple_notify_user_info_add_section_break(user_info)- Purple::NotifyUserInfo user_info-void purple_notify_user_info_add_section_header(user_info, label)- Purple::NotifyUserInfo user_info-void purple_notify_user_info_remove_last_item(user_info)- Purple::NotifyUserInfo user_info-purple_notify_user_info_entry_get_label(user_info_entry)- Purple::NotifyUserInfoEntry user_info_entry-purple_notify_user_info_entry_get_value(user_info_entry)- Purple::NotifyUserInfoEntry user_info_entry--- a/libpurple/plugins/perl/common/Plugin.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,166 +0,0 @@
-MODULE = Purple::Plugin PACKAGE = Purple::Plugin PREFIX = purple_plugin_- HV *stash = gv_stashpv("Purple::Plugin::Type", 1);- static const constiv *civ, const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_PLUGIN_##name}- for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; )- newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv));-purple_plugin_new(native, path)-purple_plugin_probe(filename)-purple_plugin_register(plugin)-purple_plugin_load(plugin)-purple_plugin_unload(plugin)-purple_plugin_reload(plugin)-purple_plugin_destroy(plugin)-purple_plugin_is_loaded(plugin)-purple_plugin_is_unloadable(plugin)-purple_plugin_get_id(plugin)-purple_plugin_get_name(plugin)-purple_plugin_get_version(plugin)-purple_plugin_get_summary(plugin)-purple_plugin_get_description(plugin)-purple_plugin_get_author(plugin)-purple_plugin_get_homepage(plugin)-MODULE = Purple::Plugin PACKAGE = Purple::Plugin::IPC PREFIX = purple_plugin_ipc_-purple_plugin_ipc_unregister(plugin, command)-purple_plugin_ipc_unregister_all(plugin)-MODULE = Purple::Plugin PACKAGE = Purple::Plugins PREFIX = purple_plugins_-purple_plugins_add_search_path(path)-purple_plugins_unload_all()-purple_plugins_destroy_all()-purple_plugins_load_saved(key)-purple_plugins_probe(ext)-purple_plugins_enabled()-purple_plugins_find_with_name(name)-purple_plugins_find_with_filename(filename)-purple_plugins_find_with_basename(basename)-purple_plugins_find_with_id(id)-purple_plugins_get_loaded()- for (l = purple_plugins_get_loaded(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Plugin")));-purple_plugins_get_protocols()- for (l = purple_plugins_get_protocols(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Plugin")));-purple_plugins_get_all()- for (l = purple_plugins_get_all(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Plugin")));-purple_plugins_get_handle()--- a/libpurple/plugins/perl/common/PluginPref.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,188 +0,0 @@
-MODULE = Purple::PluginPref PACKAGE = Purple::PluginPref::Frame PREFIX = purple_plugin_pref_frame_- HV *string_format_stash = gv_stashpv("Purple::String::Format::Type", 1);- HV *plugin_pref_stash = gv_stashpv("Purple::PluginPref::Type", 1);- static const constiv *civ, string_format_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_STRING_FORMAT_TYPE_##name}- static const constiv plugin_pref_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_PLUGIN_PREF_##name}- const_iv(STRING_FORMAT),- for (civ = string_format_const_iv + sizeof(string_format_const_iv) / sizeof(string_format_const_iv[0]); civ-- > string_format_const_iv; )- newCONSTSUB(string_format_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = plugin_pref_const_iv + sizeof(plugin_pref_const_iv) / sizeof(plugin_pref_const_iv[0]); civ-- > plugin_pref_const_iv; )- newCONSTSUB(plugin_pref_stash, (char *)civ->name, newSViv(civ->iv));-purple_plugin_pref_frame_add(frame, pref)- Purple::PluginPref::Frame frame- Purple::PluginPref pref-purple_plugin_pref_frame_destroy(frame)- Purple::PluginPref::Frame frame-purple_plugin_pref_frame_get_prefs(frame)- Purple::PluginPref::Frame frame- for (l = purple_plugin_pref_frame_get_prefs(frame); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::PluginPref")));-Purple::PluginPref::Frame-purple_plugin_pref_frame_new(class)-MODULE = Purple::PluginPref PACKAGE = Purple::PluginPref PREFIX = purple_plugin_pref_-purple_plugin_pref_add_choice(pref, label, choice)- Purple::PluginPref pref-# Do the appropriate conversion based on the perl type specified.-# Currently only Strings and Ints will work.- gpointer choice = (SvPOKp($arg) ? SvPVutf8_nolen($arg) : (SvIOKp($arg) ? GINT_TO_POINTER(SvIV($arg)) : NULL));-purple_plugin_pref_destroy(pref)- Purple::PluginPref pref-purple_plugin_pref_get_bounds(pref, OUTLIST int min, OUTLIST int max)- Purple::PluginPref pref- # According to the perlxs manual page we shouldn't need to specify a- # prototype here because "[p]arameters preceded by OUTLIST keyword do- # not appear in the usage signature of the generated Perl function."- # however that appears to only work for the usage error message and- # not for the call to newXSproto. Since I can't find any documentation- # for newXSproto at the moment I have no idea if that matters so- # override the prototype here.-purple_plugin_pref_get_choices(pref)- Purple::PluginPref pref- for (l = purple_plugin_pref_get_choices(pref); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListItem")));-purple_plugin_pref_get_label(pref)- Purple::PluginPref pref-purple_plugin_pref_get_masked(pref)- Purple::PluginPref pref-Purple::String::Format::Type-purple_plugin_pref_get_format_type(pref)- Purple::PluginPref pref-purple_plugin_pref_get_max_length(pref)- Purple::PluginPref pref-purple_plugin_pref_get_name(pref)- Purple::PluginPref pref-purple_plugin_pref_get_pref_type(pref)- Purple::PluginPref pref-purple_plugin_pref_new(class)-purple_plugin_pref_new_with_label(class, label)-purple_plugin_pref_new_with_name(class, name)-purple_plugin_pref_new_with_name_and_label(class, name, label)-purple_plugin_pref_set_bounds(pref, min, max)- Purple::PluginPref pref-purple_plugin_pref_set_label(pref, label)- Purple::PluginPref pref-purple_plugin_pref_set_masked(pref, mask)- Purple::PluginPref pref-purple_plugin_pref_set_format_type(pref, format)- Purple::PluginPref pref- Purple::String::Format::Type format-purple_plugin_pref_set_max_length(pref, max_length)- Purple::PluginPref pref- unsigned int max_length-purple_plugin_pref_set_name(pref, name)- Purple::PluginPref pref-purple_plugin_pref_set_pref_type(pref, type)- Purple::PluginPref pref- Purple::PluginPrefType type- PurplePluginPrefType gpp_type;- gpp_type = PURPLE_PLUGIN_PREF_NONE;- gpp_type = PURPLE_PLUGIN_PREF_CHOICE;- } else if (type == 2) {- gpp_type = PURPLE_PLUGIN_PREF_INFO;- } else if (type == 3) {- gpp_type = PURPLE_PLUGIN_PREF_STRING_FORMAT;- purple_plugin_pref_set_pref_type(pref, gpp_type);--- a/libpurple/plugins/perl/common/Pounce.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,126 +0,0 @@
-MODULE = Purple::Pounce PACKAGE = Purple::Pounce PREFIX = purple_pounce_- HV *event_stash = gv_stashpv("Purple::Pounce::Event", 1);- HV *option_stash = gv_stashpv("Purple::Pounce::Option", 1);- static const constiv *civ, event_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_POUNCE_##name}- const_iv(TYPING_STOPPED),- const_iv(MESSAGE_RECEIVED),- static const constiv option_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_POUNCE_OPTION_##name}- for (civ = event_const_iv + sizeof(event_const_iv) / sizeof(event_const_iv[0]); civ-- > event_const_iv; )- newCONSTSUB(event_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = option_const_iv + sizeof(option_const_iv) / sizeof(option_const_iv[0]); civ-- > option_const_iv; )- newCONSTSUB(option_stash, (char *)civ->name, newSViv(civ->iv));-purple_pounce_action_register(pounce, name)-purple_pounce_destroy(pounce)-purple_pounce_destroy_all_by_account(account)- Purple::Account account-purple_pounce_get_data(pounce)-purple_pounce_get_events(pounce)-purple_pounce_get_pouncee(pounce)-purple_pounce_get_pouncer(pounce)-purple_pounce_get_save(pounce)-purple_pounce_set_data(pounce, data)-purple_pounce_set_events(pounce, events)- Purple::PounceEvent events-purple_pounce_set_pouncee(pounce, pouncee)-purple_pounce_set_pouncer(pounce, pouncer)- Purple::Account pouncer-purple_pounce_set_save(pounce, save)-MODULE = Purple::Pounce PACKAGE = Purple::Pounces PREFIX = purple_pounces_-purple_pounces_get_all()- for (l = purple_pounces_get_all(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Pounce")));-purple_pounces_get_all_for_ui(ui)- ll = purple_pounces_get_all_for_ui(ui);- for (l = ll; l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Pounce")));-purple_pounces_get_handle()-purple_pounces_unregister_handler(ui)--- a/libpurple/plugins/perl/common/Prefs.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,244 +0,0 @@
-#include "../perl-handlers.h"-MODULE = Purple::Prefs PACKAGE = Purple::Prefs PREFIX = purple_prefs_- HV *stash = gv_stashpv("Purple::Pref::Type", 1);- static const constiv *civ, const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_PREF_##name}- for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; )- newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv));-purple_prefs_add_bool(name, value)-purple_prefs_add_int(name, value)-purple_prefs_add_none(name)-purple_prefs_add_string(name, value)-purple_prefs_add_string_list(name, value)- t_len = av_len((AV *)SvRV(value));- for (i = 0; i <= t_len; i++)- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0)));- purple_prefs_add_string_list(name, t_GL);-purple_prefs_add_path(name, value)-purple_prefs_add_path_list(name, value)- t_len = av_len((AV *)SvRV(value));- for (i = 0; i <= t_len; i++)- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0)));- purple_prefs_add_path_list(name, t_GL);-purple_prefs_connect_callback(plugin, name, callback, data = 0);- RETVAL = purple_perl_prefs_connect_callback(plugin, name, callback, data);-purple_prefs_disconnect_by_handle(plugin)- purple_perl_pref_cb_clear_for_plugin(plugin);-purple_prefs_disconnect_callback(callback_id)- purple_perl_prefs_disconnect_callback(callback_id);-purple_prefs_exists(name)-purple_prefs_get_path(name)-purple_prefs_get_path_list(name)- for (l = purple_prefs_get_path_list(name); l != NULL; l = g_list_delete_link(l, l)) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));-purple_prefs_get_bool(name)-purple_prefs_get_handle()-purple_prefs_get_int(name)-purple_prefs_get_string(name)-purple_prefs_get_string_list(name)- for (l = purple_prefs_get_string_list(name); l != NULL; l = g_list_delete_link(l, l)) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));-purple_prefs_get_pref_type(name)-purple_prefs_remove(name)-purple_prefs_rename(oldname, newname)-purple_prefs_rename_boolean_toggle(oldname, newname)-purple_prefs_set_bool(name, value)-purple_prefs_set_int(name, value)-purple_prefs_set_string(name, value)-purple_prefs_set_string_list(name, value)- t_len = av_len((AV *)SvRV(value));- for (i = 0; i <= t_len; i++)- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0)));- purple_prefs_set_string_list(name, t_GL);-purple_prefs_set_path(name, value)-purple_prefs_set_path_list(name, value)- t_len = av_len((AV *)SvRV(value));- for (i = 0; i <= t_len; i++)- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0)));- purple_prefs_set_path_list(name, t_GL);-purple_prefs_trigger_callback(name)-purple_prefs_get_children_names(name)- for (l = purple_prefs_get_children_names(name); l != NULL; l = g_list_delete_link(l, l)) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));--- a/libpurple/plugins/perl/common/Presence.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,102 +0,0 @@
-MODULE = Purple::Presence PACKAGE = Purple::Presence PREFIX = purple_presence_-purple_presence_get_active_status(presence)- Purple::Presence presence-purple_presence_get_idle_time(presence)- Purple::Presence presence-purple_presence_get_login_time(presence)- Purple::Presence presence-purple_presence_get_status(presence, status_id)- Purple::Presence presence-purple_presence_get_statuses(presence)- Purple::Presence presence- for (l = purple_presence_get_statuses(presence); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Status")));-purple_presence_is_available(presence)- Purple::Presence presence-purple_presence_is_idle(presence)- Purple::Presence presence-purple_presence_is_online(presence)- Purple::Presence presence-purple_presence_is_status_active(presence, status_id)- Purple::Presence presence-purple_presence_is_status_primitive_active(presence, primitive)- Purple::Presence presence- Purple::StatusPrimitive primitive-purple_presence_set_idle(presence, idle, idle_time)- Purple::Presence presence-purple_presence_set_login_time(presence, login_time)- Purple::Presence presence-purple_presence_set_status_active(presence, status_id, active)- Purple::Presence presence-purple_presence_switch_status(presence, status_id)- Purple::Presence presence-MODULE = Purple::Presence PACKAGE = Purple::AccountPresence PREFIX = purple_account_presence_-purple_account_presence_get_account(presence)- Purple::AccountPresence presence-purple_account_presence_new(account)- Purple::Account account-MODULE = Purple::Presence PACKAGE = Purple::BuddyPresence PREFIX = purple_buddy_presence_-purple_buddy_presence_compare(presence1, presence2)- Purple::BuddyPresence presence1- Purple::BuddyPresence presence2-Purple::BuddyList::Buddy-purple_buddy_presence_get_buddy(presence)- Purple::BuddyPresence presence-purple_buddy_presence_new(buddy)- Purple::BuddyList::Buddy buddy--- a/libpurple/plugins/perl/common/Proxy.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,86 +0,0 @@
-MODULE = Purple::Proxy PACKAGE = Purple::Proxy PREFIX = purple_proxy_- HV *stash = gv_stashpv("Purple::ProxyType", 1);- static const constiv *civ, const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_PROXY_##name}- for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; )- newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv));-purple_proxy_get_handle()-MODULE = Purple::Proxy PACKAGE = Purple::ProxyInfo PREFIX = purple_proxy_info_-purple_proxy_info_destroy(info)-purple_proxy_info_get_host(info)-purple_proxy_info_get_password(info)-purple_proxy_info_get_port(info)-purple_proxy_info_get_proxy_type(info)-purple_proxy_info_get_username(info)-purple_proxy_info_set_host(info, host)-purple_proxy_info_set_password(info, password)-purple_proxy_info_set_port(info, port)-purple_proxy_info_set_proxy_type(info, type)-purple_proxy_info_set_username(info, username)-MODULE = Purple::Proxy PACKAGE = Purple::Proxy PREFIX = purple_-purple_global_proxy_get_info()--- a/libpurple/plugins/perl/common/Prpl.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,76 +0,0 @@
-MODULE = Purple::Prpl PACKAGE = Purple::Find PREFIX = purple_protocols_-purple_protocols_find(id)-MODULE = Purple::Prpl PACKAGE = Purple::Prpl PREFIX = purple_protocol_-purple_protocol_change_account_status(account, old_status, new_status)- Purple::Account account- Purple::Status old_status- Purple::Status new_status-purple_protocol_get_statuses(account, presence)- Purple::Account account- Purple::Presence presence- ll = purple_protocol_get_statuses(account,presence);- for (l = ll; l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Status")));- /* We can free the list here but the script needs to free the- * Purple::Status 'objects' itself. */-purple_protocol_got_account_idle(account, idle, idle_time)- Purple::Account account-purple_protocol_got_account_login_time(account, login_time)- Purple::Account account-purple_protocol_got_user_idle(account, name, idle, idle_time)- Purple::Account account-purple_protocol_got_user_login_time(account, name, login_time)- Purple::Account account-purple_protocol_send_raw(gc, str)- PurpleProtocol *protocol;- protocol = purple_connection_get_protocol(gc);- RETVAL = purple_protocol_iface_send_raw(protocol, gc, str, strlen(str));--- a/libpurple/plugins/perl/common/Purple.pm Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,129 +0,0 @@
-our @ISA = qw(Exporter);-# Items to export into callers namespace by default. Note: do not export-# names by default without a very good reason. Use EXPORT_OK instead.-# Do not simply export all your public functions/methods/constants.-# This allows declaration use Purple ':all';-# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK-our %EXPORT_TAGS = ( 'all' => [ qw(-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );- # This AUTOLOAD is used to 'autoload' constants from the constant()- ($constname = $AUTOLOAD) =~ s/.*:://;- croak "&Purple::constant not defined" if $constname eq 'constant';- my ($error, $val) = constant($constname);- if ($error) { croak $error; }- *$AUTOLOAD = sub { $val };-XSLoader::load('Purple', $VERSION);-# Preloaded methods go here.-Purple - Perl extension to the libpurple instant messenger library.- This module provides the interface for using perl scripts as plugins-This module provides the interface for using perl scripts as plugins-in Purple. With this, developers can write perl scripts that can be-loaded in Purple as plugins. The scripts can interact with IMs, chats,-accounts, the buddy list, libpurple signals, and more.-The API for the perl interface is very similar to that of the Purple C-API, which can be viewed at https://developer.pidgin.im/doxygen/ or in-the header files in the Purple source tree.-=item @accounts = Purple::accounts-Returns a list of all accounts, online or offline.-=item @chats = Purple::chats-Returns a list of all chats currently open.-=item @connections = Purple::connections-Returns a list of all active connections.-=item @conversations = Purple::conversations-Returns a list of all conversations, both IM and chat, currently open.-=item @conv_windows = Purple::conv_windows-Returns a list of all conversation windows currently open.-=item @ims = Purple::ims-Returns a list of all instant messages currently open.-Purple C API documentation - https://developer.pidgin.im/doxygen/-Purple website - https://pidgin.im/-Christian Hammond, E<lt>chipx86@gnupdate.orgE<gt>-=head1 COPYRIGHT AND LICENSE-Copyright 2003 by Christian Hammond-This library is free software; you can redistribute it and/or modify-it under the terms of the General Public License (GPL). For-more information, see http://www.fsf.org/licenses/gpl.txt--- a/libpurple/plugins/perl/common/Purple.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,108 +0,0 @@
-#include "../perl-handlers.h"-/* Prototypes for the BOOT section below. */-PURPLE_PERL_BOOT_PROTO(Account);-PURPLE_PERL_BOOT_PROTO(Account__Option);-PURPLE_PERL_BOOT_PROTO(Buddy__Icon);-PURPLE_PERL_BOOT_PROTO(BuddyList);-PURPLE_PERL_BOOT_PROTO(Certificate);-PURPLE_PERL_BOOT_PROTO(Cmd);-PURPLE_PERL_BOOT_PROTO(Connection);-PURPLE_PERL_BOOT_PROTO(Conversation);-PURPLE_PERL_BOOT_PROTO(Core);-PURPLE_PERL_BOOT_PROTO(Debug);-PURPLE_PERL_BOOT_PROTO(Hash);-PURPLE_PERL_BOOT_PROTO(Xfer);-PURPLE_PERL_BOOT_PROTO(Idle);-PURPLE_PERL_BOOT_PROTO(Log);-PURPLE_PERL_BOOT_PROTO(Network);-PURPLE_PERL_BOOT_PROTO(Notify);-PURPLE_PERL_BOOT_PROTO(Plugin);-PURPLE_PERL_BOOT_PROTO(PluginPref);-PURPLE_PERL_BOOT_PROTO(Pounce);-PURPLE_PERL_BOOT_PROTO(Prefs);-PURPLE_PERL_BOOT_PROTO(Proxy);-PURPLE_PERL_BOOT_PROTO(Prpl);-PURPLE_PERL_BOOT_PROTO(Request);-PURPLE_PERL_BOOT_PROTO(Roomlist);-PURPLE_PERL_BOOT_PROTO(SSL);-PURPLE_PERL_BOOT_PROTO(SavedStatus);-PURPLE_PERL_BOOT_PROTO(Serv);-PURPLE_PERL_BOOT_PROTO(Signal);-PURPLE_PERL_BOOT_PROTO(Sound);-PURPLE_PERL_BOOT_PROTO(Status);-PURPLE_PERL_BOOT_PROTO(Stringref);-PURPLE_PERL_BOOT_PROTO(Util);-PURPLE_PERL_BOOT_PROTO(Whiteboard);-PURPLE_PERL_BOOT_PROTO(XMLNode);-MODULE = Purple PACKAGE = Purple PREFIX = purple_- PURPLE_PERL_BOOT(Account);- PURPLE_PERL_BOOT(Account__Option);- PURPLE_PERL_BOOT(Buddy__Icon);- PURPLE_PERL_BOOT(BuddyList);- PURPLE_PERL_BOOT(Certificate);- PURPLE_PERL_BOOT(Connection);- PURPLE_PERL_BOOT(Conversation);- PURPLE_PERL_BOOT(Core);- PURPLE_PERL_BOOT(Debug);- PURPLE_PERL_BOOT(Hash);- PURPLE_PERL_BOOT(Xfer);- PURPLE_PERL_BOOT(Idle);- PURPLE_PERL_BOOT(Network);- PURPLE_PERL_BOOT(Notify);- PURPLE_PERL_BOOT(Plugin);- PURPLE_PERL_BOOT(PluginPref);- PURPLE_PERL_BOOT(Pounce);- PURPLE_PERL_BOOT(Prefs);- PURPLE_PERL_BOOT(Proxy);- PURPLE_PERL_BOOT(Prpl);- PURPLE_PERL_BOOT(Request);- PURPLE_PERL_BOOT(Roomlist);- PURPLE_PERL_BOOT(SavedStatus);- PURPLE_PERL_BOOT(Serv);- PURPLE_PERL_BOOT(Signal);- PURPLE_PERL_BOOT(Sound);- PURPLE_PERL_BOOT(Status);- PURPLE_PERL_BOOT(Stringref);- PURPLE_PERL_BOOT(Util);- PURPLE_PERL_BOOT(Whiteboard);- PURPLE_PERL_BOOT(XMLNode);-timeout_add(plugin, seconds, callback, data = 0)- RETVAL = purple_perl_timeout_add(plugin, seconds, callback, data);- RETVAL = purple_perl_timeout_remove(handle);- purple_perl_timeout_clear();-MODULE = Purple PACKAGE = Purple PREFIX = purple_--- a/libpurple/plugins/perl/common/Request.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,648 +0,0 @@
-/* This breaks on faceprint's amd64 box-purple_request_action_varg(handle, title, primary, secondary, default_action, user_data, action_count, actions)- unsigned int default_action-} PurplePerlRequestData;-purple_perl_request_data_free(PurplePerlRequestData *ppr)- SvREFCNT_dec(ppr->ok_fun);- SvREFCNT_dec(ppr->cancel_fun);-/********************************************************/-/* Callback function that calls a perl subroutine */-/* The void * field data is being used as a way to hide */-/* the perl sub's name in a PurplePerlRequestData */-/********************************************************/-purple_perl_request_ok_cb(void * data, PurpleRequestFields *fields)- PurplePerlRequestData *gpr = (PurplePerlRequestData *)data;- XPUSHs(sv_2mortal(purple_perl_bless_object(fields, "Purple::Request::Fields")));- call_sv(gpr->ok_fun, G_EVAL | G_SCALAR);- purple_perl_request_data_free(gpr);-purple_perl_request_cancel_cb(void * data, PurpleRequestFields *fields)- PurplePerlRequestData *gpr = (PurplePerlRequestData *)data;- XPUSHs(sv_2mortal(purple_perl_bless_object(fields, "Purple::Request::Fields")));- call_sv(gpr->cancel_fun, G_EVAL | G_SCALAR);- purple_perl_request_data_free(gpr);-MODULE = Purple::Request PACKAGE = Purple::Request PREFIX = purple_request_- HV *request_stash = gv_stashpv("Purple::RequestType", 1);- HV *request_field_stash = gv_stashpv("Purple::RequestFieldType", 1);- static const constiv *civ, request_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_REQUEST_##name}- static const constiv request_field_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_REQUEST_FIELD_##name}- for (civ = request_const_iv + sizeof(request_const_iv) / sizeof(request_const_iv[0]); civ-- > request_const_iv; )- newCONSTSUB(request_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = request_field_const_iv + sizeof(request_field_const_iv) / sizeof(request_field_const_iv[0]); civ-- > request_field_const_iv; )- newCONSTSUB(request_field_stash, (char *)civ->name, newSViv(civ->iv));-purple_request_input(handle, title, primary, secondary, default_value, multiline, masked, hint, ok_text, ok_cb, cancel_text, cancel_cb)- const char * default_value- const char * cancel_text- PurplePerlRequestData *gpr;- basename = g_path_get_basename(handle->path);- purple_perl_normalize_script_name(basename);- gpr = g_new(PurplePerlRequestData, 1);- gpr->ok_fun = purple_perl_sv_from_fun(handle, ok_cb);- gpr->cancel_fun = purple_perl_sv_from_fun(handle, cancel_cb);- RETVAL = purple_request_input(handle, title, primary, secondary, default_value, multiline, masked, hint, ok_text, G_CALLBACK(purple_perl_request_ok_cb), cancel_text, G_CALLBACK(purple_perl_request_cancel_cb), NULL, gpr);-purple_request_file(handle, title, filename, savedialog, ok_cb, cancel_cb)- PurplePerlRequestData *gpr;- basename = g_path_get_basename(handle->path);- purple_perl_normalize_script_name(basename);- gpr = g_new(PurplePerlRequestData, 1);- gpr->ok_fun = purple_perl_sv_from_fun(handle, ok_cb);- gpr->cancel_fun = purple_perl_sv_from_fun(handle, cancel_cb);- RETVAL = purple_request_file(handle, title, filename, savedialog, G_CALLBACK(purple_perl_request_ok_cb), G_CALLBACK(purple_perl_request_cancel_cb), NULL, gpr);-purple_request_fields(handle, title, primary, secondary, fields, ok_text, ok_cb, cancel_text, cancel_cb)- Purple::Request::Fields fields- const char * cancel_text- PurplePerlRequestData *gpr;- basename = g_path_get_basename(handle->path);- purple_perl_normalize_script_name(basename);- gpr = g_new(PurplePerlRequestData, 1);- gpr->ok_fun = purple_perl_sv_from_fun(handle, ok_cb);- gpr->cancel_fun = purple_perl_sv_from_fun(handle, cancel_cb);- RETVAL = purple_request_fields(handle, title, primary, secondary, fields, ok_text, G_CALLBACK(purple_perl_request_ok_cb), cancel_text, G_CALLBACK(purple_perl_request_cancel_cb), NULL, gpr);-purple_request_close(type, uihandle)- Purple::RequestType type-purple_request_close_with_handle(handle)-MODULE = Purple::Request PACKAGE = Purple::Request::Field PREFIX = purple_request_field_-purple_request_field_account_new(class, id, text, account = NULL)- Purple::Account account- C_ARGS: id, text, account-purple_request_field_account_get_default_value(field)- Purple::Request::Field field-purple_request_field_account_get_filter(field)- Purple::Request::Field field- RETVAL = PTR2IV(purple_request_field_account_get_filter(field));-purple_request_field_account_get_show_all(field)- Purple::Request::Field field-purple_request_field_account_get_value(field)- Purple::Request::Field field-purple_request_field_account_set_default_value(field, default_value)- Purple::Request::Field field- Purple::Account default_value-purple_request_field_account_set_show_all(field, show_all)- Purple::Request::Field field-purple_request_field_account_set_value(field, value)- Purple::Request::Field field-MODULE = Purple::Request PACKAGE = Purple::Request::Field PREFIX = purple_request_field_-purple_request_field_bool_new(class, id, text, default_value = TRUE)- C_ARGS: id, text, default_value-purple_request_field_bool_get_default_value(field)- Purple::Request::Field field-purple_request_field_bool_get_value(field)- Purple::Request::Field field-purple_request_field_bool_set_default_value(field, default_value)- Purple::Request::Field field-purple_request_field_bool_set_value(field, value)- Purple::Request::Field field-MODULE = Purple::Request PACKAGE = Purple::Request::Field PREFIX = purple_request_field_-purple_request_field_choice_new(class, id, text, default_value = 0)- C_ARGS: id, text, default_value-purple_request_field_choice_add(field, label, value)- Purple::Request::Field field-purple_request_field_choice_get_default_value(field)- Purple::Request::Field field- # I'm not sure, if this is the correct implementation - if anyone will need it,- # he will add this back to API.- #purple_request_field_choice_get_elements(field)- # Purple::Request::Field field- # for (l = purple_request_field_choice_get_elements(field); l != NULL; l = l->next) {- # XPUSHs(sv_2mortal(newSVpv(l->data, 0)));-purple_request_field_choice_get_value(field)- Purple::Request::Field field-purple_request_field_choice_set_default_value(field, default_value)- Purple::Request::Field field-purple_request_field_choice_set_value(field, value)- Purple::Request::Field field-MODULE = Purple::Request PACKAGE = Purple::Request::Field PREFIX = purple_request_field_-purple_request_field_int_new(clas, id, text, default_value = 0, lower_bound = INT_MIN, upper_bound = INT_MAX)- C_ARGS: id, text, default_value, lower_bound, upper_bound-purple_request_field_int_get_default_value(field)- Purple::Request::Field field-purple_request_field_int_get_value(field)- Purple::Request::Field field-purple_request_field_int_set_default_value(field, default_value)- Purple::Request::Field field-purple_request_field_int_set_value(field, value)- Purple::Request::Field field-purple_request_field_is_required(field)- Purple::Request::Field field-MODULE = Purple::Request PACKAGE = Purple::Request::Field PREFIX = purple_request_field_-purple_request_field_label_new(class, id, text)-MODULE = Purple::Request PACKAGE = Purple::Request::Field PREFIX = purple_request_field_-purple_request_field_list_new(class, id, text)-purple_request_field_list_add_icon(field, item, icon_path, data)- Purple::Request::Field field-purple_request_field_list_add_selected(field, item)- Purple::Request::Field field-purple_request_field_list_clear_selected(field)- Purple::Request::Field field-purple_request_field_list_get_data(field, text)- Purple::Request::Field field-purple_request_field_list_get_items(field)- Purple::Request::Field field- for (l = purple_request_field_list_get_items(field); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));-purple_request_field_list_get_multi_select(field)- Purple::Request::Field field-purple_request_field_list_get_selected(field)- Purple::Request::Field field- for (l = purple_request_field_list_get_selected(field); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));-purple_request_field_list_is_selected(field, item)- Purple::Request::Field field-purple_request_field_list_set_multi_select(field, multi_select)- Purple::Request::Field field-MODULE = Purple::Request PACKAGE = Purple::Request::Field PREFIX = purple_request_field_-purple_request_field_new(class, id, text, type)- Purple::RequestFieldType type-purple_request_field_set_label(field, label)- Purple::Request::Field field-purple_request_field_set_required(field, required)- Purple::Request::Field field-purple_request_field_set_type_hint(field, type_hint)- Purple::Request::Field field-purple_request_field_set_visible(field, visible)- Purple::Request::Field field-MODULE = Purple::Request PACKAGE = Purple::Request::Field PREFIX = purple_request_field_-purple_request_field_string_new(class, id, text, default_value, multiline)- const char *default_value- C_ARGS: id, text, default_value, multiline-purple_request_field_string_get_default_value(field)- Purple::Request::Field field-purple_request_field_string_get_value(field)- Purple::Request::Field field-purple_request_field_string_is_masked(field)- Purple::Request::Field field-purple_request_field_string_is_multiline(field)- Purple::Request::Field field-purple_request_field_string_set_default_value(field, default_value)- Purple::Request::Field field- const char *default_value-purple_request_field_string_set_masked(field, masked)- Purple::Request::Field field-purple_request_field_string_set_value(field, value)- Purple::Request::Field field-MODULE = Purple::Request PACKAGE = Purple::Request::Field::Group PREFIX = purple_request_field_group_-purple_request_field_group_add_field(group, field)- Purple::Request::Field::Group group- Purple::Request::Field field-purple_request_field_group_destroy(group)- Purple::Request::Field::Group group-purple_request_field_group_get_fields(group)- Purple::Request::Field::Group group- for (l = purple_request_field_group_get_fields(group); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Request::Field")));-purple_request_field_group_get_title(group)- Purple::Request::Field::Group group-Purple::Request::Field::Group-purple_request_field_group_new(class, title)-MODULE = Purple::Request PACKAGE = Purple::Request::Field PREFIX = purple_request_field_-purple_request_field_destroy(field)- Purple::Request::Field field-purple_request_field_get_id(field)- Purple::Request::Field field-purple_request_field_get_label(field)- Purple::Request::Field field-Purple::RequestFieldType-purple_request_field_get_field_type(field)- Purple::Request::Field field-purple_request_field_get_field_type_hint(field)- Purple::Request::Field field-purple_request_field_is_visible(field)- Purple::Request::Field field-MODULE = Purple::Request PACKAGE = Purple::Request::Fields PREFIX = purple_request_fields_-purple_request_fields_new(class)-purple_request_fields_add_group(fields, group)- Purple::Request::Fields fields- Purple::Request::Field::Group group-purple_request_fields_all_required_filled(fields)- Purple::Request::Fields fields-purple_request_fields_destroy(fields)- Purple::Request::Fields fields-purple_request_fields_exists(fields, id)- Purple::Request::Fields fields-purple_request_fields_get_account(fields, id)- Purple::Request::Fields fields-purple_request_fields_get_bool(fields, id)- Purple::Request::Fields fields-purple_request_fields_get_choice(fields, id)- Purple::Request::Fields fields-purple_request_fields_get_field(fields, id)- Purple::Request::Fields fields-purple_request_fields_get_groups(fields)- Purple::Request::Fields fields- for (l = purple_request_fields_get_groups(fields); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Request::Field::Group")));-purple_request_fields_get_integer(fields, id)- Purple::Request::Fields fields-purple_request_fields_get_required(fields)- Purple::Request::Fields fields- for (l = purple_request_fields_get_required(fields); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Request::Field")));-purple_request_fields_get_string(fields, id)- Purple::Request::Fields fields-purple_request_fields_is_field_required(fields, id)- Purple::Request::Fields fields--- a/libpurple/plugins/perl/common/Roomlist.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,92 +0,0 @@
-MODULE = Purple::Roomlist PACKAGE = Purple::Roomlist PREFIX = purple_roomlist_- HV *room_stash = gv_stashpv("Purple::Roomlist::Room::Type", 1);- HV *field_stash = gv_stashpv("Purple::Roomlist::Field::Type", 1);- static const constiv *civ, room_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_ROOMLIST_ROOMTYPE_##name}- static const constiv field_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_ROOMLIST_FIELD_##name}- for (civ = room_const_iv + sizeof(room_const_iv) / sizeof(room_const_iv[0]); civ-- > room_const_iv; )- newCONSTSUB(room_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = field_const_iv + sizeof(field_const_iv) / sizeof(field_const_iv[0]); civ-- > field_const_iv; )- newCONSTSUB(field_stash, (char *)civ->name, newSViv(civ->iv));-purple_roomlist_cancel_get_list(list)-purple_roomlist_expand_category(list, category)- Purple::Roomlist::Room category-purple_roomlist_get_in_progress(list)-purple_roomlist_get_list(gc)-purple_roomlist_new(account)- Purple::Account account-purple_roomlist_room_add(list, room)- Purple::Roomlist::Room room-purple_roomlist_room_add_field(list, room, field)- Purple::Roomlist::Room room-purple_roomlist_room_join(list, room)- Purple::Roomlist::Room room-purple_roomlist_set_fields(list, fields)- t_len = av_len((AV *)SvRV(fields));- for (i = 0; i <= t_len; i++)- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(fields), i, 0)));- purple_roomlist_set_fields(list, t_GL);-purple_roomlist_set_in_progress(list, in_progress)-purple_roomlist_show_with_account(account)- Purple::Account account--- a/libpurple/plugins/perl/common/SSLConn.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,45 +0,0 @@
-purple_ssl_connect(account, host, port, func, error_func, data)- Purple::Account account- PurpleSslInputFunction func- PurpleSslErrorFunction error_func-purple_ssl_input_add(gsc, func, data)- Purple::Ssl::Connection gsc- Purple::SslInputFunction func-MODULE = Purple::SSL PACKAGE = Purple::SSL PREFIX = purple_ssl_- Purple::Ssl::Connection gsc-purple_ssl_read(gsc, buffer, len)- Purple::Ssl::Connection gsc-purple_ssl_write(gsc, buffer, len)- Purple::Ssl::Connection gsc--- a/libpurple/plugins/perl/common/SavedStatuses.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,152 +0,0 @@
-/* I can't get this to work, both with and without the const on the return- * type I get errors from gcc. One way about ignoring types in a cast, and the- * other about assigning to read-only variables.-const Purple::StatusType-purple_savedstatus_substatus_get_status_type(substatus)- const Purple::SavedStatus::Sub substatus-MODULE = Purple::SavedStatus PACKAGE = Purple::SavedStatus PREFIX = purple_savedstatus_-purple_savedstatus_new(title, type)- Purple::StatusPrimitive type-purple_savedstatus_set_title(status, title)- Purple::SavedStatus status-purple_savedstatus_set_primitive_type(status, type)- Purple::SavedStatus status- Purple::StatusPrimitive type-purple_savedstatus_set_message(status, message)- Purple::SavedStatus status-purple_savedstatus_set_substatus(status, account, type, message)- Purple::SavedStatus status- Purple::Account account- Purple::StatusType type-purple_savedstatus_unset_substatus(status, account)- Purple::SavedStatus status- Purple::Account account-purple_savedstatus_delete(title)-purple_savedstatus_get_current()-purple_savedstatus_get_default()-purple_savedstatus_get_idleaway()-purple_savedstatus_is_idleaway()-purple_savedstatus_set_idleaway(idleaway)-purple_savedstatus_get_startup()-purple_savedstatus_find(title)-purple_savedstatus_find_by_creation_time(creation_time)-purple_savedstatus_find_transient_by_type_and_message(type, message)- Purple::StatusPrimitive type-purple_savedstatus_is_transient(saved_status)- const Purple::SavedStatus saved_status-purple_savedstatus_get_title(saved_status)- const Purple::SavedStatus saved_status-purple_savedstatus_get_primitive_type(saved_status)- const Purple::SavedStatus saved_status-purple_savedstatus_get_message(saved_status)- const Purple::SavedStatus saved_status-purple_savedstatus_get_creation_time(saved_status)- const Purple::SavedStatus saved_status-purple_savedstatus_has_substatuses(saved_status)- const Purple::SavedStatus saved_status-Purple::SavedStatus::Sub-purple_savedstatus_get_substatus(saved_status, account)- Purple::SavedStatus saved_status- Purple::Account account-purple_savedstatus_activate(saved_status)- Purple::SavedStatus saved_status-purple_savedstatus_activate_for_account(saved_status, account)- const Purple::SavedStatus saved_status- Purple::Account account-MODULE = Purple::SavedStatus::Sub PACKAGE = Purple::SavedStatus::Sub PREFIX = purple_savedstatus_substatus_-purple_savedstatus_substatus_get_message(substatus)- const Purple::SavedStatus::Sub substatus-MODULE = Purple::SavedStatus PACKAGE = Purple::SavedStatuses PREFIX = purple_savedstatuses_-purple_savedstatuses_get_all()- for (l = purple_savedstatuses_get_all(); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::SavedStatus")));-purple_savedstatuses_get_popular(how_many)- ll = purple_savedstatuses_get_popular(how_many);- for (l = ll; l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::SavedStatus")));-purple_savedstatuses_get_handle()--- a/libpurple/plugins/perl/common/Server.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,195 +0,0 @@
-MODULE = Purple::Serv PACKAGE = Purple::Serv PREFIX = serv_-purple_serv_add_deny(con, a)-purple_serv_add_permit(a, b)-purple_serv_alias_buddy(buddy)- Purple::BuddyList::Buddy buddy -purple_serv_chat_invite(con, a, b, c)-purple_serv_chat_leave(a, b)-purple_serv_get_info(con, a)-purple_serv_got_alias(gc, who, alias)-purple_serv_got_chat_in(g, id, who, chatflags, message, mtime)- Purple::MessageFlags chatflags-purple_serv_got_chat_invite(gc, name, who, message, components)- t_HV = (HV *)SvRV(components);- t_GHash = g_hash_table_new(g_str_hash, g_str_equal);- for (t_HE = hv_iternext(t_HV); t_HE != NULL; t_HE = hv_iternext(t_HV) ) {- t_key = hv_iterkey(t_HE, &len);- t_SV = *hv_fetch(t_HV, t_key, len, 0);- t_value = SvPVutf8_nolen(t_SV);- g_hash_table_insert(t_GHash, t_key, t_value);- purple_serv_got_chat_invite(gc, name, who, message, t_GHash);-purple_serv_got_chat_left(g, id)-purple_serv_got_im(gc, who, msg, imflags, mtime)- Purple::MessageFlags imflags-Purple::ChatConversation-purple_serv_got_joined_chat(gc, id, name)-purple_serv_got_typing(gc, name, timeout, state)- Purple::IMTypingState state-purple_serv_got_typing_stopped(gc, name)-purple_serv_join_chat(conn, components)- Purple::Connection conn- t_GHash = g_hash_table_new(g_str_hash, g_str_equal);- for (t_HE = hv_iternext(components); t_HE != NULL;- t_HE = hv_iternext(components)) {- t_key = hv_iterkey(t_HE, &len);- t_SV = *hv_fetch(components, t_key, len, 0);- t_value = SvPVutf8_nolen(t_SV);- g_hash_table_insert(t_GHash, t_key, t_value);- purple_serv_join_chat(conn, t_GHash);- g_hash_table_destroy(t_GHash);-purple_serv_move_buddy(buddy, group1, group2)- Purple::BuddyList::Buddy buddy- Purple::BuddyList::Group group1- Purple::BuddyList::Group group2-purple_serv_reject_chat(con, components)- t_HV = (HV *)SvRV(components);- t_GHash = g_hash_table_new(g_str_hash, g_str_equal);- for (t_HE = hv_iternext(t_HV); t_HE != NULL; t_HE = hv_iternext(t_HV) ) {- t_key = hv_iterkey(t_HE, &len);- t_SV = *hv_fetch(t_HV, t_key, len, 0);- t_value = SvPVutf8_nolen(t_SV);- g_hash_table_insert(t_GHash, t_key, t_value);- purple_serv_reject_chat(con, t_GHash);-purple_serv_rem_deny(con, a)-purple_serv_rem_permit(con, a)-purple_serv_send_file(gc, who, file)-purple_serv_send_typing(con, a, state)- Purple::IMTypingState state-purple_serv_set_info(con, a)-purple_serv_set_permit_deny(con)--- a/libpurple/plugins/perl/common/Signal.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,34 +0,0 @@
-#include "../perl-handlers.h"-MODULE = Purple::Signal PACKAGE = Purple::Signal PREFIX = purple_signal_-purple_signal_connect_priority(instance, signal, plugin, callback, priority, data = 0)- Purple::Handle instance- purple_perl_signal_connect(plugin, instance, signal, callback, data, priority);-purple_signal_connect(instance, signal, plugin, callback, data = 0)- Purple::Handle instance- purple_perl_signal_connect(plugin, instance, signal, callback, data, PURPLE_SIGNAL_PRIORITY_DEFAULT);-purple_signal_disconnect(instance, signal, plugin)- Purple::Handle instance- purple_perl_signal_disconnect(plugin, instance, signal);--- a/libpurple/plugins/perl/common/Sound.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,37 +0,0 @@
-MODULE = Purple::Sound PACKAGE = Purple::Sound PREFIX = purple_sound_- HV *stash = gv_stashpv("Purple::SoundEventID", 1);- static const constiv *civ, const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_SOUND_##name}- const_iv(BUDDY_ARRIVE),- const_iv(FIRST_RECEIVE),- const_iv(CHAT_YOU_SAY),- const_iv(POUNCE_DEFAULT),- for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; )- newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv));-purple_sound_play_event(event, account)- Purple::SoundEventID event- Purple::Account account-purple_sound_play_file(filename, account)- Purple::Account account--- a/libpurple/plugins/perl/common/Status.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,267 +0,0 @@
-purple_status_type_add_attrs(status_type, id, name, value, purple_status_type_add_attrs)- Purple::StatusType status_type-purple_status_type_new_with_attrs(primitive, id, name, saveable, user_settable, independent, attr_id, attr_name, attr_value, purple_status_type_new_with_attrs)- Purple::StatusPrimitive primitive- Purple::Value attr_value-/* These break on faceprint's amd64 box-purple_status_type_add_attrs_vargs(status_type, args)- Purple::StatusType status_type-purple_status_set_active_with_attrs(status, active, args)-MODULE = Purple::Status PACKAGE = Purple::Primitive PREFIX = purple_primitive_- HV *primitive_stash = gv_stashpv("Purple::Status::Primitive", 1);- static const constiv *civ, primitive_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_STATUS_##name}- const_iv(EXTENDED_AWAY),- for (civ = primitive_const_iv + sizeof(primitive_const_iv) / sizeof(primitive_const_iv[0]); civ-- > primitive_const_iv; )- newCONSTSUB(primitive_stash, (char *)civ->name, newSViv(civ->iv));-purple_primitive_get_id_from_type(type)- Purple::StatusPrimitive type-purple_primitive_get_name_from_type(type)- Purple::StatusPrimitive type-purple_primitive_get_type_from_id(id)-MODULE = Purple::Status PACKAGE = Purple::StatusAttr PREFIX = purple_status_attribute_-purple_status_attribute_destroy(attr)- Purple::StatusAttr attr-purple_status_attribute_get_id(attr)- Purple::StatusAttr attr-purple_status_attribute_get_name(attr)- Purple::StatusAttr attr-purple_status_attribute_get_value(attr)- Purple::StatusAttr attr-purple_status_attribute_new(id, name, value_type)-MODULE = Purple::Status PACKAGE = Purple::Status PREFIX = purple_status_-purple_status_compare(status1, status2)-purple_status_get_attr_boolean(status, id)-purple_status_get_attr_int(status, id)-purple_status_get_attr_string(status, id)-purple_status_get_attr_value(status, id)-purple_statuses_get_handle()-purple_status_get_id(status)-purple_status_get_name(status)-purple_status_get_presence(status)-purple_status_get_status_type(status)-purple_status_is_active(status)-purple_status_is_available(status)-purple_status_is_exclusive(status)-purple_status_is_independent(status)-purple_status_is_online(status)-purple_status_new(status_type, presence)- Purple::StatusType status_type- Purple::Presence presence-purple_status_set_active(status, active)-MODULE = Purple::Status PACKAGE = Purple::StatusType PREFIX = purple_status_type_-purple_status_type_destroy(status_type)- Purple::StatusType status_type-purple_status_type_get_attr(status_type, id)- Purple::StatusType status_type-purple_status_type_get_attrs(status_type)- Purple::StatusType status_type- for (l = purple_status_type_get_attrs(status_type); l != NULL; l = l->next) {- XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::StatusAttr")));-purple_status_type_find_with_id(status_types, id)- t_len = av_len((AV *)SvRV(status_types));- for (i = 0; i <= t_len; i++) {- t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(status_types), i, 0)));- RETVAL = (PurpleStatusType *)purple_status_type_find_with_id(t_GL, id);-purple_status_type_get_id(status_type)- Purple::StatusType status_type-purple_status_type_get_name(status_type)- Purple::StatusType status_type-purple_status_type_get_primitive(status_type)- Purple::StatusType status_type-purple_status_type_is_available(status_type)- Purple::StatusType status_type-purple_status_type_is_exclusive(status_type)- Purple::StatusType status_type-purple_status_type_is_independent(status_type)- Purple::StatusType status_type-purple_status_type_is_saveable(status_type)- Purple::StatusType status_type-purple_status_type_is_user_settable(status_type)- Purple::StatusType status_type-purple_status_type_new(primitive, id, name, user_settable)- Purple::StatusPrimitive primitive-purple_status_type_new_full(primitive, id, name, saveable, user_settable, independent)- Purple::StatusPrimitive primitive--- a/libpurple/plugins/perl/common/Stringref.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,37 +0,0 @@
-MODULE = Purple::Stringref PACKAGE = Purple::Stringref PREFIX = purple_stringref_-purple_stringref_cmp(s1, s2)-purple_stringref_len(stringref)- Purple::Stringref stringref-purple_stringref_new(class, value)-purple_stringref_new_noref(class, value)-purple_stringref_ref(stringref)- Purple::Stringref stringref-purple_stringref_unref(stringref)- Purple::Stringref stringref-purple_stringref_value(stringref)- Purple::Stringref stringref--- a/libpurple/plugins/perl/common/Util.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,437 +0,0 @@
-static void markup_find_tag_foreach(GQuark key_id, char *data, HV *hv) {- const char *key = NULL;- key = g_quark_to_string(key_id);- if (hv_store(hv, key, strlen(key), newSVpv(data, 0), 0) == NULL)- purple_debug_error("perl", "hv_store failed\n");-MODULE = Purple::Util PACKAGE = Purple::Util PREFIX = purple_-purple_build_dir(path, mode)-purple_email_is_valid(address)-purple_escape_filename(str)-purple_message_meify(SV *msg)- message = SvPV(msg, len);- message = g_strndup(message, len);- ret = purple_message_meify(message, len);- /* message will get g_free()'d later on, since RETVAL is gchar_own* */-purple_mkstemp(OUTLIST gchar_own *path, binary)-purple_normalize(account, str)- Purple::Account account-purple_program_is_valid(program)-purple_strdup_withhtml(src)-purple_text_strip_mnemonic(in)-purple_time_build(year, month, day, hour, min, sec)-purple_unescape_filename(str)-purple_unescape_html(html)-purple_utf8_strftime(const char *format, const struct tm *tm);-purple_utf8_has_word(haystack, needle)-purple_utf8_ncr_decode(in)-purple_utf8_ncr_encode(in)-purple_utf8_salvage(str)-purple_utf8_strcasecmp(a, b)-purple_utf8_try_convert(str)-purple_ip_address_is_valid(ip)-purple_ipv4_address_is_valid(ip)-purple_ipv6_address_is_valid(ip)-purple_normalize_nocase(account, str)- Purple::Account account-purple_gai_strerror(errnum)-purple_got_protocol_handler_uri(uri)-purple_base16_encode(const guchar *data, gsize length(data))-purple_base16_encode_chunked(const guchar *data, gsize length(data))-purple_base64_encode(const guchar *data, gsize length(data))-purple_restore_default_signal_handlers()-purple_base16_decode(str)- ret = purple_base16_decode(str, &len);- RETVAL = newSVpv((gchar *)ret, len);-purple_base64_decode(str)- ret = purple_base64_decode(str, &len);- RETVAL = newSVpv((gchar *)ret, len);-purple_quotedp_decode(str)- ret = purple_quotedp_decode(str, &len);- RETVAL = newSVpv((gchar *)ret, len);-purple_uri_list_extract_uris(uri_list)- GList *l = NULL, *gl = NULL;- gl = purple_uri_list_extract_uris(uri_list);- for(l = gl; l; l = l->next) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));-purple_uri_list_extract_filenames(uri_list)- GList *l = NULL, *gl = NULL;- gl = purple_uri_list_extract_filenames(uri_list);- for(l = gl; l; l = l->next) {- XPUSHs(sv_2mortal(newSVpv(l->data, 0)));-MODULE = Purple::Util PACKAGE = Purple::Util::Str PREFIX = purple_str_-purple_str_binary_to_ascii(const unsigned char *binary, guint length(binary))-purple_str_has_prefix(s, p)-purple_str_has_suffix(s, x)-purple_str_seconds_to_string(sec)-purple_str_size_to_units(size)-purple_str_to_time(timestamp, utc = FALSE, tm = NULL, OUTLIST long tz_off, OUTLIST const char *rest)-MODULE = Purple::Util PACKAGE = Purple::Util::Date PREFIX = purple_date_-purple_date_format_full(tm)-purple_date_format_long(tm)-purple_date_format_short(tm)-MODULE = Purple::Util PACKAGE = Purple::Util::Markup PREFIX = purple_markup_-purple_markup_extract_info_field(str, len, user_info, start_token, skip, end_token, check_value, no_value_token, display_name, is_link, link_prefix, format_cb)- Purple::NotifyUserInfo user_info- const char *start_token- const char *no_value_token- const char *display_name- const char *link_prefix- Purple::Util::InfoFieldFormatCallback format_cb- # XXX: returning start/end to perl doesn't make a lot of sense...- # XXX: the actual tag data can be gotten with $start =~ s/$end//g;-purple_markup_find_tag(needle, haystack)- const char *start = NULL;- const char *end = NULL;- ret = purple_markup_find_tag(needle, haystack, &start, &end, &attributes);- if(!ret) XSRETURN_UNDEF;- g_datalist_foreach(&attributes, (GDataForeachFunc) markup_find_tag_foreach, hv);- g_datalist_clear(&attributes);- XPUSHs(sv_2mortal(newSVpv(start, 0)));- XPUSHs(sv_2mortal(newSVpv(end, 0)));- XPUSHs(sv_2mortal(newRV_noinc((SV *) hv)));-purple_markup_get_tag_name(tag)-purple_markup_html_to_xhtml(html, OUTLIST gchar_own *dest_xhtml, OUTLIST gchar_own *dest_plain)-purple_markup_linkify(str)-purple_markup_slice(str, x, y)-purple_markup_strip_html(str)-purple_markup_get_css_property(style, opt)-purple_markup_unescape_entity(text)- const char *str = purple_markup_unescape_entity(text, &length);- RETVAL = newSVpv(str, length);-MODULE = Purple::Util PACKAGE = Purple::Util PREFIX = purple_util_-purple_util_set_user_dir(dir)-purple_util_write_data_to_file(filename, const char *data, size_t length(data))-purple_util_set_current_song(title, artist, album)-purple_util_format_song_info(title, artist, album, unused)-purple_util_read_xml_from_file(filename, description)- const char* description-purple_util_write_data_to_file_absolute(filename_full, char *data, gssize length(data))- const char* filename_full--- a/libpurple/plugins/perl/common/Whiteboard.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,74 +0,0 @@
-MODULE = Purple::Whiteboard PACKAGE = Purple::Whiteboard PREFIX = purple_whiteboard_-purple_whiteboard_clear(wb)-purple_whiteboard_new(account, who, state)- Purple::Account account-purple_whiteboard_draw_line(wb, x1, y1, x2, y2, color, size)-purple_whiteboard_draw_point(wb, x, y, color, size)-purple_whiteboard_get_session(account, who)- Purple::Account account-purple_whiteboard_send_brush(wb, size, color)-purple_whiteboard_send_clear(wb)-purple_whiteboard_set_brush(wb, size, color)-purple_whiteboard_set_dimensions(wb, width, height)-purple_whiteboard_get_brush(wb, OUTLIST int size, OUTLIST int color)-purple_whiteboard_get_dimensions(wb, OUTLIST int width, OUTLIST int height)-purple_whiteboard_start(wb)--- a/libpurple/plugins/perl/common/XMLNode.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,122 +0,0 @@
-MODULE = Purple::XMLNode PACKAGE = Purple::XMLNode PREFIX = purple_xmlnode_-purple_xmlnode_copy(src)-purple_xmlnode_free(node)-purple_xmlnode_from_str(const char *str, gssize length(str))-purple_xmlnode_get_name(node)-purple_xmlnode_get_attrib(node, attr)-purple_xmlnode_get_child(parent, name)- if (!name || *name == '\0') {- while (tmp && tmp->type != PURPLE_XMLNODE_TYPE_TAG)- RETVAL = purple_xmlnode_get_child(parent, name);-purple_xmlnode_get_child_with_namespace(parent, name, xmlns)-purple_xmlnode_get_data(node)-purple_xmlnode_get_next(node)- while (tmp && tmp->type != PURPLE_XMLNODE_TYPE_TAG)-purple_xmlnode_get_next_twin(node)-purple_xmlnode_insert_child(parent, child)-purple_xmlnode_insert_data(node, data, size)-purple_xmlnode_new(class, name)-purple_xmlnode_new_child(parent, name)-purple_xmlnode_remove_attrib(node, attr)-purple_xmlnode_set_attrib(node, attr, value)-purple_xmlnode_to_formatted_str(node)- RETVAL = purple_xmlnode_to_formatted_str(node, NULL);-purple_xmlnode_to_str(node)- RETVAL = purple_xmlnode_to_str(node, NULL);--- a/libpurple/plugins/perl/common/Xfer.xs Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,179 +0,0 @@
-MODULE = Purple::Xfer PACKAGE = Purple::Xfer PREFIX = purple_xfer_- HV *type_stash = gv_stashpv("Purple::Xfer::Type", 1);- HV *status_stash = gv_stashpv("Purple::Xfer::Status", 1);- static const constiv *civ, type_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_XFER_TYPE_##name}- static const constiv status_const_iv[] = {-#define const_iv(name) {#name, (IV)PURPLE_XFER_STATUS_##name}- const_iv(CANCEL_LOCAL),- const_iv(CANCEL_REMOTE),- for (civ = type_const_iv + sizeof(type_const_iv) / sizeof(type_const_iv[0]); civ-- > type_const_iv; )- newCONSTSUB(type_stash, (char *)civ->name, newSViv(civ->iv));- for (civ = status_const_iv + sizeof(status_const_iv) / sizeof(status_const_iv[0]); civ-- > status_const_iv; )- newCONSTSUB(status_stash, (char *)civ->name, newSViv(civ->iv));-purple_xfer_new(class, account, type, who)- Purple::Account account-purple_xfer_cancel_local(xfer)-purple_xfer_cancel_remote(xfer)-purple_xfer_error(type, account, who, msg)- Purple::Account account-purple_xfer_get_account(xfer)-purple_xfer_get_bytes_remaining(xfer)-purple_xfer_get_bytes_sent(xfer)-purple_xfer_get_filename(xfer)-purple_xfer_get_local_filename(xfer)-purple_xfer_get_local_port(xfer)-purple_xfer_get_progress(xfer)-purple_xfer_get_remote_ip(xfer)-purple_xfer_get_remote_port(xfer)-purple_xfer_get_size(xfer)-purple_xfer_get_status(xfer)-purple_xfer_get_xfer_type(xfer)-purple_xfer_is_cancelled(xfer)-purple_xfer_is_completed(xfer)-purple_xfer_read(xfer, buffer)-purple_xfer_request(xfer)-purple_xfer_request_accepted(xfer, filename)-purple_xfer_request_denied(xfer)-purple_xfer_set_completed(xfer, completed)-purple_xfer_set_filename(xfer, filename)-purple_xfer_set_local_filename(xfer, filename)-purple_xfer_set_message(xfer, message)-purple_xfer_set_size(xfer, size)-purple_xfer_update_progress(xfer)-purple_xfer_write(xfer, buffer, size)-MODULE = Purple::Xfer PACKAGE = Purple::Xfers PREFIX = purple_xfers_--- a/libpurple/plugins/perl/common/fallback/const-c.inc Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,115 +0,0 @@
-#define PERL_constant_NOTFOUND 1-#define PERL_constant_NOTDEF 2-#define PERL_constant_ISIV 3-#define PERL_constant_ISNO 4-#define PERL_constant_ISNV 5-#define PERL_constant_ISPV 6-#define PERL_constant_ISPVN 7-#define PERL_constant_ISSV 8-#define PERL_constant_ISUNDEF 9-#define PERL_constant_ISUV 10-#define PERL_constant_ISYES 11-typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */-#define aTHX_ /* 5.6 or later define this for threading support. */-#define pTHX_ /* 5.6 or later define this for threading support. */-constant (pTHX_ const char *name, STRLEN len, IV *iv_return) {- /* Initially switch on the length of the name. */- /* When generated this function returned values for the list of names given- in this section of perl code. Rather than manually editing these functions- to add or remove constants, which would result in this comment and section- of code becoming inaccurate, we recommend that you edit this section of- code, and use it to regenerate a new set of constant functions which you- then use to replace the originals.- Regenerate these constant functions by feeding this entire source file to-use ExtUtils::Constant qw (constant_types C_constant XS_constant);-my $types = {map {($_, 1)} qw(IV)};- {name=>"PURPLE_DEBUG_ALL", type=>"IV", macro=>"1"},- {name=>"PURPLE_DEBUG_ERROR", type=>"IV", macro=>"1"},- {name=>"PURPLE_DEBUG_FATAL", type=>"IV", macro=>"1"},- {name=>"PURPLE_DEBUG_INFO", type=>"IV", macro=>"1"},- {name=>"PURPLE_DEBUG_MISC", type=>"IV", macro=>"1"},- {name=>"PURPLE_DEBUG_WARNING", type=>"IV", macro=>"1"});-print constant_types(); # macro defs-foreach (C_constant ("Purple::DebugLevel", 'constant', 'IV', $types, undef, 3, @names) ) {- print $_, "\n"; # C constant subs-print "#### XS Section:\n";-print XS_constant ("Purple::DebugLevel", $types);- if (memEQ(name, "PURPLE_DEBUG_ALL", 14)) {- *iv_return = PURPLE_DEBUG_ALL;- return PERL_constant_ISIV;- /* Names all of length 15. */- /* PURPLE_DEBUG_INFO PURPLE_DEBUG_MISC */- /* Offset 11 gives the best switch position. */- if (memEQ(name, "PURPLE_DEBUG_INFO", 15)) {- *iv_return = PURPLE_DEBUG_INFO;- return PERL_constant_ISIV;- if (memEQ(name, "PURPLE_DEBUG_MISC", 15)) {- *iv_return = PURPLE_DEBUG_MISC;- return PERL_constant_ISIV;- /* Names all of length 16. */- /* PURPLE_DEBUG_ERROR PURPLE_DEBUG_FATAL */- /* Offset 11 gives the best switch position. */- if (memEQ(name, "PURPLE_DEBUG_ERROR", 16)) {- *iv_return = PURPLE_DEBUG_ERROR;- return PERL_constant_ISIV;- if (memEQ(name, "PURPLE_DEBUG_FATAL", 16)) {- *iv_return = PURPLE_DEBUG_FATAL;- return PERL_constant_ISIV;- if (memEQ(name, "PURPLE_DEBUG_WARNING", 18)) {- *iv_return = PURPLE_DEBUG_WARNING;- return PERL_constant_ISIV;- return PERL_constant_NOTFOUND;--- a/libpurple/plugins/perl/common/fallback/const-xs.inc Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,88 +0,0 @@
- dXSTARG; /* Faster if we have it. */- /* NV nv; Uncomment this if you need to return NVs */- /* const char *pv; Uncomment this if you need to return PVs */- const char * s = SvPV(sv, len);- /* Change this to constant(aTHX_ s, len, &iv, &nv);- if you need to return both NVs and IVs */- type = constant(aTHX_ s, len, &iv);- /* Return 1 or 2 items. First is error message, or undef if no error.- Second, if present, is found value */- case PERL_constant_NOTFOUND:- sv = sv_2mortal(newSVpvf("%s is not a valid Purple::DebugLevel macro", s));- case PERL_constant_NOTDEF:- sv = sv_2mortal(newSVpvf(- "Your vendor has not defined Purple::DebugLevel macro %s, used", s));- case PERL_constant_ISIV:- /* Uncomment this if you need to return NOs- case PERL_constant_ISNO:- /* Uncomment this if you need to return NVs- case PERL_constant_ISNV:- /* Uncomment this if you need to return PVs- case PERL_constant_ISPV:- /* Uncomment this if you need to return PVNs- case PERL_constant_ISPVN:- /* Uncomment this if you need to return SVs- case PERL_constant_ISSV:- /* Uncomment this if you need to return UNDEFs- case PERL_constant_ISUNDEF:- /* Uncomment this if you need to return UVs- case PERL_constant_ISUV:- /* Uncomment this if you need to return YESs- case PERL_constant_ISYES:- sv = sv_2mortal(newSVpvf(- "Unexpected return type %d while processing Purple::DebugLevel macro %s, used",--- a/libpurple/plugins/perl/common/module.h Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,310 +0,0 @@
-/* Allow the Perl code to see deprecated functions, so we can continue to- * export them to Perl plugins. */-/* Re-enable this after 3.0.0 release.- #undef PURPLE_DISABLE_DEPRECATED-typedef struct group *Purple__Group;-#define group perl_group-#define SILENT_NO_TAINT_SUPPORT 0-#define NO_TAINT_SUPPORT 0-#include "../perl-common.h"-#include "certificate.h"-#include "ciphers/aescipher.h"-#include "ciphers/des3cipher.h"-#include "ciphers/descipher.h"-#include "ciphers/hmaccipher.h"-#include "ciphers/pbkdf2cipher.h"-#include "ciphers/rc4cipher.h"-#include "ciphers/md4hash.h"-#include "ciphers/md5hash.h"-#include "ciphers/sha1hash.h"-#include "ciphers/sha256hash.h"-#include "conversations.h"-#include "desktopitem.h"-#include "savedstatuses.h"-/* Ewww. perl has it's own util.h which is in the include path :( */-#include "libpurple/util.h"-/* avoid extra_comma false positives */-#define SvPOK_only(sv) { \- SvFLAGS(sv) &= ~(SVf_OK | SVf_IVisUV | SVf_UTF8); \- SvFLAGS(sv) |= (SVf_POK | SVp_POK); \-#endif /* __COVERITY__ */-typedef PurpleAccount * Purple__Account;-typedef PurpleAccountOption * Purple__Account__Option;-typedef PurpleAccountUserSplit * Purple__Account__UserSplit;-typedef PurpleAccountPrivacyType Purple__Account__PrivacyType;-typedef PurpleBlistNode * Purple__BuddyList__Node;-typedef PurpleCountingNode * Purple__BuddyList__CountingNode;-typedef PurpleBuddyList * Purple__BuddyList;-typedef PurpleBuddy * Purple__BuddyList__Buddy;-typedef PurpleChat * Purple__BuddyList__Chat;-typedef PurpleContact * Purple__BuddyList__Contact;-typedef PurpleGroup * Purple__BuddyList__Group;-typedef PurpleBuddyIcon * Purple__Buddy__Icon;-typedef PurpleCertificate * Purple__Certificate;-typedef PurpleCertificatePool * Purple__Certificate__Pool;-typedef PurpleCertificateScheme * Purple__Certificate__Scheme;-typedef PurpleCertificateVerifier * Purple__Certificate__Verifier;-typedef PurpleCertificateVerificationRequest * Purple__Certificate__VerificationRequest;-typedef PurpleCertificateVerificationStatus Purple__Certificate__VerificationStatus;-typedef PurpleCipher * Purple__Cipher;-typedef PurpleHash * Purple__Hash;-typedef PurpleCipherBatchMode Purple__Cipher__BatchMode;-typedef PurpleCmdFlag Purple__Cmd__Flag;-typedef PurpleCmdId Purple__Cmd__Id;-typedef PurpleCmdPriority Purple__Cmd__Priority;-typedef PurpleCmdRet Purple__Cmd__Ret;-typedef PurpleConnection * Purple__Connection;-typedef PurpleConnectionFlags Purple__ConnectionFlags;-typedef PurpleConnectionState Purple__ConnectionState;-typedef PurpleMessageFlags Purple__MessageFlags;-typedef PurpleConversation * Purple__Conversation;-typedef PurpleConversationUpdateType Purple__Conversation__UpdateType;-typedef PurpleIMConversation * Purple__IMConversation;-typedef PurpleIMTypingState Purple__IMTypingState;-typedef PurpleChatConversation * Purple__ChatConversation;-typedef PurpleChatUser * Purple__ChatUser;-typedef PurpleChatUserFlags Purple__ChatUser__Flags;-typedef PurpleCore * Purple__Core;-typedef PurpleDebugLevel Purple__DebugLevel;-typedef PurpleDesktopItem * Purple__DesktopItem;-typedef PurpleDesktopItemType Purple__DesktopItemType;-typedef PurpleInputCondition * Purple__InputCondition;-typedef PurpleXfer * Purple__Xfer;-typedef PurpleXferType Purple__XferType;-typedef PurpleXferStatus Purple__XferStatus;-typedef PurpleGtkBuddyList * Purple__GTK__BuddyList;-typedef PurpleStatusIconSize Purple__StatusIconSize;-typedef PurpleButtonOrientation Purple__ButtonOrientation;-typedef PurpleButtonStyle Purple__ButtonStyle;-typedef PurpleBrowserPlace Purple__BrowserPlace;-typedef PurpleUnseenState Purple__UnseenState;-typedef PurpleGtkConversation * Purple__GTK__Conversation;-typedef GdkPixbuf * Purple__GDK__Pixbuf;-typedef GtkWidget * Purple__GTK__Widget;-typedef GtkFileSelection * Purple__GTK__FileSelection;-typedef GtkSelectionData * Purple__GTK__SelectionData;-typedef GtkTextView * Purple__GTK__TextView;-typedef PurpleLog * Purple__Log;-typedef PurpleLogCommonLoggerData * Purple__LogCommonLoggerData;-typedef PurpleLogLogger * Purple__Log__Logger;-typedef PurpleLogReadFlags * Purple__Log__ReadFlags;-typedef PurpleLogSet * Purple__LogSet;-typedef PurpleLogType Purple__LogType;-typedef PurpleNetworkListenData * Purple__NetworkListenData;-typedef PurpleNetworkListenCallback Purple__NetworkListenCallback;-typedef PurpleNotifyCloseCallback Purple__NotifyCloseCallback;-typedef PurpleNotifyMsgType Purple__NotifyMsgType;-typedef PurpleNotifySearchButtonType Purple__NotifySearchButtonType;-typedef PurpleNotifySearchResults * Purple__NotifySearchResults;-typedef PurpleNotifySearchColumn * Purple__NotifySearchColumn;-typedef PurpleNotifySearchButton * Purple__NotifySearchButton;-typedef PurpleNotifyType Purple__NotifyType;-typedef PurpleNotifyUserInfo * Purple__NotifyUserInfo;-typedef PurpleNotifyUserInfoEntry * Purple__NotifyUserInfoEntry;-typedef PurplePlugin * Purple__Plugin;-typedef PurplePluginAction * Purple__Plugin__Action;-typedef PurplePluginInfo * Purple__PluginInfo;-typedef PurplePluginLoaderInfo * Purple__PluginLoaderInfo;-typedef PurplePluginType Purple__PluginType;-typedef PurplePluginUiInfo * Purple__PluginUiInfo;-typedef PurplePluginPref * Purple__PluginPref;-typedef PurplePluginPrefFrame * Purple__PluginPref__Frame;-typedef PurplePluginPrefType Purple__PluginPrefType;-typedef PurpleStringFormatType Purple__String__Format__Type;-typedef PurplePounce * Purple__Pounce;-typedef PurplePounceEvent Purple__PounceEvent;-typedef PurplePrefType Purple__PrefType;-typedef PurplePresence * Purple__Presence;-typedef PurpleAccountPresence * Purple__AccountPresence;-typedef PurpleBuddyPresence * Purple__BuddyPresence;-typedef PurpleProxyInfo * Purple__ProxyInfo;-typedef PurpleProxyType Purple__ProxyType;-typedef PurpleBuddyIconSpec * Purple__Buddy__Icon__Spec;-typedef PurpleIconScaleRules Purple__IconScaleRules;-typedef PurpleProtocol * Purple__PluginProtocolInfo;-typedef PurpleProtocolOptions Purple__ProtocolOptions;-typedef PurpleRequestField * Purple__Request__Field;-typedef PurpleRequestFields * Purple__Request__Fields;-typedef PurpleRequestFieldGroup * Purple__Request__Field__Group;-typedef PurpleRequestFieldType Purple__RequestFieldType;-typedef PurpleRequestType Purple__RequestType;-typedef PurpleRoomlist * Purple__Roomlist;-typedef PurpleRoomlistField * Purple__Roomlist__Field;-typedef PurpleRoomlistFieldType Purple__RoomlistFieldType;-typedef PurpleRoomlistRoom * Purple__Roomlist__Room;-typedef PurpleRoomlistRoomType Purple__RoomlistRoomType;-typedef PurpleSavedStatus * Purple__SavedStatus;-typedef PurpleSavedStatusSub * Purple__SavedStatus__Sub;-typedef PurpleSmiley * Purple__Smiley;-typedef PurpleSoundEventID Purple__SoundEventID;-typedef PurpleInputCondition * Purple__Input__Condition;-typedef PurpleSslConnection * Purple__Ssl__Connection;-typedef PurpleSslErrorType Purple__SslErrorType;-typedef PurpleSslOps * Purple__Ssl__Ops;-typedef PurpleStatus * Purple__Status;-typedef PurpleStatusAttribute * Purple__StatusAttr;-typedef PurpleStatusPrimitive Purple__StatusPrimitive;-typedef PurpleStatusType * Purple__StatusType;-typedef PurpleStringref * Purple__Stringref;-typedef PurpleInfoFieldFormatCallback Purple__Util__InfoFieldFormatCallback;-typedef PurpleMenuAction * Purple__Menu__Action;-typedef PurpleWhiteboard * Purple__Whiteboard;-typedef PurpleXmlNode * Purple__XMLNode;-typedef PurpleXmlNodeType XMLNode__Type;-typedef void * Purple__Handle;-typedef gchar gchar_own;-typedef struct _constiv {--- a/libpurple/plugins/perl/common/typemap Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,210 +0,0 @@
-const unsigned char * T_PV-Purple::Account T_PurpleObj-Purple::Account::Option T_PurpleObj-Purple::Account::UserSplit T_PurpleObj-Purple::Account::PrivacyType T_IV-Purple::Buddy::Icon T_PurpleObj-Purple::Buddy::Icon::Spec T_PurpleObj-Purple::BuddyList T_PurpleObj-Purple::BuddyList::Buddy T_PurpleObj-Purple::BuddyList::Chat T_PurpleObj-Purple::BuddyList::Contact T_PurpleObj-Purple::BuddyList::Group T_PurpleObj-Purple::BuddyList::Node T_PurpleObj-Purple::BuddyList::CountingNode T_PurpleObj-Purple::Cipher T_PurpleObj-Purple::Hash T_PurpleObj-Purple::Cmd::Priority T_IV-Purple::Connection T_PurpleObj-Purple::Core T_PurpleObj-Purple::Desktop::Item T_PurpleObj-Purple::DesktopItemType T_IV-Purple::Handle T_PurpleObj-Purple::IconScaleRules T_IV-Purple::Log::CommonLoggerData T_PurpleObj-Purple::Log::Logger T_PurpleObj-Purple::Log::ReadFlags T_PurpleObj-Purple::Log::Set T_PurpleObj-Purple::Menu::Action T_PurpleObj-Purple::NetworkListenData T_PurpleObj-Purple::NetworkListenCallback T_PTR-Purple::NotifyCloseCallback T_PTR-Purple::NotifyMsgType T_IV-Purple::NotifySearchButtonType T_IV-Purple::NotifySearchResults T_PurpleObj-Purple::NotifySearchColumn T_PurpleObj-Purple::NotifySearchButton T_PurpleObj-Purple::NotifyUserInfo T_PurpleObj-Purple::NotifyUserInfoEntry T_PurpleObj-Purple::Plugin T_PurpleObj-Purple::PluginUiInfo T_PurpleObj-Purple::Plugin::Action T_PurpleObj-Purple::Plugin::Info T_PurpleObj-Purple::Plugin::Loader::Info T_PurpleObj-Purple::Plugin::Protocol::Info T_PurpleObj-Purple::PluginPref T_PurpleObj-Purple::PluginPrefType T_IV-Purple::PluginPref::Frame T_PurpleObj-Purple::Pounce T_PurpleObj-Purple::PounceEvent T_IV-Purple::ProtocolOptions T_IV-Purple::ProxyInfo T_PurpleObj-Purple::RequestFieldType T_IV-Purple::RequestType T_IV-Purple::Request::Field T_PurpleObj-Purple::Request::Fields T_PurpleObj-Purple::Request::Field::Group T_PurpleObj-Purple::Roomlist T_PurpleObj-Purple::Roomlist::Room T_PurpleObj-Purple::Roomlist::Field T_PurpleObj-Purple::RoomlistFieldType T_IV-Purple::RoomlistRoomType T_IV-Purple::SavedStatus T_PurpleObj-const Purple::SavedStatus T_PurpleObj-Purple::SavedStatus::Sub T_PurpleObj-const Purple::SavedStatus::Sub T_PurpleObj-Purple::SoundEventID T_IV-Purple::Input::Condition T_PurpleObj-Purple::SslErrorType T_IV-Purple::Ssl::Connection T_PurpleObj-Purple::Ssl::Ops T_PurpleObj-Purple::Presence T_PurpleObj-Purple::AccountPresence T_PurpleObj-Purple::BuddyPresence T_PurpleObj-Purple::Status T_PurpleObj-Purple::StatusAttr T_PurpleObj-Purple::StatusPrimitive T_IV-Purple::StatusType T_PurpleObj-const Purple::StatusType T_PurpleObj-Purple::StoredImage T_PurpleObj-Purple::String::Format::Type T_IV-Purple::Stringref T_PurpleObj-Purple::Util::FetchUrlData T_PTR-Purple::Util::InfoFieldFormatCallback T_PTR-Purple::Xfer T_PurpleObj-Purple::XMLNode T_PurpleObj-Purple::Certificate T_PurpleObj-Purple::Certificate::Pool T_PurpleObj-Purple::Certificate::Scheme T_PurpleObj-Purple::Certificate::Verifier T_PurpleObj-Purple::Certificate::VerificationRequest T_PurpleObj-Purple::Certificate::VerificationStatus T_IV-Purple::Cipher::BatchMode T_IV-Purple::Conversation T_PurpleObj-Purple::ChatConversation T_PurpleObj-Purple::ChatUser T_PurpleObj-Purple::IMConversation T_PurpleObj-Purple::ChatUser::Flags T_IV-Purple::Conversation::UpdateType T_IV-Purple::MessageFlags T_IV-Purple::IMTypingState T_IV-Purple::UnseenState T_IV-Purple::ConnectionFlags T_IV-Purple::ConnectionState T_IV-Purple::Whiteboard T_PurpleObj- $var = purple_perl_ref_object($arg)- $arg = purple_perl_bless_object($var, \"$type\");- /* used when we can directly own the returned string. */- /* we have to copy in the case when perl's malloc != gtk's malloc,- * so best copy all the time. */- sv_setpv ((SV*)$arg, $var);--- a/libpurple/plugins/perl/libpurpleperl.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,18 +0,0 @@
-void __attribute__ ((constructor)) my_init(void);-void __attribute__ ((constructor)) my_init() {- /* Very evil hack...puts perl.so's symbols in the global table- * but does not create a circular dependancy because g_module_open- * will only open the library once. */- g_module_open("perl.so", 0);--- a/libpurple/plugins/perl/perl-common.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,620 +0,0 @@
-#include "perl-common.h"-#include "savedstatuses.h"-extern PerlInterpreter *my_perl;-static GHashTable *object_stashes = NULL;-void purple_perl_normalize_script_name(char *name)- c = strrchr(name, '.');- for (c = name; *c != '\0'; c++) {- if (*c != '_' && !g_ascii_isalnum(*c))-magic_free_object(pTHX_ SV *sv, MAGIC *mg)-static MGVTBL vtbl_free_object =- 0, 0, 0, 0, magic_free_object, 0, 0-#if PERL_API_REVISION > 5 || (PERL_API_REVISION == 5 && PERL_API_VERSION >= 10)-create_sv_ptr(void *object)- PURPLE_STATIC_ASSERT(sizeof(IV) >= sizeof(void *),- sv_can_not_hold_a_pointer);- sv = newSViv((IV)(gintptr)object);- sv_magic(sv, NULL, '~', NULL, 0);- SvMAGIC(sv)->mg_private = 0x1551; /* HF */- SvMAGIC(sv)->mg_virtual = &vtbl_free_object;-newSVGChar(const char *str)-purple_perl_bless_object(void *object, const char *stash_name)- if (object_stashes == NULL) {- object_stashes = g_hash_table_new(g_direct_hash, g_direct_equal);- stash = gv_stashpv(stash_name, 1);- if (hv_store(hv, "_purple", 7, create_sv_ptr(object), 0) == NULL)- purple_debug_error("perl", "hv_store failed\n");- return sv_bless(newRV_noinc((SV *)hv), stash);-purple_perl_is_ref_object(SV *o)- sv = hv_fetch(hv, "_purple", 7, 0);-purple_perl_ref_object(SV *o)- sv = hv_fetch(hv, "_purple", 7, 0);- croak("variable is damaged");- p = GINT_TO_POINTER(SvIV(*sv));- 2003/02/06: execute_perl modified by Mark Doliner <mark@kingant.net>- Pass parameters by pushing them onto the stack rather than- passing an array of strings. This way, perl scripts can- modify the parameters and we can get the changed values- and then shoot ourselves. I mean, uh, use them.- 2001/06/14: execute_perl replaced by Martin Persson <mep@passagen.se>- previous use of perl_eval leaked memory, replaced with- a version that uses perl_call instead- 30/11/2002: execute_perl modified by Eric Timme <timothy@voidnet.com>- args changed to char** so that we can have preparsed- arguments again, and many headaches ensued! This essentially- means we replaced one hacked method with a messier hacked- method out of perceived necessity. Formerly execute_perl- required a single char_ptr, and it would insert it into an- array of character pointers and NULL terminate the new array.- Now we have to pass in pre-terminated character pointer arrays- to accomodate functions that want to pass in multiple arguments.- Previously arguments were preparsed because an argument list- was constructed in the form 'arg one','arg two' and was- executed via a call like &funcname(arglist) (see .59.x), so- the arglist was magically pre-parsed because of the method.- With Martin Persson's change to perl_call we now need to- use a null terminated list of character pointers for arguments- if we wish them to be parsed. Lacking a better way to allow- for both single arguments and many I created a NULL terminated- array in every function that called execute_perl and passed- that list into the function. In the former version a single- character pointer was passed in, and was placed into an array- of character pointers with two elements, with a NULL element- tacked onto the back, but this method no longer seemed prudent.- Enhancements in the future might be to get rid of pre-declaring- the array sizes? I am not comfortable enough with this- subject to attempt it myself and hope it to stand the test-execute_perl(const char *function, int argc, char **args)- int count = 0, i, ret_value = 1;- PERL_SET_CONTEXT(my_perl);- * Set up the perl environment, push arguments onto the- * perl stack, then call the given function- for (i = 0; i < argc; i++) {- sv_args[i] = sv_2mortal(newSVpv(args[i], 0));- PERL_SET_CONTEXT(my_perl);- count = call_pv(function, G_EVAL | G_SCALAR);- * Check for "die," make sure we have 1 argument, and set our- purple_debug(PURPLE_DEBUG_ERROR, "perl",- "Perl function %s exited abnormally: %s\n",- function, SvPVutf8_nolen(ERRSV));- } else if (count != 1) {- * This should NEVER happen. G_SCALAR ensures that we WILL- purple_debug(PURPLE_DEBUG_ERROR, "perl",- "Perl error from %s: expected 1 return value, "- "but got %d\n", function, count);- /* Check for changed arguments */- for (i = 0; i < argc; i++) {- if (args[i] && strcmp(args[i], SvPVX(sv_args[i]))) {- * Shizzel. So the perl script changed one of the parameters,- * and we want this change to affect the original parameters.- * args[i] is just a temporary little list of pointers. We don't- * want to free args[i] here because the new parameter doesn't- * overwrite the data that args[i] points to. That is done by- * the function that called execute_perl. I'm not explaining this- * very well. See, it's aggregate... Oh, but if 2 perl scripts- * both modify the data, _that's_ a memleak. This is really kind- * of hackish. I should fix it. Look how long this comment is.- args[i] = g_strdup(SvPVutf8_nolen(sv_args[i]));-purple_perl_value_from_sv(PurpleValue *value, SV *sv)- switch (purple_value_get_type(value))- if ((tmp = SvGChar(sv)) != NULL)- purple_value_set_char(value, tmp[0]);- case PURPLE_TYPE_UCHAR:- if ((tmp = SvPV_nolen(sv)) != NULL)- purple_value_set_uchar(value, tmp[0]);- case PURPLE_TYPE_BOOLEAN:- purple_value_set_boolean(value, SvTRUE(sv));- purple_value_set_int(value, SvIV(sv));- purple_value_set_uint(value, SvIV(sv));- purple_value_set_long(value, SvIV(sv));- case PURPLE_TYPE_ULONG:- purple_value_set_ulong(value, SvIV(sv));- case PURPLE_TYPE_INT64:- purple_value_set_int64(value, SvIV(sv));- case PURPLE_TYPE_UINT64:- purple_value_set_uint64(value, SvIV(sv));- case PURPLE_TYPE_STRING:- purple_value_set_string(value, SvGChar(sv));- case PURPLE_TYPE_POINTER:- purple_value_set_pointer(value, (void *)SvIV(sv));- case PURPLE_TYPE_BOXED:- if (!strcmp(purple_value_get_specific_type(value), "SV"))- purple_value_set_boxed(value, (sv == &PL_sv_undef ? NULL : sv));- purple_value_set_boxed(value, sv);-purple_perl_sv_from_value(const PurpleValue *value, va_list list)- switch (purple_value_get_type(value))- case PURPLE_TYPE_BOOLEAN:- return newSViv(purple_value_get_boolean(value));- return newSViv(purple_value_get_int(value));- return newSVuv(purple_value_get_uint(value));- return newSViv(purple_value_get_long(value));- case PURPLE_TYPE_ULONG:- return newSVuv(purple_value_get_ulong(value));- case PURPLE_TYPE_INT64:- return newSViv(purple_value_get_int64(value));- case PURPLE_TYPE_UINT64:- return newSVuv(purple_value_get_int64(value));- case PURPLE_TYPE_STRING:- return newSVGChar(purple_value_get_string(value));- case PURPLE_TYPE_POINTER:- return newSViv((IV)purple_value_get_pointer(value));- case PURPLE_TYPE_BOXED:- if (!strcmp(purple_value_get_specific_type(value), "SV"))- SV *sv = (SV *)purple_perl_get_boxed(value);- return (sv == NULL ? &PL_sv_undef : sv);- /* Uh.. I dunno. Try this? */- return sv_2mortal(purple_perl_bless_object(- purple_perl_get_boxed(value),- purple_value_get_specific_type(value)));-purple_perl_data_from_sv(GType type, SV *sv)- case G_TYPE_BOOLEAN: return (void *)(gintptr)SvIV(sv);- case G_TYPE_INT: return (void *)(gintptr)SvIV(sv);- case G_TYPE_UINT: return (void *)(gintptr)SvUV(sv);- case G_TYPE_LONG: return (void *)(gintptr)SvIV(sv);- case G_TYPE_ULONG: return (void *)(gintptr)SvUV(sv);- case G_TYPE_INT64: return (void *)(gintptr)SvIV(sv);- case G_TYPE_UINT64: return (void *)(gintptr)SvUV(sv);- case G_TYPE_STRING: return g_strdup(SvPVutf8_nolen(sv));- case G_TYPE_POINTER: return (void *)(gintptr)SvIV(sv);-purple_perl_sv_from_purple_type(GType type, void *arg)- const char *stash = "Purple"; /* ? */- if (type == PURPLE_TYPE_ACCOUNT)- stash = "Purple::Account";- else if (type == PURPLE_TYPE_CONTACT)- stash = "Purple::BuddyList::Contact";- else if (type == PURPLE_TYPE_BUDDY)- stash = "Purple::BuddyList::Buddy";- else if (type == PURPLE_TYPE_GROUP)- stash = "Purple::BuddyList::Group";- else if (type == PURPLE_TYPE_CHAT)- stash = "Purple::BuddyList::Chat";- else if (type == PURPLE_TYPE_BUDDY_ICON)- stash = "Purple::Buddy::Icon";- else if (type == PURPLE_TYPE_CONNECTION)- stash = "Purple::Connection";- else if (type == PURPLE_TYPE_CONVERSATION)- stash = "Purple::Conversation";- else if (type == PURPLE_TYPE_PLUGIN)- stash = "Purple::Plugin";- else if (type == PURPLE_TYPE_BLIST_NODE)- stash = "Purple::BuddyList::Node";- else if (type == PURPLE_TYPE_CIPHER)- stash = "Purple::Cipher";- else if (type == PURPLE_TYPE_STATUS)- stash = "Purple::Status";- else if (type == PURPLE_TYPE_SAVEDSTATUS)- stash = "Purple::SavedStatus";- else if (type == PURPLE_TYPE_LOG)- else if (type == PURPLE_TYPE_XFER)- stash = "Purple::Xfer";- else if (type == PURPLE_TYPE_XMLNODE)- stash = "Purple::XMLNode";- else if (type == PURPLE_TYPE_NOTIFY_USER_INFO)- stash = "Purple::NotifyUserInfo";- else if (type == PURPLE_TYPE_CERTIFICATE_POOL)- stash = "Purple::Certificate::Pool";- stash = "Purple::Unknown";- return sv_2mortal(purple_perl_bless_object(arg, stash));-purple_perl_sv_from_vargs(GType type, va_list *args, void ***copy_arg)- if (purple_value_is_outgoing(value)) {- switch (purple_value_get_type(value)) {- case PURPLE_TYPE_SUBTYPE:- if ((*copy_arg = va_arg(*args, void **)) == NULL)- return purple_perl_sv_from_subtype(value, *(void **)*copy_arg);- case PURPLE_TYPE_BOOLEAN:- if ((*copy_arg = (void *)va_arg(*args, gboolean *)) == NULL)- return newSViv(*(gboolean *)*copy_arg);- if ((*copy_arg = (void *)va_arg(*args, int *)) == NULL)- return newSViv(*(int *)*copy_arg);- if ((*copy_arg = (void *)va_arg(*args, unsigned int *)) == NULL)- return newSVuv(*(unsigned int *)*copy_arg);- if ((*copy_arg = (void *)va_arg(*args, long *)) == NULL)- return newSViv(*(long *)*copy_arg);- case PURPLE_TYPE_ULONG:- if ((*copy_arg = (void *)va_arg(*args,- unsigned long *)) == NULL)- return newSVuv(*(unsigned long *)*copy_arg);- case PURPLE_TYPE_INT64:- if ((*copy_arg = (void *)va_arg(*args, gint64 *)) == NULL)- return newSViv(*(gint64 *)*copy_arg);- case PURPLE_TYPE_UINT64:- if ((*copy_arg = (void *)va_arg(*args, guint64 *)) == NULL)- return newSVuv(*(guint64 *)*copy_arg);- case PURPLE_TYPE_STRING:- if ((*copy_arg = (void *)va_arg(*args, char **)) == NULL)- return newSVGChar(*(char **)*copy_arg);- case PURPLE_TYPE_POINTER:- if ((*copy_arg = va_arg(*args, void **)) == NULL)- return newSViv((IV)*(void **)*copy_arg);- case PURPLE_TYPE_BOXED:- /* Uh.. I dunno. Try this? */- if ((*copy_arg = va_arg(*args, void **)) == NULL)- return sv_2mortal(purple_perl_bless_object(- purple_value_get_specific_type(value)));- /* If this happens, things are going to get screwed up... */- *copy_arg = GINT_TO_POINTER( va_arg(*args, gboolean) );- return newSViv((gboolean)GPOINTER_TO_INT(*copy_arg));- *copy_arg = GINT_TO_POINTER( va_arg(*args, int) );- return newSViv(GPOINTER_TO_INT(*copy_arg));- *copy_arg = GUINT_TO_POINTER(va_arg(*args, unsigned int));- return newSVuv(GPOINTER_TO_UINT(*copy_arg));- *copy_arg = (void *)va_arg(*args, long);- return newSViv((long)*copy_arg);- *copy_arg = (void *)va_arg(*args, unsigned long);- return newSVuv((unsigned long)*copy_arg);- /* XXX This yells and complains. */- *copy_arg = (void *)va_arg(*args, gint64);- return newSViv((gint64)*copy_arg);- /* XXX This also yells and complains. */- *copy_arg = (void *)va_arg(*args, guint64);- return newSVuv((guint64)*copy_arg);- if ((*copy_arg = (void *)va_arg(*args, char *)) == NULL)- return newSVGChar((char *)*copy_arg);- if ((*copy_arg = (void *)va_arg(*args, void *)) == NULL)- return newSViv((IV)(gintptr)*copy_arg);- if ((*copy_arg = va_arg(*args, void *)) == NULL)- return purple_perl_sv_from_purple_type(type, *copy_arg);-SV *purple_perl_sv_from_fun(PurplePlugin *plugin, SV *callback)- if (SvTYPE(callback) == SVt_RV) {- SV *cbsv = SvRV(callback);- if (SvTYPE(cbsv) == SVt_PVCV) {- sv = newSVsv(callback);- } else if (SvTYPE(callback) == SVt_PV) {- gps = (PurplePerlScript *)PURPLE_PLUGIN_LOADER_INFO(plugin);- sv = newSVpvf("%s::%s", gps->package, SvPV_nolen(callback));- purple_debug_warning("perl", "Callback not a valid type, only strings and coderefs allowed.\n");--- a/libpurple/plugins/perl/perl-common.h Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,82 +0,0 @@
-#ifndef _PURPLE_PERL_COMMON_H_-#define _PURPLE_PERL_COMMON_H_-#define SILENT_NO_TAINT_SUPPORT 0-#define NO_TAINT_SUPPORT 0-/* XXX: perl defines it's own _ but I think it's safe to undef it */-/* Dirty hack to prevent the win32 libc compat stuff from interfering with the Perl internal stuff */- ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV))- (is_hvref(o) ? (HV *)SvRV(o) : NULL);-#define PURPLE_PERL_BOOT_PROTO(x) \- void boot_Purple__##x(pTHX_ CV *cv);-#define PURPLE_PERL_BOOT(x) \- purple_perl_callXS(boot_Purple__##x, cv, mark)-#ifdef HAVE_NEW_SVUPGRADE-# define SvUPGRADE_common(a, b) SvUPGRADE(a, b)-# define SvUPGRADE_common(a, b) if (!SvUPGRADE(a, b)) { croak("Cannot upgrade variable"); }-typedef struct _PurplePerlInfoStrings PurplePerlInfoStrings;- PurplePerlInfoStrings *info_strings;- char *plugin_action_sub;-void purple_perl_normalize_script_name(char *name);-SV *newSVGChar(const char *str);-void purple_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark);-void purple_perl_bless_plain(const char *stash, void *object);-SV *purple_perl_bless_object(void *object, const char *stash);-gboolean purple_perl_is_ref_object(SV *o);-void *purple_perl_ref_object(SV *o);-int execute_perl(const char *function, int argc, char **args);-gboolean purple_perl_value_from_sv(PurpleValue *value, SV *sv);-SV *purple_perl_sv_from_value(const PurpleValue *value);-void *purple_perl_data_from_sv(GType type, SV *sv);-SV *purple_perl_sv_from_vargs(GType type, va_list *args, void ***copy_arg);-SV *purple_perl_sv_from_fun(PurplePlugin *plugin, SV *callback);-#endif /* _PURPLE_PERL_COMMON_H_ */--- a/libpurple/plugins/perl/perl-handlers.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,967 +0,0 @@
-#include "perl-common.h"-#include "perl-handlers.h"-} PurplePerlAccountPasswordHandler;-extern PerlInterpreter *my_perl;-static GSList *cmd_handlers = NULL;-static GSList *signal_handlers = NULL;-static GSList *timeout_handlers = NULL;-static GSList *pref_handlers = NULL;-/* perl < 5.8.0 doesn't define PERL_MAGIC_ext */-#define PERL_MAGIC_ext '~'-purple_perl_plugin_action_cb(PurplePluginAction *action)- plugin = action->plugin;- gps = (PurplePerlScript *)plugin->info->extra_info;- hvname = g_strdup_printf("%s::plugin_actions", gps->package);- hv = get_hv(hvname, FALSE);- croak("No plugin_actions hash found in \"%s\" plugin.", purple_plugin_get_name(plugin));- callback = hv_fetch(hv, action->label, strlen(action->label), 0);- if (callback == NULL || *callback == NULL)- croak("No plugin_action function named \"%s\" in \"%s\" plugin.", action->label, purple_plugin_get_name(plugin));- XPUSHs(purple_perl_bless_object(gps->plugin, "Purple::Plugin"));- call_sv(*callback, G_EVAL | G_VOID | G_DISCARD);- purple_debug_error("perl",- "Perl plugin action function exited abnormally: %s\n",- SvPVutf8_nolen(ERRSV));-purple_perl_plugin_actions(PurplePlugin *plugin, gpointer context)- gps = plugin->info->extra_info;- XPUSHs(sv_2mortal(purple_perl_bless_object(plugin, "Purple::Plugin")));- /* XXX This *will* cease working correctly if context gets changed to- * ever be able to hold anything other than a PurpleConnection */- XPUSHs(sv_2mortal(purple_perl_bless_object(context,- "Purple::Connection")));- count = call_pv(gps->plugin_action_sub, G_EVAL | G_ARRAY);- purple_debug_error("perl",- "Perl plugin actions lookup exited abnormally: %s\n",- SvPVutf8_nolen(ERRSV));- croak("The plugin_actions sub didn't return anything.\n");- for (i = 0; i < count; i++) {- PurplePluginAction *act;- act = purple_plugin_action_new(SvPVutf8_nolen(sv), purple_perl_plugin_action_cb);- l = g_list_prepend(l, act);-purple_perl_gtk_get_plugin_frame(PurplePlugin *plugin)- gps = plugin->info->extra_info;- count = call_pv(gps->gtk_prefs_sub, G_EVAL | G_SCALAR | G_NOARGS);- croak("call_pv: Did not return the correct number of values.\n");- /* the frame was created in a perl sub and is returned */- purple_debug_error("perl",- "Perl gtk plugin frame init exited abnormally: %s\n",- SvPVutf8_nolen(ERRSV));- /* We have a Gtk2::Frame on top of the stack */- /* The magic field hides the pointer to the actual GtkWidget */- mg = mg_find(SvRV(sv), PERL_MAGIC_ext);- ret = (GtkWidget *)mg->mg_ptr;-purple_perl_get_plugin_frame(PurplePlugin *plugin)- /* Sets up the Perl Stack for our call back into the script to run the- * plugin_pref... sub */- PurplePluginPrefFrame *ret_frame;- gps = (PurplePerlScript *)plugin->info->extra_info;- /* Some perl magic to run perl_plugin_pref_frame_SV perl sub and- count = call_pv(gps->prefs_sub, G_EVAL | G_SCALAR | G_NOARGS);- purple_debug_error("perl",- "Perl plugin prefs frame init exited abnormally: %s\n",- SvPVutf8_nolen(ERRSV));- croak("call_pv: Did not return the correct number of values.\n");- /* the frame was created in a perl sub and is returned */- ret_frame = (PurplePluginPrefFrame *)purple_perl_ref_object(POPs);- /* Tidy up the Perl stack */-destroy_timeout_handler(PurplePerlTimeoutHandler *handler)- timeout_handlers = g_slist_remove(timeout_handlers, handler);- if (handler->iotag > 0)- ret = purple_timeout_remove(handler->iotag);- if (handler->callback != NULL)- SvREFCNT_dec(handler->callback);- if (handler->data != NULL)- SvREFCNT_dec(handler->data);-destroy_signal_handler(PurplePerlSignalHandler *handler)- signal_handlers = g_slist_remove(signal_handlers, handler);- if (handler->callback != NULL)- SvREFCNT_dec(handler->callback);- if (handler->data != NULL)- SvREFCNT_dec(handler->data);- g_free(handler->signal);-perl_timeout_cb(gpointer data)- PurplePerlTimeoutHandler *handler = data;- XPUSHs((SV *)handler->data);- call_sv(handler->callback, G_EVAL | G_SCALAR);- purple_debug_error("perl",- "Perl timeout function exited abnormally: %s\n",- SvPVutf8_nolen(ERRSV));- destroy_timeout_handler(handler);-perl_signal_cb(va_list args, void *data)- PurplePerlSignalHandler *handler = data;- GType ret_type, *value_types;- PERL_SET_CONTEXT(my_perl);- purple_signal_get_types(handler->instance, handler->signal,- &ret_type, &value_count, &value_types);- sv_args = g_new(SV *, value_count);- copy_args = g_new(void **, value_count);- for (i = 0; i < value_count; i++) {- sv_args[i] = purple_perl_sv_from_vargs(value_types[i],- XPUSHs((SV *)handler->data);- if (ret_type != G_TYPE_NONE) {- count = call_sv(handler->callback, G_EVAL | G_SCALAR);- croak("Uh oh! call_sv returned %i != 1", i);- ret_val = purple_perl_data_from_sv(ret_type, POPs);- call_sv(handler->callback, G_EVAL | G_SCALAR);- purple_debug_error("perl",- "Perl function exited abnormally: %s\n",- SvPVutf8_nolen(ERRSV));- /* See if any parameters changed. */- for (i = 0; i < value_count; i++) {- if (purple_value_is_outgoing(values[i])) {- switch (purple_value_get_type(values[i])) {- case PURPLE_TYPE_BOOLEAN:- *((gboolean *)copy_args[i]) = SvIV(sv_args[i]);- *((int *)copy_args[i]) = SvIV(sv_args[i]);- *((unsigned int *)copy_args[i]) = SvUV(sv_args[i]);- *((long *)copy_args[i]) = SvIV(sv_args[i]);- case PURPLE_TYPE_ULONG:- *((unsigned long *)copy_args[i]) = SvUV(sv_args[i]);- case PURPLE_TYPE_INT64:- *((gint64 *)copy_args[i]) = SvIV(sv_args[i]);- case PURPLE_TYPE_UINT64:- *((guint64 *)copy_args[i]) = SvUV(sv_args[i]);- case PURPLE_TYPE_STRING:- if (!*((char **)copy_args[i]) || !SvPVX(sv_args[i]) ||- strcmp(*((char **)copy_args[i]), SvPVX(sv_args[i]))) {- g_free(*((char **)copy_args[i]));- *((char **)copy_args[i]) =- g_strdup(SvPVutf8_nolen(sv_args[i]));- /* Clean up sv_args[i] - we're done with it */- sv_2mortal(sv_args[i]);- case PURPLE_TYPE_POINTER:- case PURPLE_TYPE_BOXED:- *((void **)copy_args[i]) = (void *)SvIV(sv_args[i]);- case PURPLE_TYPE_SUBTYPE:- *((void **)copy_args[i]) = purple_perl_ref_object(sv_args[i]);- *((void **)copy_args[i]) = purple_perl_data_from_sv(values[i],- purple_debug_misc("perl", "ret_val = %p\n", ret_val);-static PurplePerlSignalHandler *-find_signal_handler(PurplePlugin *plugin, void *instance, const char *signal)- PurplePerlSignalHandler *handler;- for (l = signal_handlers; l != NULL; l = l->next) {- if (handler->plugin == plugin &&- handler->instance == instance &&- !strcmp(handler->signal, signal)) {-purple_perl_timeout_add(PurplePlugin *plugin, int seconds, SV *callback, SV *data)- PurplePerlTimeoutHandler *handler;- croak("Invalid handle in adding perl timeout handler.\n");- handler = g_new0(PurplePerlTimeoutHandler, 1);- handler->plugin = plugin;- handler->callback = (callback != NULL && callback != &PL_sv_undef- ? newSVsv(callback) : NULL);- handler->data = (data != NULL && data != &PL_sv_undef- ? newSVsv(data) : NULL);- timeout_handlers = g_slist_append(timeout_handlers, handler);- handler->iotag = purple_timeout_add_seconds(seconds, perl_timeout_cb, handler);-purple_perl_timeout_remove(guint handle)- PurplePerlTimeoutHandler *handler;- for (l = timeout_handlers; l != NULL; l = l_next) {- if (handler->iotag == handle)- return destroy_timeout_handler(handler);- purple_debug_info("perl", "No timeout handler found with handle %u.\n",-purple_perl_timeout_clear_for_plugin(PurplePlugin *plugin)- PurplePerlTimeoutHandler *handler;- for (l = timeout_handlers; l != NULL; l = l_next) {- if (handler->plugin == plugin)- destroy_timeout_handler(handler);-purple_perl_timeout_clear(void)- while (timeout_handlers != NULL)- destroy_timeout_handler(timeout_handlers->data);-purple_perl_signal_connect(PurplePlugin *plugin, void *instance,- const char *signal, SV *callback, SV *data,- PurplePerlSignalHandler *handler;- handler = g_new0(PurplePerlSignalHandler, 1);- handler->plugin = plugin;- handler->instance = instance;- handler->signal = g_strdup(signal);- handler->callback = (callback != NULL &&- callback != &PL_sv_undef ? newSVsv(callback)- handler->data = (data != NULL &&- data != &PL_sv_undef ? newSVsv(data) : NULL);- signal_handlers = g_slist_append(signal_handlers, handler);- purple_signal_connect_priority_vargs(instance, signal, plugin,- PURPLE_CALLBACK(perl_signal_cb),-purple_perl_signal_disconnect(PurplePlugin *plugin, void *instance,- PurplePerlSignalHandler *handler;- handler = find_signal_handler(plugin, instance, signal);- croak("Invalid signal handler information in "- "disconnecting a perl signal handler.\n");- destroy_signal_handler(handler);-purple_perl_signal_clear_for_plugin(PurplePlugin *plugin)- PurplePerlSignalHandler *handler;- for (l = signal_handlers; l != NULL; l = l_next) {- if (handler->plugin == plugin)- destroy_signal_handler(handler);-purple_perl_signal_clear(void)- while (signal_handlers != NULL)- destroy_signal_handler(signal_handlers->data);-perl_cmd_cb(PurpleConversation *conv, const gchar *command,- gchar **args, gchar **error, void *data)- int i = 0, count, ret_value = PURPLE_CMD_RET_OK;- SV *cmdSV, *tmpSV, *convSV;- PurplePerlCmdHandler *handler = data;- /* Push the conversation onto the perl stack */- convSV = sv_2mortal(purple_perl_bless_object(conv, "Purple::Conversation"));- /* Push the command string onto the perl stack */- cmdSV = newSVpv(command, 0);- cmdSV = sv_2mortal(cmdSV);- /* Push the data onto the perl stack */- XPUSHs((SV *)handler->data);- /* Push any arguments we may have */- for (i = 0; args[i] != NULL; i++) {- /* XXX The mortality of these created SV's should prevent- * memory issues, if I read/understood everything correctly...- tmpSV = newSVpv(args[i], 0);- tmpSV = sv_2mortal(tmpSV);- count = call_sv(handler->callback, G_EVAL | G_SCALAR);- croak("call_sv: Did not return the correct number of values.\n");- purple_debug_error("perl",- "Perl plugin command function exited abnormally: %s\n",- SvPVutf8_nolen(ERRSV));-purple_perl_cmd_register(PurplePlugin *plugin, const gchar *command,- const gchar *args, PurpleCmdPriority priority,- PurpleCmdFlag flag, const gchar *protocol_id, SV *callback,- const gchar *helpstr, SV *data)- PurplePerlCmdHandler *handler;- handler = g_new0(PurplePerlCmdHandler, 1);- handler->plugin = plugin;- handler->cmd = g_strdup(command);- handler->protocol_id = g_strdup(protocol_id);- if (callback != NULL && callback != &PL_sv_undef)- handler->callback = newSVsv(callback);- handler->callback = NULL;- if (data != NULL && data != &PL_sv_undef)- handler->data = newSVsv(data);- cmd_handlers = g_slist_append(cmd_handlers, handler);- handler->id = purple_cmd_register(command, args, priority, flag, protocol_id,- PURPLE_CMD_FUNC(perl_cmd_cb), helpstr,-destroy_cmd_handler(PurplePerlCmdHandler *handler)- purple_cmd_unregister(handler->id);- cmd_handlers = g_slist_remove(cmd_handlers, handler);- if (handler->callback != NULL)- SvREFCNT_dec(handler->callback);- if (handler->data != NULL)- SvREFCNT_dec(handler->data);- g_free(handler->protocol_id);-purple_perl_cmd_clear_for_plugin(PurplePlugin *plugin)- PurplePerlCmdHandler *handler;- for (l = cmd_handlers; l != NULL; l = l_next) {- if (handler->plugin == plugin)- destroy_cmd_handler(handler);-static PurplePerlCmdHandler *-find_cmd_handler(PurpleCmdId id)- PurplePerlCmdHandler *handler;- for (l = cmd_handlers; l != NULL; l = l->next) {- handler = (PurplePerlCmdHandler *)l->data;-purple_perl_cmd_unregister(PurpleCmdId id)- PurplePerlCmdHandler *handler;- handler = find_cmd_handler(id);- croak("Invalid command id in removing a perl command handler.\n");- destroy_cmd_handler(handler);-perl_pref_cb(const char *name, PurplePrefType type, gconstpointer value,- PurplePerlPrefsHandler *handler = data;- XPUSHs(sv_2mortal(newSVpv(name, 0)));- XPUSHs(sv_2mortal(newSViv(type)));- XPUSHs(sv_2mortal(newSViv(GPOINTER_TO_INT(value))));- case PURPLE_PREF_BOOLEAN:- XPUSHs((GPOINTER_TO_INT(value) == FALSE) ? &PL_sv_no : &PL_sv_yes);- case PURPLE_PREF_STRING:- XPUSHs(sv_2mortal(newSVGChar(value)));- case PURPLE_PREF_STRING_LIST:- case PURPLE_PREF_PATH_LIST:- const GList *l = value;- /* Append stuff backward to preserve order */- while (l && l->next) l = l->next;- av_push(av, sv_2mortal(newSVGChar(l->data)));- XPUSHs(sv_2mortal(newRV_noinc((SV *) av)));- XPUSHs((SV *)handler->data);- call_sv(handler->callback, G_EVAL | G_VOID | G_DISCARD);- purple_debug_error("perl",- "Perl prefs callback function exited abnormally: %s\n",- SvPVutf8_nolen(ERRSV));-purple_perl_prefs_connect_callback(PurplePlugin *plugin, const char *name,- SV *callback, SV *data)- PurplePerlPrefsHandler *handler;- croak("Invalid handle in adding perl prefs handler.\n");- handler = g_new0(PurplePerlPrefsHandler, 1);- handler->plugin = plugin;- handler->callback = (callback != NULL && callback != &PL_sv_undef- ? newSVsv(callback) : NULL);- handler->data = (data != NULL && data != &PL_sv_undef- ? newSVsv(data) : NULL);- pref_handlers = g_slist_prepend(pref_handlers, handler);- handler->iotag = purple_prefs_connect_callback(plugin, name, perl_pref_cb, handler);-destroy_prefs_handler(PurplePerlPrefsHandler *handler)- pref_handlers = g_slist_remove(pref_handlers, handler);- if (handler->iotag > 0)- purple_prefs_disconnect_callback(handler->iotag);- if (handler->callback != NULL)- SvREFCNT_dec(handler->callback);- if (handler->data != NULL)- SvREFCNT_dec(handler->data);-void purple_perl_prefs_disconnect_callback(guint callback_id)- PurplePerlPrefsHandler *handler;- for (l = pref_handlers; l != NULL; l = l_next) {- if (handler->iotag == callback_id) {- destroy_prefs_handler(handler);- purple_debug_info("perl", "No prefs handler found with handle %u.\n",-void purple_perl_pref_cb_clear_for_plugin(PurplePlugin *plugin)- PurplePerlPrefsHandler *handler;- for (l = pref_handlers; l != NULL; l = l_next) {- if (handler->plugin == plugin)- destroy_prefs_handler(handler);-perl_account_save_cb(PurpleAccount *account, GError *error, gpointer _handler)- PurplePerlAccountPasswordHandler *handler = _handler;- SV *accountSV, *errorSV;- accountSV = sv_2mortal(purple_perl_bless_object(account,- errorSV = sv_2mortal(purple_perl_bless_object(error, "GLib::Error"));- XPUSHs((SV *)handler->data);- call_sv(handler->callback, G_EVAL | G_SCALAR);- purple_debug_error("perl", "Perl plugin command function "- "exited abnormally: %s\n", SvPVutf8_nolen(ERRSV));-perl_account_read_cb(PurpleAccount *account, const gchar *password,- GError *error, gpointer _handler)- PurplePerlAccountPasswordHandler *handler = _handler;- SV *accountSV, *passwordSV, *errorSV;- accountSV = sv_2mortal(purple_perl_bless_object(account,- passwordSV = sv_2mortal(newSVpv(password, 0));- errorSV = sv_2mortal(purple_perl_bless_object(error, "GLib::Error"));- XPUSHs((SV *)handler->data);- call_sv(handler->callback, G_EVAL | G_SCALAR);- purple_debug_error("perl", "Perl plugin command function "- "exited abnormally: %s\n", SvPVutf8_nolen(ERRSV));-purple_perl_account_get_password(PurpleAccount *account, SV *func, SV *data)- PurplePerlAccountPasswordHandler *handler;- if (func == &PL_sv_undef)- if (data == &PL_sv_undef)- handler = g_new0(PurplePerlAccountPasswordHandler, 1);- handler->callback = (func != NULL ? newSVsv(func) : NULL);- handler->data = (data != NULL ? newSVsv(data) : NULL);- purple_account_get_password(account, perl_account_read_cb, handler);-purple_perl_account_set_password(PurpleAccount *account, const gchar *password,- PurplePerlAccountPasswordHandler *handler;- if (func == &PL_sv_undef)- if (data == &PL_sv_undef)- handler = g_new0(PurplePerlAccountPasswordHandler, 1);- handler->callback = (func != NULL ? newSVsv(func) : NULL);- handler->data = (data != NULL ? newSVsv(data) : NULL);- purple_account_set_password(account, password, perl_account_save_cb,--- a/libpurple/plugins/perl/perl-handlers.h Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,91 +0,0 @@
-#ifndef _PURPLE_PERL_HANDLERS_H_-#define _PURPLE_PERL_HANDLERS_H_-} PurplePerlTimeoutHandler;-} PurplePerlSignalHandler;-} PurplePerlPrefsHandler;-void purple_perl_plugin_action_cb(PurplePluginAction * gpa);-GList *purple_perl_plugin_actions(PurplePlugin *plugin, gpointer context);-PurplePluginPrefFrame *purple_perl_get_plugin_frame(PurplePlugin *plugin);-GtkWidget *purple_perl_gtk_get_plugin_frame(PurplePlugin *plugin);-guint purple_perl_timeout_add(PurplePlugin *plugin, int seconds, SV *callback,-gboolean purple_perl_timeout_remove(guint handle);-void purple_perl_timeout_clear_for_plugin(PurplePlugin *plugin);-void purple_perl_timeout_clear(void);-void purple_perl_signal_connect(PurplePlugin *plugin, void *instance,- const char *signal, SV *callback,- SV *data, int priority);-void purple_perl_signal_disconnect(PurplePlugin *plugin, void *instance,-void purple_perl_signal_clear_for_plugin(PurplePlugin *plugin);-void purple_perl_signal_clear(void);-PurpleCmdId purple_perl_cmd_register(PurplePlugin *plugin, const gchar *cmd,- const gchar *args, PurpleCmdPriority priority,- PurpleCmdFlag flag, const gchar *protocol_id,- SV *callback, const gchar *helpstr, SV *data);-void purple_perl_cmd_unregister(PurpleCmdId id);-void purple_perl_cmd_clear_for_plugin(PurplePlugin *plugin);-guint purple_perl_prefs_connect_callback(PurplePlugin *plugin, const char *name, SV *callback, SV *data);-void purple_perl_prefs_disconnect_callback(guint callback_id);-void purple_perl_pref_cb_clear_for_plugin(PurplePlugin *plugin);-purple_perl_account_get_password(PurpleAccount *account, SV *func, SV *data);-purple_perl_account_set_password(PurpleAccount *account, const char *password,-#endif /* _PURPLE_PERL_HANDLERS_H_ */--- a/libpurple/plugins/perl/perl.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,726 +0,0 @@
- * Copyright (C) 2003 Christian Hammond <chipx86@gnupdate.org>- * This program is free software; you can redistribute it and/or modify- * it under the terms of the GNU General Public License as published by- * the Free Software Foundation; either version 2 of the License, or- * (at your option) any later version.- * 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 General Public License for more details.- * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA-# define NAME_MAX _POSIX_NAME_MAX-#define group perl_group-/* This took me an age to figure out.. without this __declspec(dllimport)-#ifndef _SEM_SEMUN_UNDEFINED-# define HAS_UNION_SEMUN-#define SILENT_NO_TAINT_SUPPORT 0-#define NO_TAINT_SUPPORT 0- /* We're using perl's win32 port of this */-/* perl module support */-EXTERN_C void boot_Win32CORE (pTHX_ CV* cv);-extern void boot_DynaLoader _((CV * cv));-extern void boot_DynaLoader _((pTHX_ CV * cv)); /* perl is so wacky */-#include "perl-common.h"-#include "perl-handlers.h"-#define PERL_PLUGIN_ID "core-perl"-PerlInterpreter *my_perl = NULL;-struct _PurplePerlInfoStrings-static PurplePluginUiInfo ui_info =- purple_perl_get_plugin_frame,-static PurpleGtkPluginUiInfo gtk_ui_info =- purple_perl_gtk_get_plugin_frame,- 0 /* page_num (Reserved) */-static void perl_infostrings_free(PurplePerlInfoStrings *info_strings)- if (info_strings == NULL)- g_free(info_strings->name);- g_free(info_strings->id);- g_free(info_strings->homepage);- g_free(info_strings->author);- g_free(info_strings->summary);- g_free(info_strings->description);- g_free(info_strings->version);- GList *search_paths = purple_plugins_get_search_paths();- /* This one allows dynamic loading of perl modules in perl scripts by- * the 'use perlmod;' construction */- newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);- newXS("Win32CORE::bootstrap", boot_Win32CORE, file);- while (search_paths != NULL) {- const gchar *search_path = search_paths->data;- search_paths = g_list_next(search_paths);- uselib = g_strdup_printf("unshift @INC, q(%s%sperl);",- search_path, G_DIR_SEPARATOR_S);- /* changed the name of the variable from load_file to perl_definitions- * since now it does much more than defining the load_file sub.- * Moreover, deplaced the initialisation to the xs_init function.- char *perl_args[] = { "", "-e", "0", "-w" };- char perl_definitions[] =- /* We use to function one to load a file the other to execute- * the string obtained from the first and holding the file- * contents. This allows to have a really local $/ without- * introducing temp variables to hold the old value. Just a- * question of style:) */- "package Purple::PerlLoader;"- "open FH,$f_name or return \"__FAILED__\";"- "sub destroy_package {"- "eval { $_[0]->UNLOAD() if $_[0]->can('UNLOAD'); };"- "Symbol::delete_package($_[0]);"- "my ($f_name, $package) = @_;"- "destroy_package($package);"- "my $strin=load_file($f_name);"- "return 2 if($strin eq \"__FAILED__\");"- "my $eval = qq{package $package; $strin;};"- /*" #something went wrong\n"*/- "die(\"Errors loading file $f_name: $@\");"- my_perl = perl_alloc();- PERL_SET_CONTEXT(my_perl);- PL_perl_destruct_level = 1;- perl_construct(my_perl);- perl_parse(my_perl, xs_init, 4, perl_args, NULL);- perl_parse(my_perl, xs_init, 3, perl_args, NULL);-#ifdef HAVE_PERL_EVAL_PV- eval_pv(perl_definitions, TRUE);- perl_eval_pv(perl_definitions, TRUE); /* deprecated */- PL_perl_destruct_level = 1;- PERL_SET_CONTEXT(my_perl);- "foreach my $lib (@DynaLoader::dl_modules) {"- "if ($lib =~ /^Purple\\b/) {"- "$lib .= '::deinit();';"- PL_perl_destruct_level = 1;- PERL_SET_CONTEXT(my_perl);- perl_destruct(my_perl);-purple_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark)-probe_perl_plugin(PurplePlugin *plugin)- char *args[] = {"", plugin->path };- PerlInterpreter *prober;- gboolean status = TRUE;- PERL_SYS_INIT(&argc, &argv);- /* XXX This would be much faster if we didn't create a new- * PerlInterpreter every time we probe a plugin */- PERL_SET_CONTEXT(prober);- PL_perl_destruct_level = 1;- perl_construct(prober);-/* Fix IO redirection to match where pidgin's is going.- * Without this, we lose stdout/stderr unless we redirect to a file */- PerlIO* newprlIO = PerlIO_open("CONOUT$", "w");- int stdout_fd = PerlIO_fileno(PerlIO_stdout());- int stderr_fd = PerlIO_fileno(PerlIO_stderr());- PerlIO_close(PerlIO_stdout());- PerlIO_close(PerlIO_stderr());- PerlLIO_dup2(PerlIO_fileno(newprlIO), stdout_fd);- PerlLIO_dup2(PerlIO_fileno(newprlIO), stderr_fd);- PerlIO_close(newprlIO);- ret = perl_parse(prober, xs_init, argc, argv, NULL);- const char * errmsg = "Unknown error";- errmsg = SvPVutf8_nolen(ERRSV);- purple_debug_error("perl", "Unable to parse plugin %s (%d:%s)\n",- plugin->path, ret, errmsg);- ret = perl_run(prober);- const char * errmsg = "Unknown error";- errmsg = SvPVutf8_nolen(ERRSV);- purple_debug_error("perl", "Unable to run perl interpreter on plugin %s (%d:%s)\n",- plugin->path, ret, errmsg);- plugin_info = perl_get_hv("PLUGIN_INFO", FALSE);- if (plugin_info == NULL)- else if (!hv_exists(plugin_info, "perl_api_version",- strlen("perl_api_version")) ||- !hv_exists(plugin_info, "name", strlen("name")) ||- !hv_exists(plugin_info, "load", strlen("load"))) {- /* Not a valid plugin. */- key = hv_fetch(plugin_info, "perl_api_version",- strlen("perl_api_version"), 0);- perl_api_ver = SvIV(*key);- PurplePluginInfo *info;- info = g_new0(PurplePluginInfo, 1);- gps = g_new0(PurplePerlScript, 1);- gps->info_strings = g_new0(PurplePerlInfoStrings, 1);- info->magic = PURPLE_PLUGIN_MAGIC;- info->major_version = PURPLE_MAJOR_VERSION;- info->minor_version = PURPLE_MINOR_VERSION;- info->type = PURPLE_PLUGIN_STANDARD;- info->dependencies = g_list_append(info->dependencies,- basename = g_path_get_basename(plugin->path);- purple_perl_normalize_script_name(basename);- gps->package = g_strdup_printf("Purple::Script::%s",- /* We know this one exists. */- key = hv_fetch(plugin_info, "name", strlen("name"), 0);- info->name = gps->info_strings->name = g_strdup(SvPVutf8_nolen(*key));- /* Set id here in case we don't find one later. */- info->id = gps->info_strings->id = g_strdup(info->name);- if ((key = hv_fetch(plugin_info, "GTK_UI",- info->ui_requirement = PURPLE_GTK_PLUGIN_TYPE;- if ((key = hv_fetch(plugin_info, "url",- info->homepage = gps->info_strings->homepage = g_strdup(SvPVutf8_nolen(*key));- if ((key = hv_fetch(plugin_info, "author",- info->author = gps->info_strings->author = g_strdup(SvPVutf8_nolen(*key));- if ((key = hv_fetch(plugin_info, "summary",- strlen("summary"), 0)))- info->summary = gps->info_strings->summary = g_strdup(SvPVutf8_nolen(*key));- if ((key = hv_fetch(plugin_info, "description",- strlen("description"), 0)))- info->description = gps->info_strings->description = g_strdup(SvPVutf8_nolen(*key));- if ((key = hv_fetch(plugin_info, "version",- strlen("version"), 0)))- info->version = gps->info_strings->version = g_strdup(SvPVutf8_nolen(*key));- /* We know this one exists. */- key = hv_fetch(plugin_info, "load", strlen("load"), 0);- gps->load_sub = g_strdup_printf("%s::%s", gps->package,- if ((key = hv_fetch(plugin_info, "unload",- gps->unload_sub = g_strdup_printf("%s::%s",- if ((key = hv_fetch(plugin_info, "id",- g_free(gps->info_strings->id);- info->id = gps->info_strings->id = g_strdup_printf("perl-%s",- /********************************************************/- /* Only one of the next two options should be present */- /* prefs_info - Uses non-GUI (read GTK) purple API calls */- /* and creates a PurplePluginPrefInfo type. */- /* gtk_prefs_info - Requires gtk2-perl be installed by */- /* the user and he must create a */- /* GtkWidget the user and he must */- /* create a GtkWidget representing the */- /* plugin preferences page. */- /********************************************************/- if ((key = hv_fetch(plugin_info, "prefs_info",- strlen("prefs_info"), 0))) {- /* key now is the name of the Perl sub that- * will create a frame for us */- gps->prefs_sub = g_strdup_printf("%s::%s",- info->prefs_info = &ui_info;- if ((key = hv_fetch(plugin_info, "gtk_prefs_info",- strlen("gtk_prefs_info"), 0))) {- /* key now is the name of the Perl sub that- * will create a frame for us */- gps->gtk_prefs_sub = g_strdup_printf("%s::%s",- info->ui_info = >k_ui_info;- if ((key = hv_fetch(plugin_info, "plugin_action_sub",- strlen("plugin_action_sub"), 0))) {- gps->plugin_action_sub = g_strdup_printf("%s::%s",- info->actions = purple_perl_plugin_actions;- info->extra_info = gps;- status = purple_plugin_register(plugin);- PL_perl_destruct_level = 1;- PERL_SET_CONTEXT(prober);-load_perl_plugin(PurplePlugin *plugin)- PurplePerlScript *gps = (PurplePerlScript *)plugin->info->extra_info;- gboolean loaded = TRUE;- char *atmp[3] = { plugin->path, NULL, NULL };- if (gps == NULL || gps->load_sub == NULL)- purple_debug(PURPLE_DEBUG_INFO, "perl", "Loading perl script\n");- atmp[1] = gps->package;- PERL_SET_CONTEXT(my_perl);- execute_perl("Purple::PerlLoader::load_n_eval", 2, atmp);- PERL_SET_CONTEXT(my_perl);- XPUSHs(sv_2mortal(purple_perl_bless_object(plugin,- perl_call_pv(gps->load_sub, G_EVAL | G_SCALAR);- purple_debug(PURPLE_DEBUG_ERROR, "perl",- "Perl function %s exited abnormally: %s\n",- gps->load_sub, SvPVutf8_nolen(ERRSV));-destroy_package(const char *package)- PERL_SET_CONTEXT(my_perl);- XPUSHs(sv_2mortal(newSVpv(package, 0)));- perl_call_pv("Purple::PerlLoader::destroy_package",- G_VOID | G_EVAL | G_DISCARD);-unload_perl_plugin(PurplePlugin *plugin)- PurplePerlScript *gps = (PurplePerlScript *)plugin->info->extra_info;- purple_debug(PURPLE_DEBUG_INFO, "perl", "Unloading perl script\n");- if (gps->unload_sub != NULL) {- PERL_SET_CONTEXT(my_perl);- XPUSHs(sv_2mortal(purple_perl_bless_object(plugin,- perl_call_pv(gps->unload_sub, G_EVAL | G_SCALAR);- purple_debug(PURPLE_DEBUG_ERROR, "perl",- "Perl function %s exited abnormally: %s\n",- gps->unload_sub, SvPVutf8_nolen(ERRSV));- purple_perl_cmd_clear_for_plugin(plugin);- purple_perl_signal_clear_for_plugin(plugin);- purple_perl_timeout_clear_for_plugin(plugin);- purple_perl_pref_cb_clear_for_plugin(plugin);- destroy_package(gps->package);-destroy_perl_plugin(PurplePlugin *plugin)- if (plugin->info != NULL) {- gps = (PurplePerlScript *)plugin->info->extra_info;- perl_infostrings_free(gps->info_strings);- gps->info_strings = NULL;- g_free(gps->unload_sub);- g_free(gps->prefs_sub);- g_free(gps->gtk_prefs_sub);- g_free(gps->plugin_action_sub);- plugin->info->extra_info = NULL;-static PurplePluginLoaderInfo loader_info =- probe_perl_plugin, /**< probe */- load_perl_plugin, /**< load */- unload_perl_plugin, /**< unload */- destroy_perl_plugin, /**< destroy */-static GPluginPluginInfo *-plugin_query(GError **error)- const gchar * const authors[] = {- "Christian Hammond <chipx86@gnupdate.org>",- return gplugin_plugin_info_new(- "name", N_("Perl Plugin Loader"),- "version", DISPLAY_VERSION,- "category", N_("Loader"),- "summary", N_("Provides support for loading perl plugins."),- "description", N_("Provides support for loading perl plugins."),- "website", PURPLE_WEBSITE,- "abi-version", PURPLE_ABI_VERSION,-plugin_load(PurplePlugin *plugin, GError **error)-plugin_unload(PurplePlugin *plugin, GError **error)-init_plugin(PurplePlugin *plugin)- loader_info.exts = g_list_append(loader_info.exts, "pl");-void __attribute__ ((constructor)) my_init(void);- /* Mostly evil hack... puts perl.so's symbols in the global table but- * does not create a circular dependency because g_module_open will- * only open the library once. */- /* Do we need to keep track of the returned GModule here so that we- * can g_module_close it when this plugin gets unloaded?- * At the moment I don't think this plugin can ever get unloaded but- * in case that becomes possible this wants to get noted. */- g_module_open("perl.so", 0);-PURPLE_PLUGIN_INIT(perl, plugin_query, plugin_load, plugin_unload);--- a/libpurple/plugins/perl/scripts/account.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,155 +0,0 @@
-$MODULE_NAME = "Account Functions Test";-# All the information Purple gets about our nifty plugin- name => "Perl: $MODULE_NAME",- summary => "Test plugin for the Perl interpreter.",- description => "Implements a set of test proccedures to ensure all " .- "functions that work in the C API still work in the " .- "Perl plugin interface. As XSUBs are added, this " .- "*should* be updated to test the changes. " .- "Furthermore, this will function as the tutorial perl " .- author => "John H. Kelm <johnhkelm\@gmail.com>",- url => "http://sourceforge.net/users/johnhkelm/",- unload => "plugin_unload"- # These names must already exist- my $USERNAME = "johnhkelm2";- # We will create these on load then destroy them on unload- my $TEST_NAME = "perlTestName";- my $PROTOCOL_ID = "aim";- Purple::Debug::warning($MODULE_NAME, "Failed to set password " .- Purple::Debug::misc($MODULE_NAME, "Password for $account was set\n");- Purple::Debug::warning($MODULE_NAME, "Failed to get password for $account\n");- Purple::Debug::misc($MODULE_NAME, "Got password for $account\n");- $account->set_password($password, \&set_password_cb);-# This is the sub defined in %PLUGIN_INFO to be called when the plugin is loaded-# Note: The plugin has a reference to itself on top of the argument stack.- print "#" x 80 . "\n\n";- Purple::Debug::info($MODULE_NAME, "plugin_load() - Testing $MODULE_NAME Started.");- #################################- # Purple::Account::Option #- #################################- print "Testing: Purple::Account::Option::new()...\n";- $acc_opt = Purple::Account::Option->new(1, "TEXT", "pref_name");- $acc_opt2 = Purple::Account::Option->bool_new("TeXt", "MYprefName", 1);- #################################- #################################- print "Testing: Purple::Account::new()... ";- $account = Purple::Account->new($TEST_NAME, $PROTOCOL_ID);- if ($account) { print "ok.\n"; } else { print "fail.\n"; }- print "Testing: Purple::Accounts::add()...";- Purple::Accounts::add($account);- print "pending find...\n";- print "Testing: Purple::Accounts::find()...";- $account = Purple::Accounts::find($TEST_NAME, $PROTOCOL_ID);- if ($account) { print "ok.\n"; } else { print "fail.\n"; }- print "Testing: Purple::Account::get_username()... ";- $user_name = $account->get_username();- print "Success: $user_name.\n";- print "Testing: Purple::Account::is_connected()... ";- if ($account->is_connected()) {- print " Disconnected.\n";- print "Testing: Purple::Accounts::get_active_status()... ";- if ($account->get_active_status()) {- $account = Purple::Accounts::find($USERNAME, $PROTOCOL_ID);- print "Testing: Purple::Accounts::connect()...pending...\n";- $account->set_status("available", TRUE);- $account->get_password(\&get_password_cb);- Purple::Debug::info($MODULE_NAME, "plugin_load() - Testing $MODULE_NAME Completed.\n");- print "\n\n" . "#" x 80 . "\n\n";- print "#" x 80 . "\n\n";- Purple::Debug::info($MODULE_NAME, "plugin_unload() - Testing $MODULE_NAME Started.\n");- ######### TEST CODE HERE ##########- Purple::Debug::info($MODULE_NAME, "plugin_unload() - Testing $MODULE_NAME Completed.\n");- print "\n\n" . "#" x 80 . "\n\n";--- a/libpurple/plugins/perl/scripts/buddy_list.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,107 +0,0 @@
-$MODULE_NAME = "Buddy List Test";-# All the information Purple gets about our nifty plugin- name => "Perl: $MODULE_NAME",- summary => "Test plugin for the Perl interpreter.",- description => "Implements a set of test proccedures to ensure all functions that work in the C API still work in the Perl plugin interface. As XSUBs are added, this *should* be updated to test the changes. Furthermore, this will function as the tutorial perl plugin.",- author => "John H. Kelm <johnhkelm\@gmail.com>",- url => "http://sourceforge.net/users/johnhkelm/",- unload => "plugin_unload"- # These names must already exist- my $USERNAME = "johnhkelm2";- # We will create these on load then destroy them on unload- my $TEST_GROUP = "UConn Buddies";- my $TEST_NAME = "johnhkelm";- my $TEST_ALIAS = "John Kelm";- my $PROTOCOL_ID = "aim";-# This is the sub defined in %PLUGIN_INFO to be called when the plugin is loaded-# Note: The plugin has a reference to itself on top of the argument stack.- # This is how we get an account to use in the following tests. You should replace the username- # with an existing user- $account = Purple::Accounts::find($USERNAME, $PROTOCOL_ID);- # Testing a find function: Note Purple::Find not Purple::Buddy:find!- # Furthermore, this should work the same for chats and groups- Purple::Debug::info($MODULE_NAME, "Testing: Purple::Find::buddy()...");- $buddy = Purple::Find::buddy($account, $TEST_NAME);- Purple::Debug::info("", ($buddy ? "ok." : "fail.") . "\n");- # If you should need the handle for some reason, here is how you do it- Purple::Debug::info($MODULE_NAME, "Testing: Purple::BuddyList::get_handle()...");- $handle = Purple::BuddyList::get_handle();- Purple::Debug::info("", ($handle ? "ok." : "fail.") . "\n");- # This gets the Purple::BuddyList and references it by $blist- Purple::Debug::info($MODULE_NAME, "Testing: Purple::get_blist()...");- $blist = Purple::get_blist();- Purple::Debug::info("", ($blist ? "ok." : "fail.") . "\n");- # This is how you would add a buddy named $TEST_NAME" with the alias $TEST_ALIAS- Purple::Debug::info($MODULE_NAME, "Testing: Purple::BuddyList::Buddy::new...");- $buddy = Purple::BuddyList::Buddy::new($account, $TEST_NAME, $TEST_ALIAS);- Purple::Debug::info("", ($buddy ? "ok." : "fail.") . "\n");- # Here we add the new buddy '$buddy' to the group $TEST_GROUP- # so first we must find the group- Purple::Debug::info($MODULE_NAME, "Testing: Purple::Find::group...");- $group = Purple::Find::group($TEST_GROUP);- Purple::Debug::info("", ($group ? "ok." : "fail.") . "\n");- # To add the buddy we need to have the buddy, contact, group and node for insertion.- # For this example we can let contact be undef and set the insertion node as the group- Purple::Debug::info($MODULE_NAME, "Testing: Purple::BuddyList::add_buddy...\n");- Purple::BuddyList::add_buddy($buddy, undef, $group, $group);- # The example that follows gives an indication of how an API call that returns a list is handled.- # In this case the buddies of the account found earlier are retrieved and put in an array '@buddy_array'- # Further down an accessor method is used, 'get_name()' -- see source for details on the full set of methods- Purple::Debug::info($MODULE_NAME, "Testing: Purple::Find::buddies...\n");- @buddy_array = Purple::Find::buddies($account, undef);- Purple::Debug::info($MODULE_NAME, "Buddies in list (" . @buddy_array . "): \n");- foreach $bud (@buddy_array) {- Purple::Debug::info($MODULE_NAME, Purple::BuddyList::Buddy::get_name($bud) . "\n");- print "#" x 80 . "\n\n";- ######### TEST CODE HERE ##########- print "Testing: Purple::Find::buddy()...";- $buddy = Purple::Find::buddy($account, $TEST_NAME . TEST);- print "Testing: Purple::BuddyList::remove_buddy()...";- Purple::BuddyList::remove_buddy($buddy);- if (Purple::Find::buddy($account, $TEST_NAME . TEST)) { print "fail.\n"; } else { print "ok.\n"; }- } else { print "fail.\n"; }- print "\n\n" . "#" x 80 . "\n\n";--- a/libpurple/plugins/perl/scripts/conversation.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,119 +0,0 @@
-$MODULE_NAME = "Conversation Test";-# All the information Purple gets about our nifty plugin- name => "Perl: $MODULE_NAME", - summary => "Test plugin for the Perl interpreter.", - description => "Implements a set of test proccedures to ensure all " .- "functions that work in the C API still work in the " .- "Perl plugin interface. As XSUBs are added, this " .- "*should* be updated to test the changes. " .- "Furthermore, this will function as the tutorial perl " .- author => "John H. Kelm <johnhkelm\@gmail.com>", - url => "http://sourceforge.net/users/johnhkelm/", - unload => "plugin_unload" - # These names must already exist- my $GROUP = "UIUC Buddies";- my $USERNAME = "johnhkelm2";- # We will create these on load then destroy them on unload- my $TEST_GROUP = "UConn Buddies";- my $TEST_NAME = "johnhkelm";- my $TEST_ALIAS = "John Kelm";- my $PROTOCOL_ID = "aim";-# This is the sub defined in %PLUGIN_INFO to be called when the plugin is loaded-# Note: The plugin has a reference to itself on top of the argument stack.- print "#" x 80 . "\n\n";- print "PERL: Finding account.\n";- $account = Purple::Accounts::find($USERNAME, $PROTOCOL_ID);- ######### TEST CODE HERE ##########- # First we create two new conversations.- print "Testing Purple::Conversation::new()...";- $conv1 = Purple::Conversation->new(1, $account, "Test Conversation 1");- if ($conv1) { print "ok.\n"; } else { print "fail.\n"; }- print "Testing Purple::Conversation::new()...";- $conv2 = Purple::Conversation->new(1, $account, "Test Conversation 2");- if ($conv2) { print "ok.\n"; } else { print "fail.\n"; }- # Second we create a window to display the conversations in.- # Note that the package here is Purple::Conversation::Window- print "Testing Purple::Conversation::Window::new()...\n";- $win = Purple::Conversation::Window::new();- # The third thing to do is to add the two conversations to the windows.- # The subroutine add_conversation() returns the number of conversations- # present in the window.- print "Testing Purple::Conversation::Window::add_conversation()...";- $conv_count = $conv1->add_conversation();- print "ok..." . $conv_count . " conversations...\n";- print "Testing Purple::Conversation::Window::add_conversation()...";- $conv_count = $win->add_conversation($conv2);- print "ok..." . $conv_count . " conversations...\n";- # Now the window is displayed to the user.- print "Testing Purple::Conversation::Window::show()...\n";- # Use get_im_data() to get a handle for the conversation - print "Testing Purple::Conversation::get_im_data()...\n";- $im = $conv1->get_im_data();- if ($im) { print "ok.\n"; } else { print "fail.\n"; }- # Here we send messages to the conversation- print "Testing Purple::Conversation::IM::send()...\n";- $im->send("Message Test.");- print "Testing Purple::Conversation::IM::write()...\n";- $im->write("SENDER", "<b>Message</b> Test.", 0, 0);- print "#" x 80 . "\n\n";- print "#" x 80 . "\n\n";- ######### TEST CODE HERE ##########- print "Testing Purple::Conversation::Window::get_conversation_count()...\n";- $conv_count = $win->get_conversation_count();- print "...and it returned $conv_count.\n";- print "Testing Purple::Conversation::Window::destroy()...\n";- print "\n\n" . "#" x 80 . "\n\n";--- a/libpurple/plugins/perl/scripts/count_down.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,89 +0,0 @@
- name => "Countdown Info Timer", - summary => "Makes a countdown in days from today.", - description => "Long description coming....", - author => "John H. Kelm <johnhkelm\@gmail.com>", - url => "https://pidgin.im", - unload => "plugin_unload" - $GLOBAL_TEST_VAR = "STUFF!";- # Retrieve all the accounts- @accounts = Purple::Accounts::get_all();- print "NUM OF ACCS: " . $accounts . "\n";- # Search each account's user info for our tag- foreach $acc (@accounts) {- $user_info = $acc->get_user_info();- print "USER INFO 1: " . $user_info . "\n";- # Find <countdown> and replace- $user_info =~ /countdown([0-9]+).([0-9]+).([0-9]+)/;- print "Found: " .$1 . " " . $2 . " " . $3 . "\n";- $days = count_days($1, $2, $3);- $user_info =~ s/countdown(\d\d\d\d).(\d\d).(\d\d)/$days/;- print "USER INFO 2: " . $user_info . "\n";- # $acc->set_user_info($user_info);- $window = Gtk2::Window->new(\'toplevel\');- $window->set_border_width(10);- $button = Gtk2::Button->new("Hello World");- $button->signal_connect(clicked => \&hello, $window);- my ($widget, $window) = @_;- print "Called from sub hello!\n ";- print "Test var: " . $GLOBAL_TEST_VAR . " \n";- @accounts = Purple::Accounts::get_all();- $user_info = $acc->get_user_info();- print "USER INFO from sub hello: " . $user_info . "\n";- ($year, $month, $day) = @_;- $future = timelocal(0,0,0,$day,$month-1,$year); - $days = int(($future - $today)/(60*60*24));--- a/libpurple/plugins/perl/scripts/function_list.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,69 +0,0 @@
-$MODULE_NAME = "List all Purple:: (and Pidgin::) functions";-# Uncomment this to print the Pidgin:: functions as well.-# All the information Purple gets about our nifty plugin- name => "Perl: $MODULE_NAME",- summary => "Print to standard output all the functions under the Purple:: (and Pidgin::) packages",- description => "Print to standard output all the functions under the Purple:: (and Pidgin::) packages",- author => "Etan Reisner <deryni\@gmail.com>",- url => "http://sourceforge.net/users/deryni9/",- unload => "plugin_unload"- my @arr = sort @$array;- foreach $key (sort keys %{$mod}) {- foreach $key (sort keys %Purple::) {- push @purplearray, "Purple::$key";- print "Purple::$key\n";- print_array(\@purplearray);- foreach $key (sort keys %Pidgin::) {- push @pidginarray, "Pidgin::$key";- print "Pidgin::$key\n";- print_array(\@pidginarray);--- a/libpurple/plugins/perl/scripts/gtk_frame_test.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,66 +0,0 @@
-$MODULE_NAME = "GTK Frame Test";- name => " Perl: $MODULE_NAME", - summary => "Test plugin for the Perl interpreter.", - description => "Implements a set of test proccedures to ensure all functions that work in the C API still work in the Perl plugin interface. As XSUBs are added, this *should* be updated to test the changes. Furthermore, this will function as the tutorial perl plugin.", - author => "John H. Kelm <johnhkelm\@gmail.com>", - url => "https://pidgin.im", - gtk_prefs_info => "foo",- unload => "plugin_unload",- print "Clicked button with message: " . $data . "\n";- $frame = Gtk2::Frame->new(\'Gtk Test Frame\');- $button = Gtk2::Button->new(\'Print Message\');- $frame->set_border_width(10);- $button->set_border_width(150);- $button->signal_connect("clicked" => \&button_cb, "Message Text");- ######### TEST CODE HERE ##########- print "$MODULE_NAME: Loading...\n";- Purple::debug_info("plugin_load()", "Testing $MODULE_NAME Completed.");- print "#" x 80 . "\n\n";--- a/libpurple/plugins/perl/scripts/plugin_action.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,58 +0,0 @@
-$MODULE_NAME = "Plugin Action Test Plugin";-# "Action 1" => sub { print "1\n"; },-# "Action 2" => sub { print "2\n"; },-# "Action 3" => sub { print "3\n"; }-sub plugin_action_names {- foreach $key (keys %plugin_actions) {-# All the information Purple gets about our nifty plugin- name => "Perl: $MODULE_NAME",- summary => "Test plugin for the Perl interpreter.",- description => "Just a basic test plugin template.",- author => "Etan Reisner <deryni\@gmail.com>",- url => "http://sourceforge.net/users/deryni9/",- unload => "plugin_unload",- plugin_action_sub => "plugin_action_names"--- a/libpurple/plugins/perl/scripts/plugin_pref.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,103 +0,0 @@
-$MODULE_NAME = "Prefs Functions Test";-# All the information Purple gets about our nifty plugin- name => "Perl: $MODULE_NAME",- summary => "Test plugin for the Perl interpreter.", - description => "Implements a set of test proccedures to ensure all " .- "functions that work in the C API still work in the " .- "Perl plugin interface. As XSUBs are added, this " .- "*should* be updated to test the changes. " .- "Furthermore, this will function as the tutorial perl " .- author => "John H. Kelm <johnhkelm\@gmail.com>", - url => "http://sourceforge.net/users/johnhkelm/", - unload => "plugin_unload", - # These names must already exist- my $GROUP = "UIUC Buddies";- my $USERNAME = "johnhkelm2";- # We will create these on load then destroy them on unload- my $TEST_GROUP = "perlTestGroup";- my $TEST_NAME = "perlTestName";- my $TEST_ALIAS = "perlTestAlias";- my $PROTOCOL_ID = "aim";- $frame = Purple::PluginPref::Frame->new();- $ppref = Purple::PluginPref->new_with_label("boolean");- $ppref = Purple::PluginPref->new_with_name_and_label(- "/plugins/core/perl_test/bool", "Boolean Preference");- $ppref = Purple::PluginPref->new_with_name_and_label(- "/plugins/core/perl_test/choice", "Choice Preference");- $ppref->add_choice("ch0", "ch0-val");- $ppref->add_choice("ch1", "ch1-val");- $ppref = Purple::PluginPref->new_with_name_and_label(- "/plugins/core/perl_test/text", "Text Box Preference");- $ppref->set_max_length(16);- my ($pref, $type, $value, $data) = @_;- print "pref changed: [$pref]($type)=$value data=$data\n";-# This is the sub defined in %PLUGIN_INFO to be called when the plugin is loaded-# Note: The plugin has a reference to itself on top of the argument stack.- print "#" x 80 . "\n\n";- ######### TEST CODE HERE ##########- Purple::Prefs::add_none("/plugins/core/perl_test");- Purple::Prefs::add_bool("/plugins/core/perl_test/bool", 1); - Purple::Prefs::add_string("/plugins/core/perl_test/choice", "ch1"); - Purple::Prefs::add_string("/plugins/core/perl_test/text", "Foobar"); - Purple::Prefs::connect_callback($plugin, "/plugins/core/perl_test", \&pref_cb, "none");- Purple::Prefs::connect_callback($plugin, "/plugins/core/perl_test/bool", \&pref_cb, "bool");- Purple::Prefs::connect_callback($plugin, "/plugins/core/perl_test/choice", \&pref_cb, "choice");- Purple::Prefs::connect_callback($plugin, "/plugins/core/perl_test/text", \&pref_cb, "text");- print "\n\n" . "#" x 80 . "\n\n";- print "#" x 80 . "\n\n";- ######### TEST CODE HERE ##########- print "\n\n" . "#" x 80 . "\n\n";--- a/libpurple/plugins/perl/scripts/request.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,109 +0,0 @@
-$MODULE_NAME = "Request Functions Test";-# All the information Purple gets about our nifty plugin- name => "Perl: $MODULE_NAME",- summary => "Test plugin for the Perl interpreter.",- description => "Implements a set of test proccedures to ensure all functions that work in the C API still work in the Perl plugin interface. As XSUBs are added, this *should* be updated to test the changes. Furthermore, this will function as the tutorial perl plugin.",- author => "John H. Kelm <johnhkelm\@gmail.com>",- url => "http://sourceforge.net/users/johnhkelm/",- unload => "plugin_unload",- plugin_action_sub => "plugin_action_names"- "Plugin Action Test Label" => \&plugin_action_test,-sub plugin_action_names {- foreach $key (keys %plugin_actions) {- Purple::Debug::info($MODULE_NAME, "plugin_action_cb_test: BEGIN\n");- Purple::Debug::info($MODULE_NAME, "ok_cb_test: BEGIN\n");- Purple::Debug::info($MODULE_NAME, "ok_cb_test: Button Click\n");- Purple::Debug::info($MODULE_NAME, "ok_cb_test: Field Type: $fields \n");- $account = Purple::Request::Fields::get_account($fields, "acct_test");- Purple::Debug::info($MODULE_NAME, "ok_cb_test: Username of selected account: " . Purple::Account::get_username($account) . "\n");- $int = Purple::Request::Fields::get_integer($fields, "int_test");- Purple::Debug::info($MODULE_NAME, "ok_cb_test: Integer Value: $int \n");- $choice = Purple::Request::Fields::get_choice($fields, "ch_test");- Purple::Debug::info($MODULE_NAME, "ok_cb_test: Choice Value: $choice \n");- Purple::Debug::info($MODULE_NAME, "ok_cb_test: END\n");- Purple::Debug::info($MODULE_NAME, "cancel_cb_test: Button Click\n");-sub plugin_action_test {- Purple::Debug::info($MODULE_NAME, "plugin_action_cb_test: BEGIN\n");- plugin_request($plugin);- Purple::Debug::info($MODULE_NAME, "plugin_action_cb_test: END\n");- ######### TEST CODE HERE ##########- $group = Purple::Request::Field::Group::new("Group Name");- $field = Purple::Request::Field::account_new("acct_test", "Account Text", undef);- Purple::Request::Field::account_set_show_all($field, 0);- Purple::Request::Field::Group::add_field($group, $field);- $field = Purple::Request::Field::int_new("int_test", "Integer Text", 33);- Purple::Request::Field::Group::add_field($group, $field);- $field = Purple::Request::Field::choice_new("ch_test", "Choice Text", 1);- Purple::Request::Field::choice_add($field, "Choice 0");- Purple::Request::Field::choice_add($field, "Choice 1");- Purple::Request::Field::choice_add($field, "Choice 2");- Purple::Request::Field::Group::add_field($group, $field);- $request = Purple::Request::Fields::new();- Purple::Request::Fields::add_group($request, $group);- Purple::Request::fields(- "Ok Text", "ok_cb_test",- "Cancel Text", "cancel_cb_test");- Purple::Debug::info($MODULE_NAME, "#" x 80 . "\n");- ######### TEST CODE HERE ##########- Purple::Debug::info($MODULE_NAME, "\n" . "#" x 80 . "\n");--- a/libpurple/plugins/perl/scripts/signals-test.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,88 +0,0 @@
-$MODULE_NAME = "Signals Test Script in Perl";- name => "Perl: $MODULE_NAME",- summary => "Signals Test plugin for the Perl interpreter.",- description => "Demonstrate the use of purple signals from " .- author => "Sadrul Habib Chowdhury <sadrul\@pidgin.im>",- url => "https://developer.pidgin.im/wiki/sadrul/",- unload => "plugin_unload"-sub account_connecting_cb- Purple::Debug::misc("signals test in perl", "account-connecting (" . $account->get_username() . ")\n");- Purple::Debug::misc("signals test in perl", "buddy-signed-on (" . $buddy->get_name() . ")\n");- Purple::Debug::misc("signals test in perl", "signed-on (" . $conn->get_account()->get_username() . ")\n");- my ($account, $sender, $message, $conv, $flags, $data) = @_;- Purple::Debug::misc("signals test in perl", "$data (" . $account->get_username() . ", $sender, $message, $flags)\n");- Purple::Debug::misc("signals test in perl", "timeout elapsed\n");- $act_handle = Purple::Accounts::get_handle();- Purple::Signal::connect($act_handle, "account-connecting", $plugin,- \&account_connecting_cb, 0);- $blist = Purple::BuddyList::get_handle();- Purple::Signal::connect($blist, "buddy-signed-on", $plugin,- $conn = Purple::Connections::get_handle();- Purple::Signal::connect($conn, "signed-on", $plugin,- $conv = Purple::Conversations::get_handle();- Purple::Signal::connect($conv, "received-im-msg", $plugin,- \&conv_received_msg, "received im message");- Purple::Signal::connect($conv, "received-chat-msg", $plugin,- \&conv_received_msg, "received chat message");- Purple::timeout_add($plugin, 10, \&timeout_cb);- # Nothing to do here for this plugin.--- a/libpurple/plugins/tcl/Makefile.am Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,23 +0,0 @@
-plugindir = @PURPLE_PLUGINDIR@-tcl_la_LDFLAGS = -module @PLUGIN_LDFLAGS@-plugin_LTLIBRARIES = tcl.la-tcl_la_SOURCES = tcl.c tcl_glib.c tcl_glib.h tcl_cmds.c tcl_signals.c tcl_purple.h \-tcl_la_LIBADD = @PURPLE_LIBS@ $(GPLUGIN_LIBS) $(TCL_LIBS) $(TK_LIBS)-EXTRA_DIST = signal-test.tcl Makefile.mingw- -I$(top_srcdir)/libpurple \- -I$(top_builddir)/libpurple \--- a/libpurple/plugins/tcl/Makefile.mingw Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,78 +0,0 @@
-# Description: Makefile for tcl plugin loader plugin.-PIDGIN_TREE_TOP := ../../..-include $(PIDGIN_TREE_TOP)/libpurple/win32/global.mak-TCL_INC_DIR := $(TCL_LIB_TOP)/include-DEFINES += -DHAVE_TK -DUSE_TCL_STUBS -DUSE_TK_STUBS- -I$(PURPLE_TOP)/win32 \- -I$(GTK_TOP)/include/glib-2.0 \- -I$(GTK_TOP)/lib/glib-2.0/include \-LIB_PATHS += -L$(GTK_TOP)/lib \-OBJECTS = $(C_SRC:%.c=%.o)-include $(PIDGIN_COMMON_RULES)-.PHONY: all install clean-install: all $(PURPLE_INSTALL_PLUGINS_DIR)- cp $(TARGET).dll $(PURPLE_INSTALL_PLUGINS_DIR)-$(OBJECTS): $(PURPLE_CONFIG_H)-$(TARGET).dll: $(PURPLE_DLL).a $(OBJECTS)- $(CC) -shared $(OBJECTS) $(LIB_PATHS) $(LIBS) $(DLL_LD_FLAGS) -o $(TARGET).dll-include $(PIDGIN_COMMON_TARGETS)--- a/libpurple/plugins/tcl/signal-test.tcl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,123 +0,0 @@
-purple::signal connect [purple::account handle] account-away { account state message } {- purple::debug -info "tcl signal" "account-away [purple::account username $account] \"$state\" \"$message\""-purple::signal connect [purple::account handle] account-connecting { account } {- purple::debug -info "tcl signal" "account-connecting [purple::account username $account]"-purple::signal connect [purple::account handle] account-set-info { account info } {- purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info"-purple::signal connect [purple::account handle] account-setting-info { account info } {- purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info"-purple::signal connect [purple::buddy handle] buddy-away { buddy } {- purple::debug -info "tcl signal" "buddy-away [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"-purple::signal connect [purple::buddy handle] buddy-back { buddy } {- purple::debug -info "tcl signal" "buddy-back [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"-purple::signal connect [purple::buddy handle] buddy-idle { buddy } {- purple::debug -info "tcl signal" "buddy-idle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"-purple::signal connect [purple::buddy handle] buddy-unidle { buddy } {- purple::debug -info "tcl signal" "buddy-unidle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"-purple::signal connect [purple::buddy handle] buddy-signed-on { buddy } {- purple::debug -info "tcl signal" "buddy-signed-on [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"-purple::signal connect [purple::buddy handle] buddy-signed-off { buddy } {- purple::debug -info "tcl signal" "buddy-signed-off [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"-purple::signal connect [purple::core handle] quitting {} {- purple::debug -info "tcl signal" "quitting"-purple::signal connect [purple::conversation handle] receiving-chat-msg { account who what id flags } {- purple::debug -info "tcl signal" "receiving-chat-msg [purple::account username $account] $id $flags $who \"$what\""-purple::signal connect [purple::conversation handle] receiving-im-msg { account who what id flags } {- purple::debug -info "tcl signal" "receiving-im-msg [purple::account username $account] $id $flags $who \"$what\""-purple::signal connect [purple::conversation handle] received-chat-msg { account who what id flags } {- purple::debug -info "tcl signal" "received-chat-msg [purple::account username $account] $id $flags $who \"$what\""-purple::signal connect [purple::conversation handle] received-im-msg { account who what id flags } {- purple::debug -info "tcl signal" "received-im-msg [purple::account username $account] $id $flags $who \"$what\""-purple::signal connect [purple::conversation handle] sending-chat-msg { account what id } {- purple::debug -info "tcl signal" "sending-chat-msg [purple::account username $account] $id \"$what\""-purple::signal connect [purple::conversation handle] sending-im-msg { account who what } {- purple::debug -info "tcl signal" "sending-im-msg [purple::account username $account] $who \"$what\""-purple::signal connect [purple::conversation handle] sent-chat-msg { account id what } {- purple::debug -info "tcl signal" "sent-chat-msg [purple::account username $account] $id \"$what\""-purple::signal connect [purple::conversation handle] sent-im-msg { account who what } {- purple::debug -info "tcl signal" "sent-im-msg [purple::account username $account] $who \"$what\""-purple::signal connect [purple::connection handle] signed-on { gc } {- purple::debug -info "tcl signal" "signed-on [purple::account username [purple::connection account $gc]]"-purple::signal connect [purple::connection handle] signed-off { gc } {- purple::debug -info "tcl signal" "signed-off [purple::account username [purple::connection account $gc]]"-purple::signal connect [purple::connection handle] signing-on { gc } {- purple::debug -info "tcl signal" "signing-on [purple::account username [purple::connection account $gc]]"-purple::signal connect signing-off {- purple::debug -info "tcl signal" "signing-off [purple::account username [purple::connection account $event::gc]]"-purple::signal connect update-idle {- purple::debug -info "tcl signal" "update-idle"-purple::signal connect [purple::plugins handle] plugin-load args {- purple::debug -info "tcl signal" "plugin-load [list $args]"-purple::signal connect [purple::plugins handle] plugin-unload args {- purple::debug -info "tcl signal" "plugin-unload [list $args]"-purple::signal connect [purple::savedstatus handle] savedstatus-changed args {- purple::debug -info "tcl signal" "savedstatus-changed [list $args]"- purple::debug -info "tcl signal" "purple::savedstatus current = [purple::savedstatus current]"- list "Tcl Signal Test" \- "Tests Tcl signal handlers" \- "Debugs a ridiculous amount of signal information." \- "Ethan Blanton <elb@pidgin.im>" \--- a/libpurple/plugins/tcl/tcl.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,503 +0,0 @@
- * @file tcl.c Purple Tcl plugin bindings- * Copyright (C) 2003 Ethan Blanton <eblanton@cs.purdue.edu>- * This program is free software; you can redistribute it and/or modify- * it under the terms of the GNU General Public License as published by- * the Free Software Foundation; either version 2 of the License, or- * (at your option) any later version.- * 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 General Public License for more details.- * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA-struct tcl_plugin_data {-} tcl_plugin_info_strings;-PurpleStringref *PurpleTclRefAccount;-PurpleStringref *PurpleTclRefConnection;-PurpleStringref *PurpleTclRefConversation;-PurpleStringref *PurpleTclRefPointer;-PurpleStringref *PurpleTclRefPlugin;-PurpleStringref *PurpleTclRefPresence;-PurpleStringref *PurpleTclRefStatus;-PurpleStringref *PurpleTclRefStatusAttr;-PurpleStringref *PurpleTclRefStatusType;-PurpleStringref *PurpleTclRefXfer;-PurpleStringref *PurpleTclRefHandle;-static GHashTable *tcl_plugins = NULL;-PurplePlugin *_tcl_plugin;-static gboolean tcl_loaded = FALSE;-static void tcl_plugin_info_strings_free(tcl_plugin_info_strings *strings)- g_free(strings->version);- g_free(strings->summary);- g_free(strings->description);- g_free(strings->author);- g_free(strings->homepage);-PurplePlugin *tcl_interp_get_plugin(Tcl_Interp *interp)- struct tcl_plugin_data *data;- if (tcl_plugins == NULL)- data = g_hash_table_lookup(tcl_plugins, (gpointer)interp);- return data != NULL ? data->plugin : NULL;-static int tcl_init_interp(Tcl_Interp *interp)- "namespace eval ::purple {\n"- " namespace export account buddy connection conversation\n"- " namespace export core debug notify prefs send_im\n"- " namespace export signal unload\n"- " namespace eval _callback { }\n"- " proc conv_send { account who text } {\n"- " set gc [purple::account connection $account]\n"- " set convo [purple::conversation new $account $who]\n"- " set myalias [purple::account alias $account]\n"- " if {![string length $myalias]} {\n"- " set myalias [purple::account username $account]\n"- " purple::send_im $gc $who $text\n"- " purple::conversation write $convo send $myalias $text\n"- "proc bgerror { message } {\n"- " purple::notify -error \"Tcl Error\" \"Tcl Error: $message\" \"$errorInfo\"\n"- if (Tcl_EvalEx(interp, init, -1, TCL_EVAL_GLOBAL) != TCL_OK) {- Tcl_SetVar(interp, "argc", "0", TCL_GLOBAL_ONLY);- Tcl_SetVar(interp, "argv0", "purple", TCL_GLOBAL_ONLY);- Tcl_SetVar(interp, "tcl_interactive", "0", TCL_GLOBAL_ONLY);- rcfile = g_strdup_printf("%s" G_DIR_SEPARATOR_S "tclrc", purple_user_dir());- Tcl_SetVar(interp, "tcl_rcFileName", rcfile, TCL_GLOBAL_ONLY);- Tcl_SetVar(interp, "::purple::version", VERSION, TCL_GLOBAL_ONLY);- Tcl_SetVar(interp, "::purple::user_dir", purple_user_dir(), TCL_GLOBAL_ONLY);- Tcl_SetVar(interp, "::purple::tk_available", "1", TCL_GLOBAL_ONLY);- Tcl_SetVar(interp, "::purple::tk_available", "0", TCL_GLOBAL_ONLY);- Tcl_CreateObjCommand(interp, "::purple::account", tcl_cmd_account, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::buddy", tcl_cmd_buddy, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::cmd", tcl_cmd_cmd, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::connection", tcl_cmd_connection, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::conversation", tcl_cmd_conversation, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::core", tcl_cmd_core, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::debug", tcl_cmd_debug, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::notify", tcl_cmd_notify, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::plugins", tcl_cmd_plugins, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::prefs", tcl_cmd_prefs, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::presence", tcl_cmd_presence, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::send_im", tcl_cmd_send_im, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::savedstatus", tcl_cmd_savedstatus, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::signal", tcl_cmd_signal, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::status", tcl_cmd_status, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::status_attr", tcl_cmd_status_attr, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::status_type", tcl_cmd_status_type, (ClientData)NULL, NULL);- Tcl_CreateObjCommand(interp, "::purple::unload", tcl_cmd_unload, (ClientData)NULL, NULL);-static Tcl_Interp *tcl_create_interp(void)- interp = Tcl_CreateInterp();- if (Tcl_Init(interp) == TCL_ERROR) {- Tcl_DeleteInterp(interp);- if (tcl_init_interp(interp)) {- Tcl_DeleteInterp(interp);- Tcl_StaticPackage(interp, "purple", tcl_init_interp, NULL);-static gboolean tcl_probe_plugin(PurplePlugin *plugin)- PurplePluginInfo *info;- Tcl_Obj *result, **listitems;- int found = 0, err = 0, nelems;- gboolean status = FALSE;- if (!g_file_get_contents(plugin->path, &buf, &len, NULL)) {- purple_debug(PURPLE_DEBUG_INFO, "tcl", "Error opening plugin %s\n",- if ((interp = tcl_create_interp()) == NULL) {- if (Tcl_ParseCommand(interp, next, len, 0, &parse) == TCL_ERROR) {- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "parse error in %s: %s\n", plugin->path,- Tcl_GetString(Tcl_GetObjResult(interp)));- if (parse.tokenPtr[0].type == TCL_TOKEN_SIMPLE_WORD- && !strncmp(parse.tokenPtr[0].start, "proc", parse.tokenPtr[0].size)) {- if (!strncmp(parse.tokenPtr[2].start, "plugin_init", parse.tokenPtr[2].size)) {- if (Tcl_EvalEx(interp, parse.commandStart, parse.commandSize, TCL_EVAL_GLOBAL) != TCL_OK) {- /* We'll continue parsing the file, just in case */- len -= (parse.commandStart + parse.commandSize) - next;- next = parse.commandStart + parse.commandSize;- if (Tcl_EvalEx(interp, "plugin_init", -1, TCL_EVAL_GLOBAL) == TCL_OK) {- result = Tcl_GetObjResult(interp);- if (Tcl_ListObjGetElements(interp, result, &nelems, &listitems) == TCL_OK) {- if ((nelems == 6) || (nelems == 7)) {- tcl_plugin_info_strings *strings = g_new0(tcl_plugin_info_strings, 1);- info = g_new0(PurplePluginInfo, 1);- info->extra_info = strings;- info->magic = PURPLE_PLUGIN_MAGIC;- info->major_version = PURPLE_MAJOR_VERSION;- info->minor_version = PURPLE_MINOR_VERSION;- info->type = PURPLE_PLUGIN_STANDARD;- info->dependencies = g_list_append(info->dependencies, "core-tcl");- info->name = strings->name = g_strdup(Tcl_GetString(listitems[0]));- info->version = strings->version = g_strdup(Tcl_GetString(listitems[1]));- info->summary = strings->summary = g_strdup(Tcl_GetString(listitems[2]));- info->description = strings->description = g_strdup(Tcl_GetString(listitems[3]));- info->author = strings->author = g_strdup(Tcl_GetString(listitems[4]));- info->homepage = strings->homepage = g_strdup(Tcl_GetString(listitems[5]));- info->id = strings->id = g_strdup_printf("tcl-%s", Tcl_GetString(listitems[0]));- info->id = strings->id = g_strdup_printf("tcl-%s", Tcl_GetString(listitems[6]));- if (purple_plugin_register(plugin))- Tcl_DeleteInterp(interp);-static gboolean tcl_load_plugin(PurplePlugin *plugin)- struct tcl_plugin_data *data;- if ((interp = tcl_create_interp()) == NULL) {- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "Could not initialize Tcl interpreter\n");- Tcl_SourceRCFile(interp);- if (Tcl_EvalFile(interp, plugin->path) != TCL_OK) {- result = Tcl_GetObjResult(interp);- purple_debug(PURPLE_DEBUG_ERROR, "tcl",- "Error evaluating %s: %s\n", plugin->path,- Tcl_GetString(result));- Tcl_DeleteInterp(interp);- Tcl_Preserve((ClientData)interp);- data = g_new0(struct tcl_plugin_data, 1);- g_hash_table_insert(tcl_plugins, (gpointer)interp, (gpointer)data);-static gboolean tcl_unload_plugin(PurplePlugin *plugin)- struct tcl_plugin_data *data;- g_hash_table_remove(tcl_plugins, (gpointer)(data->interp));- purple_signals_disconnect_by_handle(data->interp);- tcl_cmd_cleanup(data->interp);- tcl_signal_cleanup(data->interp);- Tcl_Release((ClientData)data->interp);- Tcl_DeleteInterp(data->interp);-static void tcl_destroy_plugin(PurplePlugin *plugin)- if (plugin->info != NULL) {- tcl_plugin_info_strings *info_strings = plugin->info->extra_info;- tcl_plugin_info_strings_free(info_strings);- plugin->info->extra_info = NULL;-static PurplePluginLoaderInfo tcl_loader_info =-static GPluginPluginInfo *-tcl_query(GError **error)- const gchar * const authors[] = {- "Ethan Blanton <eblanton@cs.purdue.edu>",- return gplugin_plugin_info_new(- "name", N_("Tcl Plugin Loader"),- "version", DISPLAY_VERSION,- "category", N_("Loader"),- "summary", N_("Provides support for loading Tcl plugins"),- "description", N_("Provides support for loading Tcl plugins"),- "website", PURPLE_WEBSITE,- "abi-version", PURPLE_ABI_VERSION,-static gboolean tcl_load(PurplePlugin *plugin, GError **error)- PurpleTclRefAccount = purple_stringref_new("Account");- PurpleTclRefConnection = purple_stringref_new("Connection");- PurpleTclRefConversation = purple_stringref_new("Conversation");- PurpleTclRefPointer = purple_stringref_new("Pointer");- PurpleTclRefPlugin = purple_stringref_new("Plugin");- PurpleTclRefPresence = purple_stringref_new("Presence");- PurpleTclRefStatus = purple_stringref_new("Status");- PurpleTclRefStatusAttr = purple_stringref_new("StatusAttr");- PurpleTclRefStatusType = purple_stringref_new("StatusType");- PurpleTclRefXfer = purple_stringref_new("Xfer");- PurpleTclRefHandle = purple_stringref_new("Handle");- tcl_plugins = g_hash_table_new(g_direct_hash, g_direct_equal);- Tcl_StaticPackage(NULL, "Tk", Tk_Init, Tk_SafeInit);-static gboolean tcl_unload(PurplePlugin *plugin, GError **error)- g_hash_table_destroy(tcl_plugins);- purple_stringref_unref(PurpleTclRefAccount);- purple_stringref_unref(PurpleTclRefConnection);- purple_stringref_unref(PurpleTclRefConversation);- purple_stringref_unref(PurpleTclRefPointer);- purple_stringref_unref(PurpleTclRefPlugin);- purple_stringref_unref(PurpleTclRefPresence);- purple_stringref_unref(PurpleTclRefStatus);- purple_stringref_unref(PurpleTclRefStatusAttr);- purple_stringref_unref(PurpleTclRefStatusType);- purple_stringref_unref(PurpleTclRefXfer);-typedef Tcl_Interp* (__cdecl* LPFNTCLCREATEINTERP)(void);-typedef void (__cdecl* LPFNTKINIT)(Tcl_Interp*);-LPFNTCLCREATEINTERP wtcl_CreateInterp = NULL;-LPFNTKINIT wtk_Init = NULL;-#define Tcl_CreateInterp wtcl_CreateInterp-#define Tk_Init wtk_Init-static gboolean tcl_win32_init() {- gboolean retval = FALSE;- if(!(wtcl_CreateInterp = (LPFNTCLCREATEINTERP) wpurple_find_and_loadproc("tcl85.dll", "Tcl_CreateInterp"))) {- purple_debug(PURPLE_DEBUG_INFO, "tcl", "tcl_win32_init error loading Tcl_CreateInterp\n");- if(!(wtk_Init = (LPFNTKINIT) wpurple_find_and_loadproc("tk85.dll", "Tk_Init"))) {- purple_debug(PURPLE_DEBUG_INFO, "tcl", "tcl_win32_init error loading Tk_Init\n");- if((mod = GetModuleHandle("tcl85.dll")))-static void tcl_init_plugin(PurplePlugin *plugin)- Tcl_Interp *interp = NULL;- if(!(interp = Tcl_CreateInterp()))- if(!Tcl_InitStubs(interp, TCL_VERSION, 0)) {- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "Tcl_InitStubs: %s\n", interp->result);- Tcl_FindExecutable("purple");-#if defined(USE_TK_STUBS) && defined(HAVE_TK)- if(!Tk_InitStubs(interp, TK_VERSION, 0)) {- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "Error Tk_InitStubs: %s\n", interp->result);- Tcl_DeleteInterp(interp);- Tcl_DeleteInterp(interp);- tcl_loader_info.exts = g_list_append(tcl_loader_info.exts, "tcl");-PURPLE_PLUGIN_INIT(tcl, tcl_query, tcl_load, tcl_unload);--- a/libpurple/plugins/tcl/tcl_cmd.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,189 +0,0 @@
- * @file tcl_cmd.c Purple Tcl cmd API- * Copyright (C) 2006 Etan Reisner <deryni@gmail.com>- * This program is free software; you can redistribute it and/or modify- * it under the terms of the GNU General Public License as published by- * the Free Software Foundation; either version 2 of the License, or- * (at your option) any later version.- * 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 General Public License for more details.- * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA-static GList *tcl_cmd_callbacks;-static PurpleCmdRet tcl_cmd_callback(PurpleConversation *conv, const gchar *cmd,- gchar **args, gchar **errors,- struct tcl_cmd_handler *handler);-static Tcl_Obj *new_cmd_cb_namespace(void);- tcl_cmd_callbacks = NULL;-void tcl_cmd_handler_free(struct tcl_cmd_handler *handler)- Tcl_DecrRefCount(handler->namespace);-void tcl_cmd_cleanup(Tcl_Interp *interp)- struct tcl_cmd_handler *handler;- for (cur = tcl_cmd_callbacks; cur != NULL; cur = g_list_next(cur)) {- if (handler->interp == interp) {- purple_cmd_unregister(handler->id);- tcl_cmd_handler_free(handler);- tcl_cmd_callbacks = g_list_remove_all(tcl_cmd_callbacks, NULL);-PurpleCmdId tcl_cmd_register(struct tcl_cmd_handler *handler)- if ((id = purple_cmd_register(Tcl_GetString(handler->cmd),- handler->args, handler->priority,- handler->flags, handler->protocol_id,- PURPLE_CMD_FUNC(tcl_cmd_callback),- handler->helpstr, (void *)handler)) == 0)- handler->namespace = new_cmd_cb_namespace ();- Tcl_IncrRefCount(handler->namespace);- proc = g_string_new("");- g_string_append_printf(proc, "namespace eval %s { proc cb { conv cmd arglist } { %s } }",- Tcl_GetString(handler->namespace),- Tcl_GetString(handler->proc));- if (Tcl_Eval(handler->interp, proc->str) != TCL_OK) {- Tcl_DecrRefCount(handler->namespace);- g_string_free(proc, TRUE);- g_string_free(proc, TRUE);- tcl_cmd_callbacks = g_list_append(tcl_cmd_callbacks, (gpointer)handler);-void tcl_cmd_unregister(PurpleCmdId id, Tcl_Interp *interp)- gboolean found = FALSE;- struct tcl_cmd_handler *handler;- for (cur = tcl_cmd_callbacks; cur != NULL; cur = g_list_next(cur)) {- if (handler->interp == interp && handler->id == id) {- purple_cmd_unregister(id);- cmd = g_string_sized_new(64);- g_string_printf(cmd, "namespace delete %s",- Tcl_GetString(handler->namespace));- Tcl_EvalEx(interp, cmd->str, -1, TCL_EVAL_GLOBAL);- tcl_cmd_handler_free(handler);- g_string_free(cmd, TRUE);- tcl_cmd_callbacks = g_list_remove_all(tcl_cmd_callbacks, NULL);-static PurpleCmdRet tcl_cmd_callback(PurpleConversation *conv, const gchar *cmd,- gchar **args, gchar **errors,- struct tcl_cmd_handler *handler)- Tcl_Obj *command, *arg, *tclargs, *result;- command = Tcl_NewListObj(0, NULL);- Tcl_IncrRefCount(command);- arg = Tcl_DuplicateObj(handler->namespace);- Tcl_AppendStringsToObj(arg, "::cb", NULL);- Tcl_ListObjAppendElement(handler->interp, command, arg);- arg = purple_tcl_ref_new(PurpleTclRefConversation, conv);- Tcl_ListObjAppendElement(handler->interp, command, arg);- arg = Tcl_NewStringObj(cmd, -1);- Tcl_ListObjAppendElement(handler->interp, command, arg);- tclargs = Tcl_NewListObj(0, NULL);- for (i = 0; i < handler->nargs; i++) {- arg = Tcl_NewStringObj(args[i], -1);- Tcl_ListObjAppendElement(handler->interp, tclargs, arg);- Tcl_ListObjAppendElement(handler->interp, command, tclargs);- if (Tcl_EvalObjEx(handler->interp, command, TCL_EVAL_GLOBAL) != TCL_OK) {- errorstr = g_strdup_printf("error evaluating callback: %s\n",- Tcl_GetString(Tcl_GetObjResult(handler->interp)));- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "%s", errorstr);- retval = PURPLE_CMD_RET_FAILED;- result = Tcl_GetObjResult(handler->interp);- if (Tcl_GetIntFromObj(handler->interp, result,- errorstr = g_strdup_printf("Error retreiving procedure result: %s\n",- Tcl_GetString(Tcl_GetObjResult(handler->interp)));- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "%s", errorstr);- retval = PURPLE_CMD_RET_FAILED;-static Tcl_Obj *new_cmd_cb_namespace()- g_snprintf(name, sizeof(name), "::purple::_cmd_callback::cb_%d",- return Tcl_NewStringObj(name, -1);--- a/libpurple/plugins/tcl/tcl_cmds.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,1769 +0,0 @@
- * @file tcl_cmds.c Commands for the Purple Tcl plugin bindings- * Copyright (C) 2003 Ethan Blanton <eblanton@cs.purdue.edu>- * This program is free software; you can redistribute it and/or modify- * it under the terms of the GNU General Public License as published by- * the Free Software Foundation; either version 2 of the License, or- * (at your option) any later version.- * 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 General Public License for more details.- * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA-#include "conversation.h"-#include "savedstatuses.h"-static PurpleAccount *tcl_validate_account(Tcl_Obj *obj, Tcl_Interp *interp);-static PurpleConversation *tcl_validate_conversation(Tcl_Obj *obj, Tcl_Interp *interp);-static PurpleConnection *tcl_validate_gc(Tcl_Obj *obj, Tcl_Interp *interp);-static PurpleAccount *tcl_validate_account(Tcl_Obj *obj, Tcl_Interp *interp)- PurpleAccount *account;- account = purple_tcl_ref_get(interp, obj, PurpleTclRefAccount);- for (cur = purple_accounts_get_all(); cur != NULL; cur = g_list_next(cur)) {- if (account == cur->data)- Tcl_SetObjResult(interp, Tcl_NewStringObj("invalid account", -1));-static PurpleConversation *tcl_validate_conversation(Tcl_Obj *obj, Tcl_Interp *interp)- PurpleConversation *convo;- convo = purple_tcl_ref_get(interp, obj, PurpleTclRefConversation);- for (cur = purple_conversations_get_all(); cur != NULL; cur = g_list_next(cur)) {- if (convo == cur->data)- Tcl_SetObjResult(interp, Tcl_NewStringObj("invalid conversation", -1));-static PurpleConnection *tcl_validate_gc(Tcl_Obj *obj, Tcl_Interp *interp)- gc = purple_tcl_ref_get(interp, obj, PurpleTclRefConnection);- for (cur = purple_connections_get_all(); cur != NULL; cur = g_list_next(cur)) {-int tcl_cmd_account(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- Tcl_Obj *result, *list, *elem;- const char *cmds[] = { "alias", "connect", "connection", "disconnect",- "enabled", "find", "handle", "isconnected",- "list", "presence", "protocol", "status",- "status_type", "status_types", "username",- enum { CMD_ACCOUNT_ALIAS,- CMD_ACCOUNT_CONNECT, CMD_ACCOUNT_CONNECTION,- CMD_ACCOUNT_DISCONNECT, CMD_ACCOUNT_ENABLED, CMD_ACCOUNT_FIND,- CMD_ACCOUNT_HANDLE, CMD_ACCOUNT_ISCONNECTED, CMD_ACCOUNT_LIST,- CMD_ACCOUNT_PRESENCE, CMD_ACCOUNT_PROTOCOL, CMD_ACCOUNT_STATUS,- CMD_ACCOUNT_STATUS_TYPE, CMD_ACCOUNT_STATUS_TYPES,- CMD_ACCOUNT_USERNAME } cmd;- const char *listopts[] = { "-all", "-online", NULL };- enum { CMD_ACCOUNTLIST_ALL, CMD_ACCOUNTLIST_ONLINE } listopt;- PurpleAccount *account;- PurpleStatusType *status_type;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- case CMD_ACCOUNT_ALIAS:- Tcl_WrongNumArgs(interp, 2, objv, "account");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- alias = purple_account_get_private_alias(account);- Tcl_SetObjResult(interp, Tcl_NewStringObj(alias ? (char *)alias : "", -1));- case CMD_ACCOUNT_CONNECT:- Tcl_WrongNumArgs(interp, 2, objv, "account");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- if (!purple_account_is_connected(account))- purple_account_connect(account);- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefConnection,- purple_account_get_connection(account)));- case CMD_ACCOUNT_CONNECTION:- Tcl_WrongNumArgs(interp, 2, objv, "account");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefConnection,- purple_account_get_connection(account)));- case CMD_ACCOUNT_DISCONNECT:- Tcl_WrongNumArgs(interp, 2, objv, "account");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- purple_account_disconnect(account);- case CMD_ACCOUNT_ENABLED:- if (objc != 3 && objc != 4) {- Tcl_WrongNumArgs(interp, 2, objv, "account ?enabled?");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp,- purple_account_get_enabled(account,- purple_core_get_ui())));- if ((error = Tcl_GetBooleanFromObj(interp, objv[3], &b)) != TCL_OK)- purple_account_set_enabled(account, purple_core_get_ui(), b);- Tcl_WrongNumArgs(interp, 2, objv, "username protocol");- account = purple_accounts_find(Tcl_GetString(objv[2]),- Tcl_GetString(objv[3]));- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefAccount, account));- case CMD_ACCOUNT_HANDLE:- Tcl_WrongNumArgs(interp, 2, objv, "");- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefHandle,- purple_accounts_get_handle()));- case CMD_ACCOUNT_ISCONNECTED:- Tcl_WrongNumArgs(interp, 2, objv, "account");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp,- purple_account_is_connected(account)));- listopt = CMD_ACCOUNTLIST_ALL;- Tcl_WrongNumArgs(interp, 2, objv, "?option?");- if ((error = Tcl_GetIndexFromObj(interp, objv[2], listopts, "option", 0, (int *)&listopt)) != TCL_OK)- list = Tcl_NewListObj(0, NULL);- for (cur = purple_accounts_get_all(); cur != NULL; cur = g_list_next(cur)) {- if (listopt == CMD_ACCOUNTLIST_ONLINE && !purple_account_is_connected(account))- elem = purple_tcl_ref_new(PurpleTclRefAccount, account);- Tcl_ListObjAppendElement(interp, list, elem);- Tcl_SetObjResult(interp, list);- case CMD_ACCOUNT_PRESENCE:- Tcl_WrongNumArgs(interp, 2, objv, "account");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp, purple_tcl_ref_new(PurpleTclRefPresence,- purple_account_get_presence(account)));- case CMD_ACCOUNT_PROTOCOL:- Tcl_WrongNumArgs(interp, 2, objv, "account");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp, Tcl_NewStringObj((char *)purple_account_get_protocol_id(account), -1));- case CMD_ACCOUNT_STATUS:- Tcl_WrongNumArgs(interp, 2, objv, "account ?status_id name value ...?");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefStatus,- purple_account_get_active_status(account)));- Tcl_SetObjResult(interp, Tcl_NewStringObj("name without value setting status", -1));- status = purple_account_get_status(account, Tcl_GetString(objv[3]));- Tcl_SetObjResult(interp, Tcl_NewStringObj("invalid status for account", -1));- for (i = 4; i < objc; i += 2) {- attr_id = Tcl_GetString(objv[i]);- value = purple_status_get_attr_value(status, attr_id);- Tcl_SetObjResult(interp, Tcl_NewStringObj("invalid attribute for account", -1));- switch (G_VALUE_TYPE(value)) {- error = Tcl_GetBooleanFromObj(interp, objv[i + 1], &b);- l = g_list_append(l, attr_id);- l = g_list_append(l, GINT_TO_POINTER(b));- error = Tcl_GetIntFromObj(interp, objv[i + 1], &b);- l = g_list_append(l, attr_id);- l = g_list_append(l, GINT_TO_POINTER(b));- l = g_list_append(l, attr_id);- l = g_list_append(l, Tcl_GetString(objv[i + 1]));- Tcl_SetObjResult(interp, Tcl_NewStringObj("unknown GValue type", -1));- purple_account_set_status_list(account, Tcl_GetString(objv[3]), TRUE, l);- case CMD_ACCOUNT_STATUS_TYPE:- if (objc != 4 && objc != 5) {- Tcl_WrongNumArgs(interp, 2, objv, "account ?statustype? ?-primitive primitive?");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- status_type = purple_account_get_status_type(account,- Tcl_GetString(objv[3]));- PurpleStatusPrimitive primitive;- if (strcmp(Tcl_GetString(objv[3]), "-primitive")) {- result = Tcl_NewStringObj("bad option \"", -1);- Tcl_AppendObjToObj(result, objv[3]);- Tcl_AppendToObj(result, "\": should be -primitive", -1);- Tcl_SetObjResult(interp,result);- primitive = purple_primitive_get_type_from_id(Tcl_GetString(objv[4]));- status_type = purple_account_get_status_type_with_primitive(account,- if (status_type == NULL) {- Tcl_SetObjResult(interp, Tcl_NewStringObj("status type not found", -1));- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefStatusType,- case CMD_ACCOUNT_STATUS_TYPES:- Tcl_WrongNumArgs(interp, 2, objv, "account");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- list = Tcl_NewListObj(0, NULL);- for (cur = purple_account_get_status_types(account); cur != NULL;- cur = g_list_next(cur)) {- Tcl_ListObjAppendElement(interp, list,- purple_tcl_ref_new(PurpleTclRefStatusType,- Tcl_SetObjResult(interp, list);- case CMD_ACCOUNT_USERNAME:- Tcl_WrongNumArgs(interp, 2, objv, "account");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewStringObj((char *)purple_account_get_username(account), -1));-static PurpleBlistNode *tcl_list_to_buddy(Tcl_Interp *interp, int count, Tcl_Obj **elems)- PurpleBlistNode *node = NULL;- PurpleAccount *account;- Tcl_SetObjResult(interp,- Tcl_NewStringObj("list too short", -1));- type = Tcl_GetString(elems[0]);- name = Tcl_GetString(elems[1]);- if ((account = tcl_validate_account(elems[2], interp)) == NULL)- if (!strcmp(type, "buddy")) {- node = PURPLE_BLIST_NODE(purple_blist_find_buddy(account, name));- } else if (!strcmp(type, "group")) {- node = PURPLE_BLIST_NODE(purple_blist_find_chat(account, name));-int tcl_cmd_buddy(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- Tcl_Obj *list, *tclgroup, *tclgrouplist, *tclcontact, *tclcontactlist, *tclbud, **elems, *result;- const char *cmds[] = { "alias", "handle", "info", "list", NULL };- enum { CMD_BUDDY_ALIAS, CMD_BUDDY_HANDLE, CMD_BUDDY_INFO, CMD_BUDDY_LIST } cmd;- PurpleBlistNode *node, *gnode, *bnode;- PurpleAccount *account;- int error, all = 0, count;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- Tcl_WrongNumArgs(interp, 2, objv, "buddy");- if ((error = Tcl_ListObjGetElements(interp, objv[2], &count, &elems)) != TCL_OK)- if ((node = tcl_list_to_buddy(interp, count, elems)) == NULL)- if (PURPLE_IS_CHAT(node))- Tcl_SetObjResult(interp,- Tcl_NewStringObj(purple_chat_get_name(PURPLE_CHAT(node)), -1));- else if (PURPLE_IS_BUDDY(node))- Tcl_SetObjResult(interp,- Tcl_NewStringObj((char *)purple_buddy_get_alias(PURPLE_BUDDY(node)), -1));- Tcl_WrongNumArgs(interp, 2, objv, "");- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefHandle,- purple_blist_get_handle()));- if (objc != 3 && objc != 4) {- Tcl_WrongNumArgs(interp, 2, objv, "( buddy | account username )");- if ((error = Tcl_ListObjGetElements(interp, objv[2], &count, &elems)) != TCL_OK)- Tcl_SetObjResult(interp,- Tcl_NewStringObj("buddy too short", -1));- if (strcmp("buddy", Tcl_GetString(elems[0]))) {- Tcl_SetObjResult(interp,- Tcl_NewStringObj("invalid buddy", -1));- if ((account = tcl_validate_account(elems[2], interp)) == NULL)- purple_serv_get_info(purple_account_get_connection(account), Tcl_GetString(elems[1]));- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- purple_serv_get_info(purple_account_get_connection(account), Tcl_GetString(objv[3]));- if (!strcmp("-all", Tcl_GetString(objv[2]))) {- result = Tcl_NewStringObj("",-1);- Tcl_AppendStringsToObj(result, "unknown option: ", Tcl_GetString(objv[2]), NULL);- Tcl_SetObjResult(interp,result);- list = Tcl_NewListObj(0, NULL);- for (gnode = purple_blist_get_root(); gnode != NULL; gnode = purple_blist_node_get_sibling_next(gnode)) {- tclgroup = Tcl_NewListObj(0, NULL);- Tcl_ListObjAppendElement(interp, tclgroup, Tcl_NewStringObj("group", -1));- Tcl_ListObjAppendElement(interp, tclgroup,- Tcl_NewStringObj(purple_group_get_name(PURPLE_GROUP(gnode)), -1));- tclgrouplist = Tcl_NewListObj(0, NULL);- for (node = purple_blist_node_get_first_child(gnode); node != NULL; node = purple_blist_node_get_sibling_next(node)) {- PurpleAccount *account;- if (PURPLE_IS_CONTACT(node)) {- tclcontact = Tcl_NewListObj(0, NULL);- Tcl_IncrRefCount(tclcontact);- Tcl_ListObjAppendElement(interp, tclcontact, Tcl_NewStringObj("contact", -1));- tclcontactlist = Tcl_NewListObj(0, NULL);- Tcl_IncrRefCount(tclcontactlist);- for (bnode = purple_blist_node_get_first_child(node); bnode != NULL; bnode = purple_blist_node_get_sibling_next(bnode)) {- if (!PURPLE_IS_BUDDY(bnode))- bud = PURPLE_BUDDY(bnode);- account = purple_buddy_get_account(bud);- if (!all && !purple_account_is_connected(account))- tclbud = Tcl_NewListObj(0, NULL);- Tcl_ListObjAppendElement(interp, tclbud, Tcl_NewStringObj("buddy", -1));- Tcl_ListObjAppendElement(interp, tclbud, Tcl_NewStringObj(purple_buddy_get_name(bud), -1));- Tcl_ListObjAppendElement(interp, tclbud, purple_tcl_ref_new(PurpleTclRefAccount, account));- Tcl_ListObjAppendElement(interp, tclcontactlist, tclbud);- Tcl_ListObjAppendElement(interp, tclcontact, tclcontactlist);- Tcl_ListObjAppendElement(interp, tclgrouplist, tclcontact);- Tcl_DecrRefCount(tclcontact);- Tcl_DecrRefCount(tclcontactlist);- } else if (PURPLE_IS_CHAT(node)) {- cnode = PURPLE_CHAT(node);- account = purple_chat_get_account(cnode);- if (!all && !purple_account_is_connected(account))- tclbud = Tcl_NewListObj(0, NULL);- Tcl_ListObjAppendElement(interp, tclbud, Tcl_NewStringObj("chat", -1));- Tcl_ListObjAppendElement(interp, tclbud, Tcl_NewStringObj(purple_chat_get_name(cnode), -1));- Tcl_ListObjAppendElement(interp, tclbud, purple_tcl_ref_new(PurpleTclRefAccount, account));- Tcl_ListObjAppendElement(interp, tclgrouplist, tclbud);- purple_debug(PURPLE_DEBUG_WARNING, "tcl", "Unexpected buddy type %s", G_OBJECT_TYPE_NAME(node));- Tcl_ListObjAppendElement(interp, tclgroup, tclgrouplist);- Tcl_ListObjAppendElement(interp, list, tclgroup);- Tcl_SetObjResult(interp, list);-int tcl_cmd_cmd(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "do", "help", "list", "register", "unregister", NULL };- enum { CMD_CMD_DO, CMD_CMD_HELP, CMD_CMD_LIST, CMD_CMD_REGISTER, CMD_CMD_UNREGISTER } cmd;- struct tcl_cmd_handler *handler;- PurpleConversation *convo;- PurpleCmdStatus status;- gchar *escaped, *errstr = NULL;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- Tcl_WrongNumArgs(interp, 2, objv, "conversation command");- if ((convo = tcl_validate_conversation(objv[2], interp)) == NULL)- escaped = g_markup_escape_text(Tcl_GetString(objv[3]), -1);- status = purple_cmd_do_command(convo, Tcl_GetString(objv[3]),- Tcl_SetObjResult(interp,- Tcl_NewStringObj(errstr ? (char *)errstr : "", -1));- if (status != PURPLE_CMD_STATUS_OK) {- Tcl_WrongNumArgs(interp, 2, objv, "conversation name");- if ((convo = tcl_validate_conversation(objv[2], interp)) == NULL)- l = cur = purple_cmd_help(convo, Tcl_GetString(objv[3]));- list = Tcl_NewListObj(0, NULL);- elem = Tcl_NewStringObj((char *)cur->data, -1);- Tcl_ListObjAppendElement(interp, list, elem);- cur = g_list_next(cur);- Tcl_SetObjResult(interp, list);- Tcl_WrongNumArgs(interp, 2, objv, "conversation");- if ((convo = tcl_validate_conversation(objv[2], interp)) == NULL)- l = cur = purple_cmd_list(convo);- list = Tcl_NewListObj(0, NULL);- elem = Tcl_NewStringObj((char *)cur->data, -1);- Tcl_ListObjAppendElement(interp, list, elem);- cur = g_list_next(cur);- Tcl_SetObjResult(interp, list);- Tcl_WrongNumArgs(interp, 2, objv, "cmd arglist priority flags protocol_id proc helpstr");- handler = g_new0(struct tcl_cmd_handler, 1);- handler->cmd = objv[2];- handler->args = Tcl_GetString(objv[3]);- handler->nargs = strlen(handler->args);- if ((error = Tcl_GetIntFromObj(interp, objv[4],- &handler->priority)) != TCL_OK) {- if ((error = Tcl_GetIntFromObj(interp, objv[5],- &handler->flags)) != TCL_OK) {- handler->protocol_id = Tcl_GetString(objv[6]);- handler->proc = objv[7];- handler->helpstr = Tcl_GetString(objv[8]);- handler->interp = interp;- if ((id = tcl_cmd_register(handler)) == 0) {- tcl_cmd_handler_free(handler);- Tcl_SetObjResult(interp, Tcl_NewIntObj(0));- Tcl_SetObjResult(interp, Tcl_NewIntObj(id));- case CMD_CMD_UNREGISTER:- Tcl_WrongNumArgs(interp, 2, objv, "id");- if ((error = Tcl_GetIntFromObj(interp, objv[2],- (int *)&id)) != TCL_OK)- tcl_cmd_unregister(id, interp);-int tcl_cmd_connection(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "account", "displayname", "handle", "list", "state", NULL };- enum { CMD_CONN_ACCOUNT, CMD_CONN_DISPLAYNAME, CMD_CONN_HANDLE,- CMD_CONN_LIST, CMD_CONN_STATE } cmd;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- Tcl_WrongNumArgs(interp, 2, objv, "gc");- if ((gc = tcl_validate_gc(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefAccount,- purple_connection_get_account(gc)));- case CMD_CONN_DISPLAYNAME:- Tcl_WrongNumArgs(interp, 2, objv, "gc");- if ((gc = tcl_validate_gc(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewStringObj(purple_connection_get_display_name(gc), -1));- Tcl_WrongNumArgs(interp, 2, objv, "");- Tcl_SetObjResult(interp, purple_tcl_ref_new(PurpleTclRefHandle,- purple_connections_get_handle()));- Tcl_WrongNumArgs(interp, 2, objv, "");- list = Tcl_NewListObj(0, NULL);- for (cur = purple_connections_get_all(); cur != NULL; cur = g_list_next(cur)) {- elem = purple_tcl_ref_new(PurpleTclRefConnection, cur->data);- Tcl_ListObjAppendElement(interp, list, elem);- Tcl_SetObjResult(interp, list);- Tcl_WrongNumArgs(interp, 2, objv, "gc");- if ((gc = tcl_validate_gc(objv[2], interp)) == NULL)- switch (purple_connection_get_state(gc)) {- case PURPLE_CONNECTION_DISCONNECTED:- Tcl_SetObjResult(interp, Tcl_NewStringObj("disconnected", -1));- case PURPLE_CONNECTION_CONNECTED:- Tcl_SetObjResult(interp, Tcl_NewStringObj("connected", -1));- case PURPLE_CONNECTION_CONNECTING:- Tcl_SetObjResult(interp, Tcl_NewStringObj("connecting", -1));-int tcl_cmd_conversation(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "find", "handle", "list", "new", "write", "name", "title", "send", NULL };- enum { CMD_CONV_FIND, CMD_CONV_HANDLE, CMD_CONV_LIST, CMD_CONV_NEW, CMD_CONV_WRITE , CMD_CONV_NAME, CMD_CONV_TITLE, CMD_CONV_SEND } cmd;- const char *styles[] = { "send", "recv", "system", NULL };- enum { CMD_CONV_WRITE_SEND, CMD_CONV_WRITE_RECV, CMD_CONV_WRITE_SYSTEM } style;- const char *newopts[] = { "-chat", "-im" };- enum { CMD_CONV_NEW_CHAT, CMD_CONV_NEW_IM } newopt;- PurpleConversation *convo;- PurpleAccount *account;- gboolean is_chat = FALSE;- char *opt, *from, *what;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- Tcl_WrongNumArgs(interp, 2, objv, "account name");- if ((account = tcl_validate_account(objv[2], interp)) == NULL)- convo = purple_conversations_find_with_account(Tcl_GetString(objv[3]),- Tcl_SetObjResult(interp, purple_tcl_ref_new(PurpleTclRefConversation, convo));- Tcl_WrongNumArgs(interp, 2, objv, "");- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefHandle,- purple_conversations_get_handle()));- list = Tcl_NewListObj(0, NULL);- for (cur = purple_conversations_get_all(); cur != NULL; cur = g_list_next(cur)) {- elem = purple_tcl_ref_new(PurpleTclRefConversation, cur->data);- Tcl_ListObjAppendElement(interp, list, elem);- Tcl_SetObjResult(interp, list);- Tcl_WrongNumArgs(interp, 2, objv, "?options? account name");- while (argsused < objc) {- opt = Tcl_GetString(objv[argsused]);- if ((error = Tcl_GetIndexFromObj(interp, objv[argsused], newopts,- "option", 0, (int *)&newopt)) != TCL_OK)- case CMD_CONV_NEW_CHAT:- if (objc - argsused != 2) {- Tcl_WrongNumArgs(interp, 2, objv, "?options? account name");- if ((account = tcl_validate_account(objv[argsused++], interp)) == NULL)- convo = PURPLE_CONVERSATION(purple_chat_conversation_new(account, Tcl_GetString(objv[argsused])));- convo = PURPLE_CONVERSATION(purple_im_conversation_new(account, Tcl_GetString(objv[argsused])));- Tcl_SetObjResult(interp, purple_tcl_ref_new(PurpleTclRefConversation, convo));- Tcl_WrongNumArgs(interp, 2, objv, "conversation style from what");- if ((convo = tcl_validate_conversation(objv[2], interp)) == NULL)- if ((error = Tcl_GetIndexFromObj(interp, objv[3], styles, "style", 0, (int *)&style)) != TCL_OK)- from = Tcl_GetString(objv[4]);- what = Tcl_GetString(objv[5]);- case CMD_CONV_WRITE_SEND:- pmsg = purple_message_new_outgoing(from, what, 0);- case CMD_CONV_WRITE_RECV:- pmsg = purple_message_new_incoming(from, what, 0, 0);- case CMD_CONV_WRITE_SYSTEM:- pmsg = purple_message_new_system(what, 0);- purple_conversation_write_message(convo, pmsg);- Tcl_WrongNumArgs(interp, 2, objv, "conversation");- if ((convo = tcl_validate_conversation(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewStringObj((char *)purple_conversation_get_name(convo), -1));- Tcl_WrongNumArgs(interp, 2, objv, "conversation");- if ((convo = tcl_validate_conversation(objv[2], interp)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewStringObj((char *)purple_conversation_get_title(convo), -1));- Tcl_WrongNumArgs(interp, 2, objv, "conversation message");- if ((convo = tcl_validate_conversation(objv[2], interp)) == NULL)- what = Tcl_GetString(objv[3]);- purple_conversation_send(convo, what);-int tcl_cmd_core(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "handle", "quit", NULL };- enum { CMD_CORE_HANDLE, CMD_CORE_QUIT } cmd;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- Tcl_WrongNumArgs(interp, 2, objv, "");- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefHandle,- Tcl_WrongNumArgs(interp, 2, objv, "");-int tcl_cmd_debug(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- char *category, *message;- const char *levels[] = { "-misc", "-info", "-warning", "-error", NULL };- PurpleDebugLevel levelind[] = { PURPLE_DEBUG_MISC, PURPLE_DEBUG_INFO, PURPLE_DEBUG_WARNING, PURPLE_DEBUG_ERROR };- Tcl_WrongNumArgs(interp, 1, objv, "level category message");- error = Tcl_GetIndexFromObj(interp, objv[1], levels, "debug level", 0, &lev);- category = Tcl_GetString(objv[2]);- message = Tcl_GetString(objv[3]);- purple_debug(levelind[lev], category, "%s\n", message);-int tcl_cmd_notify(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *opts[] = { "-error", "-warning", "-info", NULL };- PurpleNotifyMsgType optind[] = { PURPLE_NOTIFY_MSG_ERROR, PURPLE_NOTIFY_MSG_WARNING, PURPLE_NOTIFY_MSG_INFO };- char *title, *msg1, *msg2;- if (objc < 4 || objc > 5) {- Tcl_WrongNumArgs(interp, 1, objv, "?type? title primary secondary");- type = 1; /* Default to warning */- title = Tcl_GetString(objv[1]);- msg1 = Tcl_GetString(objv[2]);- msg2 = Tcl_GetString(objv[3]);- error = Tcl_GetIndexFromObj(interp, objv[1], opts, "message type", 0, &type);- title = Tcl_GetString(objv[2]);- msg1 = Tcl_GetString(objv[3]);- msg2 = Tcl_GetString(objv[4]);- purple_notify_message(_tcl_plugin, optind[type], title, msg1, msg2, NULL, NULL, NULL);-int tcl_cmd_plugins(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "handle", NULL };- enum { CMD_PLUGINS_HANDLE } cmd;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- case CMD_PLUGINS_HANDLE:- Tcl_WrongNumArgs(interp, 2, objv, "");- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefHandle,- purple_plugins_get_handle()));-int tcl_cmd_prefs(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- Tcl_Obj *list, *elem, **elems;- const char *cmds[] = { "get", "set", "type", NULL };- enum { CMD_PREFS_GET, CMD_PREFS_SET, CMD_PREFS_TYPE } cmd;- /* char *types[] = { "none", "boolean", "int", "string", "stringlist", NULL }; */- /* enum { TCL_PREFS_NONE, TCL_PREFS_BOOL, TCL_PREFS_INT, TCL_PREFS_STRING, TCL_PREFS_STRINGLIST } type; */- PurplePrefType preftype;- int error, intval, nelem, i;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- Tcl_WrongNumArgs(interp, 1, objv, "path");- preftype = purple_prefs_get_pref_type(Tcl_GetString(objv[2]));- Tcl_SetObjResult(interp,- Tcl_NewStringObj("pref type none", -1));- case PURPLE_PREF_BOOLEAN:- Tcl_SetObjResult(interp,- purple_prefs_get_bool(Tcl_GetString(objv[2]))));- Tcl_SetObjResult(interp, Tcl_NewIntObj(purple_prefs_get_int(Tcl_GetString(objv[2]))));- case PURPLE_PREF_STRING:- Tcl_SetObjResult(interp,- Tcl_NewStringObj((char *)purple_prefs_get_string(Tcl_GetString(objv[2])), -1));- case PURPLE_PREF_STRING_LIST:- cur = purple_prefs_get_string_list(Tcl_GetString(objv[2]));- list = Tcl_NewListObj(0, NULL);- elem = Tcl_NewStringObj((char *)cur->data, -1);- Tcl_ListObjAppendElement(interp, list, elem);- cur = g_list_next(cur);- Tcl_SetObjResult(interp, list);- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "tcl does not know about pref type %d\n", preftype);- Tcl_SetObjResult(interp,- Tcl_NewStringObj("unknown pref type", -1));- Tcl_WrongNumArgs(interp, 1, objv, "path value");- preftype = purple_prefs_get_pref_type(Tcl_GetString(objv[2]));- Tcl_SetObjResult(interp,- Tcl_NewStringObj("bad path or pref type none", -1));- case PURPLE_PREF_BOOLEAN:- if ((error = Tcl_GetBooleanFromObj(interp, objv[3], &intval)) != TCL_OK)- purple_prefs_set_bool(Tcl_GetString(objv[2]), intval);- if ((error = Tcl_GetIntFromObj(interp, objv[3], &intval)) != TCL_OK)- purple_prefs_set_int(Tcl_GetString(objv[2]), intval);- case PURPLE_PREF_STRING:- purple_prefs_set_string(Tcl_GetString(objv[2]), Tcl_GetString(objv[3]));- case PURPLE_PREF_STRING_LIST:- if ((error = Tcl_ListObjGetElements(interp, objv[3], &nelem, &elems)) != TCL_OK)- for (i = 0; i < nelem; i++) {- cur = g_list_append(cur, (gpointer)Tcl_GetString(elems[i]));- purple_prefs_set_string_list(Tcl_GetString(objv[2]), cur);- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "tcl does not know about pref type %d\n", preftype);- Tcl_WrongNumArgs(interp, 1, objv, "path");- preftype = purple_prefs_get_pref_type(Tcl_GetString(objv[2]));- Tcl_SetObjResult(interp, Tcl_NewStringObj("none", -1));- case PURPLE_PREF_BOOLEAN:- Tcl_SetObjResult(interp, Tcl_NewStringObj("boolean", -1));- Tcl_SetObjResult(interp, Tcl_NewStringObj("int", -1));- case PURPLE_PREF_STRING:- Tcl_SetObjResult(interp, Tcl_NewStringObj("string", -1));- case PURPLE_PREF_STRING_LIST:- Tcl_SetObjResult(interp, Tcl_NewStringObj("stringlist", -1));- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "tcl does not know about pref type %d\n", preftype);- Tcl_SetObjResult(interp, Tcl_NewStringObj("unknown", -1));-int tcl_cmd_presence(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "account", "active_status", "available",- "idle", "type", "login", "online", "status",- enum { CMD_PRESENCE_ACCOUNT, CMD_PRESENCE_ACTIVE_STATUS,- CMD_PRESENCE_AVAILABLE, CMD_PRESENCE_IDLE, CMD_PRESENCE_TYPE,- CMD_PRESENCE_LOGIN, CMD_PRESENCE_ONLINE,- CMD_PRESENCE_STATUS, CMD_PRESENCE_STATUSES } cmd;- PurplePresence *presence;- int error, idle, idle_time, login_time;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- case CMD_PRESENCE_ACCOUNT:- Tcl_WrongNumArgs(interp, 2, objv, "presence");- if ((presence = purple_tcl_ref_get(interp, objv[2], PurpleTclRefPresence)) == NULL)- Tcl_SetObjResult(interp, purple_tcl_ref_new(PurpleTclRefAccount,- purple_account_presence_get_account(PURPLE_ACCOUNT_PRESENCE(presence))));- case CMD_PRESENCE_ACTIVE_STATUS:- if (objc != 3 && objc != 4 && objc != 5) {- Tcl_WrongNumArgs(interp, 2, objv, "presence [?status_id? | ?-primitive primitive?]");- if ((presence = purple_tcl_ref_get(interp, objv[2], PurpleTclRefPresence)) == NULL)- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefStatus,- purple_presence_get_active_status(presence)));- } else if (objc == 4) {- Tcl_SetObjResult(interp,- purple_presence_is_status_active(presence,- Tcl_GetString(objv[3]))));- PurpleStatusPrimitive primitive;- if (strcmp(Tcl_GetString(objv[3]), "-primitive")) {- result = Tcl_NewStringObj("bad option \"", -1);- Tcl_AppendObjToObj(result, objv[3]);- Tcl_AppendToObj(result,- "\": should be -primitive", -1);- Tcl_SetObjResult(interp,result);- primitive = purple_primitive_get_type_from_id(Tcl_GetString(objv[4]));- if (primitive == PURPLE_STATUS_UNSET) {- result = Tcl_NewStringObj("invalid primitive ", -1);- Tcl_AppendObjToObj(result, objv[4]);- Tcl_SetObjResult(interp,result);- Tcl_SetObjResult(interp,- purple_presence_is_status_primitive_active(presence, primitive)));- case CMD_PRESENCE_AVAILABLE:- Tcl_WrongNumArgs(interp, 2, objv, "presence");- if ((presence = purple_tcl_ref_get(interp, objv[2], PurpleTclRefPresence)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewBooleanObj(purple_presence_is_available(presence)));- case CMD_PRESENCE_TYPE:- Tcl_WrongNumArgs(interp, 2, objv, "presence");- if ((presence = purple_tcl_ref_get(interp, objv[2], PurpleTclRefPresence)) == NULL)- if (PURPLE_IS_ACCOUNT_PRESENCE(presence))- Tcl_SetObjResult(interp, Tcl_NewStringObj("account", -1));- else if (PURPLE_IS_BUDDY_PRESENCE(presence))- Tcl_SetObjResult(interp, Tcl_NewStringObj("buddy", -1));- case CMD_PRESENCE_IDLE:- if (objc < 3 || objc > 5) {- Tcl_WrongNumArgs(interp, 2, objv, "presence ?idle? ?time?");- if ((presence = purple_tcl_ref_get(interp, objv[2], PurpleTclRefPresence)) == NULL)- if (purple_presence_is_idle(presence)) {- idle_time = purple_presence_get_idle_time (presence);- Tcl_SetObjResult(interp, Tcl_NewIntObj(idle_time));- result = Tcl_NewListObj(0, NULL);- Tcl_SetObjResult(interp, result);- if ((error = Tcl_GetBooleanFromObj(interp, objv[3], &idle)) != TCL_OK)- purple_presence_set_idle(presence, idle, time(NULL));- } else if (objc == 5) {- if ((error = Tcl_GetIntFromObj(interp,- &idle_time)) != TCL_OK)- purple_presence_set_idle(presence, idle, idle_time);- case CMD_PRESENCE_LOGIN:- if (objc != 3 && objc != 4) {- Tcl_WrongNumArgs(interp, 2, objv, "presence ?time?");- if ((presence = purple_tcl_ref_get(interp, objv[2], PurpleTclRefPresence)) == NULL)- Tcl_SetObjResult(interp, Tcl_NewIntObj(purple_presence_get_login_time(presence)));- if ((error == Tcl_GetIntFromObj(interp,- &login_time)) != TCL_OK)- purple_presence_set_login_time(presence, login_time);- case CMD_PRESENCE_ONLINE:- Tcl_WrongNumArgs(interp, 2, objv, "presence");- if ((presence = purple_tcl_ref_get(interp, objv[2], PurpleTclRefPresence)) == NULL)- Tcl_SetObjResult(interp,- purple_presence_is_online(presence)));- case CMD_PRESENCE_STATUS:- Tcl_WrongNumArgs(interp, 2, objv, "presence status_id");- if ((presence = purple_tcl_ref_get(interp, objv[2], PurpleTclRefPresence)) == NULL)- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefStatus,- purple_presence_get_status(presence,- Tcl_GetString(objv[3]))));- case CMD_PRESENCE_STATUSES:- Tcl_WrongNumArgs(interp, 2, objv, "presence");- if ((presence = purple_tcl_ref_get(interp, objv[2], PurpleTclRefPresence)) == NULL)- list = Tcl_NewListObj(0, NULL);- for (cur = purple_presence_get_statuses(presence); cur != NULL;- cur = g_list_next(cur)) {- elem = purple_tcl_ref_new(PurpleTclRefStatus, cur->data);- Tcl_ListObjAppendElement(interp, list, elem);- Tcl_SetObjResult(interp, list);-int tcl_cmd_savedstatus(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "current", "handle", NULL };- enum { CMD_SAVEDSTATUS_CURRENT, CMD_SAVEDSTATUS_HANDLE } cmd;- PurpleSavedStatus *saved_status;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- case CMD_SAVEDSTATUS_CURRENT:- Tcl_WrongNumArgs(interp, 2, objv, "");- if ((saved_status = purple_savedstatus_get_current()) == NULL)- result = Tcl_NewListObj(0, NULL);- Tcl_ListObjAppendElement(interp, result, Tcl_NewStringObj(purple_savedstatus_get_title(saved_status), -1));- Tcl_ListObjAppendElement(interp, result, Tcl_NewIntObj(purple_savedstatus_get_primitive_type(saved_status)));- Tcl_ListObjAppendElement(interp, result, Tcl_NewStringObj(purple_savedstatus_get_message(saved_status), -1));- Tcl_SetObjResult(interp,result);- case CMD_SAVEDSTATUS_HANDLE:- Tcl_WrongNumArgs(interp, 2, objv, "");- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefHandle,- purple_savedstatuses_get_handle()));-int tcl_cmd_send_im(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- Tcl_WrongNumArgs(interp, 1, objv, "gc who text");- if ((gc = tcl_validate_gc(objv[1], interp)) == NULL)- who = Tcl_GetString(objv[2]);- text = Tcl_GetString(objv[3]);- purple_serv_send_im(gc, purple_message_new_outgoing(who, text, 0));-int tcl_cmd_signal(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "connect", "disconnect", NULL };- enum { CMD_SIGNAL_CONNECT, CMD_SIGNAL_DISCONNECT } cmd;- struct tcl_signal_handler *handler;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- case CMD_SIGNAL_CONNECT:- Tcl_WrongNumArgs(interp, 2, objv, "instance signal args proc");- handler = g_new0(struct tcl_signal_handler, 1);- if ((handler->instance = purple_tcl_ref_get(interp, objv[2],PurpleTclRefHandle)) == NULL) {- handler->signal = objv[3];- Tcl_IncrRefCount(handler->signal);- handler->args = objv[4];- handler->proc = objv[5];- handler->interp = interp;- if (!tcl_signal_connect(handler)) {- tcl_signal_handler_free(handler);- Tcl_SetObjResult(interp, Tcl_NewIntObj(1));- Tcl_SetObjResult(interp, Tcl_NewIntObj(0));- case CMD_SIGNAL_DISCONNECT:- Tcl_WrongNumArgs(interp, 2, objv, "instance signal");- if ((instance = purple_tcl_ref_get(interp, objv[2],PurpleTclRefHandle)) == NULL)- tcl_signal_disconnect(instance, Tcl_GetString(objv[3]), interp);-int tcl_cmd_status(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "attr", "type", NULL };- enum { CMD_STATUS_ATTRIBUTE, CMD_STATUS_TYPE } cmd;- PurpleStatusType *status_type;-/* #if !(defined PURPLE_DISABLE_DEPRECATED) */- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- case CMD_STATUS_ATTRIBUTE:-/* #if !(defined PURPLE_DISABLE_DEPRECATED) */- if (objc != 4 && objc != 5) {- Tcl_WrongNumArgs(interp, 2, objv, "status attr_id ?value?");- if ((status = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatus)) == NULL)- attr = Tcl_GetString(objv[3]);- value = purple_status_get_attr_value(status, attr);- Tcl_SetObjResult(interp,- Tcl_NewStringObj("no such attribute", -1));- switch (purple_value_get_type(value)) {- case PURPLE_TYPE_BOOLEAN:- Tcl_SetObjResult(interp,- Tcl_NewBooleanObj(purple_value_get_boolean(value)));- if ((error = Tcl_GetBooleanFromObj(interp, objv[4], &v)) != TCL_OK)- purple_status_set_attr_boolean(status, attr, v);- Tcl_SetObjResult(interp, Tcl_NewIntObj(purple_value_get_int(value)));- if ((error = Tcl_GetIntFromObj(interp, objv[4], &v)) != TCL_OK)- purple_status_set_attr_int(status, attr, v );- case PURPLE_TYPE_STRING:- Tcl_SetObjResult(interp,- Tcl_NewStringObj(purple_value_get_string(value), -1));- purple_status_set_attr_string(status, attr, Tcl_GetString(objv[4]));- Tcl_SetObjResult(interp,- Tcl_NewStringObj("attribute has unknown type", -1));- Tcl_WrongNumArgs(interp, 2, objv, "status");- if ((status = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatus)) == NULL)- status_type = purple_status_get_status_type(status);- Tcl_SetObjResult(interp, purple_tcl_ref_new(PurpleTclRefStatusType,-int tcl_cmd_status_attr(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "id", "name", NULL };- enum { CMD_STATUS_ATTRIBUTE_ID, CMD_STATUS_ATTRIBUTE_NAME } cmd;- PurpleStatusAttribute *attr;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- case CMD_STATUS_ATTRIBUTE_ID:- Tcl_WrongNumArgs(interp, 2, objv, "attr");- if ((attr = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusAttr)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewStringObj(purple_status_attribute_get_id(attr), -1));- case CMD_STATUS_ATTRIBUTE_NAME:- Tcl_WrongNumArgs(interp, 2, objv, "attr");- if ((attr = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusAttr)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewStringObj(purple_status_attribute_get_name(attr), -1));-int tcl_cmd_status_type(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- const char *cmds[] = { "attr", "attrs", "available", "exclusive", "id",- "primitive", "saveable", "user_settable",- enum { CMD_STATUS_TYPE_ATTR, CMD_STATUS_TYPE_ATTRS,- CMD_STATUS_TYPE_AVAILABLE, CMD_STATUS_TYPE_EXCLUSIVE,- CMD_STATUS_TYPE_ID, CMD_STATUS_TYPE_INDEPENDENT,- CMD_STATUS_TYPE_PRIMITIVE, CMD_STATUS_TYPE_SAVEABLE,- CMD_STATUS_TYPE_USER_SETTABLE } cmd;- PurpleStatusType *status_type;- Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");- if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)- case CMD_STATUS_TYPE_AVAILABLE:- Tcl_WrongNumArgs(interp, 2, objv, "statustype");- if ((status_type = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusType)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewBooleanObj(purple_status_type_is_available(status_type)));- case CMD_STATUS_TYPE_ATTR:- Tcl_WrongNumArgs(interp, 2, objv, "statustype attr");- if ((status_type = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusType)) == NULL)- Tcl_SetObjResult(interp,- purple_tcl_ref_new(PurpleTclRefStatusAttr,- purple_status_type_get_attr(status_type,- Tcl_GetStringFromObj(objv[3], NULL))));- case CMD_STATUS_TYPE_ATTRS:- Tcl_WrongNumArgs(interp, 2, objv, "statustype");- if ((status_type = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusType)) == NULL)- list = Tcl_NewListObj(0, NULL);- for (cur = purple_status_type_get_attrs(status_type);- cur != NULL; cur = g_list_next(cur)) {- elem = purple_tcl_ref_new(PurpleTclRefStatusAttr, cur->data);- Tcl_ListObjAppendElement(interp, list, elem);- Tcl_SetObjResult(interp, list);- case CMD_STATUS_TYPE_EXCLUSIVE:- Tcl_WrongNumArgs(interp, 2, objv, "statustype");- if ((status_type = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusType)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewBooleanObj(purple_status_type_is_exclusive(status_type)));- case CMD_STATUS_TYPE_ID:- Tcl_WrongNumArgs(interp, 2, objv, "statustype");- if ((status_type = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusType)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewStringObj(purple_status_type_get_id(status_type), -1));- case CMD_STATUS_TYPE_INDEPENDENT:- Tcl_WrongNumArgs(interp, 2, objv, "statustype");- if ((status_type = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusType)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewBooleanObj(purple_status_type_is_independent(status_type)));- case CMD_STATUS_TYPE_NAME:- Tcl_WrongNumArgs(interp, 2, objv, "statustype");- if ((status_type = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusType)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewStringObj(purple_status_type_get_name(status_type), -1));- case CMD_STATUS_TYPE_PRIMITIVE:- Tcl_WrongNumArgs(interp, 2, objv, "statustype");- if ((status_type = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusType)) == NULL)- Tcl_SetObjResult(interp,- Tcl_NewStringObj(purple_primitive_get_id_from_type- (purple_status_type_get_primitive(status_type)), -1));- case CMD_STATUS_TYPE_SAVEABLE:- Tcl_WrongNumArgs(interp, 2, objv, "statustype");- if ((status_type = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusType)) == NULL)- Tcl_SetObjResult(interp,- purple_status_type_is_saveable(status_type)));- case CMD_STATUS_TYPE_USER_SETTABLE:- Tcl_WrongNumArgs(interp, 2, objv, "statustype");- if ((status_type = purple_tcl_ref_get(interp, objv[2], PurpleTclRefStatusType)) == NULL)- Tcl_SetObjResult(interp,- purple_status_type_is_user_settable(status_type)));-static gboolean unload_self(gpointer data)- PurplePlugin *plugin = data;- purple_plugin_unload(plugin);-int tcl_cmd_unload(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])- Tcl_WrongNumArgs(interp, 1, objv, "");- if ((plugin = tcl_interp_get_plugin(interp)) == NULL) {- /* This isn't exactly OK, but heh. What do you do? */- /* We can't unload immediately, but we can unload at the first- * known safe opportunity. */- purple_timeout_add(0, unload_self, (gpointer)plugin);--- a/libpurple/plugins/tcl/tcl_glib.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,259 +0,0 @@
- * Copyright (C) 2003, 2004, 2006 Ethan Blanton <eblanton@cs.purdue.edu>- * This file is dual-licensed under the two sets of terms below. You may- * use, redistribute, or modify it pursuant to either the set of conditions- * under "TERMS 1" or "TERMS 2", at your discretion. The DISCLAIMER- * applies to both sets of terms.- * This program is free software; you can redistribute it and/or modify- * it under the terms of the GNU General Public License as published by- * the Free Software Foundation; either version 2 of the License, or- * (at your option) any later version.- * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA- * Redistribution and use in source and binary forms, with or without- * modification, are permitted provided that the following conditions- * 1. Redistributions of source code must contain the above copyright- * notice and this comment block in their entirety.- * 2. Redistributions in binary form must reproduce the above copyright- * notice and the text of this comment block in their entirety in- * the documentation and/or other materials provided with the- * 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 General Public License for more details.- * This file was developed for the Purple project. It inserts the Tcl- * event loop into the glib2 event loop for the purposes of providing- * Tcl bindings in a glib2 (e.g. Gtk2) program. To use it, simply- * link it into your executable, include tcl_glib.h, and call the- * function tcl_glib_init() before creating or using any Tcl- * interpreters. Then go ahead and use Tcl, Tk, whatever to your- * tcl_wait_for_event seems to have a bug that makes vwait not work so- * well... I'm not sure why, yet, but I haven't put much time into- * it. Hopefully I will figure it out soon. In the meantime, this- * means that Tk's bgerror function (which is called when there is an- * error in a callback function) causes some Bad Mojo -- you should- * override it with a function that does not use Tk-struct tcl_file_handler {-static gboolean tcl_timer_pending;-static GHashTable *tcl_file_handlers;-static void tcl_set_timer(CONST86 Tcl_Time *timePtr);-static int tcl_wait_for_event(CONST86 Tcl_Time *timePtr);-static void tcl_create_file_handler(int fd, int mask, Tcl_FileProc *proc, ClientData data);-static void tcl_delete_file_handler(int fd);-static gboolean tcl_kick(gpointer data);-static gboolean tcl_file_callback(GIOChannel *source, GIOCondition condition, gpointer data);-static int tcl_file_event_callback(Tcl_Event *event, int flags);-ClientData Tcl_InitNotifier()- Tcl_NotifierProcs notifier;- memset(¬ifier, 0, sizeof(notifier));- notifier.createFileHandlerProc = tcl_create_file_handler;- notifier.deleteFileHandlerProc = tcl_delete_file_handler;- notifier.setTimerProc = tcl_set_timer;- notifier.waitForEventProc = tcl_wait_for_event;- Tcl_SetNotifier(¬ifier);- Tcl_SetServiceMode(TCL_SERVICE_ALL);- tcl_timer_pending = FALSE;- tcl_file_handlers = g_hash_table_new(g_direct_hash, g_direct_equal);-static void tcl_set_timer(CONST86 Tcl_Time *timePtr)- g_source_remove(tcl_timer);- tcl_timer_pending = FALSE;- interval = timePtr->sec * 1000 + (timePtr->usec ? timePtr->usec / 1000 : 0);- tcl_timer = g_timeout_add(interval, tcl_kick, NULL);- tcl_timer_pending = TRUE;-static int tcl_wait_for_event(CONST86 Tcl_Time *timePtr)- if (!timePtr || (timePtr->sec == 0 && timePtr->usec == 0)) {- g_main_context_iteration(NULL, FALSE);- tcl_set_timer(timePtr);- g_main_context_iteration(NULL, TRUE);-static void tcl_create_file_handler(int fd, int mask, Tcl_FileProc *proc, ClientData data)- struct tcl_file_handler *tfh = g_new0(struct tcl_file_handler, 1);- if (g_hash_table_lookup(tcl_file_handlers, GINT_TO_POINTER(fd)))- tcl_delete_file_handler(fd);- if (mask & TCL_READABLE)- if (mask & TCL_WRITABLE)- if (mask & TCL_EXCEPTION)- cond |= G_IO_ERR|G_IO_HUP|G_IO_NVAL;- channel = g_io_channel_unix_new(fd);- tfh->source = g_io_add_watch_full(channel, G_PRIORITY_DEFAULT, cond, tcl_file_callback, tfh, g_free);- g_io_channel_unref(channel);- g_hash_table_insert(tcl_file_handlers, GINT_TO_POINTER(fd), tfh);-static void tcl_delete_file_handler(int fd)- struct tcl_file_handler *tfh = g_hash_table_lookup(tcl_file_handlers, GINT_TO_POINTER(fd));- g_source_remove(tfh->source);- g_hash_table_remove(tcl_file_handlers, GINT_TO_POINTER(fd));-static gboolean tcl_kick(gpointer data)- tcl_timer_pending = FALSE;-static gboolean tcl_file_callback(GIOChannel *source, GIOCondition condition, gpointer data)- struct tcl_file_handler *tfh = data;- struct tcl_file_event *fev;- if (condition & G_IO_IN)- if (condition & G_IO_OUT)- if (condition & (G_IO_ERR|G_IO_HUP|G_IO_NVAL))- if (!(tfh->mask & (mask & ~tfh->pending)))- /* ckalloc returns memory "suitably aligned for any use" */- fev = (gpointer)ckalloc(sizeof(struct tcl_file_event));- memset(fev, 0, sizeof(struct tcl_file_event));- fev->header.proc = tcl_file_event_callback;- Tcl_QueueEvent((Tcl_Event *)fev, TCL_QUEUE_TAIL);-int tcl_file_event_callback(Tcl_Event *event, int flags)- struct tcl_file_handler *tfh;- struct tcl_file_event *fev = (struct tcl_file_event *)event;- if (!(flags & TCL_FILE_EVENTS)) {- tfh = g_hash_table_lookup(tcl_file_handlers, GINT_TO_POINTER(fev->fd));- mask = tfh->mask & tfh->pending;- (*tfh->proc)(tfh->data, mask);--- a/libpurple/plugins/tcl/tcl_glib.h Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,29 +0,0 @@
- * Copyright (C) 2003 Ethan Blanton <eblanton@cs.purdue.edu>- * This program is free software; you can redistribute it and/or modify- * it under the terms of the GNU General Public License as published by- * the Free Software Foundation; either version 2 of the License, or- * (at your option) any later version.- * 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 General Public License for more details.- * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA-#ifndef _PURPLE_TCL_GLIB_H_-#define _PURPLE_TCL_GLIB_H_-void tcl_glib_init(void);-#endif /* _PURPLE_TCL_GLIB_H_ */--- a/libpurple/plugins/tcl/tcl_purple.h Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,118 +0,0 @@
- * @file tcl_purple.h Purple Tcl definitions- * Copyright (C) 2003 Ethan Blanton <eblanton@cs.purdue.edu>- * This program is free software; you can redistribute it and/or modify- * it under the terms of the GNU General Public License as published by- * the Free Software Foundation; either version 2 of the License, or- * (at your option) any later version.- * 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 General Public License for more details.- * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA-#ifndef _PURPLE_TCL_PURPLE_H_-#define _PURPLE_TCL_PURPLE_H_-struct tcl_signal_handler {- /* These following two are temporary during setup */-struct tcl_cmd_handler {- /* These are temporary during setup */- const char *protocol_id;-extern PurplePlugin *_tcl_plugin;-/* Capitalized this way because these are "types" */-extern PurpleStringref *PurpleTclRefAccount;-extern PurpleStringref *PurpleTclRefConnection;-extern PurpleStringref *PurpleTclRefConversation;-extern PurpleStringref *PurpleTclRefPointer;-extern PurpleStringref *PurpleTclRefPlugin;-extern PurpleStringref *PurpleTclRefPresence;-extern PurpleStringref *PurpleTclRefStatus;-extern PurpleStringref *PurpleTclRefStatusAttr;-extern PurpleStringref *PurpleTclRefStatusType;-extern PurpleStringref *PurpleTclRefXfer;-extern PurpleStringref *PurpleTclRefHandle;-PurplePlugin *tcl_interp_get_plugin(Tcl_Interp *interp);-void tcl_signal_init(void);-void tcl_signal_handler_free(struct tcl_signal_handler *handler);-void tcl_signal_cleanup(Tcl_Interp *interp);-gboolean tcl_signal_connect(struct tcl_signal_handler *handler);-void tcl_signal_disconnect(void *instance, const char *signal, Tcl_Interp *interp);-void tcl_cmd_init(void);-void tcl_cmd_handler_free(struct tcl_cmd_handler *handler);-void tcl_cmd_cleanup(Tcl_Interp *interp);-PurpleCmdId tcl_cmd_register(struct tcl_cmd_handler *handler);-void tcl_cmd_unregister(PurpleCmdId id, Tcl_Interp *interp);-void purple_tcl_ref_init(void);-void *purple_tcl_ref_get(Tcl_Interp *interp, Tcl_Obj *obj, PurpleStringref *type);-Tcl_Obj *purple_tcl_ref_new(PurpleStringref *type, void *value);-Tcl_ObjCmdProc tcl_cmd_account;-Tcl_ObjCmdProc tcl_cmd_signal_connect;-Tcl_ObjCmdProc tcl_cmd_buddy;-Tcl_ObjCmdProc tcl_cmd_cmd;-Tcl_ObjCmdProc tcl_cmd_connection;-Tcl_ObjCmdProc tcl_cmd_conversation;-Tcl_ObjCmdProc tcl_cmd_core;-Tcl_ObjCmdProc tcl_cmd_debug;-Tcl_ObjCmdProc tcl_cmd_notify;-Tcl_ObjCmdProc tcl_cmd_plugins;-Tcl_ObjCmdProc tcl_cmd_prefs;-Tcl_ObjCmdProc tcl_cmd_presence;-Tcl_ObjCmdProc tcl_cmd_savedstatus;-Tcl_ObjCmdProc tcl_cmd_send_im;-Tcl_ObjCmdProc tcl_cmd_signal;-Tcl_ObjCmdProc tcl_cmd_status;-Tcl_ObjCmdProc tcl_cmd_status_attr;-Tcl_ObjCmdProc tcl_cmd_status_type;-Tcl_ObjCmdProc tcl_cmd_unload;-#endif /* _PURPLE_TCL_PURPLE_H_ */--- a/libpurple/plugins/tcl/tcl_ref.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,156 +0,0 @@
- * @file tcl_ref.c Purple Tcl typed references API- * Copyright (C) 2006 Ethan Blanton <eblanton@cs.purdue.edu>- * This program is free software; you can redistribute it and/or modify- * it under the terms of the GNU General Public License as published by- * the Free Software Foundation; either version 2 of the License, or- * (at your option) any later version.- * 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 General Public License for more details.- * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA-/* Instead of all that internal representation mumbo jumbo, use these- * macros to access the internal representation of a PurpleTclRef */-#define OBJ_REF_TYPE(obj) (obj->internalRep.twoPtrValue.ptr1)-#define OBJ_REF_VALUE(obj) (obj->internalRep.twoPtrValue.ptr2)-static Tcl_FreeInternalRepProc purple_tcl_ref_free;-static Tcl_DupInternalRepProc purple_tcl_ref_dup;-static Tcl_UpdateStringProc purple_tcl_ref_update;-static Tcl_SetFromAnyProc purple_tcl_ref_set;-static Tcl_ObjType purple_tcl_ref = {-void purple_tcl_ref_init()- Tcl_RegisterObjType(&purple_tcl_ref);-void *purple_tcl_ref_get(Tcl_Interp *interp, Tcl_Obj *obj, PurpleStringref *type)- if (obj->typePtr != &purple_tcl_ref) {- if (Tcl_ConvertToType(interp, obj, &purple_tcl_ref) != TCL_OK)- if (strcmp(purple_stringref_value(OBJ_REF_TYPE(obj)),- purple_stringref_value(type))) {- Tcl_Obj *error = Tcl_NewStringObj("Bad Purple reference type: expected ", -1);- Tcl_AppendToObj(error, purple_stringref_value(type), -1);- Tcl_AppendToObj(error, " but got ", -1);- Tcl_AppendToObj(error, purple_stringref_value(OBJ_REF_TYPE(obj)), -1);- Tcl_SetObjResult(interp, error);- return OBJ_REF_VALUE(obj);-Tcl_Obj *purple_tcl_ref_new(PurpleStringref *type, void *value)- Tcl_Obj *obj = Tcl_NewObj();- obj->typePtr = &purple_tcl_ref;- OBJ_REF_TYPE(obj) = purple_stringref_ref(type);- OBJ_REF_VALUE(obj) = value;- Tcl_InvalidateStringRep(obj);-static void purple_tcl_ref_free(Tcl_Obj *obj)- purple_stringref_unref(OBJ_REF_TYPE(obj));-static void purple_tcl_ref_dup(Tcl_Obj *obj1, Tcl_Obj *obj2)- OBJ_REF_TYPE(obj2) = purple_stringref_ref(OBJ_REF_TYPE(obj1));- OBJ_REF_VALUE(obj2) = OBJ_REF_VALUE(obj1);-static void purple_tcl_ref_update(Tcl_Obj *obj)- /* This is ugly on memory, but we pretty much have to either- * do this or guesstimate lengths or introduce a varargs- * function in here ... ugh. */- char *bytes = g_strdup_printf("purple-%s:%p",- purple_stringref_value(OBJ_REF_TYPE(obj)),- obj->length = strlen(bytes);- obj->bytes = ckalloc(len);- g_strlcpy(obj->bytes, bytes, len);-/* This isn't as memory-efficient as setting could be, because we- * essentially have to synthesize the Stringref here, where we would- * really rather dup it. Oh, well. */-static int purple_tcl_ref_set(Tcl_Interp *interp, Tcl_Obj *obj)- char *bytes = Tcl_GetStringFromObj(obj, NULL);- static const char prefix[] = "purple-";- static const gsize prefixlen = sizeof(prefix) - 1;- if (strlen(bytes) < prefixlen- || strncmp(bytes, prefix, prefixlen)- || (ptr = strchr(bytes, ':')) == NULL- || (gsize)(ptr - bytes) == prefixlen)- type = purple_stringref_new(bytes + prefixlen);- if (sscanf(ptr, "%p", &value) == 0) {- purple_stringref_unref(type);- /* At this point we know we have a good object; free the old and- * install our internal representation. */- if (obj->typePtr != NULL && obj->typePtr->freeIntRepProc != NULL)- obj->typePtr->freeIntRepProc(obj);- obj->typePtr = &purple_tcl_ref;- OBJ_REF_TYPE(obj) = type;- OBJ_REF_VALUE(obj) = value;- Tcl_SetObjResult(interp,- Tcl_NewStringObj("invalid PurpleTclRef representation", -1));--- a/libpurple/plugins/tcl/tcl_signals.c Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,404 +0,0 @@
- * @file tcl_signals.c Purple Tcl signal API- * Copyright (C) 2003 Ethan Blanton <eblanton@cs.purdue.edu>- * This program is free software; you can redistribute it and/or modify- * it under the terms of the GNU General Public License as published by- * the Free Software Foundation; either version 2 of the License, or- * (at your option) any later version.- * 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 General Public License for more details.- * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA-#include "conversation.h"-static GList *tcl_callbacks;-static void *tcl_signal_callback(va_list args, struct tcl_signal_handler *handler);-static Tcl_Obj *new_cb_namespace (void);-void tcl_signal_handler_free(struct tcl_signal_handler *handler)- Tcl_DecrRefCount(handler->signal);- if (handler->namespace)- Tcl_DecrRefCount(handler->namespace);-void tcl_signal_cleanup(Tcl_Interp *interp)- struct tcl_signal_handler *handler;- for (cur = tcl_callbacks; cur != NULL; cur = g_list_next(cur)) {- if (handler->interp == interp) {- tcl_signal_handler_free(handler);- tcl_callbacks = g_list_remove_all(tcl_callbacks, NULL);-gboolean tcl_signal_connect(struct tcl_signal_handler *handler)- purple_signal_get_types(handler->instance,- Tcl_GetString(handler->signal),- &handler->returntype, &handler->nargs,- tcl_signal_disconnect(handler->interp, Tcl_GetString(handler->signal),- if (!purple_signal_connect_vargs(handler->instance,- Tcl_GetString(handler->signal),- (void *)handler->interp,- PURPLE_CALLBACK(tcl_signal_callback),- handler->namespace = new_cb_namespace ();- Tcl_IncrRefCount(handler->namespace);- proc = g_string_new("");- g_string_append_printf(proc, "namespace eval %s { proc cb { %s } { %s } }",- Tcl_GetString(handler->namespace),- Tcl_GetString(handler->args),- Tcl_GetString(handler->proc));- if (Tcl_Eval(handler->interp, proc->str) != TCL_OK) {- Tcl_DecrRefCount(handler->namespace);- g_string_free(proc, TRUE);- g_string_free(proc, TRUE);- tcl_callbacks = g_list_append(tcl_callbacks, (gpointer)handler);-void tcl_signal_disconnect(void *instance, const char *signal, Tcl_Interp *interp)- struct tcl_signal_handler *handler;- gboolean found = FALSE;- for (cur = tcl_callbacks; cur != NULL; cur = g_list_next(cur)) {- if (handler->interp == interp && handler->instance == instance- && !strcmp(signal, Tcl_GetString(handler->signal))) {- purple_signal_disconnect(instance, signal, handler->interp,- PURPLE_CALLBACK(tcl_signal_callback));- cmd = g_string_sized_new(64);- g_string_printf(cmd, "namespace delete %s",- Tcl_GetString(handler->namespace));- Tcl_EvalEx(interp, cmd->str, -1, TCL_EVAL_GLOBAL);- tcl_signal_handler_free(handler);- g_string_free(cmd, TRUE);- tcl_callbacks = g_list_remove_all(tcl_callbacks, NULL);-static PurpleStringref *ref_purple_type(GType type)- if (type == PURPLE_TYPE_ACCOUNT)- return PurpleTclRefAccount;- else if (type == PURPLE_TYPE_CONNECTION)- return PurpleTclRefConnection;- else if (type == PURPLE_TYPE_CONVERSATION)- return PurpleTclRefConversation;- else if (type == PURPLE_TYPE_PLUGIN)- return PurpleTclRefPlugin;- else if (type == PURPLE_TYPE_STATUS)- return PurpleTclRefStatus;- else if (type == PURPLE_TYPE_XFER)- return PurpleTclRefXfer;-static void *tcl_signal_callback(va_list args, struct tcl_signal_handler *handler)- Tcl_Obj *cmd, *arg, *result;- void **vals; /* Used for inout parameters */- vals = g_new0(void *, handler->nargs);- strs = g_new0(char **, handler->nargs);- name = g_string_sized_new(32);- val = g_string_sized_new(32);- cmd = Tcl_NewListObj(0, NULL);- arg = Tcl_DuplicateObj(handler->namespace);- Tcl_AppendStringsToObj(arg, "::cb", NULL);- Tcl_ListObjAppendElement(handler->interp, cmd, arg);- for (i = 0; i < handler->nargs; i++) {- if (purple_value_is_outgoing(handler->argtypes[i]))- g_string_printf(name, "%s::arg%d",- Tcl_GetString(handler->namespace), i);- switch(handler->argtypes[i]) {- /* These are all "pointer" types to us */- if (purple_value_is_outgoing(handler->argtypes[i]))- purple_debug_error("tcl", "pointer types do not currently support outgoing arguments\n");- arg = purple_tcl_ref_new(PurpleTclRefPointer, va_arg(args, void *));- if (purple_value_is_outgoing(handler->argtypes[i])) {- vals[i] = va_arg(args, gboolean *);- Tcl_LinkVar(handler->interp, name->str,- (char *)&vals[i], TCL_LINK_BOOLEAN);- arg = Tcl_NewStringObj(name->str, -1);- arg = Tcl_NewBooleanObj(va_arg(args, gboolean));- /* I should really cast these individually to- * preserve as much information as possible ...- if (purple_value_is_outgoing(handler->argtypes[i])) {- vals[i] = va_arg(args, int *);- Tcl_LinkVar(handler->interp, name->str,- vals[i], TCL_LINK_INT);- arg = Tcl_NewStringObj(name->str, -1);- arg = Tcl_NewIntObj(va_arg(args, int));- /* Tcl < 8.4 doesn't have wide ints, so we have ugly- if (purple_value_is_outgoing(handler->argtypes[i])) {- vals[i] = (void *)va_arg(args, gint64 *);- #if (TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 4)- Tcl_LinkVar(handler->interp, name->str,- vals[i], TCL_LINK_WIDE_INT);- /* This is going to cause weirdness at best,- * but what do you want ... we're losing- Tcl_LinkVar(handler->interp, name->str,- vals[i], TCL_LINK_INT);- #endif /* Tcl >= 8.4 */- arg = Tcl_NewStringObj(name->str, -1);- #if (TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 4)- arg = Tcl_NewWideIntObj(va_arg(args, gint64));- arg = Tcl_NewIntObj((int)va_arg(args, int));- #endif /* Tcl >= 8.4 */- if (purple_value_is_outgoing(handler->argtypes[i])) {- strs[i] = va_arg(args, char **);- if (strs[i] == NULL || *strs[i] == NULL) {- *(char *)vals[i] = '\0';- size_t len = strlen(*strs[i]) + 1;- vals[i] = ckalloc(len);- g_strlcpy(vals[i], *strs[i], len);- Tcl_LinkVar(handler->interp, name->str,- (char *)&vals[i], TCL_LINK_STRING);- arg = Tcl_NewStringObj(name->str, -1);- arg = Tcl_NewStringObj(va_arg(args, char *), -1);- if (handler->argtypes[i] == PURPLE_TYPE_ACCOUNT ||- handler->argtypes[i] == PURPLE_TYPE_CONNECTION ||- handler->argtypes[i] == PURPLE_TYPE_CONVERSATION ||- handler->argtypes[i] == PURPLE_TYPE_STATUS ||- handler->argtypes[i] == PURPLE_TYPE_PLUGIN ||- handler->argtypes[i] == PURPLE_TYPE_XFER )- if (purple_value_is_outgoing(handler->argtypes[i]))- purple_debug_error("tcl", "pointer subtypes do not currently support outgoing arguments\n");- arg = purple_tcl_ref_new(ref_purple_type(handler->argtypes[i]), va_arg(args, void *));- if (handler->argtypes[i] == PURPLE_TYPE_CONTACT ||- handler->argtypes[i] == PURPLE_TYPE_BUDDY ||- handler->argtypes[i] == PURPLE_TYPE_GROUP ||- handler->argtypes[i] == PURPLE_TYPE_CHAT )- /* We're going to switch again for code-deduping */- if (purple_value_is_outgoing(handler->argtypes[i]))- node = *va_arg(args, PurpleBlistNode **);- node = va_arg(args, PurpleBlistNode *);- if (PURPLE_IS_GROUP(node)) {- arg = Tcl_NewListObj(0, NULL);- Tcl_ListObjAppendElement(handler->interp, arg,- Tcl_NewStringObj("group", -1));- Tcl_ListObjAppendElement(handler->interp, arg,- Tcl_NewStringObj(purple_group_get_name(PURPLE_GROUP(node)), -1));- } else if (PURPLE_IS_CONTACT(node)) {- /* g_string_printf(val, "contact {%s}", Contact Name? ); */- arg = Tcl_NewStringObj("contact", -1);- } else if (PURPLE_IS_BUDDY(node)) {- arg = Tcl_NewListObj(0, NULL);- Tcl_ListObjAppendElement(handler->interp, arg,- Tcl_NewStringObj("buddy", -1));- Tcl_ListObjAppendElement(handler->interp, arg,- Tcl_NewStringObj(purple_buddy_get_name(PURPLE_BUDDY(node)), -1));- Tcl_ListObjAppendElement(handler->interp, arg,- purple_tcl_ref_new(PurpleTclRefAccount,- purple_buddy_get_account(PURPLE_BUDDY(node))));- } else if (PURPLE_IS_CHAT(node)) {- arg = Tcl_NewListObj(0, NULL);- Tcl_ListObjAppendElement(handler->interp, arg,- Tcl_NewStringObj("chat", -1));- Tcl_ListObjAppendElement(handler->interp, arg,- Tcl_NewStringObj(purple_chat_get_name(PURPLE_CHAT(node)), -1));- Tcl_ListObjAppendElement(handler->interp, arg,- purple_tcl_ref_new(PurpleTclRefAccount,- purple_chat_get_account(PURPLE_CHAT(node))));- else if (G_TYPE_IS_ENUM(handler->argtypes[i]))- arg = Tcl_NewIntObj(va_arg(args, int));- /* What? I guess just pass the word ... */- /* treat this as a pointer, but complain first */- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "unknown type %s\n",- g_type_name(handler->argtypes[i]));- Tcl_ListObjAppendElement(handler->interp, cmd, arg);- /* Call the friggin' procedure already */- if (Tcl_EvalObjEx(handler->interp, cmd, TCL_EVAL_GLOBAL) != TCL_OK) {- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "error evaluating callback: %s\n",- Tcl_GetString(Tcl_GetObjResult(handler->interp)));- result = Tcl_GetObjResult(handler->interp);- /* handle return values -- strings and words only */- if (handler->returntype) {- if (handler->returntype == G_TYPE_STRING) {- retval = (void *)g_strdup(Tcl_GetString(result));- if (Tcl_GetIntFromObj(handler->interp, result, (int *)&retval) != TCL_OK) {- purple_debug(PURPLE_DEBUG_ERROR, "tcl", "Error retrieving procedure result: %s\n",- Tcl_GetString(Tcl_GetObjResult(handler->interp)));- /* And finally clean up */- for (i = 0; i < handler->nargs; i++) {- g_string_printf(name, "%s::arg%d",- Tcl_GetString(handler->namespace), i);- if (purple_value_is_outgoing(handler->argtypes[i])- && purple_value_get_type(handler->argtypes[i]) != G_TYPE_SUBTYPE)- Tcl_UnlinkVar(handler->interp, name->str);- /* We basically only have to deal with strings on the- switch (handler->argtypes[i]) {- if (purple_value_is_outgoing(handler->argtypes[i])) {- if (vals[i] != NULL && *(char **)vals[i] != NULL) {- *strs[i] = g_strdup(vals[i]);- g_string_free(name, TRUE);- g_string_free(val, TRUE);-static Tcl_Obj *new_cb_namespace ()- g_snprintf (name, sizeof(name), "::purple::_callback::cb_%d", cbnum++);- return Tcl_NewStringObj (name, -1);--- a/libpurple/plugins/test.pl Tue Mar 08 21:09:10 2016 -0600
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,42 +0,0 @@
- name => 'Test Perl Plugin',- summary => 'Provides as a test base for the perl plugin.',- description => 'Provides as a test base for the perl plugin.',- author => 'Etan Reisner <deryni\@pidgin.im>',- url => 'https://pidgin.im',- my ($account, $old, $new, $data) = @_;- Purple::Debug::info("perl test plugin", "In account_status_cb\n");- Purple::Debug::info("perl test plugin", "Account " .- $account->get_username() . " changed status.\n");- Purple::Debug::info("perl test plugin", $data . "\n");- Purple::Debug::info("perl test plugin", "plugin_load\n");- Purple::Debug::info("perl test plugin", "Listing accounts.\n");- foreach $account (Purple::Accounts::get_all()) {- Purple::Debug::info("perl test plugin", $account->get_username() . "\n");- Purple::Signal::connect(Purple::Accounts::get_handle(),- "account-status-changed", $plugin,- \&account_status_cb, "test");
