diff options
author | Øyvind Harboe <oyvind.harboe@zylin.com> | 2010-02-21 21:27:23 +0100 |
---|---|---|
committer | Øyvind Harboe <oyvind.harboe@zylin.com> | 2010-02-21 21:27:23 +0100 |
commit | 4aa0c56d48fe3e4f04ed33d1b5786398db56d43d (patch) | |
tree | 3b4f6b557bb133bae08ba72c4099b1916477b091 /jim-readdir.c | |
parent | d93957f71062edb53b34e3033b512e942de458c4 (diff) | |
download | jimtcl-4aa0c56d48fe3e4f04ed33d1b5786398db56d43d.zip jimtcl-4aa0c56d48fe3e4f04ed33d1b5786398db56d43d.tar.gz jimtcl-4aa0c56d48fe3e4f04ed33d1b5786398db56d43d.tar.bz2 |
dos2unix: convert to unix line endings
To ease rebasing
Signed-off-by: Øyvind Harboe <oyvind.harboe@zylin.com>
Diffstat (limited to 'jim-readdir.c')
-rw-r--r-- | jim-readdir.c | 240 |
1 files changed, 120 insertions, 120 deletions
diff --git a/jim-readdir.c b/jim-readdir.c index 9942167..8b4d3ba 100644 --- a/jim-readdir.c +++ b/jim-readdir.c @@ -1,120 +1,120 @@ -/*
- * Copyright (c) 2008 Steve Bennett <steveb@worware.net.au>
- *
- * 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.
- *
- * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``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
- * JIM TCL PROJECT 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.
- *
- * The views and conclusions contained in the software and documentation
- * are those of the authors and should not be interpreted as representing
- * official policies, either expressed or implied, of the Jim Tcl Project.
- *
- * Based on original work by:
- *-----------------------------------------------------------------------------
- * Copyright 1991-1994 Karl Lehenbauer and Mark Diekhans.
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted, provided
- * that the above copyright notice appear in all copies. Karl Lehenbauer and
- * Mark Diekhans make no representations about the suitability of this
- * software for any purpose. It is provided "as is" without express or
- * implied warranty.
- *-----------------------------------------------------------------------------
- *
- * Tcl readdir command.
- */
-
-#include <errno.h>
-#include <stdio.h>
-#include <string.h>
-#include <dirent.h>
-
-#define JIM_EXTENSION
-#include "jim.h"
-
-/*
- *-----------------------------------------------------------------------------
- *
- * Jim_ReaddirCmd --
- * Implements the rename TCL command:
- * readdir ?-nocomplain? dirPath
- *
- * Results:
- * Standard TCL result.
- *-----------------------------------------------------------------------------
- */
-int
-Jim_ReaddirCmd (Jim_Interp *interp, int argc, Jim_Obj *const *argv)
-{
- const char *dirPath;
- DIR *dirPtr;
- struct dirent *entryPtr;
- int nocomplain = 0;
-
- if (argc == 3 && Jim_CompareStringImmediate(interp, argv[1], "-nocomplain")) {
- nocomplain = 1;
- }
- if (argc != 2 && !nocomplain) {
- Jim_WrongNumArgs(interp, 1, argv, "?-nocomplain? dirPath");
- return JIM_ERR;
- }
-
- dirPath = Jim_GetString(argv[1 + nocomplain], NULL);
-
- dirPtr = opendir (dirPath);
- if (dirPtr == NULL) {
- if (nocomplain) {
- return JIM_OK;
- }
- Jim_SetResultString(interp, strerror(errno), -1);
- return JIM_ERR;
- }
- Jim_SetResultString(interp, strerror(errno), -1);
-
- Jim_SetResult(interp, Jim_NewListObj(interp, NULL, 0));
-
- while ((entryPtr = readdir (dirPtr)) != NULL) {
- if (entryPtr->d_name [0] == '.') {
- if (entryPtr->d_name [1] == '\0') {
- continue;
- }
- if ((entryPtr->d_name [1] == '.') &&
- (entryPtr->d_name [2] == '\0'))
- continue;
- }
- Jim_ListAppendElement(interp, Jim_GetResult(interp), Jim_NewStringObj(interp, entryPtr->d_name, -1));
- }
- closedir (dirPtr);
-
- return JIM_OK;
-}
-
-int Jim_OnLoad(Jim_Interp *interp)
-{
- Jim_InitExtension(interp);
- if (Jim_PackageProvide(interp, "readdir", "1.0", JIM_ERRMSG) != JIM_OK) {
- return JIM_ERR;
- }
- Jim_CreateCommand(interp, "readdir", Jim_ReaddirCmd, NULL, NULL);
- return JIM_OK;
-}
+/* + * Copyright (c) 2008 Steve Bennett <steveb@worware.net.au> + * + * 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. + * + * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``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 + * JIM TCL PROJECT 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. + * + * The views and conclusions contained in the software and documentation + * are those of the authors and should not be interpreted as representing + * official policies, either expressed or implied, of the Jim Tcl Project. + * + * Based on original work by: + *----------------------------------------------------------------------------- + * Copyright 1991-1994 Karl Lehenbauer and Mark Diekhans. + * + * Permission to use, copy, modify, and distribute this software and its + * documentation for any purpose and without fee is hereby granted, provided + * that the above copyright notice appear in all copies. Karl Lehenbauer and + * Mark Diekhans make no representations about the suitability of this + * software for any purpose. It is provided "as is" without express or + * implied warranty. + *----------------------------------------------------------------------------- + * + * Tcl readdir command. + */ + +#include <errno.h> +#include <stdio.h> +#include <string.h> +#include <dirent.h> + +#define JIM_EXTENSION +#include "jim.h" + +/* + *----------------------------------------------------------------------------- + * + * Jim_ReaddirCmd -- + * Implements the rename TCL command: + * readdir ?-nocomplain? dirPath + * + * Results: + * Standard TCL result. + *----------------------------------------------------------------------------- + */ +int +Jim_ReaddirCmd (Jim_Interp *interp, int argc, Jim_Obj *const *argv) +{ + const char *dirPath; + DIR *dirPtr; + struct dirent *entryPtr; + int nocomplain = 0; + + if (argc == 3 && Jim_CompareStringImmediate(interp, argv[1], "-nocomplain")) { + nocomplain = 1; + } + if (argc != 2 && !nocomplain) { + Jim_WrongNumArgs(interp, 1, argv, "?-nocomplain? dirPath"); + return JIM_ERR; + } + + dirPath = Jim_GetString(argv[1 + nocomplain], NULL); + + dirPtr = opendir (dirPath); + if (dirPtr == NULL) { + if (nocomplain) { + return JIM_OK; + } + Jim_SetResultString(interp, strerror(errno), -1); + return JIM_ERR; + } + Jim_SetResultString(interp, strerror(errno), -1); + + Jim_SetResult(interp, Jim_NewListObj(interp, NULL, 0)); + + while ((entryPtr = readdir (dirPtr)) != NULL) { + if (entryPtr->d_name [0] == '.') { + if (entryPtr->d_name [1] == '\0') { + continue; + } + if ((entryPtr->d_name [1] == '.') && + (entryPtr->d_name [2] == '\0')) + continue; + } + Jim_ListAppendElement(interp, Jim_GetResult(interp), Jim_NewStringObj(interp, entryPtr->d_name, -1)); + } + closedir (dirPtr); + + return JIM_OK; +} + +int Jim_OnLoad(Jim_Interp *interp) +{ + Jim_InitExtension(interp); + if (Jim_PackageProvide(interp, "readdir", "1.0", JIM_ERRMSG) != JIM_OK) { + return JIM_ERR; + } + Jim_CreateCommand(interp, "readdir", Jim_ReaddirCmd, NULL, NULL); + return JIM_OK; +} |