Mercurial > pidgin.yaz
comparison plugins/perl/perl-common.c @ 11170:0e9e2b923d09
[gaim-migrate @ 13271]
Fixed some bugs and made some additions to the XSUBS. Added some of my test scripts which are incomplete, but mostly functional. GaimPluginPrefs and GaimGtkPluginPrefs--using evals to do the Gtk widgets with gtk2-perl--work. Plugin actions can now be added, but only one for now.
committer: Tailor Script <tailor@pidgin.im>
author | John H. Kelm <johnkelm@gmail.com> |
---|---|
date | Fri, 29 Jul 2005 13:38:00 +0000 |
parents | 92cbf9713795 |
children | b284c703d398 |
comparison
equal
deleted
inserted
replaced
11169:778d5464a9b8 | 11170:0e9e2b923d09 |
---|---|
4 #include "perl-common.h" | 4 #include "perl-common.h" |
5 | 5 |
6 extern PerlInterpreter *my_perl; | 6 extern PerlInterpreter *my_perl; |
7 | 7 |
8 static GHashTable *object_stashes = NULL; | 8 static GHashTable *object_stashes = NULL; |
9 | |
10 void gaim_perl_normalize_script_name(char *name) | |
11 { | |
12 char *c; | |
13 | |
14 c = strrchr(name, '.'); | |
15 | |
16 if (c != NULL) | |
17 *c = '\0'; | |
18 | |
19 for (c = name; *c != '\0'; c++) | |
20 { | |
21 if (*c != '_' && !g_ascii_isalnum(*c)) | |
22 *c = '_'; | |
23 } | |
24 } | |
25 | |
9 | 26 |
10 static int | 27 static int |
11 magic_free_object(pTHX_ SV *sv, MAGIC *mg) | 28 magic_free_object(pTHX_ SV *sv, MAGIC *mg) |
12 { | 29 { |
13 sv_setiv(sv, 0); | 30 sv_setiv(sv, 0); |