116 static int getargs (lua_State *L, char **argv, int n) {  in getargs()  argument
120   while (argv[argc]) argc++;  /* count total number of arguments */  in getargs()
124     lua_pushstring(L, argv[i]);  in getargs()
127     lua_pushstring(L, argv[i]);  in getargs()
239 static int handle_script (lua_State *L, char **argv, int n) {  in handle_script()  argument
242   int narg = getargs(L, argv, n);  /* collect arguments */  in handle_script()
244   fname = argv[n];  in handle_script()
245   if (strcmp(fname, "-") == 0 && strcmp(argv[n-1], "--") != 0)   in handle_script()
261 static int collectargs (char **argv, int *pi, int *pv, int *pe) {  in collectargs()  argument
263   for (i = 1; argv[i] != NULL; i++) {  in collectargs()
264     if (argv[i][0] != '-')  /* not an option? */  in collectargs()
266     switch (argv[i][1]) {  /* option */  in collectargs()
268         notail(argv[i]);  in collectargs()
269         return (argv[i+1] != NULL ? i+1 : 0);  in collectargs()
273         notail(argv[i]);  in collectargs()
276         notail(argv[i]);  in collectargs()
282         if (argv[i][2] == '\0') {  in collectargs()
284           if (argv[i] == NULL) return -1;  in collectargs()
294 static int runargs (lua_State *L, char **argv, int n) {  in runargs()  argument
297     if (argv[i] == NULL) continue;  in runargs()
298     lua_assert(argv[i][0] == '-');  in runargs()
299     switch (argv[i][1]) {  /* option */  in runargs()
301         const char *chunk = argv[i] + 2;  in runargs()
302         if (*chunk == '\0') chunk = argv[++i];  in runargs()
309         const char *filename = argv[i] + 2;  in runargs()
310         if (*filename == '\0') filename = argv[++i];  in runargs()
335   char **argv;  member
342   char **argv = s->argv;  in pmain()  local
346   if (argv[0] && argv[0][0]) progname = argv[0];  in pmain()
352   script = collectargs(argv, &has_i, &has_v, &has_e);  in pmain()
359   s->status = runargs(L, argv, (script > 0) ? script : s->argc);  in pmain()
362     s->status = handle_script(L, argv, script);  in pmain()
377 int main (int argc, char **argv) {  in main()  argument
382     l_message(argv[0], "cannot create state: not enough memory");  in main()
386   s.argv = argv;  in main()