home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / apache / files / ActivePerl-5.8.3.809-MSWin32-x86.msi / _fd6b043e259f719c4be8549adcbab0d6 < prev    next >
Encoding:
Text File  |  2004-02-02  |  2.2 KB  |  112 lines

  1. #ifdef CAN_PROTOTYPE
  2. #define XSdec(x) XS(x)
  3. #else
  4. #define XSdec(x) void x()
  5. #endif
  6.  
  7. #ifndef PATCHLEVEL
  8. #include <patchlevel.h>
  9. #endif
  10.  
  11. #if defined(PATCHLEVEL) && (PATCHLEVEL < 5)
  12. #define PL_sv_undef    sv_undef
  13. #define PL_tainting    tainting
  14. #define PL_tainted    tainted
  15. #define PL_stack_base    stack_base
  16. #define PL_stack_sp    stack_sp
  17. #define PL_curcop    curcop
  18. #endif
  19.  
  20. #ifndef CopSTASH
  21. #define CopSTASH(c)        c->cop_stash
  22. #define CopSTASH_set(c,h)    (CopSTASH(c) = h)
  23. #endif
  24.  
  25. #ifndef dTHX
  26. #define dTHX dTHR
  27. #endif
  28.  
  29. #ifndef dTHR
  30. #define dTHR int maybeTHR
  31. #endif
  32.  
  33. #ifndef ERRSV
  34. #define ERRSV GvSV(errgv)
  35. #endif
  36.  
  37. #ifndef aTHX_
  38. #define aTHX_
  39. #endif
  40.  
  41. #ifdef dirty
  42. #undef dirty
  43. #endif
  44. #ifdef bufptr
  45. #undef bufptr
  46. #endif
  47. #ifdef colors
  48. #undef colors
  49. #endif
  50.  
  51. #ifdef na
  52. #if PATCHLEVEL >= 5
  53. #undef na
  54. #endif
  55. #endif
  56.  
  57.  
  58. #define Tcl_Interp     HV
  59. #define LangCallback   SV
  60. #define Arg            SV *
  61. #define Var            SV *
  62. #define LangResultSave AV
  63. #define Tcl_Command    struct Lang_CmdInfo *
  64. #define Tcl_RegExp     regexp *
  65. #define Tcl_Obj        SV
  66. #define Tcl_DString    SV *
  67.  
  68. #ifndef PerlIO
  69. #define PerlIO FILE
  70. #define PerlIO_stderr()            stderr
  71. #define PerlIO_printf            fprintf
  72. #define PerlIO_flush(f)            Fflush(f)
  73. #define PerlIO_vprintf(f,fmt,a)        vfprintf(f,fmt,a)
  74. #define PerlIO_putc(f,c)        fputc(c,f)
  75. #define PerlIO_fileno(f)        fileno(f)
  76.  
  77. /* Now our interface to Configure's FILE_xxx macros */
  78.  
  79. #ifdef USE_STDIO_PTR
  80. #define PerlIO_has_cntptr(f)        1
  81. #define PerlIO_get_ptr(f)        FILE_ptr(f)
  82. #define PerlIO_get_cnt(f)        FILE_cnt(f)
  83.  
  84. #ifdef FILE_CNT_LVALUE
  85. #define PerlIO_canset_cnt(f)        1
  86. #ifdef FILE_PTR_LVALUE
  87. #define PerlIO_fast_gets(f)        1
  88. #endif
  89. #define PerlIO_set_cnt(f,c)        (FILE_cnt(f) = (c))
  90. #else
  91. #define PerlIO_canset_cnt(f)        0
  92. #define PerlIO_set_cnt(f,c)        abort()
  93. #endif
  94.  
  95. #ifdef FILE_PTR_LVALUE
  96. #define PerlIO_set_ptrcnt(f,p,c)    (FILE_ptr(f) = (p), PerlIO_set_cnt(f,c))
  97. #else
  98. #define PerlIO_set_ptrcnt(f,p,c)    abort()
  99. #endif
  100.  
  101. #else  /* USE_STDIO_PTR */
  102.  
  103. #define PerlIO_has_cntptr(f)        0
  104. #define PerlIO_get_cnt(f)        (abort(),0)
  105. #define PerlIO_get_ptr(f)        (abort(),0)
  106. #define PerlIO_set_cnt(f,c)        abort()
  107. #define PerlIO_set_ptrcnt(f,p,c)    abort()
  108.  
  109. #endif /* USE_STDIO_PTR */
  110.  
  111. #endif
  112.