/soc/2013/ankitkv/gobjectification: 56e8d15f249f: Removed Accoun...

Ankit Vani a at nevitus.org
Sat Jun 22 13:11:47 EDT 2013


Changeset: 56e8d15f249f4162e00aadeb8faeca56b76fa2c9
Author:	 Ankit Vani <a at nevitus.org>
Date:	 2013-06-22 22:36 +0530
Branch:	 soc.2013.gobjectification
URL: https://hg.pidgin.im/soc/2013/ankitkv/gobjectification/rev/56e8d15f249f

Description:

Removed Accounts.xs and moved back the accounts API to Account module

diffstat:

 libpurple/plugins/perl/common/Account.xs     |  51 ++++++++++++++++++++++++++
 libpurple/plugins/perl/common/Accounts.xs    |  53 ----------------------------
 libpurple/plugins/perl/common/MANIFEST       |   1 -
 libpurple/plugins/perl/common/Makefile.mingw |   1 -
 4 files changed, 51 insertions(+), 55 deletions(-)

diffs (139 lines):

diff --git a/libpurple/plugins/perl/common/Account.xs b/libpurple/plugins/perl/common/Account.xs
--- a/libpurple/plugins/perl/common/Account.xs
+++ b/libpurple/plugins/perl/common/Account.xs
@@ -1,6 +1,57 @@
 #include "module.h"
 #include "../perl-handlers.h"
 
+MODULE = Purple::Account  PACKAGE = Purple::Accounts  PREFIX = purple_accounts_
+PROTOTYPES: ENABLE
+
+void
+purple_accounts_add(account)
+    Purple::Account account
+
+void
+purple_accounts_remove(account)
+    Purple::Account account
+
+void
+purple_accounts_delete(account)
+    Purple::Account account
+
+void
+purple_accounts_reorder(account, new_index)
+    Purple::Account account
+    size_t new_index
+
+void
+purple_accounts_get_all()
+PREINIT:
+    GList *l;
+PPCODE:
+    for (l = purple_accounts_get_all(); l != NULL; l = l->next) {
+        XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Account")));
+    }
+
+void
+purple_accounts_get_all_active()
+PREINIT:
+    GList *list, *iter;
+PPCODE:
+    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")));
+    }
+    g_list_free(list);
+
+void
+purple_accounts_restore_current_statuses()
+
+Purple::Account
+purple_accounts_find(name, protocol)
+    const char * name
+    const char * protocol
+
+Purple::Handle
+purple_accounts_get_handle()
+
 MODULE = Purple::Account  PACKAGE = Purple::Account  PREFIX = purple_account_
 PROTOTYPES: ENABLE
 
diff --git a/libpurple/plugins/perl/common/Accounts.xs b/libpurple/plugins/perl/common/Accounts.xs
deleted file mode 100644
--- a/libpurple/plugins/perl/common/Accounts.xs
+++ /dev/null
@@ -1,53 +0,0 @@
-#include "module.h"
-#include "../perl-handlers.h"
-
-MODULE = Purple::Accounts  PACKAGE = Purple::Accounts  PREFIX = purple_accounts_
-PROTOTYPES: ENABLE
-
-void
-purple_accounts_add(account)
-    Purple::Account account
-
-void
-purple_accounts_remove(account)
-    Purple::Account account
-
-void
-purple_accounts_delete(account)
-    Purple::Account account
-
-void
-purple_accounts_reorder(account, new_index)
-    Purple::Account account
-    size_t new_index
-
-void
-purple_accounts_get_all()
-PREINIT:
-    GList *l;
-PPCODE:
-    for (l = purple_accounts_get_all(); l != NULL; l = l->next) {
-        XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Account")));
-    }
-
-void
-purple_accounts_get_all_active()
-PREINIT:
-    GList *list, *iter;
-PPCODE:
-    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")));
-    }
-    g_list_free(list);
-
-void
-purple_accounts_restore_current_statuses()
-
-Purple::Account
-purple_accounts_find(name, protocol)
-    const char * name
-    const char * protocol
-
-Purple::Handle
-purple_accounts_get_handle()
diff --git a/libpurple/plugins/perl/common/MANIFEST b/libpurple/plugins/perl/common/MANIFEST
--- a/libpurple/plugins/perl/common/MANIFEST
+++ b/libpurple/plugins/perl/common/MANIFEST
@@ -1,5 +1,4 @@
 Account.xs
-Accounts.xs
 AccountOpts.xs
 BuddyIcon.xs
 BuddyList.xs
diff --git a/libpurple/plugins/perl/common/Makefile.mingw b/libpurple/plugins/perl/common/Makefile.mingw
--- a/libpurple/plugins/perl/common/Makefile.mingw
+++ b/libpurple/plugins/perl/common/Makefile.mingw
@@ -37,7 +37,6 @@ LIB_PATHS += \
 ##  SOURCES, OBJECTS
 ##
 XS_FILES =		Account.xs \
-				Accounts.xs \
 				AccountOpts.xs \
 				BuddyIcon.xs \
 				BuddyList.xs \



More information about the Commits mailing list