1 martin 1.19 //%LICENSE////////////////////////////////////////////////////////////////

 2 martin 1.20 //

 3 martin 1.19 // Licensed to The Open Group (TOG) under one or more contributor license
 4             // agreements.  Refer to the OpenPegasusNOTICE.txt file distributed with
 5             // this work for additional information regarding copyright ownership.
 6             // Each contributor licenses this file to you under the OpenPegasus Open
 7             // Source License; you may not use this file except in compliance with the
 8             // License.

 9 martin 1.20 //

10 martin 1.19 // Permission is hereby granted, free of charge, to any person obtaining a
11             // copy of this software and associated documentation files (the "Software"),
12             // to deal in the Software without restriction, including without limitation
13             // the rights to use, copy, modify, merge, publish, distribute, sublicense,
14             // and/or sell copies of the Software, and to permit persons to whom the
15             // Software is furnished to do so, subject to the following conditions:

16 martin 1.20 //

17 martin 1.19 // The above copyright notice and this permission notice shall be included
18             // in all copies or substantial portions of the Software.

19 martin 1.20 //

20 martin 1.19 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

21 martin 1.20 // OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

22 martin 1.19 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
23             // IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
24             // CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
25             // TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
26             // SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

27 martin 1.20 //

28 martin 1.19 //////////////////////////////////////////////////////////////////////////

29 mike   1.7  //
30             //%/////////////////////////////////////////////////////////////////////////////
31             
32             #include "Dir.h"

33 kumpf  1.9  #include "InternalException.h"

34 mike   1.7  
35             PEGASUS_NAMESPACE_BEGIN
36             
37             #include <direct.h>
38             
39             

40 a.arora 1.14 Dir::Dir(const String& path)

41 mike    1.7  {

42 a.arora 1.14     _dirRep.file = _findfirst((path+"/*").getCString(), &_dirRep.findData);

43 mike    1.7  

44 a.arora 1.14     if (_dirRep.file == -1)

45 mike    1.7      {

46 kumpf   1.18         _more = false;
47                      throw CannotOpenDirectory(path);

48 mike    1.7      }
49                  else

50 kumpf   1.18         _more = true;

51 mike    1.7  }
52              
53              Dir::~Dir()
54              {

55 a.arora 1.14     if (_dirRep.file != -1)

56 kumpf   1.18         _findclose(_dirRep.file);

57 mike    1.7  
58              }
59              
60              const char* Dir::getName() const
61              {

62 a.arora 1.14     return _dirRep.findData.name;

63 mike    1.7  }
64              
65              void Dir::next()
66              {
67                  if (!_more)

68 kumpf   1.18         return;

69 mike    1.7  

70 a.arora 1.14     _more = _findnext(_dirRep.file, &_dirRep.findData) == 0;

71 mike    1.7  }
72              
73              PEGASUS_NAMESPACE_END