static void convert (FILE *fp)
{
char buf[256];
while (fgets (buf, 256, fp))
{
// convert ',' to '.'
char *ptr = buf;
while ((ptr = strchr (ptr, ',')))
{
*ptr++ = '.';
}
// read 4 doubles
double x0, y0, xe, ye;
sscanf (buf, "%lf %lf %lf %lf", &x0, &y0, &xe, &ye);
//
const double inch2meter = 0.0245;
x0 *= inch2meter;
y0 *= inch2meter;
xe *= inch2meter;
ye *= inch2meter;
AddLine (x0, y0, xe, ye);
}
DumpLines ();
}
static void DumpFunction(const Proto* tf, void* D)
{
DumpString(tf->source,D);
DumpInt(tf->lineDefined,D);
DumpInt(tf->numparams,D);
DumpByte(tf->is_vararg,D);
DumpInt(tf->maxstacksize,D);
DumpLocals(tf,D);
DumpLines(tf,D);
DumpConstants(tf,D);
DumpCode(tf,D);
}
static void DumpFunction(const Proto* f, const TString* p, DumpState* D)
{
DumpString((f->source==p) ? NULL : f->source,D);
DumpInt(f->lineDefined,D);
DumpByte(f->nups,D);
DumpByte(f->numparams,D);
DumpByte(f->is_vararg,D);
DumpByte(f->maxstacksize,D);
DumpLines(f,D);
DumpLocals(f,D);
DumpUpvalues(f,D);
DumpConstants(f,D);
DumpCode(f,D);
}
static void DumpFunction(const Proto* tf, FILE* D)
{
DumpString(tf->source,D);
DumpInt(tf->lineDefined,D);
DumpInt(tf->numparams,D);
DumpByte(tf->is_vararg,D);
DumpInt(tf->maxstacksize,D);
DumpLocals(tf,D);
DumpLines(tf,D);
DumpConstants(tf,D);
DumpCode(tf,D);
if (ferror(D))
{
perror("luac: write error");
exit(1);
}
}
