0026937: Eliminate NO_CXX_EXCEPTION macro support
[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 //  throw OSD_OSDError("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 //  throw OSD_OSDError("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 //  throw OSD_OSDError("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 //  throw OSD_OSDError("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 //  throw OSD_OSDError("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 //  throw OSD_OSDError("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 //  throw OSD_OSDError("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 //  throw OSD_OSDError("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 #ifdef NONLS
367 #undef NONLS
368 #endif
369 #include <windows.h>
370
371 #include <OSD_FileNode.hxx>
372 #include <OSD_Protection.hxx>
373 #include <Quantity_Date.hxx>
374 #include <Standard_ProgramError.hxx>
375 #include <TCollection_ExtendedString.hxx>
376
377 #include <OSD_WNT_1.hxx>
378
379 #ifndef _INC_TCHAR
380 # include <tchar.h>
381 #endif  // _INC_TCHAR
382
383 #include <Strsafe.h>
384
385 #define TEST_RAISE( arg ) _test_raise (  fName, ( arg )  )
386 #define RAISE( arg ) throw Standard_ProgramError (  ( arg )  )
387
388 #ifndef OCCT_UWP
389 // None of the existing security APIs are supported in a UWP applications
390 PSECURITY_DESCRIPTOR __fastcall _osd_wnt_protection_to_sd ( const OSD_Protection&, BOOL, const wchar_t* );
391 BOOL                 __fastcall _osd_wnt_sd_to_protection (
392                                  PSECURITY_DESCRIPTOR pSD, OSD_Protection& prot, BOOL
393                                 );
394 #endif
395 Standard_Integer     __fastcall _get_file_type ( Standard_CString, HANDLE );
396
397 void _osd_wnt_set_error ( OSD_Error&, OSD_WhoAmI, ... );
398
399 static BOOL __fastcall _get_file_time (const wchar_t*, LPSYSTEMTIME, BOOL );
400 static void __fastcall _test_raise ( TCollection_AsciiString, Standard_CString );
401
402 //=======================================================================
403 //function : OSD_FileNode
404 //purpose  : Empty Constructor
405 //=======================================================================
406
407 OSD_FileNode::OSD_FileNode () 
408 {
409 }
410
411 //=======================================================================
412 //function : OSD_FileNode
413 //purpose  : Constructor
414 //=======================================================================
415
416 OSD_FileNode::OSD_FileNode ( const OSD_Path& Name )
417 {
418  myPath        = Name;
419 }  // end constructor ( 2 )
420
421 //=======================================================================
422 //function : Path
423 //purpose  : 
424 //=======================================================================
425
426 void OSD_FileNode::Path ( OSD_Path& Name ) const {
427
428  Name = myPath;
429
430 }  // end OSD_FileNode :: Path
431
432 //=======================================================================
433 //function : SetPath
434 //purpose  : 
435 //=======================================================================
436
437 void OSD_FileNode::SetPath ( const OSD_Path& Name ) {
438
439  myPath = Name;
440
441 }  // end OSD_FileNode :: SetPath
442
443 //=======================================================================
444 //function : Exists
445 //purpose  : 
446 //=======================================================================
447
448 Standard_Boolean OSD_FileNode::Exists ()
449 {
450   myError.Reset();
451
452  Standard_Boolean        retVal = Standard_False;;
453  TCollection_AsciiString fName;
454
455  myPath.SystemName ( fName );
456
457  if (  fName.IsEmpty ()  ) return Standard_False;
458  TEST_RAISE(  "Exists"  );
459
460  // make wide character string from UTF-8
461  TCollection_ExtendedString fNameW(fName);
462
463  WIN32_FILE_ATTRIBUTE_DATA aFileInfo;
464
465  if (!GetFileAttributesExW (fNameW.ToWideString(), GetFileExInfoStandard, &aFileInfo))
466  {
467   if (GetLastError() != ERROR_FILE_NOT_FOUND)
468   {
469     _osd_wnt_set_error (myError, OSD_WFileNode, fNameW.ToWideString());
470   }
471  }
472  else
473  {
474   retVal = Standard_True;
475  }
476
477  return retVal;
478
479 }  // end OSD_FileNode :: Exists
480
481 //=======================================================================
482 //function : Remove
483 //purpose  : 
484 //=======================================================================
485
486 void OSD_FileNode::Remove () {
487
488  TCollection_AsciiString fName;
489
490  myPath.SystemName ( fName );
491  TCollection_ExtendedString fNameW(fName);
492
493  TEST_RAISE(  "Remove"  );
494
495  switch (_get_file_type (fName.ToCString(), INVALID_HANDLE_VALUE)) {
496
497   case FLAG_FILE:
498
499    if (!DeleteFileW (fNameW.ToWideString()))
500      _osd_wnt_set_error (  myError, OSD_WFileNode, fNameW.ToWideString());
501   break;
502
503   case FLAG_DIRECTORY:
504
505
506 // LD : Suppression de l'appel a DeleteDirectory pour 
507 //      ne pas detruire un repertoire no vide.
508
509    if (!RemoveDirectoryW (fNameW.ToWideString()))
510      _osd_wnt_set_error (myError, OSD_WFileNode, fNameW.ToWideString());
511   break;
512
513   default:
514    RAISE("OSD_FileNode :: Remove (): invalid file type - neither file nor directory");
515  }  // end switch
516
517 }  // end OSD_FileNode :: Remove
518
519 //=======================================================================
520 //function : Move
521 //purpose  : 
522 //=======================================================================
523
524 void OSD_FileNode::Move ( const OSD_Path& NewPath ) {
525
526  TCollection_AsciiString fName;
527  TCollection_AsciiString fNameDst;
528
529  myPath.SystemName  ( fName );
530  TCollection_ExtendedString fNameW(fName);
531
532  TEST_RAISE(  "Move"  );
533
534  NewPath.SystemName ( fNameDst );
535  TCollection_ExtendedString fNameDstW(fNameDst);
536
537  switch (_get_file_type (fName.ToCString (), INVALID_HANDLE_VALUE)) {
538
539   case FLAG_FILE:
540
541    if (!MoveFileExW (fNameW.ToWideString (),
542                      fNameDstW.ToWideString (),
543                      MOVEFILE_REPLACE_EXISTING | MOVEFILE_COPY_ALLOWED))
544      _osd_wnt_set_error(myError, OSD_WFileNode, fNameW.ToWideString(), fNameDstW.ToWideString());
545   break;
546
547   case FLAG_DIRECTORY:
548
549    if (!MoveDirectory (fNameW.ToWideString(), fNameDstW.ToWideString()))
550    _osd_wnt_set_error(myError, OSD_WFileNode, fNameW.ToWideString(), fNameDstW.ToWideString());
551   break;
552
553   default:
554    RAISE("OSD_FileNode :: Move (): invalid file type - neither file nor directory");
555  }  // end switch
556
557 }  // end OSD_FileNode :: Move
558
559 //=======================================================================
560 //function : Copy
561 //purpose  : 
562 //=======================================================================
563
564 void OSD_FileNode::Copy ( const OSD_Path& ToPath ) {
565
566  TCollection_AsciiString fName;
567  TCollection_AsciiString fNameDst;
568
569  myPath.SystemName ( fName );
570  TCollection_ExtendedString fNameW(fName);
571
572  TEST_RAISE(  "Copy"  );
573
574  ToPath.SystemName ( fNameDst );
575  TCollection_ExtendedString fNameDstW(fNameDst);
576
577  switch (_get_file_type (fName.ToCString(), INVALID_HANDLE_VALUE)) {
578
579   case FLAG_FILE:
580 #ifndef OCCT_UWP
581     if (!CopyFileW (fNameW.ToWideString(), fNameDstW.ToWideString(), FALSE))
582 #else
583    if (CopyFile2 (fNameW.ToWideString(), fNameDstW.ToWideString(), FALSE) != S_OK)
584 #endif
585    _osd_wnt_set_error (myError, OSD_WFileNode, fNameW.ToWideString(), fNameDstW.ToWideString());
586   break;
587
588   case FLAG_DIRECTORY:
589
590    if (!CopyDirectory (fNameW.ToWideString(), fNameDstW.ToWideString()))
591    _osd_wnt_set_error (myError, OSD_WFileNode, fNameW.ToWideString(), fNameDstW.ToWideString());
592
593   break;
594
595   default:
596    RAISE("OSD_FileNode :: Copy (): invalid file type - neither file nor directory");
597
598  }  // end switch
599
600 }  // end OSD_FileNode :: Copy
601
602 // None of the existing security APIs are supported in a UWP applications
603 #ifndef OCCT_UWP
604
605 //=======================================================================
606 //function : Protection
607 //purpose  : 
608 //=======================================================================
609
610 OSD_Protection OSD_FileNode::Protection () {
611
612  OSD_Protection          retVal;
613  TCollection_AsciiString fName;
614  PSECURITY_DESCRIPTOR    pSD;
615
616  myPath.SystemName ( fName );
617  TCollection_ExtendedString fNameW(fName);
618
619  TEST_RAISE(  "Protection"  );
620
621  if ((pSD = GetFileSecurityEx (fNameW.ToWideString(), DACL_SECURITY_INFORMATION |OWNER_SECURITY_INFORMATION)) == NULL
622   || !_osd_wnt_sd_to_protection (
623           pSD, retVal,
624           _get_file_type (fName.ToCString(), INVALID_HANDLE_VALUE) == FLAG_DIRECTORY)
625  )
626    
627    _osd_wnt_set_error ( myError, OSD_WFileNode );
628
629  if ( pSD != NULL )
630
631   FreeFileSecurity ( pSD );
632
633  return retVal;
634
635 }  // end OSD_FileNode :: Protection
636
637 //=======================================================================
638 //function : SetProtection
639 //purpose  : 
640 //=======================================================================
641
642 void OSD_FileNode::SetProtection ( const OSD_Protection& Prot ) {
643
644  TCollection_AsciiString fName;
645  PSECURITY_DESCRIPTOR    pSD;
646
647  myPath.SystemName ( fName );
648  TCollection_ExtendedString fNameW(fName);
649
650  TEST_RAISE(  "SetProtection"  );
651
652  pSD = _osd_wnt_protection_to_sd (Prot,
653         _get_file_type (fName.ToCString(), INVALID_HANDLE_VALUE) == FLAG_DIRECTORY,
654         fNameW.ToWideString());
655  
656  if (pSD == NULL || !SetFileSecurityW (fNameW.ToWideString(), DACL_SECURITY_INFORMATION, pSD))
657   _osd_wnt_set_error (myError, OSD_WFileNode, fNameW.ToWideString());
658
659  if ( pSD != NULL )
660
661   FreeSD ( pSD );
662
663 }  // end OSD_FileNode :: SetProtection
664
665 #else /* UWP stub */
666
667 #include <io.h>
668
669 //=======================================================================
670 //function : Protection
671 //purpose  : 
672 //=======================================================================
673
674 OSD_Protection OSD_FileNode::Protection ()
675 {
676  TCollection_AsciiString fName;
677
678  myPath.SystemName ( fName );
679  TCollection_ExtendedString fNameW(fName);
680
681  OSD_SingleProtection aProt = OSD_None;
682  if (_waccess_s (fNameW.ToWideString(), 6))
683    aProt = OSD_RW;
684  else if (_waccess_s (fNameW.ToWideString(), 2))
685    aProt = OSD_W;
686  else if (_waccess_s (fNameW.ToWideString(), 4))
687    aProt = OSD_R;
688
689  // assume full access for system and none for everybody
690  OSD_Protection retVal (OSD_RWXD, aProt, aProt, OSD_None);
691  return retVal;
692 }  // end OSD_FileNode :: Protection
693
694 //=======================================================================
695 //function : SetProtection
696 //purpose  : 
697 //=======================================================================
698
699 void OSD_FileNode::SetProtection ( const OSD_Protection& /*Prot*/ )
700 {
701 }  // end OSD_FileNode :: SetProtection
702
703 #endif
704
705 //=======================================================================
706 //function : AccessMoment
707 //purpose  : 
708 //=======================================================================
709
710 Quantity_Date OSD_FileNode::AccessMoment () {
711
712  Quantity_Date           retVal;
713  SYSTEMTIME              stAccessMoment;
714  SYSTEMTIME              stAccessSystemMoment;
715  TCollection_AsciiString fName;
716
717  myPath.SystemName ( fName );
718  TCollection_ExtendedString fNameW(fName);
719
720  TEST_RAISE(  "AccessMoment"  );
721
722  if (_get_file_time (fNameW.ToWideString(), &stAccessSystemMoment, TRUE))
723 {
724   SYSTEMTIME * aSysTime = &stAccessMoment;
725   BOOL aFlag = SystemTimeToTzSpecificLocalTime (NULL ,
726                                                 &stAccessSystemMoment ,
727                                                 &stAccessMoment);
728   if (aFlag == 0) // AGV: test for success (e.g., unsupported on Win95/98)
729     aSysTime = &stAccessSystemMoment;
730   retVal.SetValues (aSysTime->wMonth,       aSysTime->wDay,
731                     aSysTime->wYear,        aSysTime->wHour,
732                     aSysTime->wMinute,      aSysTime->wSecond,
733                     aSysTime->wMilliseconds
734                     );
735 }
736  else
737  {
738   _osd_wnt_set_error (myError, OSD_WFileNode, fNameW.ToWideString());
739  }
740
741  return retVal;
742
743 }  // end OSD_FileNode :: AccessMoment
744
745 //=======================================================================
746 //function : CreationMoment
747 //purpose  : 
748 //=======================================================================
749
750 Quantity_Date OSD_FileNode::CreationMoment () {
751
752  Quantity_Date           retVal;
753  SYSTEMTIME              stCreationMoment;
754  SYSTEMTIME              stCreationSystemMoment;
755  TCollection_AsciiString fName;
756
757  myPath.SystemName ( fName );
758  TCollection_ExtendedString fNameW(fName);
759
760  TEST_RAISE(  "CreationMoment"  );
761
762  if (_get_file_time (fNameW.ToWideString(), &stCreationSystemMoment, TRUE))
763 {
764   SYSTEMTIME * aSysTime = &stCreationMoment;
765   BOOL aFlag = SystemTimeToTzSpecificLocalTime (NULL,
766                                                 &stCreationSystemMoment ,
767                                                 &stCreationMoment);
768   if (aFlag == 0) // AGV: test for success (e.g., unsupported on Win95/98)
769     aSysTime = &stCreationSystemMoment;
770   retVal.SetValues (aSysTime->wMonth,       aSysTime->wDay,
771                     aSysTime->wYear,        aSysTime->wHour,
772                     aSysTime->wMinute,      aSysTime->wSecond,
773                     aSysTime->wMilliseconds
774                     );
775 }
776  else
777  {
778   _osd_wnt_set_error (myError, OSD_WFileNode, fNameW.ToWideString());
779  }
780
781  return retVal;
782
783 }  // end OSD_FileNode :: CreationMoment
784
785 //=======================================================================
786 //function : Failed
787 //purpose  : 
788 //=======================================================================
789
790 Standard_Boolean OSD_FileNode::Failed () const {
791
792  return myError.Failed ();
793
794 }  // end OSD_FileNode :: Failed
795
796 //=======================================================================
797 //function : Reset
798 //purpose  : 
799 //=======================================================================
800
801 void OSD_FileNode::Reset () {
802
803  myError.Reset ();
804
805 }  // end OSD_FileNode :: Reset
806
807 //=======================================================================
808 //function : Perror
809 //purpose  : 
810 //=======================================================================
811
812 void OSD_FileNode::Perror () {
813
814  myError.Perror ();
815
816 }  // end OSD_FileNode :: Perror
817
818 //=======================================================================
819 //function : Error
820 //purpose  : 
821 //=======================================================================
822
823 Standard_Integer OSD_FileNode::Error () const {
824
825  return myError.Error ();
826
827 }  // end OSD_FileNode :: Error
828
829 void _osd_wnt_set_error ( OSD_Error& err, OSD_WhoAmI who, ... ) {
830
831  DWORD              errCode;
832
833  wchar_t buffer[2048];
834
835  va_list            arg_ptr;
836
837  va_start ( arg_ptr, who);
838
839  errCode = GetLastError ();
840
841  if (  !FormatMessageW (
842          FORMAT_MESSAGE_FROM_SYSTEM,
843          0, errCode, MAKELANGID( LANG_NEUTRAL, SUBLANG_NEUTRAL ),
844          buffer, 2048, &arg_ptr
845         )
846  ) {
847   StringCchPrintfW(buffer, _countof(buffer), L"error code %d", (Standard_Integer)errCode);
848
849   SetLastError ( errCode );
850
851  }  // end if
852
853  char aBufferA[2048];
854  WideCharToMultiByte(CP_UTF8, 0, buffer, -1, aBufferA, sizeof(aBufferA), NULL, NULL);
855  err.SetValue(errCode, who, aBufferA);
856
857  va_end ( arg_ptr );
858
859 }  // end _set_error
860
861 #if defined(__CYGWIN32__) || defined(__MINGW32__)
862 #define __try
863 #define __finally
864 #define __leave return retVal
865 #endif
866
867 static BOOL __fastcall _get_file_time (const wchar_t* fName, LPSYSTEMTIME lpSysTime, BOOL fAccess)
868 {
869  BOOL       retVal = FALSE;
870  FILETIME   ftCreationTime;
871  FILETIME   ftLastWriteTime;
872  LPFILETIME lpftPtr;
873  HANDLE     hFile = INVALID_HANDLE_VALUE;
874
875  __try {
876 #ifndef OCCT_UWP
877    if ((hFile = CreateFileW (fName, 0, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL)
878      ) == INVALID_HANDLE_VALUE
879      )
880 #else
881    CREATEFILE2_EXTENDED_PARAMETERS pCreateExParams = {};
882    pCreateExParams.dwSize = sizeof(CREATEFILE2_EXTENDED_PARAMETERS);
883    pCreateExParams.dwFileAttributes = FILE_ATTRIBUTE_NORMAL;
884    pCreateExParams.lpSecurityAttributes = NULL;
885    pCreateExParams.hTemplateFile = NULL;
886    if ((hFile = CreateFile2 (fName, NULL, NULL, OPEN_EXISTING, &pCreateExParams)) == INVALID_HANDLE_VALUE)
887 #endif
888     __leave;
889
890   if (  !GetFileTime ( hFile, &ftCreationTime, NULL, &ftLastWriteTime )  ) __leave;
891
892   lpftPtr = fAccess ? &ftLastWriteTime : &ftCreationTime;
893
894   if (  !FileTimeToSystemTime ( lpftPtr, lpSysTime )  ) __leave;
895
896   retVal = TRUE;
897
898  }  // end __try
899
900  __finally {
901  
902   if ( hFile != INVALID_HANDLE_VALUE )
903
904    CloseHandle ( hFile );
905  
906  }  // end __finally
907
908 #ifdef VAC
909 leave: ;      // added for VisualAge
910 #endif
911
912  return retVal;
913
914 }  // end _get_file_time
915
916 #if defined(__CYGWIN32__) || defined(__MINGW32__)
917 #undef __try
918 #undef __finally
919 #undef __leave
920 #endif
921
922 static void __fastcall _test_raise ( TCollection_AsciiString fName, Standard_CString str ) {
923  if (  fName.IsEmpty ()  ) {
924    TCollection_AsciiString buff = "OSD_FileNode :: ";
925    buff += str;
926    buff += " (): wrong access";
927
928    throw Standard_ProgramError(buff.ToCString());
929  }  // end if
930
931 }  // end _test_raise
932
933 #endif /* _WIN32 */