Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/runtime/c-libs/win32-filesys/win32-filesys.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/c-libs/win32-filesys/win32-filesys.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1577, Mon Aug 2 20:34:14 2004 UTC revision 1578, Mon Aug 2 20:46:58 2004 UTC
# Line 240  Line 240 
240    h = CreateFile(STR_MLtoC(arg),0,0,NULL,    h = CreateFile(STR_MLtoC(arg),0,0,NULL,
241                   OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,INVALID_HANDLE_VALUE);                   OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,INVALID_HANDLE_VALUE);
242    if (h != INVALID_HANDLE_VALUE) {    if (h != INVALID_HANDLE_VALUE) {
243      FILETIME ftUTC, ftLocal;      FILETIME ft;
244    
245      if (GetFileTime(h,NULL,NULL,&ftUTC)) { /* request time of "last write" */      if (GetFileTime(h,NULL,NULL,&ft)) {  /* request time of "last write" */
       if (FileTimeToLocalFileTime (&ftUTC, &ftLocal)) { /* convert to local time */  
246          SYSTEMTIME st;          SYSTEMTIME st;
247    
248          CloseHandle(h);          CloseHandle(h);
249          if (FileTimeToSystemTime(&ftLocal,&st)) {        if (FileTimeToSystemTime(&ft,&st)) {
250            ml_val_t rec;            ml_val_t rec;
251    
252            REC_ALLOC8(msp,rec,            REC_ALLOC8(msp,rec,
# Line 263  Line 262 
262          }          }
263        }        }
264      }      }
   }  
265    return res;    return res;
266  }  }
267    

Legend:
Removed from v.1577  
changed lines
  Added in v.1578

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0