home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / c-kermit / ckvrtl.h < prev    next >
C/C++ Source or Header  |  2020-01-01  |  932b  |  44 lines
  1. /*
  2.   C-Kermit C RTL replacement functions for VMS systems.
  3. */
  4.  
  5. #ifndef __CKVRTL_H
  6. #define __CKVRTL_H
  7.  
  8.  
  9. #ifdef OLDFIB
  10. # define FIB_L_ACCTL fib$r_acctl_overlay.fib$l_acctl
  11. # define FIB_W_DID fib$r_did_overlay.fib$w_did
  12. # define FIB_W_FID fib$r_fid_overlay.fib$w_fid
  13. #else /* def OLDFIB */
  14. # define FIB_L_ACCTL fib$l_acctl
  15. # define FIB_W_DID fib$w_did
  16. # define FIB_W_FID fib$w_fid
  17. #endif /* def OLDFIB [else] */
  18.  
  19.  
  20. /* CKCFTP.C uses unlink(). */
  21.  
  22. #if __CRTL_VER < 70000000
  23. #  define unlink delete
  24. #endif /* __CRTL_VER < 70000000 */
  25.  
  26. /* CKCFTP.C and others use utime(). */
  27.  
  28. #if __CRTL_VER >= 70300000
  29. #  include <utime.h>
  30. #else /* __CRTL_VER >= 70300000 */
  31. #  include <time.h>
  32. #  define utime vms_utime
  33.  
  34. struct utimbuf {
  35.     time_t actime;    /* access time */
  36.     time_t modtime;    /* modification time */
  37. };
  38.  
  39. int utime(const char *path, const struct utimbuf *times);
  40.  
  41. #endif /* __CRTL_VER >= 70300000 [else] */
  42.  
  43. #endif /* ndef __CKVRTL_H */
  44.