Mercurial > pidgin.yaz
changeset 6539:1690791f0c70
[gaim-migrate @ 7057]
Improved the debug commands for perl scripts.
committer: Tailor Script <tailor@pidgin.im>
| author | Christian Hammond <chipx86@chipx86.com> |
|---|---|
| date | Thu, 21 Aug 2003 01:50:02 +0000 |
| parents | 4bc050b1af34 |
| children | eae61831e596 |
| files | plugins/perl/common/Gaim.xs |
| diffstat | 1 files changed, 48 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/plugins/perl/common/Gaim.xs Thu Aug 21 01:46:00 2003 +0000 +++ b/plugins/perl/common/Gaim.xs Thu Aug 21 01:50:02 2003 +0000 @@ -14,13 +14,60 @@ gaim_perl_timeout_add(plugin, seconds, func, arg); void -debug(category, string) +debug(level, category, string) + const char *level + const char *category + const char *string +CODE: + if (!strcmp(level, "misc")) + gaim_debug(GAIM_DEBUG_MISC, category, string); + else if (!strcmp(level, "info")) + gaim_debug(GAIM_DEBUG_INFO, category, string); + else if (!strcmp(level, "warning")) + gaim_debug(GAIM_DEBUG_WARNING, category, string); + else if (!strcmp(level, "error")) + gaim_debug(GAIM_DEBUG_ERROR, category, string); + else if (!strcmp(level, "fatal")) + gaim_debug(GAIM_DEBUG_FATAL, category, string); + else + croak("Unknown debug level type '%s'", level); + +void +debug_misc(category, string) + const char *category + const char *string +CODE: + gaim_debug(GAIM_DEBUG_MISC, category, string); + +void +debug_info(category, string) const char *category const char *string CODE: gaim_debug(GAIM_DEBUG_INFO, category, string); void +debug_warning(category, string) + const char *category + const char *string +CODE: + gaim_debug(GAIM_DEBUG_WARNING, category, string); + +void +debug_error(category, string) + const char *category + const char *string +CODE: + gaim_debug(GAIM_DEBUG_ERROR, category, string); + +void +debug_fatal(category, string) + const char *category + const char *string +CODE: + gaim_debug(GAIM_DEBUG_FATAL, category, string); + +void deinit() PREINIT: GList *l;