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-history.c

@@ -0,0 +1,122 @@
+#include <stdlib.h>
+#include <string.h>
+#include <stdio.h>
+
+#include "jim.h"
+#include "jimautoconf.h"
+#include "jim-subcmd.h"
+
+static int history_cmd_getline(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
+{
+    Jim_Obj *objPtr;
+    char *line = Jim_HistoryGetline(Jim_String(argv[0]));
+
+    /* On EOF returns -1 if varName was specified, or the empty string. */
+    if (line == NULL) {
+        if (argc == 2) {
+            Jim_SetResultInt(interp, -1);
+        }
+        return JIM_OK;
+    }
+
+    objPtr = Jim_NewStringObjNoAlloc(interp, line, -1);
+
+    /* Returns the length of the string if varName was specified */
+    if (argc == 2) {
+        if (Jim_SetVariable(interp, argv[1], objPtr) != JIM_OK) {
+            Jim_FreeNewObj(interp, objPtr);
+            return JIM_ERR;
+        }
+        Jim_SetResultInt(interp, Jim_Length(objPtr));
+    }
+    else {
+        Jim_SetResult(interp, objPtr);
+    }
+    return JIM_OK;
+}
+
+static int history_cmd_load(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
+{
+    Jim_HistoryLoad(Jim_String(argv[0]));
+    return JIM_OK;
+}
+
+static int history_cmd_save(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
+{
+    Jim_HistorySave(Jim_String(argv[0]));
+    return JIM_OK;
+}
+
+static int history_cmd_add(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
+{
+    Jim_HistoryAdd(Jim_String(argv[0]));
+    return JIM_OK;
+}
+
+static int history_cmd_show(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
+{
+    Jim_HistoryShow();
+    return JIM_OK;
+}
+
+static const jim_subcmd_type history_command_table[] = {
+    {   "getline",
+        "prompt ?varname?",
+        history_cmd_getline,
+        1,
+        2,
+        /* Description: Reads one line from the user. Similar to gets. */
+    },
+    {   "load",
+        "filename",
+        history_cmd_load,
+        1,
+        1,
+        /* Description: Loads history from the given file, if possible */
+    },
+    {   "save",
+        "filename",
+        history_cmd_save,
+        1,
+        1,
+        /* Description: Saves history to the given file */
+    },
+    {   "add",
+        "line",
+        history_cmd_add,
+        1,
+        1,
+        /* Description: Adds the line to the history ands saves */
+    },
+    {   "show",
+        NULL,
+        history_cmd_show,
+        0,
+        0,
+        /* Description: Displays the history */
+    },
+    { NULL }
+};
+
+static int JimHistorySubCmdProc(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
+{
+    return Jim_CallSubCmd(interp, Jim_ParseSubCmd(interp, history_command_table, argc, argv), argc, argv);
+}
+
+static void JimHistoryDelProc(Jim_Interp *interp, void *privData)
+{
+    Jim_Free(privData);
+}
+
+int Jim_historyInit(Jim_Interp *interp)
+{
+    void **history;
+    if (Jim_PackageProvide(interp, "history", "1.0", JIM_ERRMSG))
+        return JIM_ERR;
+
+    history = Jim_Alloc(sizeof(*history));
+    *history = NULL;
+
+    Jim_CreateCommand(interp, "history", JimHistorySubCmdProc, history, JimHistoryDelProc);
+    return JIM_OK;
+}