release/src/router/usbmodeswitch/jim/jim-interactive.c

   1 #include <errno.h>
   2 #include <string.h>
   3 #include "jim.h"
   4 #include "jimautoconf.h"
   5
   6 #ifdef USE_LINENOISE
   7 #include <unistd.h>
   8 #include "linenoise.h"
   9 #else
  10
  11 #define MAX_LINE_LEN 512
  12
  13 static char *linenoise(const char *prompt)
  14 {
  15     char *line = malloc(MAX_LINE_LEN);
  16
  17     fputs(prompt, stdout);
  18     fflush(stdout);
  19
  20     if (fgets(line, MAX_LINE_LEN, stdin) == NULL) {
  21         free(line);
  22         return NULL;
  23     }
  24     return line;
  25 }
  26 #endif
  27
  28 int Jim_InteractivePrompt(Jim_Interp *interp)
  29 {
  30     int retcode = JIM_OK;
  31     char *history_file = NULL;
  32 #ifdef USE_LINENOISE
  33     const char *home;
  34
  35     home = getenv("HOME");
  36     if (home && isatty(STDIN_FILENO)) {
  37         int history_len = strlen(home) + sizeof("/.jim_history");
  38         history_file = Jim_Alloc(history_len);
  39         snprintf(history_file, history_len, "%s/.jim_history", home);
  40         linenoiseHistoryLoad(history_file);
  41     }
  42 #endif
  43
  44     printf("Welcome to Jim version %d.%d" JIM_NL,
  45         JIM_VERSION / 100, JIM_VERSION % 100);
  46     Jim_SetVariableStrWithStr(interp, JIM_INTERACTIVE, "1");
  47
  48     while (1) {
  49         Jim_Obj *scriptObjPtr;
  50         const char *result;
  51         int reslen;
  52         char prompt[20];
  53         const char *str;
  54
  55         if (retcode != 0) {
  56             const char *retcodestr = Jim_ReturnCode(retcode);
  57
  58             if (*retcodestr == '?') {
  59                 snprintf(prompt, sizeof(prompt) - 3, "[%d] ", retcode);
  60             }
  61             else {
  62                 snprintf(prompt, sizeof(prompt) - 3, "[%s] ", retcodestr);
  63             }
  64         }
  65         else {
  66             prompt[0] = '\0';
  67         }
  68         strcat(prompt, ". ");
  69
  70         scriptObjPtr = Jim_NewStringObj(interp, "", 0);
  71         Jim_IncrRefCount(scriptObjPtr);
  72         while (1) {
  73             char state;
  74             int len;
  75             char *line;
  76
  77             line = linenoise(prompt);
  78             if (line == NULL) {
  79                 if (errno == EINTR) {
  80                     continue;
  81                 }
  82                 Jim_DecrRefCount(interp, scriptObjPtr);
  83                 goto out;
  84             }
  85             if (Jim_Length(scriptObjPtr) != 0) {
  86                 Jim_AppendString(interp, scriptObjPtr, "\n", 1);
  87             }
  88             Jim_AppendString(interp, scriptObjPtr, line, -1);
  89             free(line);
  90             str = Jim_GetString(scriptObjPtr, &len);
  91             if (len == 0) {
  92                 continue;
  93             }
  94             if (Jim_ScriptIsComplete(str, len, &state))
  95                 break;
  96
  97             snprintf(prompt, sizeof(prompt), "%c> ", state);
  98         }
  99 #ifdef USE_LINENOISE
 100         if (strcmp(str, "h") == 0) {
 101             /* built-in history command */
 102             int i;
 103             int len;
 104             char **history = linenoiseHistory(&len);
 105             for (i = 0; i < len; i++) {
 106                 printf("%4d %s\n", i + 1, history[i]);
 107             }
 108             Jim_DecrRefCount(interp, scriptObjPtr);
 109             continue;
 110         }
 111
 112         linenoiseHistoryAdd(Jim_String(scriptObjPtr));
 113         if (history_file) {
 114             linenoiseHistorySave(history_file);
 115         }
 116 #endif
 117         retcode = Jim_EvalObj(interp, scriptObjPtr);
 118         Jim_DecrRefCount(interp, scriptObjPtr);
 119
 120
 121
 122         if (retcode == JIM_EXIT) {
 123             Jim_Free(history_file);
 124             return JIM_EXIT;
 125         }
 126         if (retcode == JIM_ERR) {
 127             Jim_MakeErrorMessage(interp);
 128         }
 129         result = Jim_GetString(Jim_GetResult(interp), &reslen);
 130         if (reslen) {
 131             printf("%s\n", result);
 132         }
 133     }
 134   out:
 135     Jim_Free(history_file);
 136     return JIM_OK;
 137 }