Cutover to new workware fork of Jim Tcl

Note that this commit removes some files and undoes
some commits which will be reapplied later.
This is the easiest way to switch across.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 122 insertions, 120 deletions

diff --git a/jim-readdir.c b/jim-readdir.c
index 8b4d3ba..8dcd4cf 100644
--- a/jim-readdir.c
+++ b/jim-readdir.c
@@ -1,120 +1,122 @@
-/*
- * 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;
-}
+/*

+ * (c) 2008 Steve Bennett <steveb@worware.net.au>

+ *

+ * Tcl readdir command.

+ *

+ * The FreeBSD license

+ * 

+ * 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.

+ *-----------------------------------------------------------------------------

+ */

+

+#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;

+}