Mercurial > pidgin
diff libpurple/plugins/perl/common/Proxy.xs @ 16739:39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
exposed to perl.
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Tue, 01 May 2007 02:34:22 +0000 |
parents | 2f8274ce570a |
children | 8e54f40a60f3 |
line wrap: on
line diff
--- a/libpurple/plugins/perl/common/Proxy.xs Mon Apr 30 05:06:29 2007 +0000 +++ b/libpurple/plugins/perl/common/Proxy.xs Tue May 01 02:34:22 2007 +0000 @@ -3,6 +3,24 @@ MODULE = Purple::Proxy PACKAGE = Purple::Proxy PREFIX = purple_proxy_ PROTOTYPES: ENABLE +BOOT: +{ + HV *stash = gv_stashpv("Purple::ProxyType::", 1); + + static const constiv *civ, const_iv[] = { +#define const_iv(name) {#name, (IV)PURPLE_PROXY_##name} + const_iv(USE_GLOBAL), + const_iv(NONE), + const_iv(HTTP), + const_iv(SOCKS4), + const_iv(SOCKS5), + const_iv(USE_ENVVAR), + }; + + for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; ) + newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv)); +} + Purple::ProxyInfo purple_global_proxy_get_info()