/* * readdir.c * * Copyright (c) 2009 The MacPorts Project * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of The MacPorts Project nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #if HAVE_CONFIG_H #include #endif #include #include #include "readdir.h" /** * * Return the list of elements in a directory. * Since 1.60.4.2, the list doesn't include . and .. * * Synopsis: readdir directory */ int ReaddirCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { DIR *dirp; struct dirent *mp; Tcl_Obj *tcl_result; char *path; if (objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "directory"); return TCL_ERROR; } path = Tcl_GetString(objv[1]); dirp = opendir(path); if (!dirp) { Tcl_SetResult(interp, "Cannot read directory", TCL_STATIC); return TCL_ERROR; } tcl_result = Tcl_NewListObj(0, NULL); while ((mp = readdir(dirp))) { /* Skip . and .. */ if ((mp->d_name[0] != '.') || ((mp->d_name[1] != 0) /* "." */ && ((mp->d_name[1] != '.') || (mp->d_name[2] != 0)))) /* ".." */ { Tcl_ListObjAppendElement(interp, tcl_result, Tcl_NewStringObj(mp->d_name, -1)); } } closedir(dirp); Tcl_SetObjResult(interp, tcl_result); return TCL_OK; } /** * * Return 1 if there are no entries in a directory (other than . and ..), 0 otherwise * * Synopsis: dirempty directory */ int DiremptyCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { DIR *dirp; struct dirent *mp; Tcl_Obj *tcl_result; char *path; if (objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "directory"); return TCL_ERROR; } path = Tcl_GetString(objv[1]); dirp = opendir(path); if (!dirp) { Tcl_SetResult(interp, "Cannot read directory", TCL_STATIC); return TCL_ERROR; } tcl_result = Tcl_NewIntObj(1); while ((mp = readdir(dirp))) { /* Skip . and .. */ if ((mp->d_name[0] != '.') || ((mp->d_name[1] != 0) /* "." */ && ((mp->d_name[1] != '.') || (mp->d_name[2] != 0)))) /* ".." */ { Tcl_SetIntObj(tcl_result, 0); break; } } closedir(dirp); Tcl_SetObjResult(interp, tcl_result); return TCL_OK; }