home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Tk / tkGlue.def < prev    next >
Encoding:
Text File  |  1997-08-10  |  1.4 KB  |  53 lines
  1. #define Tcl_Interp     HV
  2. #define LangCallback   SV
  3. #define Arg            SV *
  4. #define Var            SV *
  5. #define LangResultSave AV
  6. #define Tcl_Command    struct Lang_CmdInfo *
  7. #define Tcl_RegExp     regexp *
  8.  
  9. #ifndef PerlIO 
  10. #define PerlIO FILE 
  11. #define PerlIO_stderr()            stderr
  12. #define PerlIO_printf            fprintf
  13. #define PerlIO_flush(f)            Fflush(f)
  14. #define PerlIO_vprintf(f,fmt,a)        vfprintf(f,fmt,a)          
  15. #define PerlIO_putc(f,c)        fputc(c,f)
  16. #define PerlIO_fileno(f)        fileno(f)
  17.  
  18. /* Now our interface to Configure's FILE_xxx macros */
  19.  
  20. #ifdef USE_STDIO_PTR
  21. #define PerlIO_has_cntptr(f)        1       
  22. #define PerlIO_get_ptr(f)        FILE_ptr(f)          
  23. #define PerlIO_get_cnt(f)        FILE_cnt(f)          
  24.  
  25. #ifdef FILE_CNT_LVALUE
  26. #define PerlIO_canset_cnt(f)        1      
  27. #ifdef FILE_PTR_LVALUE
  28. #define PerlIO_fast_gets(f)        1        
  29. #endif
  30. #define PerlIO_set_cnt(f,c)        (FILE_cnt(f) = (c))          
  31. #else
  32. #define PerlIO_canset_cnt(f)        0      
  33. #define PerlIO_set_cnt(f,c)        abort()
  34. #endif
  35.  
  36. #ifdef FILE_PTR_LVALUE
  37. #define PerlIO_set_ptrcnt(f,p,c)    (FILE_ptr(f) = (p), PerlIO_set_cnt(f,c))          
  38. #else
  39. #define PerlIO_set_ptrcnt(f,p,c)    abort()
  40. #endif
  41.  
  42. #else  /* USE_STDIO_PTR */
  43.  
  44. #define PerlIO_has_cntptr(f)        0
  45. #define PerlIO_get_cnt(f)        (abort(),0)
  46. #define PerlIO_get_ptr(f)        (abort(),0)
  47. #define PerlIO_set_cnt(f,c)        abort()
  48. #define PerlIO_set_ptrcnt(f,p,c)    abort()
  49.  
  50. #endif /* USE_STDIO_PTR */
  51.  
  52. #endif
  53.