0026585: Eliminate compile warnings obtained by building occt with vc14: 'type cast...
[occt.git] / src / OSD / OSD_FileNode.cxx
1 // Copyright (c) 1998-1999 Matra Datavision
2 // Copyright (c) 1999-2014 OPEN CASCADE SAS
3 //
4 // This file is part of Open CASCADE Technology software library.
5 //
6 // This library is free software; you can redistribute it and/or modify it under
7 // the terms of the GNU Lesser General Public License version 2.1 as published
8 // by the Free Software Foundation, with special exception defined in the file
9 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
10 // distribution for complete text of the license and disclaimer of any warranty.
11 //
12 // Alternatively, this file may be used under the terms of Open CASCADE
13 // commercial license or contractual agreement.
14
15 #ifndef _WIN32
16
17 //----------------------------------------------------------------------------
18 //------------------- Linux Sources of OSD_FileNode --------------------------
19 //----------------------------------------------------------------------------
20
21 #include <OSD_FileNode.hxx>
22 #include <OSD_OSDError.hxx>
23 #include <OSD_Path.hxx>
24 #include <OSD_Protection.hxx>
25 #include <OSD_WhoAmI.hxx>
26 #include <Quantity_Date.hxx>
27 #include <Standard_NullObject.hxx>
28 #include <Standard_ProgramError.hxx>
29
30 #include <errno.h>
31 #include <fcntl.h>
32 #include <stdio.h>
33 #include <stdlib.h>
34 #include <sys/stat.h>
35 #include <unistd.h>
36 // For "system"
37 const OSD_WhoAmI Iam = OSD_WFileNode;
38
39
40 // Create a file/directory object
41
42 OSD_FileNode::OSD_FileNode ()
43 {
44 }
45
46 // Create and initialize a file/directory object
47
48 OSD_FileNode::OSD_FileNode (const OSD_Path& Name)
49 {
50  SetPath (Name);
51 }
52
53
54
55 // Get values of object
56
57 void OSD_FileNode::Path (OSD_Path& Name)const{
58  Name = myPath;
59 }
60
61
62
63
64 // Set values of object
65
66 void OSD_FileNode::SetPath (const OSD_Path& Name){
67  myError.Reset();
68  myPath = Name;
69 }
70
71
72
73
74 // Test if specified file/directory exists
75  
76 Standard_Boolean  OSD_FileNode::Exists(){
77 int status;
78
79
80 // if (myPath.Name().Length()==0)  A directory can have a null name field (ex: root)
81 //  OSD_OSDError::Raise("OSD_FileNode::Exists : no name was given"); (LD)
82
83 // if (Failed()) Perror();
84
85  TCollection_AsciiString aBuffer;
86  myPath.SystemName ( aBuffer );
87  status = access ( aBuffer.ToCString() , F_OK );
88  
89  if (status == 0) return (Standard_True);
90    else return ( Standard_False );
91 }
92
93
94
95
96 // Physically remove a file/directory
97
98 void  OSD_FileNode::Remove(){
99
100 // if (myPath.Name().Length()==0) A directory can have a null name field (ex: root)
101 //  OSD_OSDError::Raise("OSD_FileNode::Remove : no name was given"); (LD)
102
103 // if (Failed()) Perror();
104
105  TCollection_AsciiString aBuffer;
106  myPath.SystemName ( aBuffer );
107
108  if(access(aBuffer.ToCString(), W_OK))
109    {
110      myError.SetValue (errno, Iam, "Remove");
111      return;
112    }
113
114  struct stat  stat_buf;
115
116  if(stat(aBuffer.ToCString(), &stat_buf))
117    {
118      myError.SetValue (errno, Iam, "Remove");
119      return;
120    }
121   
122  if (  S_ISDIR(stat_buf.st_mode))  {
123    // DIRECTORY
124
125    if(rmdir(aBuffer.ToCString()))
126      {
127        myError.SetValue (errno, Iam, "Remove");
128        return;
129      }
130    return; 
131
132  }
133  else if  (  S_ISREG(stat_buf.st_mode) || S_ISLNK(stat_buf.st_mode) ||
134              S_ISFIFO(stat_buf.st_mode)   )  { 
135    
136    if (unlink ( aBuffer.ToCString()) == -1) 
137      myError.SetValue (errno, Iam, "Remove");
138    return;
139  }
140  myError.SetValue (EINVAL, Iam, "Remove");
141  return;
142 }
143
144
145
146
147 // Move a file/directory to another path
148
149 void  OSD_FileNode::Move(const OSD_Path& NewPath){
150 int status;
151 TCollection_AsciiString thisPath;
152
153 // if (myPath.Name().Length()==0)
154 //  OSD_OSDError::Raise("OSD_FileNode::Move : no name was given");
155
156 // if (Failed()) Perror();
157
158  NewPath.SystemName( thisPath );        // Get internal path name
159  TCollection_AsciiString aBuffer;
160  myPath.SystemName ( aBuffer );
161  status = rename (aBuffer.ToCString(), thisPath.ToCString());
162
163  if (status == -1) myError.SetValue (errno, Iam, "Move");
164 }
165
166 // Copy a file to another path and name
167 int static copy_file( const char* src, const char* trg )
168 {
169   int err=0;
170   errno=0;
171   int fds = open( src, O_RDONLY );
172   if ( fds <0 )
173     return errno;
174
175   int fdo = open( trg, O_WRONLY|O_TRUNC| O_CREAT, S_IRUSR|S_IWUSR|S_IRGRP|S_IROTH);
176   if ( fdo <0 )
177   {
178     err = errno;
179     close( fds );
180     return err;
181   }
182
183   const int BUFSIZE=4096;
184   char buf[BUFSIZE];
185   int n=0;
186   while ( ( n = read ( fds, buf, BUFSIZE )) >0 )
187   {
188     if ( write ( fdo, buf, n ) != n ) { // writing error
189       if ( ! errno )
190         errno = ENOSPC;
191       break;
192     }
193   }
194
195   err=errno;
196   close( fdo );
197   if (!err) err=errno;
198   close( fds );
199   if (!err) err=errno;
200   return err;
201 }
202
203 void  OSD_FileNode::Copy(const OSD_Path& ToPath)
204 {
205 int status;
206 TCollection_AsciiString second_name;
207
208 // if (myPath.Name().Length()==0)   Copy .login would raise !!
209 //  OSD_OSDError::Raise("OSD_FileNode::Copy : no name was given");
210 // if (Failed()) Perror();
211
212  ToPath.SystemName (second_name);
213
214  TCollection_AsciiString aBuffer;
215  myPath.SystemName ( aBuffer );
216  status =  copy_file(aBuffer.ToCString(), second_name.ToCString());
217  if (status != 0) myError.SetValue (-1, Iam, "Copy failed") ;// (LD)
218 #ifdef OCCT_DEBUG
219  printf("Status %d : errno # %d\n",status,errno);
220 #endif
221 }
222
223
224
225
226
227 // Get protections of a file/directory
228
229 OSD_Protection  OSD_FileNode::Protection(){
230 OSD_Protection thisProt;
231 struct stat myStat;
232 int status;
233 int s,u,g,w;
234
235 // if (myPath.Name().Length()==0)
236 //  OSD_OSDError::Raise("OSD_FileNode::Protection : no name was given");
237
238 // if (Failed()) Perror();
239
240  TCollection_AsciiString aBuffer;
241  myPath.SystemName ( aBuffer );
242  status = stat(aBuffer.ToCString(), &myStat);
243  if (status == -1) myError.SetValue (errno, Iam, "Protection");
244
245  u = g = w = OSD_None;
246
247  if (myStat.st_mode & S_IRUSR)  u |= OSD_R;
248  if (myStat.st_mode & S_IWUSR)  u |= OSD_W;
249  if (myStat.st_mode & S_IXUSR)  u |= OSD_X;
250
251  if (myStat.st_mode & S_IRGRP)  g |= OSD_R;
252  if (myStat.st_mode & S_IWGRP)  g |= OSD_W;
253  if (myStat.st_mode & S_IXGRP)  g |= OSD_X;
254
255  if (myStat.st_mode & S_IROTH)  w |= OSD_R;
256  if (myStat.st_mode & S_IWOTH)  w |= OSD_W;
257  if (myStat.st_mode & S_IXOTH)  w |= OSD_X;
258
259  s = g;
260  thisProt.SetValues ((OSD_SingleProtection)s,
261                      (OSD_SingleProtection)u,
262                      (OSD_SingleProtection)g,
263                      (OSD_SingleProtection)w);
264
265  return (thisProt);
266 }
267
268
269 // Set protections of a file/directory
270
271 void  OSD_FileNode::SetProtection(const OSD_Protection& Prot){
272 int status;
273
274 //  if (myPath.Name().Length()==0)
275 //  OSD_OSDError::Raise("OSD_FileNode::SetProtection : no name was given");
276
277 // if (Failed()) Perror();
278
279  TCollection_AsciiString aBuffer;
280  myPath.SystemName ( aBuffer );
281  status = chmod (aBuffer.ToCString(), (mode_t)Prot.Internal() );
282  if (status == -1) myError.SetValue (errno, Iam, "SetProtection");
283 }
284
285 // return the date of last access of file/directory
286
287 Quantity_Date  OSD_FileNode::CreationMoment(){
288
289  Quantity_Date result;
290  struct tm *decode;
291  struct stat buffer;
292
293 // if (myPath.Name().Length()==0)
294 //  OSD_OSDError::Raise("OSD_FileNode::CreationMoment : no name was given");
295
296 // if (Failed()) Perror();
297
298  /* Get File Informations */
299
300  TCollection_AsciiString aBuffer;
301  myPath.SystemName ( aBuffer );
302  if (!stat ( aBuffer.ToCString(), &buffer )) {
303    time_t aTime = (time_t)buffer.st_ctime;
304    decode = localtime (&aTime);
305    result.SetValues (decode->tm_mon+1, decode->tm_mday, decode->tm_year+1900,
306                      decode->tm_hour, decode->tm_min, decode->tm_sec , 0,0);
307  }
308  else
309    result.SetValues (1, 1, 1979, 0, 0, 0, 0, 0) ;
310  return (result);
311 }
312
313 // return Last access of file/directory
314
315 Quantity_Date  OSD_FileNode::AccessMoment(){
316
317  Quantity_Date result;
318  struct tm *decode;
319  struct stat buffer;
320
321 // if (myPath.Name().Length()==0)
322 //  OSD_OSDError::Raise("OSD_FileNode::AccessMoment : no name was given");
323
324 // if (Failed()) Perror();
325
326  /* Get File Informations */
327
328  TCollection_AsciiString aBuffer;
329  myPath.SystemName ( aBuffer );
330  if (!stat ( aBuffer.ToCString(), &buffer )) {
331    time_t aTime = (time_t)buffer.st_ctime;
332    decode = localtime (&aTime);
333    result.SetValues (decode->tm_mon+1, decode->tm_mday, decode->tm_year+1900,
334                      decode->tm_hour, decode->tm_min, decode->tm_sec, 0,0 );
335  }
336  else
337    result.SetValues (1, 1, 1979, 0, 0, 0, 0, 0) ;
338  return (result);
339 }
340
341
342 void OSD_FileNode::Reset(){
343  myError.Reset();
344 }
345
346 Standard_Boolean OSD_FileNode::Failed()const{
347  return( myError.Failed());
348 }
349
350 void OSD_FileNode::Perror() {
351  myError.Perror();
352 }
353
354
355 Standard_Integer OSD_FileNode::Error()const{
356  return( myError.Error());
357 }
358
359 #else /* _WIN32 */
360
361 //----------------------------------------------------------------------------
362 //-------------------  WNT Sources of OSD_FileNode ---------------------------
363 //----------------------------------------------------------------------------
364
365 #define STRICT
366 #include <OSD_FileNode.hxx>
367 #include <OSD_Protection.hxx>
368 #include <Quantity_Date.hxx>
369 #include <Standard_ProgramError.hxx>
370 #include <TCollection_ExtendedString.hxx>
371
372 #include <OSD_WNT_1.hxx>
373
374 #ifndef _INC_TCHAR
375 # include <tchar.h>
376 #endif  // _INC_TCHAR
377
378 #define TEST_RAISE( arg ) _test_raise (  fName, ( arg )  )
379 #define RAISE( arg ) Standard_ProgramError :: Raise (  ( arg )  )
380
381 PSECURITY_DESCRIPTOR __fastcall _osd_wnt_protection_to_sd ( const OSD_Protection&, BOOL, wchar_t* = NULL );
382 BOOL                 __fastcall _osd_wnt_sd_to_protection (
383                                  PSECURITY_DESCRIPTOR pSD, OSD_Protection& prot, BOOL
384                                 );
385 Standard_Integer     __fastcall _get_file_type ( Standard_CString, HANDLE );
386
387 void _osd_wnt_set_error ( OSD_Error&, OSD_WhoAmI, ... );
388
389 static BOOL __fastcall _get_file_time ( Standard_ExtString, LPSYSTEMTIME, BOOL );
390 static void __fastcall _test_raise ( TCollection_AsciiString, Standard_CString );
391
392 //=======================================================================
393 //function : OSD_FileNode
394 //purpose  : Empty Constructor
395 //=======================================================================
396
397 OSD_FileNode::OSD_FileNode () 
398 {
399 }
400
401 //=======================================================================
402 //function : OSD_FileNode
403 //purpose  : Constructor
404 //=======================================================================
405
406 OSD_FileNode::OSD_FileNode ( const OSD_Path& Name )
407 {
408  myPath        = Name;
409 }  // end constructor ( 2 )
410
411 //=======================================================================
412 //function : Path
413 //purpose  : 
414 //=======================================================================
415
416 void OSD_FileNode::Path ( OSD_Path& Name ) const {
417
418  Name = myPath;
419
420 }  // end OSD_FileNode :: Path
421
422 //=======================================================================
423 //function : SetPath
424 //purpose  : 
425 //=======================================================================
426
427 void OSD_FileNode::SetPath ( const OSD_Path& Name ) {
428
429  myPath = Name;
430
431 }  // end OSD_FileNode :: SetPath
432
433 //=======================================================================
434 //function : Exists
435 //purpose  : 
436 //=======================================================================
437
438 Standard_Boolean OSD_FileNode::Exists () {
439
440  Standard_Boolean        retVal = Standard_False;;
441  TCollection_AsciiString fName;
442
443  myPath.SystemName ( fName );
444
445  if (  fName.IsEmpty ()  ) return Standard_False;
446  TEST_RAISE(  "Exists"  );
447
448  // make wide character string from UTF-8
449  TCollection_ExtendedString fNameW(fName);
450  if (  GetFileAttributesW ( (const wchar_t*) fNameW.ToExtString ()  ) == 0xFFFFFFFF  ) {
451  
452   if (  GetLastError () != ERROR_FILE_NOT_FOUND  )
453
454    _osd_wnt_set_error (  myError, OSD_WFileNode, fName.ToCString ()  );
455  
456  } else
457
458   retVal = Standard_True;
459
460  return retVal;
461
462 }  // end OSD_FileNode :: Exists
463
464 //=======================================================================
465 //function : Remove
466 //purpose  : 
467 //=======================================================================
468
469 void OSD_FileNode::Remove () {
470
471  TCollection_AsciiString fName;
472
473  myPath.SystemName ( fName );
474  TCollection_ExtendedString fNameW(fName);
475
476  TEST_RAISE(  "Remove"  );
477
478  switch (_get_file_type (fName.ToCString(), INVALID_HANDLE_VALUE)) {
479
480   case FLAG_FILE:
481
482    if (   !DeleteFileW (  (const wchar_t*) fNameW.ToExtString ()  )   )
483
484     _osd_wnt_set_error (  myError, OSD_WFileNode,  fName.ToCString ()  );
485
486   break;
487
488   case FLAG_DIRECTORY:
489
490
491 // LD : Suppression de l'appel a DeleteDirectory pour 
492 //      ne pas detruire un repertoire no vide.
493
494    if (   !RemoveDirectoryW ( (const wchar_t*) fNameW.ToExtString ()  )   )
495
496     _osd_wnt_set_error (  myError, OSD_WFileNode, fName.ToCString ()  );
497
498   break;
499
500   default:
501
502    RAISE(  TEXT( "OSD_FileNode :: Remove ():"
503                  " invalid file type - neither file nor directory" )  );
504
505  }  // end switch
506
507 }  // end OSD_FileNode :: Remove
508
509 //=======================================================================
510 //function : Move
511 //purpose  : 
512 //=======================================================================
513
514 void OSD_FileNode::Move ( const OSD_Path& NewPath ) {
515
516  TCollection_AsciiString fName;
517  TCollection_AsciiString fNameDst;
518
519  myPath.SystemName  ( fName );
520  TCollection_ExtendedString fNameW(fName);
521
522  TEST_RAISE(  "Move"  );
523
524  NewPath.SystemName ( fNameDst );
525  TCollection_ExtendedString fNameDstW(fNameDst);
526
527  switch (_get_file_type (fName.ToCString (), INVALID_HANDLE_VALUE)) {
528
529   case FLAG_FILE:
530
531    if (!MoveFileExW ((const wchar_t*)fNameW.ToExtString (),
532                      (const wchar_t*)fNameDstW.ToExtString (),
533                      MOVEFILE_REPLACE_EXISTING | MOVEFILE_COPY_ALLOWED
534                      )
535        )
536  
537      _osd_wnt_set_error ( myError, OSD_WFileNode,
538                           fName.ToCString (), fNameDst.ToCString ()  );
539   break;
540
541   case FLAG_DIRECTORY:
542
543    if (   !MoveDirectory (
544             (const wchar_t*) fNameW.ToExtString (), (const wchar_t*) fNameDstW.ToExtString ()
545            )
546    )
547  
548     _osd_wnt_set_error ( myError, OSD_WFileNode,
549                          fName.ToCString (), fNameDst.ToCString ()  );
550
551   break;
552
553   default:
554
555    RAISE(  TEXT( "OSD_FileNode :: Move (): "
556                  "invalid file type - neither file nor directory" )  );
557
558  }  // end switch
559
560 }  // end OSD_FileNode :: Move
561
562 //=======================================================================
563 //function : Copy
564 //purpose  : 
565 //=======================================================================
566
567 void OSD_FileNode::Copy ( const OSD_Path& ToPath ) {
568
569  TCollection_AsciiString fName;
570  TCollection_AsciiString fNameDst;
571
572  myPath.SystemName ( fName );
573  TCollection_ExtendedString fNameW(fName);
574
575  TEST_RAISE(  "Copy"  );
576
577  ToPath.SystemName ( fNameDst );
578  TCollection_ExtendedString fNameDstW(fNameDst);
579
580  switch (_get_file_type (fName.ToCString(), INVALID_HANDLE_VALUE)) {
581
582   case FLAG_FILE:
583
584    if (!CopyFileW ((const wchar_t*)fNameW.ToExtString (),
585                    (const wchar_t*)fNameDstW.ToExtString (), FALSE ))
586      _osd_wnt_set_error (myError, OSD_WFileNode,
587                          fName.ToCString (), fNameDst.ToCString ());
588   break;
589
590   case FLAG_DIRECTORY:
591
592    if (   !CopyDirectory (
593             (const wchar_t*)fNameW.ToExtString (), (const wchar_t*)fNameDstW.ToExtString ()
594           )
595    )
596  
597     _osd_wnt_set_error (
598      myError, OSD_WFileNode, fName.ToCString (), fNameDst.ToCString ()
599     );
600
601   break;
602
603   default:
604
605    RAISE(  TEXT( "OSD_FileNode :: Copy ():"
606                  " invalid file type - neither file nor directory" )  );
607
608  }  // end switch
609
610 }  // end OSD_FileNode :: Copy
611
612 //=======================================================================
613 //function : Protection
614 //purpose  : 
615 //=======================================================================
616
617 OSD_Protection OSD_FileNode::Protection () {
618
619  OSD_Protection          retVal;
620  TCollection_AsciiString fName;
621  PSECURITY_DESCRIPTOR    pSD;
622
623  myPath.SystemName ( fName );
624  TCollection_ExtendedString fNameW(fName);
625
626  TEST_RAISE(  "Protection"  );
627
628  if (   (  pSD = GetFileSecurityEx (
629                   (const wchar_t*) fNameW.ToExtString (), DACL_SECURITY_INFORMATION |
630                   OWNER_SECURITY_INFORMATION
631                  )
632         ) == NULL ||
633         !_osd_wnt_sd_to_protection (
634           pSD, retVal,
635           _get_file_type (fName.ToCString(), INVALID_HANDLE_VALUE) == FLAG_DIRECTORY)
636  )
637    
638    _osd_wnt_set_error ( myError, OSD_WFileNode );
639
640  if ( pSD != NULL )
641
642   FreeFileSecurity ( pSD );
643
644  return retVal;
645
646 }  // end OSD_FileNode :: Protection
647
648 //=======================================================================
649 //function : SetProtection
650 //purpose  : 
651 //=======================================================================
652
653 void OSD_FileNode::SetProtection ( const OSD_Protection& Prot ) {
654
655  TCollection_AsciiString fName;
656  PSECURITY_DESCRIPTOR    pSD;
657
658  myPath.SystemName ( fName );
659  TCollection_ExtendedString fNameW(fName);
660
661  TEST_RAISE(  "SetProtection"  );
662
663  pSD = _osd_wnt_protection_to_sd (
664         Prot,
665         _get_file_type (fName.ToCString(), INVALID_HANDLE_VALUE) ==
666         FLAG_DIRECTORY,
667         (wchar_t *)fNameW.ToExtString ()
668        );
669  
670  if ( pSD == NULL || !SetFileSecurityW (
671                        (const wchar_t*) fNameW.ToExtString (), DACL_SECURITY_INFORMATION, pSD
672                       )
673  )
674   
675   _osd_wnt_set_error (  myError, OSD_WFileNode, fName.ToCString ()  );
676
677  if ( pSD != NULL )
678
679   FreeSD ( pSD );
680
681 }  // end OSD_FileNode :: SetProtection
682
683 //=======================================================================
684 //function : AccessMoment
685 //purpose  : 
686 //=======================================================================
687
688 Quantity_Date OSD_FileNode::AccessMoment () {
689
690  Quantity_Date           retVal;
691  SYSTEMTIME              stAccessMoment;
692  SYSTEMTIME              stAccessSystemMoment;
693  TCollection_AsciiString fName;
694
695  myPath.SystemName ( fName );
696  TCollection_ExtendedString fNameW(fName);
697
698  TEST_RAISE(  "AccessMoment"  );
699
700 // if (   _get_file_time (  fName.ToCString (), &stAccessMoment, TRUE  )   )
701  if (   _get_file_time (  fNameW.ToExtString (), &stAccessSystemMoment, TRUE  ) )
702 //POP
703 {
704   SYSTEMTIME * aSysTime = &stAccessMoment;
705   BOOL aFlag = SystemTimeToTzSpecificLocalTime (NULL ,
706                                                 &stAccessSystemMoment ,
707                                                 &stAccessMoment);
708   if (aFlag == 0) // AGV: test for success (e.g., unsupported on Win95/98)
709     aSysTime = &stAccessSystemMoment;
710   retVal.SetValues (aSysTime->wMonth,       aSysTime->wDay,
711                     aSysTime->wYear,        aSysTime->wHour,
712                     aSysTime->wMinute,      aSysTime->wSecond,
713                     aSysTime->wMilliseconds
714                     );
715 }
716  else
717
718   _osd_wnt_set_error (  myError, OSD_WFileNode, fName.ToCString ()  );
719
720  return retVal;
721
722 }  // end OSD_FileNode :: AccessMoment
723
724 //=======================================================================
725 //function : CreationMoment
726 //purpose  : 
727 //=======================================================================
728
729 Quantity_Date OSD_FileNode::CreationMoment () {
730
731  Quantity_Date           retVal;
732  SYSTEMTIME              stCreationMoment;
733  SYSTEMTIME              stCreationSystemMoment;
734  TCollection_AsciiString fName;
735
736  myPath.SystemName ( fName );
737  TCollection_ExtendedString fNameW(fName);
738
739  TEST_RAISE(  "CreationMoment"  );
740
741 // if (   _get_file_time (  fName.ToCString (), &stCreationMoment, FALSE  )   )
742  if ( _get_file_time ( fNameW.ToExtString (), &stCreationSystemMoment, TRUE  )   ) 
743 //POP 
744 {
745   SYSTEMTIME * aSysTime = &stCreationMoment;
746   BOOL aFlag = SystemTimeToTzSpecificLocalTime (NULL,
747                                                 &stCreationSystemMoment ,
748                                                 &stCreationMoment);
749   if (aFlag == 0) // AGV: test for success (e.g., unsupported on Win95/98)
750     aSysTime = &stCreationSystemMoment;
751   retVal.SetValues (aSysTime->wMonth,       aSysTime->wDay,
752                     aSysTime->wYear,        aSysTime->wHour,
753                     aSysTime->wMinute,      aSysTime->wSecond,
754                     aSysTime->wMilliseconds
755                     );
756 }
757  else
758
759   _osd_wnt_set_error (  myError, OSD_WFileNode, fName.ToCString ()  );
760
761  return retVal;
762
763 }  // end OSD_FileNode :: CreationMoment
764
765 //=======================================================================
766 //function : Failed
767 //purpose  : 
768 //=======================================================================
769
770 Standard_Boolean OSD_FileNode::Failed () const {
771
772  return myError.Failed ();
773
774 }  // end OSD_FileNode :: Failed
775
776 //=======================================================================
777 //function : Reset
778 //purpose  : 
779 //=======================================================================
780
781 void OSD_FileNode::Reset () {
782
783  myError.Reset ();
784
785 }  // end OSD_FileNode :: Reset
786
787 //=======================================================================
788 //function : Perror
789 //purpose  : 
790 //=======================================================================
791
792 void OSD_FileNode::Perror () {
793
794  myError.Perror ();
795
796 }  // end OSD_FileNode :: Perror
797
798 //=======================================================================
799 //function : Error
800 //purpose  : 
801 //=======================================================================
802
803 Standard_Integer OSD_FileNode::Error () const {
804
805  return myError.Error ();
806
807 }  // end OSD_FileNode :: Error
808
809 void _osd_wnt_set_error ( OSD_Error& err, OSD_WhoAmI who, ... ) {
810
811  DWORD              errCode;
812  Standard_Character buffer[ 2048 ];
813  va_list            arg_ptr;
814
815  va_start ( arg_ptr, who);
816
817  errCode = GetLastError ();
818
819  if (  !FormatMessage (
820          FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_ARGUMENT_ARRAY,
821          0, errCode, MAKELANGID( LANG_NEUTRAL, SUBLANG_NEUTRAL ),
822          buffer, 2048, &arg_ptr
823         )
824  ) {
825  
826   sprintf ( buffer, "error code %d", (Standard_Integer)errCode );
827   SetLastError ( errCode );
828
829  }  // end if
830
831  err.SetValue ( errCode, who, buffer );
832
833  va_end ( arg_ptr );
834
835 }  // end _set_error
836
837 #if defined(__CYGWIN32__) || defined(__MINGW32__)
838 #define __try
839 #define __finally
840 #define __leave return retVal
841 #endif
842
843 static BOOL __fastcall _get_file_time (
844                         Standard_ExtString fName, LPSYSTEMTIME lpSysTime, BOOL fAccess
845                        ) {
846
847  BOOL       retVal = FALSE;
848  FILETIME   ftCreationTime;
849  FILETIME   ftLastWriteTime;
850  LPFILETIME lpftPtr;
851  HANDLE     hFile = INVALID_HANDLE_VALUE;
852
853  __try {
854
855   if (   (  hFile = CreateFileW ((const wchar_t*) fName, 0, 0,
856                                  NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL)
857          ) == INVALID_HANDLE_VALUE
858   ) __leave;
859
860   if (  !GetFileTime ( hFile, &ftCreationTime, NULL, &ftLastWriteTime )  ) __leave;
861
862   lpftPtr = fAccess ? &ftLastWriteTime : &ftCreationTime;
863
864   if (  !FileTimeToSystemTime ( lpftPtr, lpSysTime )  ) __leave;
865
866   retVal = TRUE;
867
868  }  // end __try
869
870  __finally {
871  
872   if ( hFile != INVALID_HANDLE_VALUE )
873
874    CloseHandle ( hFile );
875  
876  }  // end __finally
877
878 #ifdef VAC
879 leave: ;      // added for VisualAge
880 #endif
881
882  return retVal;
883
884 }  // end _get_file_time
885
886 #if defined(__CYGWIN32__) || defined(__MINGW32__)
887 #undef __try
888 #undef __finally
889 #undef __leave
890 #endif
891
892 static void __fastcall _test_raise ( TCollection_AsciiString fName, Standard_CString str ) {
893
894  Standard_Character buff[ 64 ];
895
896  if (  fName.IsEmpty ()  ) {
897  
898   strcpy (  buff, "OSD_FileNode :: "  );
899   strcat (  buff, str );
900   strcat (  buff, " (): wrong access"  );
901
902   Standard_ProgramError :: Raise ( buff );
903  
904  }  // end if
905
906 }  // end _test_raise
907
908 #endif /* _WIN32 */