diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1995-10-06 11:11:40 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1995-10-06 11:11:40 -0300 |
| commit | 79ce6198763b4418f67ca6519cb5f745022f4a61 (patch) | |
| tree | 15ef258aeb8c62feee1efb74ea0599bf9a7d49f5 | |
| parent | 233f0b0cc734912a29551994ada7d9844cf54d40 (diff) | |
| download | lua-79ce6198763b4418f67ca6519cb5f745022f4a61.tar.gz lua-79ce6198763b4418f67ca6519cb5f745022f4a61.tar.bz2 lua-79ce6198763b4418f67ca6519cb5f745022f4a61.zip | |
new command line options: -v to print Copyright message, and
- to read stdin.
| -rw-r--r-- | lua.c | 22 |
1 files changed, 14 insertions, 8 deletions
| @@ -3,7 +3,7 @@ | |||
| 3 | ** Linguagem para Usuarios de Aplicacao | 3 | ** Linguagem para Usuarios de Aplicacao |
| 4 | */ | 4 | */ |
| 5 | 5 | ||
| 6 | char *rcs_lua="$Id: lua.c,v 1.3 1994/12/14 19:58:20 celes Exp $"; | 6 | char *rcs_lua="$Id: lua.c,v 1.4 1995/02/07 16:04:15 lhf Exp roberto $"; |
| 7 | 7 | ||
| 8 | #include <stdio.h> | 8 | #include <stdio.h> |
| 9 | #include <string.h> | 9 | #include <string.h> |
| @@ -33,6 +33,14 @@ static void lua_getargv (void) | |||
| 33 | } | 33 | } |
| 34 | 34 | ||
| 35 | 35 | ||
| 36 | static void manual_input (void) | ||
| 37 | { | ||
| 38 | char buffer[250]; | ||
| 39 | while (gets(buffer) != 0) | ||
| 40 | lua_dostring(buffer); | ||
| 41 | } | ||
| 42 | |||
| 43 | |||
| 36 | int main (int argc, char *argv[]) | 44 | int main (int argc, char *argv[]) |
| 37 | { | 45 | { |
| 38 | int i; | 46 | int i; |
| @@ -44,26 +52,24 @@ int main (int argc, char *argv[]) | |||
| 44 | lua_register("argv", lua_getargv); | 52 | lua_register("argv", lua_getargv); |
| 45 | 53 | ||
| 46 | if (argc < 2) | 54 | if (argc < 2) |
| 47 | { | 55 | manual_input(); |
| 48 | char buffer[250]; | ||
| 49 | while (gets(buffer) != 0) | ||
| 50 | result = lua_dostring(buffer); | ||
| 51 | } | ||
| 52 | else | 56 | else |
| 53 | { | 57 | { |
| 54 | for (i=1; i<argc; i++) | 58 | for (i=1; i<argc; i++) |
| 55 | { | ||
| 56 | if (strcmp(argv[i], "--") == 0) | 59 | if (strcmp(argv[i], "--") == 0) |
| 57 | { | 60 | { |
| 58 | lua_argc = argc-i-1; | 61 | lua_argc = argc-i-1; |
| 59 | lua_argv = argv+i; | 62 | lua_argv = argv+i; |
| 60 | break; | 63 | break; |
| 61 | } | 64 | } |
| 62 | } | ||
| 63 | for (i=1; i<argc; i++) | 65 | for (i=1; i<argc; i++) |
| 64 | { | 66 | { |
| 65 | if (strcmp(argv[i], "--") == 0) | 67 | if (strcmp(argv[i], "--") == 0) |
| 66 | break; | 68 | break; |
| 69 | else if (strcmp(argv[i], "-") == 0) | ||
| 70 | manual_input(); | ||
| 71 | else if (strcmp(argv[i], "-v") == 0) | ||
| 72 | printf("%s %s\n\n", LUA_VERSION, LUA_COPYRIGHT); | ||
| 67 | else | 73 | else |
| 68 | result = lua_dofile (argv[i]); | 74 | result = lua_dofile (argv[i]); |
| 69 | } | 75 | } |
