jim-readdir.c

   1 /*
   2  * Tcl readdir command.
   3  *
   4  * (c) 2008 Steve Bennett <steveb@worware.net.au>
   5  *
   6  * Redistribution and use in source and binary forms, with or without
   7  * modification, are permitted provided that the following conditions
   8  * are met:
   9  *
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above
  13  *    copyright notice, this list of conditions and the following
  14  *    disclaimer in the documentation and/or other materials
  15  *    provided with the distribution.
  16  *
  17  * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
  18  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
  19  * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
  20  * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
  21  * JIM TCL PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
  22  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  23  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  24  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  25  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  26  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  27  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  28  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  29  *
  30  * The views and conclusions contained in the software and documentation
  31  * are those of the authors and should not be interpreted as representing
  32  * official policies, either expressed or implied, of the Jim Tcl Project.
  33  *
  34  * Based on original work by:
  35  *-----------------------------------------------------------------------------
  36  * Copyright 1991-1994 Karl Lehenbauer and Mark Diekhans.
  37  *
  38  * Permission to use, copy, modify, and distribute this software and its
  39  * documentation for any purpose and without fee is hereby granted, provided
  40  * that the above copyright notice appear in all copies.  Karl Lehenbauer and
  41  * Mark Diekhans make no representations about the suitability of this
  42  * software for any purpose.  It is provided "as is" without express or
  43  * implied warranty.
  44  *-----------------------------------------------------------------------------
  45  */
  46
  47 #include <errno.h>
  48 #include <stdio.h>
  49 #include <string.h>
  50
  51 #include <jim.h>
  52 #include <jimautoconf.h>
  53
  54 #ifdef HAVE_DIRENT_H
  55 #include <dirent.h>
  56 #endif
  57
  58 /*
  59  *-----------------------------------------------------------------------------
  60  *
  61  * Jim_ReaddirCmd --
  62  *     Implements the rename TCL command:
  63  *         readdir ?-nocomplain? dirPath
  64  *
  65  * Results:
  66  *      Standard TCL result.
  67  *-----------------------------------------------------------------------------
  68  */
  69 int Jim_ReaddirCmd(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
  70 {
  71     const char *dirPath;
  72     DIR *dirPtr;
  73     struct dirent *entryPtr;
  74     int nocomplain = 0;
  75
  76     if (argc == 3 && Jim_CompareStringImmediate(interp, argv[1], "-nocomplain")) {
  77         nocomplain = 1;
  78     }
  79     if (argc != 2 && !nocomplain) {
  80         Jim_WrongNumArgs(interp, 1, argv, "?-nocomplain? dirPath");
  81         return JIM_ERR;
  82     }
  83
  84     dirPath = Jim_String(argv[1 + nocomplain]);
  85
  86     dirPtr = opendir(dirPath);
  87     if (dirPtr == NULL) {
  88         if (nocomplain) {
  89             return JIM_OK;
  90         }
  91         Jim_SetResultString(interp, strerror(errno), -1);
  92         return JIM_ERR;
  93     }
  94     else {
  95         Jim_Obj *listObj = Jim_NewListObj(interp, NULL, 0);
  96
  97         while ((entryPtr = readdir(dirPtr)) != NULL) {
  98             if (entryPtr->d_name[0] == '.') {
  99                 if (entryPtr->d_name[1] == '\0') {
 100                     continue;
 101                 }
 102                 if ((entryPtr->d_name[1] == '.') && (entryPtr->d_name[2] == '\0'))
 103                     continue;
 104             }
 105             Jim_ListAppendElement(interp, listObj, Jim_NewStringObj(interp, entryPtr->d_name, -1));
 106         }
 107         closedir(dirPtr);
 108
 109         Jim_SetResult(interp, listObj);
 110
 111         return JIM_OK;
 112     }
 113 }
 114
 115 int Jim_readdirInit(Jim_Interp *interp)
 116 {
 117     if (Jim_PackageProvide(interp, "readdir", "1.0", JIM_ERRMSG))
 118         return JIM_ERR;
 119
 120     Jim_CreateCommand(interp, "readdir", Jim_ReaddirCmd, NULL, NULL);
 121     return JIM_OK;
 122 }