#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "lua.h"
#include "lauxlib.h"
#include "ldo.h"
#include "lfunc.h"
#include "lmem.h"
#include "lobject.h"
#include "lopcodes.h"
#include "lstring.h"
#include "lundump.h"
gehe zum Quellcode dieser Datei
#define PROGNAME "luac" /* default program name */ |
static void cannot |
( |
const char * |
what) | |
|
|
static |
static int doargs |
( |
int |
argc, |
|
|
char * |
argv[] |
|
) |
| |
|
static |
Definiert in Zeile 70 der Datei luac.c.
75 for (i=1; i<argc; i++)
82 if (version) ++version;
112 if (version==argc-1) exit(EXIT_SUCCESS);
static void fatal |
( |
const char * |
message) | |
|
|
static |
Definiert in Zeile 36 der Datei luac.c.
38 fprintf(stderr,
"%s: %s\n",
progname,message);
int main |
( |
int |
argc, |
|
|
char * |
argv[] |
|
) |
| |
Definiert in Zeile 186 der Datei luac.c.
192 if (
argc<=0)
usage(
"no input files given");
194 if (L==
NULL)
fatal(
"not enough memory for state");
Definiert in Zeile 158 der Datei luac.c.
166 for (i=0; i<
argc; i++)
168 const char* filename=
IS(
"-") ?
NULL : argv[i];
180 if (ferror(D))
cannot(
"write");
static void usage |
( |
const char * |
message) | |
|
|
static |
Definiert in Zeile 48 der Datei luac.c.
51 fprintf(stderr,
"%s: unrecognized option " LUA_QS "\n",
progname,message);
53 fprintf(stderr,
"%s: %s\n",
progname,message);
55 "usage: %s [options] [filenames].\n"
56 "Available options are:\n"
59 " -o name output to file " LUA_QL(
"name")
" (default is \"%s\")\n"
61 " -s strip debug information\n"
62 " -v show version information\n"
63 " -- stop handling options\n",
Definiert in Zeile 147 der Datei luac.c.
150 return (
fwrite(p,size,1,(
FILE*)u)!=1) && (size!=0);