/tags/rel-1-3-26/SWIG/Lib/perl5/perlinit.swg
Unknown | 76 lines | 66 code | 10 blank | 0 comment | 0 complexity | 0a7610f1dfd9b97cbc491a52ba12df0b MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- /* Export the SWIG initialization function */
- %header %{
- #ifdef __cplusplus
- extern "C"
- #endif
- #ifndef PERL_OBJECT
- #ifndef MULTIPLICITY
- SWIGEXPORT void SWIG_init (CV* cv);
- #else
- SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
- #endif
- #else
- SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
- #endif
- %}
- /* Module initialization function */
- %insert(init) "swiginit.swg"
- %init %{
- #ifdef __cplusplus
- extern "C"
- #endif
- XS(SWIG_init) {
- dXSARGS;
- int i;
- SWIG_InitializeModule(0);
- /* Install commands */
- for (i = 0; swig_commands[i].name; i++) {
- newXS((char*) swig_commands[i].name,swig_commands[i].wrapper, (char*)__FILE__);
- }
- /* Install variables */
- for (i = 0; swig_variables[i].name; i++) {
- SV *sv;
- sv = perl_get_sv((char*) swig_variables[i].name, TRUE | 0x2);
- if (swig_variables[i].type) {
- SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
- } else {
- sv_setiv(sv,(IV) 0);
- }
- swig_create_magic(sv, (char *) swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
- }
- /* Install constant */
- for (i = 0; swig_constants[i].type; i++) {
- SV *sv;
- sv = perl_get_sv((char*)swig_constants[i].name, TRUE | 0x2);
- switch(swig_constants[i].type) {
- case SWIG_INT:
- sv_setiv(sv, (IV) swig_constants[i].lvalue);
- break;
- case SWIG_FLOAT:
- sv_setnv(sv, (double) swig_constants[i].dvalue);
- break;
- case SWIG_STRING:
- sv_setpv(sv, (char *) swig_constants[i].pvalue);
- break;
- case SWIG_POINTER:
- SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
- break;
- case SWIG_BINARY:
- SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
- break;
- default:
- break;
- }
- SvREADONLY_on(sv);
- }
- %}