PageRenderTime 42ms CodeModel.GetById 21ms RepoModel.GetById 0ms app.codeStats 0ms

/libtunepimp-0.5.3/perl/tunepimp-perl/const-xs.inc

#
Unknown | 87 lines | 87 code | 0 blank | 0 comment | 0 complexity | f81f6d2ed1d776b807329e81e069f2ff MD5 | raw file
Possible License(s): LGPL-2.1, LGPL-3.0, GPL-2.0, LGPL-2.0 
    

  1. void
    2. 

  2. constant(sv)
    3. 

  3.     PREINIT:
    4. 

  4. #ifdef dXSTARG
    5. 

  5. 	dXSTARG; /* Faster if we have it.  */
    6. 

  6. #else
    7. 

  7. 	dTARGET;
    8. 

  8. #endif
    9. 

  9. 	STRLEN		len;
    10. 

  10.         int		type;
    11. 

  11. 	/* IV		iv;	Uncomment this if you need to return IVs */
    12. 

  12. 	/* NV		nv;	Uncomment this if you need to return NVs */
    13. 

  13. 	/* const char	*pv;	Uncomment this if you need to return PVs */
    14. 

  14.     INPUT:
    15. 

  15. 	SV *		sv;
    16. 

  16.         const char *	s = SvPV(sv, len);
    17. 

  17.     PPCODE:
    18. 

  18. 	type = constant(aTHX_ s, len);
    19. 

  19.       /* Return 1 or 2 items. First is error message, or undef if no error.
    20. 

  20.            Second, if present, is found value */
    21. 

  21.         switch (type) {
    22. 

  22.         case PERL_constant_NOTFOUND:
    23. 

  23.           sv = sv_2mortal(newSVpvf("%s is not a valid MusicBrainz::Tunepimp::tunepimp macro", s));
    24. 

  24.           PUSHs(sv);
    25. 

  25.           break;
    26. 

  26.         case PERL_constant_NOTDEF:
    27. 

  27.           sv = sv_2mortal(newSVpvf(
    28. 

  28. 	    "Your vendor has not defined MusicBrainz::Tunepimp::tunepimp macro %s, used", s));
    29. 

  29.           PUSHs(sv);
    30. 

  30.           break;
    31. 

  31. 	/* Uncomment this if you need to return IVs
    32. 

  32.         case PERL_constant_ISIV:
    33. 

  33.           EXTEND(SP, 1);
    34. 

  34.           PUSHs(&PL_sv_undef);
    35. 

  35.           PUSHi(iv);
    36. 

  36.           break; */
    37. 

  37. 	/* Uncomment this if you need to return NOs
    38. 

  38.         case PERL_constant_ISNO:
    39. 

  39.           EXTEND(SP, 1);
    40. 

  40.           PUSHs(&PL_sv_undef);
    41. 

  41.           PUSHs(&PL_sv_no);
    42. 

  42.           break; */
    43. 

  43. 	/* Uncomment this if you need to return NVs
    44. 

  44.         case PERL_constant_ISNV:
    45. 

  45.           EXTEND(SP, 1);
    46. 

  46.           PUSHs(&PL_sv_undef);
    47. 

  47.           PUSHn(nv);
    48. 

  48.           break; */
    49. 

  49. 	/* Uncomment this if you need to return PVs
    50. 

  50.         case PERL_constant_ISPV:
    51. 

  51.           EXTEND(SP, 1);
    52. 

  52.           PUSHs(&PL_sv_undef);
    53. 

  53.           PUSHp(pv, strlen(pv));
    54. 

  54.           break; */
    55. 

  55. 	/* Uncomment this if you need to return PVNs
    56. 

  56.         case PERL_constant_ISPVN:
    57. 

  57.           EXTEND(SP, 1);
    58. 

  58.           PUSHs(&PL_sv_undef);
    59. 

  59.           PUSHp(pv, iv);
    60. 

  60.           break; */
    61. 

  61. 	/* Uncomment this if you need to return SVs
    62. 

  62.         case PERL_constant_ISSV:
    63. 

  63.           EXTEND(SP, 1);
    64. 

  64.           PUSHs(&PL_sv_undef);
    65. 

  65.           PUSHs(sv);
    66. 

  66.           break; */
    67. 

  67. 	/* Uncomment this if you need to return UNDEFs
    68. 

  68.         case PERL_constant_ISUNDEF:
    69. 

  69.           break; */
    70. 

  70. 	/* Uncomment this if you need to return UVs
    71. 

  71.         case PERL_constant_ISUV:
    72. 

  72.           EXTEND(SP, 1);
    73. 

  73.           PUSHs(&PL_sv_undef);
    74. 

  74.           PUSHu((UV)iv);
    75. 

  75.           break; */
    76. 

  76. 	/* Uncomment this if you need to return YESs
    77. 

  77.         case PERL_constant_ISYES:
    78. 

  78.           EXTEND(SP, 1);
    79. 

  79.           PUSHs(&PL_sv_undef);
    80. 

  80.           PUSHs(&PL_sv_yes);
    81. 

  81.           break; */
    82. 

  82.         default:
    83. 

  83.           sv = sv_2mortal(newSVpvf(
    84. 

  84. 	    "Unexpected return type %d while processing MusicBrainz::Tunepimp::tunepimp macro %s, used",
    85. 

  85.                type, s));
    86. 

  86.           PUSHs(sv);
    87. 

  87.         }
    88. 

  88.