PageRenderTime 23ms CodeModel.GetById 0ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Lib/perl5/perlinit.swg

#
Unknown | 81 lines | 71 code | 10 blank | 0 comment | 0 complexity | 40feb969f81f2ecf1f2c7906d6926bf6 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. 

  2. /* Export the SWIG initialization function */
    3. 

  3. %header %{
    4. 

  4. #ifdef __cplusplus
    5. 

  5. extern "C"
    6. 

  6. #endif
    7. 

  7. #ifndef PERL_OBJECT
    8. 

  8. #ifndef MULTIPLICITY
    9. 

  9. SWIGEXPORT void SWIG_init (CV* cv);
    10. 

  10. #else
    11. 

  11. SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
    12. 

  12. #endif
    13. 

  13. #else
    14. 

  14. SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
    15. 

  15. #endif
    16. 

  16. %}
    17. 

  17. 

  18. /* Module initialization function */
    19. 

  19. 

  20. %insert(init) "swiginit.swg"
    21. 

  21. 

  22. %init %{
    23. 

  23. 

  24. #ifdef __cplusplus
    25. 

  25. extern "C"
    26. 

  26. #endif
    27. 

  27. 

  28. XS(SWIG_init) {
    29. 

  29.     dXSARGS;
    30. 

  30.     int i;
    31. 

  31. 

  32.     SWIG_InitializeModule(0);
    33. 

  33. 

  34.     /* Install commands */
    35. 

  35.     for (i = 0; swig_commands[i].name; i++) {
    36. 

  36.       // Casts only needed for Perl < 5.10.
    37. 

  37. #ifdef __cplusplus
    38. 

  38.       newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
    39. 

  39. #else
    40. 

  40.       newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
    41. 

  41. #endif
    42. 

  42.     }
    43. 

  43. 

  44.     /* Install variables */
    45. 

  45.     for (i = 0; swig_variables[i].name; i++) {
    46. 

  46.       SV *sv;
    47. 

  47.       sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
    48. 

  48.       if (swig_variables[i].type) {
    49. 

  49. 	SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
    50. 

  50.       } else {
    51. 

  51. 	sv_setiv(sv,(IV) 0);
    52. 

  52.       }
    53. 

  53.       swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get); 
    54. 

  54.     }
    55. 

  55. 

  56.     /* Install constant */
    57. 

  57.     for (i = 0; swig_constants[i].type; i++) {
    58. 

  58.       SV *sv;
    59. 

  59.       sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
    60. 

  60.       switch(swig_constants[i].type) {
    61. 

  61.       case SWIG_INT:
    62. 

  62. 	sv_setiv(sv, (IV) swig_constants[i].lvalue);
    63. 

  63. 	break;
    64. 

  64.       case SWIG_FLOAT:
    65. 

  65. 	sv_setnv(sv, (double) swig_constants[i].dvalue);
    66. 

  66. 	break;
    67. 

  67.       case SWIG_STRING:
    68. 

  68. 	sv_setpv(sv, (const char *) swig_constants[i].pvalue);
    69. 

  69. 	break;
    70. 

  70.       case SWIG_POINTER:
    71. 

  71. 	SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
    72. 

  72. 	break;
    73. 

  73.       case SWIG_BINARY:
    74. 

  74. 	SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
    75. 

  75. 	break;
    76. 

  76.       default:
    77. 

  77. 	break;
    78. 

  78.       }
    79. 

  79.       SvREADONLY_on(sv);
    80. 

  80.     }
    81. 

  81. %}
    82. 

  82.