Audio-XMMSClient
view release on metacpan or search on metacpan
new_stackinfo||5.005000|new_version||5.009000|next_symbol|||nextargv|||nextchar|||ninstr|||no_bareword_allowed|||no_fh_allowed|||no_op|||not_a_number|||nothreadhook||5.008000|nuke_stacks|||num_overflow|||noopsAV|||oopsCV|||oopsHV|||op_clear|||op_const_sv|||op_dump||5.006000|op_free|||op_null||5.007002|
save_op|||save_padsv||5.007001|save_pptr|||save_re_context||5.006000|save_scalar_at|||save_scalar|||save_set_svflags||5.009000|save_shared_pvref||5.007003|save_sptr|||save_svref|||save_threadsv||5.005000|save_vptr||5.006000|savepvn|||savepv|||savesharedpv||5.007003|savestack_grow_cnt||5.008001|savestack_grow|||savesvpv||5.009002|sawparens|||scalar_mod_type|||scalarboolean|||
PL_curcop->cop_stash = old_cop_stash;PL_curstash = old_curstash;PL_curcop->cop_line = oldline;}#endif#endif/** Boilerplate macrosforinitializing and accessing interpreter-local* data from C. All statics in extensions should be reworked touse* this,ifyou want to make the extension thread-safe. See ext/re/re.xs** Code that uses these macros is responsibleforthe following:* 1.#define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"* 2. Declare a typedef named my_cxt_t that is a structure that contains* all the data that needs to be interpreter-local.* 3. Use the START_MY_CXT macroafterthe declaration of my_cxt_t.* 4. Use the MY_CXT_INIT macro such that it is called exactly once* (typically put in the BOOT: section).* 5. Use the members of the my_cxt_t structure everywhere as
* 6. Use the dMY_CXT macro (a declaration) in all the functions that* access MY_CXT.*/#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || \defined(PERL_CAPI) ||defined(PERL_IMPLICIT_CONTEXT)#ifndef START_MY_CXT/* This must appear in all extensions that define a my_cxt_t structure,* rightafterthe definition (i.e. at file scope). The non-threads* case below uses it to declare the data as static. */#define START_MY_CXT#if (PERL_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION < 68 ))/* Fetches the SV that keeps the per-interpreter data. */#define dMY_CXT_SV \SV*my_cxt_sv= get_sv(MY_CXT_KEY, FALSE)#else /* >= perl5.004_68 */#define dMY_CXT_SV \SV*my_cxt_sv=*hv_fetch(PL_modglobal, MY_CXT_KEY, \
if(*sp+ len <=send&& memEQ(*sp, radix, len)) {*sp+= len;returnTRUE;}}#else/* older perls don't have PL_numeric_radix_sv so the radix* must manually be requested from locale.h*/#include <locale.h>dTHR; /* neededforolder threaded perls */struct lconv*lc= localeconv();char*radix=lc->decimal_point;if(radix && IN_LOCALE) {STRLEN len = strlen(radix);if(*sp+ len <=send&& memEQ(*sp, radix, len)) {*sp+= len;returnTRUE;}}#endif /* PERL_VERSION */
( run in 0.564 second using v1.01-cache-2.11-cpan-d6f9594c0a5 )