home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / unar2412.zip / patches.os2 < prev    next >
Text File  |  1995-01-06  |  829b  |  39 lines
  1. *** environ.c~    Fri Jan 06 13:44:00 1995
  2. --- environ.c    Wed Jun 23 07:07:20 1993
  3. ***************
  4. *** 393,399 ****
  5. --- 393,403 ----
  6.     FTIME time_stamp;
  7.     HFILE handle;
  8.     FILESTATUS info;
  9. + #ifdef __32BIT__
  10. +     ULONG action;
  11. + #else
  12.     USHORT action;
  13. + #endif
  14.  
  15.     date_stamp.day = ts_day (tstamp);
  16.     date_stamp.month = ts_month (tstamp);
  17. ***************
  18. *** 417,424 ****
  19. --- 421,439 ----
  20.     (void)DosClose (handle);
  21.     if (host == OS)
  22.     {
  23. + #ifdef __32BIT__
  24. +     FILESTATUS fs;
  25. + 
  26. +     if (DosQueryPathInfo(name, FIL_STANDARD, (PBYTE) &fs, sizeof(fs)) )
  27. +       return -1;
  28. + 
  29. +     fs.attrFile = attribute; /* hidden, system, archive, read-only */
  30. + 
  31. +     DosSetPathInfo(name, FIL_STANDARD, (PBYTE) &fs, sizeof(fs), 0);
  32. + #else
  33.         if (DosSetFileMode (name, attribute, 0L))
  34.         return -1;
  35. + #endif
  36.     }
  37.     return code;
  38.   }
  39.