diff options
Diffstat (limited to 'lua.c')
| -rw-r--r-- | lua.c | 36 |
1 files changed, 16 insertions, 20 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lua.c,v 1.13 1998/01/19 19:49:49 roberto Exp roberto $ | 2 | ** $Id: lua.c,v 1.14 1998/02/11 20:56:05 roberto Exp roberto $ |
| 3 | ** Lua stand-alone interpreter | 3 | ** Lua stand-alone interpreter |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -32,27 +32,27 @@ typedef void (*handler)(int); /* type for signal actions */ | |||
| 32 | 32 | ||
| 33 | static void laction (int i); | 33 | static void laction (int i); |
| 34 | 34 | ||
| 35 | static handler lreset (void) | 35 | |
| 36 | { | 36 | static handler lreset (void) { |
| 37 | lua_linehook = NULL; | 37 | lua_linehook = NULL; |
| 38 | lua_callhook = NULL; | 38 | lua_callhook = NULL; |
| 39 | return signal(SIGINT, laction); | 39 | return signal(SIGINT, laction); |
| 40 | } | 40 | } |
| 41 | 41 | ||
| 42 | static void lstop (void) | 42 | |
| 43 | { | 43 | static void lstop (void) { |
| 44 | lreset(); | 44 | lreset(); |
| 45 | lua_error("interrupted!"); | 45 | lua_error("interrupted!"); |
| 46 | } | 46 | } |
| 47 | 47 | ||
| 48 | static void laction (int i) | 48 | |
| 49 | { | 49 | static void laction (int i) { |
| 50 | lua_linehook = (lua_LHFunction)lstop; | 50 | lua_linehook = (lua_LHFunction)lstop; |
| 51 | lua_callhook = (lua_CHFunction)lstop; | 51 | lua_callhook = (lua_CHFunction)lstop; |
| 52 | } | 52 | } |
| 53 | 53 | ||
| 54 | static int ldo (int (*f)(char *), char *name) | 54 | |
| 55 | { | 55 | static int ldo (int (*f)(char *), char *name) { |
| 56 | int res; | 56 | int res; |
| 57 | handler h = lreset(); | 57 | handler h = lreset(); |
| 58 | res = f(name); /* dostring | dofile */ | 58 | res = f(name); /* dostring | dofile */ |
| @@ -61,8 +61,7 @@ static int ldo (int (*f)(char *), char *name) | |||
| 61 | } | 61 | } |
| 62 | 62 | ||
| 63 | 63 | ||
| 64 | static void print_message (void) | 64 | static void print_message (void) { |
| 65 | { | ||
| 66 | fprintf(stderr, | 65 | fprintf(stderr, |
| 67 | "Lua: command line options:\n" | 66 | "Lua: command line options:\n" |
| 68 | " -v print version information\n" | 67 | " -v print version information\n" |
| @@ -76,8 +75,7 @@ static void print_message (void) | |||
| 76 | } | 75 | } |
| 77 | 76 | ||
| 78 | 77 | ||
| 79 | static void assign (char *arg) | 78 | static void assign (char *arg) { |
| 80 | { | ||
| 81 | if (strlen(arg) >= 500) | 79 | if (strlen(arg) >= 500) |
| 82 | fprintf(stderr, "lua: shell argument too long"); | 80 | fprintf(stderr, "lua: shell argument too long"); |
| 83 | else { | 81 | else { |
| @@ -90,13 +88,11 @@ static void assign (char *arg) | |||
| 90 | } | 88 | } |
| 91 | } | 89 | } |
| 92 | 90 | ||
| 93 | #define BUF_SIZE 512 | ||
| 94 | 91 | ||
| 95 | static void manual_input (int prompt) | 92 | static void manual_input (int prompt) { |
| 96 | { | ||
| 97 | int cont = 1; | 93 | int cont = 1; |
| 98 | while (cont) { | 94 | while (cont) { |
| 99 | char buffer[BUF_SIZE]; | 95 | char buffer[BUFSIZ]; |
| 100 | int i = 0; | 96 | int i = 0; |
| 101 | lua_beginblock(); | 97 | lua_beginblock(); |
| 102 | if (prompt) | 98 | if (prompt) |
| @@ -112,13 +108,13 @@ static void manual_input (int prompt) | |||
| 112 | buffer[i-1] = '\n'; | 108 | buffer[i-1] = '\n'; |
| 113 | else break; | 109 | else break; |
| 114 | } | 110 | } |
| 115 | else if (i >= BUF_SIZE-1) { | 111 | else if (i >= BUFSIZ-1) { |
| 116 | fprintf(stderr, "lua: argument line too long\n"); | 112 | fprintf(stderr, "lua: argument line too long\n"); |
| 117 | break; | 113 | break; |
| 118 | } | 114 | } |
| 119 | else buffer[i++] = c; | 115 | else buffer[i++] = (char)c; |
| 120 | } | 116 | } |
| 121 | buffer[i] = 0; | 117 | buffer[i] = '\0'; |
| 122 | ldo(lua_dostring, buffer); | 118 | ldo(lua_dostring, buffer); |
| 123 | lua_endblock(); | 119 | lua_endblock(); |
| 124 | } | 120 | } |
