debuggers: import openocd-0.7.0

Initial check-in of openocd-0.7.0 as it can be downloaded from
http://sourceforge.net/projects/openocd/files/openocd/0.7.0/

Any modifications will follow.

Change-Id: I6949beaefd589e046395ea0cb80f4e1ab1654d55

debuggers/openocd/jimtcl/jim-load.c

@@ -0,0 +1,128 @@
+#include <string.h>
+
+#include "jimautoconf.h"
+#include <jim.h>
+
+/* -----------------------------------------------------------------------------
+ * Dynamic libraries support (WIN32 not supported)
+ * ---------------------------------------------------------------------------*/
+
+#if defined(HAVE_DLOPEN) || defined(HAVE_DLOPEN_COMPAT)
+
+#ifdef HAVE_DLFCN_H
+#include <dlfcn.h>
+#endif
+
+#ifndef RTLD_NOW
+    #define RTLD_NOW 0
+#endif
+#ifndef RTLD_LOCAL
+    #define RTLD_LOCAL 0
+#endif
+
+/**
+ * Note that Jim_LoadLibrary() requires a path to an existing file.
+ *
+ * If it is necessary to search JIM_LIBPATH, use Jim_PackageRequire() instead.
+ */
+int Jim_LoadLibrary(Jim_Interp *interp, const char *pathName)
+{
+    void *handle = dlopen(pathName, RTLD_NOW | RTLD_LOCAL);
+    if (handle == NULL) {
+        Jim_SetResultFormatted(interp, "error loading extension \"%s\": %s", pathName,
+            dlerror());
+    }
+    else {
+        /* We use a unique init symbol depending on the extension name.
+         * This is done for compatibility between static and dynamic extensions.
+         * For extension readline.so, the init symbol is "Jim_readlineInit"
+         */
+        const char *pt;
+        const char *pkgname;
+        int pkgnamelen;
+        char initsym[40];
+        typedef int jim_module_init_func_type(Jim_Interp *);
+        jim_module_init_func_type *onload;
+
+        pt = strrchr(pathName, '/');
+        if (pt) {
+            pkgname = pt + 1;
+        }
+        else {
+            pkgname = pathName;
+        }
+        pt = strchr(pkgname, '.');
+        if (pt) {
+            pkgnamelen = pt - pkgname;
+        }
+        else {
+            pkgnamelen = strlen(pkgname);
+        }
+        snprintf(initsym, sizeof(initsym), "Jim_%.*sInit", pkgnamelen, pkgname);
+
+        if ((onload = (jim_module_init_func_type *)dlsym(handle, initsym)) == NULL) {
+            Jim_SetResultFormatted(interp,
+                "No %s symbol found in extension %s", initsym, pathName);
+        }
+        else if (onload(interp) != JIM_ERR) {
+            /* Add this handle to the stack of handles to be freed */
+            if (!interp->loadHandles) {
+                interp->loadHandles = Jim_Alloc(sizeof(*interp->loadHandles));
+                Jim_InitStack(interp->loadHandles);
+            }
+            Jim_StackPush(interp->loadHandles, handle);
+
+            Jim_SetEmptyResult(interp);
+
+            return JIM_OK;
+        }
+    }
+    if (handle) {
+        dlclose(handle);
+    }
+    return JIM_ERR;
+}
+
+static void JimFreeOneLoadHandle(void *handle)
+{
+    dlclose(handle);
+}
+
+void Jim_FreeLoadHandles(Jim_Interp *interp)
+{
+    if (interp->loadHandles) {
+        Jim_FreeStackElements(interp->loadHandles, JimFreeOneLoadHandle);
+        Jim_Free(interp->loadHandles);
+    }
+}
+
+#else /* JIM_DYNLIB */
+int Jim_LoadLibrary(Jim_Interp *interp, const char *pathName)
+{
+    JIM_NOTUSED(interp);
+    JIM_NOTUSED(pathName);
+
+    Jim_SetResultString(interp, "the Jim binary has no support for [load]", -1);
+    return JIM_ERR;
+}
+
+void Jim_FreeLoadHandles(Jim_Interp *interp)
+{
+}
+#endif /* JIM_DYNLIB */
+
+/* [load] */
+static int Jim_LoadCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
+{
+    if (argc < 2) {
+        Jim_WrongNumArgs(interp, 1, argv, "libaryFile");
+        return JIM_ERR;
+    }
+    return Jim_LoadLibrary(interp, Jim_String(argv[1]));
+}
+
+int Jim_loadInit(Jim_Interp *interp)
+{
+    Jim_CreateCommand(interp, "load", Jim_LoadCoreCommand, NULL, NULL);
+    return JIM_OK;
+}