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