home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _fd6b043e259f719c4be8549adcbab0d6 < prev    next >
Encoding:
Text File  |  2004-06-01  |  2.5 KB  |  131 lines
  1. #ifdef CAN_PROTOTYPE
  2. #define XSdec(x) XS(x)
  3. #else
  4. #define XSdec(x) void x()
  5. #endif
  6.  
  7. #define TKXSRETURN(off)                    \
  8.     STMT_START {                    \
  9.     IV ptkAdj = (off);                \
  10.     XSRETURN(ptkAdj);                \
  11.     } STMT_END
  12.  
  13. #ifndef PATCHLEVEL
  14. #include <patchlevel.h>
  15. #endif
  16.  
  17. #if defined(PATCHLEVEL) && (PATCHLEVEL < 5)
  18. #define PL_sv_undef    sv_undef
  19. #define PL_tainting    tainting
  20. #define PL_tainted    tainted
  21. #define PL_stack_base    stack_base
  22. #define PL_stack_sp    stack_sp
  23. #define PL_curcop    curcop
  24. #endif
  25.  
  26. #ifndef CopSTASH
  27. #define CopSTASH(c)        c->cop_stash
  28. #define CopSTASH_set(c,h)    (CopSTASH(c) = h)
  29. #endif
  30.  
  31. #ifndef dTHX
  32. #define dTHR int maybeTHR
  33. #endif
  34.  
  35. #ifndef dTHXs
  36. #ifdef PERL_IMPLICIT_SYS
  37. #define dTHXs dTHX
  38. #else
  39. #define dTHR int maybeTHR
  40. #endif
  41. #endif
  42.  
  43. #ifndef ERRSV
  44. #define ERRSV GvSV(errgv)
  45. #endif
  46.  
  47. #ifndef aTHX_
  48. #define aTHX_
  49. #endif
  50.  
  51. #ifndef pTHX_
  52. #define pTHX_
  53. #endif
  54.  
  55. #ifdef dirty
  56. #undef dirty
  57. #endif
  58. #ifdef bufptr
  59. #undef bufptr
  60. #endif
  61. #ifdef colors
  62. #undef colors
  63. #endif
  64. #ifdef JOIN
  65. #undef JOIN
  66. #endif
  67.  
  68. #ifdef na
  69. #if PATCHLEVEL >= 5
  70. #undef na
  71. #endif
  72. #endif
  73.  
  74.  
  75. #define Tcl_Interp     HV
  76. #define LangCallback   SV
  77. #define Var            SV *
  78. #define LangResultSave AV
  79. struct Lang_CmdInfo;
  80. #define Tcl_Command    struct Lang_CmdInfo *
  81. struct WrappedRegExp;
  82. #define Tcl_RegExp     struct WrappedRegExp *
  83. #define Tcl_Obj        SV
  84. #define Tcl_DString    SV *
  85.  
  86. #ifndef PerlIO
  87. #define PerlIO FILE
  88. #define PerlIO_stderr()            stderr
  89. #define PerlIO_printf            fprintf
  90. #define PerlIO_flush(f)            Fflush(f)
  91. #define PerlIO_vprintf(f,fmt,a)        vfprintf(f,fmt,a)
  92. #define PerlIO_putc(f,c)        fputc(c,f)
  93. #define PerlIO_fileno(f)        fileno(f)
  94.  
  95. /* Now our interface to Configure's FILE_xxx macros */
  96.  
  97. #ifdef USE_STDIO_PTR
  98. #define PerlIO_has_cntptr(f)        1
  99. #define PerlIO_get_ptr(f)        FILE_ptr(f)
  100. #define PerlIO_get_cnt(f)        FILE_cnt(f)
  101.  
  102. #ifdef FILE_CNT_LVALUE
  103. #define PerlIO_canset_cnt(f)        1
  104. #ifdef FILE_PTR_LVALUE
  105. #define PerlIO_fast_gets(f)        1
  106. #endif
  107. #define PerlIO_set_cnt(f,c)        (FILE_cnt(f) = (c))
  108. #else
  109. #define PerlIO_canset_cnt(f)        0
  110. #define PerlIO_set_cnt(f,c)        abort()
  111. #endif
  112.  
  113. #ifdef FILE_PTR_LVALUE
  114. #define PerlIO_set_ptrcnt(f,p,c)    (FILE_ptr(f) = (p), PerlIO_set_cnt(f,c))
  115. #else
  116. #define PerlIO_set_ptrcnt(f,p,c)    abort()
  117. #endif
  118.  
  119. #else  /* USE_STDIO_PTR */
  120.  
  121. #define PerlIO_has_cntptr(f)        0
  122. #define PerlIO_get_cnt(f)        (abort(),0)
  123. #define PerlIO_get_ptr(f)        (abort(),0)
  124. #define PerlIO_set_cnt(f,c)        abort()
  125. #define PerlIO_set_ptrcnt(f,p,c)    abort()
  126.  
  127. #endif /* USE_STDIO_PTR */
  128.  
  129. #endif
  130.  
  131.