00001 // 00002 // DirectoryIterator_VMS.cpp 00003 // 00004 // $Id: //poco/1.3/Foundation/src/DirectoryIterator_VMS.cpp#1 $ 00005 // 00006 // Library: Foundation 00007 // Package: Filesystem 00008 // Module: DirectoryIterator 00009 // 00010 // Copyright (c) 2004-2006, Applied Informatics Software Engineering GmbH. 00011 // and Contributors. 00012 // 00013 // Permission is hereby granted, free of charge, to any person or organization 00014 // obtaining a copy of the software and accompanying documentation covered by 00015 // this license (the "Software") to use, reproduce, display, distribute, 00016 // execute, and transmit the Software, and to prepare derivative works of the 00017 // Software, and to permit third-parties to whom the Software is furnished to 00018 // do so, all subject to the following: 00019 // 00020 // The copyright notices in the Software and this entire statement, including 00021 // the above license grant, this restriction and the following disclaimer, 00022 // must be included in all copies of the Software, in whole or in part, and 00023 // all derivative works of the Software, unless such copies or derivative 00024 // works are solely in the form of machine-executable object code generated by 00025 // a source language processor. 00026 // 00027 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 00028 // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 00029 // FITNESS FOR A PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT 00030 // SHALL THE COPYRIGHT HOLDERS OR ANYONE DISTRIBUTING THE SOFTWARE BE LIABLE 00031 // FOR ANY DAMAGES OR OTHER LIABILITY, WHETHER IN CONTRACT, TORT OR OTHERWISE, 00032 // ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 00033 // DEALINGS IN THE SOFTWARE. 00034 // 00035 00036 00037 #include "Poco/DirectoryIterator_VMS.h" 00038 #include "Poco/Path.h" 00039 #include "Poco/Exception.h" 00040 #include <iodef.h> 00041 #include <atrdef.h> 00042 #include <fibdef.h> 00043 #include <starlet.h> 00044 00045 00046 namespace Poco { 00047 00048 00049 DirectoryIteratorImpl::DirectoryIteratorImpl(const std::string& path): _rc(1) 00050 { 00051 Path p(path); 00052 p.makeDirectory(); 00053 _search = p.toString(); 00054 _search.append("*.*;*"); 00055 00056 _fab = cc$rms_fab; 00057 _fab.fab$l_fna = (char*) _search.c_str(); 00058 _fab.fab$b_fns = _search.size(); 00059 _fab.fab$l_nam = &_nam; 00060 00061 _nam = cc$rms_nam; 00062 _nam.nam$l_esa = _spec; 00063 _nam.nam$b_ess = sizeof(_spec); 00064 00065 if (sys$parse(&_fab) & 1) 00066 throw OpenFileException(path); 00067 00068 next(); 00069 } 00070 00071 00072 DirectoryIteratorImpl::~DirectoryIteratorImpl() 00073 { 00074 } 00075 00076 00077 const std::string& DirectoryIteratorImpl::next() 00078 { 00079 if (sys$search(&_fab) & 1) 00080 _current.clear(); 00081 else 00082 _current.assign(_fab.fab$l_nam->nam$l_name, _fab.fab$l_nam->nam$b_name + _fab.fab$l_nam->nam$b_type); 00083 return _current; 00084 } 00085 00086 00087 } // namespace Poco