void Generator::GenCopyright() {
FILE *file = NULL;
if (coco_string_length(tab->frameDir) != 0) {
wchar_t *copyFr = coco_string_create_append(tab->frameDir, L"/Copyright.frame");
char *chCopyFr = coco_string_create_char(copyFr);
file = fopen(chCopyFr, "r");
delete [] copyFr;
delete [] chCopyFr;
}
if (file == NULL) {
wchar_t *copyFr = coco_string_create_append(tab->srcDir, L"Copyright.frame");
char *chCopyFr = coco_string_create_char(copyFr);
file = fopen(chCopyFr, "r");
delete [] copyFr;
delete [] chCopyFr;
}
if (file == NULL) {
return;
}
FILE *scannerFram = fram;
fram = file;
CopyFramePart(NULL);
fram = scannerFram;
fclose(file);
}
Scanner::Scanner(const wchar_t* fileName) {
FILE* stream;
char *chFileName = coco_string_create_char(fileName);
if ((stream = fopen(chFileName, "rb")) == NULL) {
wprintf(L"--- Cannot open file %ls\n", fileName);
exit(1);
}
coco_string_delete(chFileName);
buffer = new Buffer(stream, false);
Init();
}
FILE* Generator::OpenGen(const wchar_t *genName) { /* pdt */
wchar_t *fn = coco_string_create_append(tab->outDir, genName); /* pdt */
char *chFn = coco_string_create_char(fn);
if ((gen = fopen(chFn, "r")) != NULL) {
fclose(gen);
wchar_t *oldName = coco_string_create_append(fn, L".old");
char *chOldName = coco_string_create_char(oldName);
remove(chOldName); rename(chFn, chOldName); // copy with overwrite
coco_string_delete(chOldName);
coco_string_delete(oldName);
}
if ((gen = fopen(chFn, "w")) == NULL) {
wchar_t *message = coco_string_create_append(L"-- Cannot generate : ", genName);
errors->Exception(message);
delete [] message;
}
coco_string_delete(chFn);
coco_string_delete(fn);
return gen;
}
FILE* Generator::OpenFrame(const wchar_t* frame) {
if (coco_string_length(tab->frameDir) != 0) {
frameFile = coco_string_create_append(tab->frameDir, L"/");
coco_string_merge(frameFile, frame);
char *chFrameFile = coco_string_create_char(frameFile);
fram = fopen(chFrameFile, "r");
delete [] chFrameFile;
}
if (fram == NULL) {
delete [] frameFile;
frameFile = coco_string_create_append(tab->srcDir, frame); /* pdt */
char *chFrameFile = coco_string_create_char(frameFile);
fram = fopen(chFrameFile, "r");
delete [] chFrameFile;
}
if (fram == NULL) {
wchar_t *message = coco_string_create_append(L"-- Cannot find : ", frame);
errors->Exception(message);
delete [] message;
}
return fram;
}
Scanner::Scanner(const wchar_t* fileName) {
FILE* stream;
char *chFileName = coco_string_create_char(fileName);
if ((stream = fopen(chFileName, "rb")) == NULL) {
wprintf(L"--- Cannot open file %ls\n", fileName);
MX_DEBUG_BREAK;
exit(1);
}
coco_string_delete(chFileName);
buffer = new Buffer(stream, false);
Init();
//BEGIN
mFileName.SetString(MX_TO_ANSI(fileName));
//END
}
void Parser::Expon(int &p) {
char *name;
if (la->kind == 2) {
Get();
swscanf(t->val, L"%d",&p);
} else if (la->kind == 1) {
Get();
map<string, int>::iterator it = tab->find(coco_string_create_char(t->val));
if(it != tab->end()){
p = it->second;
}else{
p = 0;
printf("Unknowen var\n");
}
} else if (la->kind == 15) {
Get();
Expr(p);
Expect(16);
} else SynErr(18);
}
void Parser::Ident(char* &name) {
Expect(1);
name = coco_string_create_char(t->val);
}
int wmain(int argc, wchar_t *argv[]) {
#elif defined __GNUC__
int main(int argc, char *argv_[]) {
wchar_t ** argv = new wchar_t*[argc];
for (int i = 0; i < argc; ++i) {
argv[i] = coco_string_create(argv_[i]);
}
#else
#error unknown compiler!
#endif
wprintf(L"CocoXml/R (Oct 11, 2008)\n");
wchar_t *srcName = NULL, *nsName = NULL, *frameDir = NULL, *ddtString = NULL, *traceFileName = NULL;
wchar_t *outDir = NULL;
char *chTrFileName = NULL;
for (int i = 1; i < argc; i++) {
if (coco_string_equal(argv[i], L"-namespace") && i < argc - 1) nsName = coco_string_create(argv[++i]);
else if (coco_string_equal(argv[i], L"-frames") && i < argc - 1) frameDir = coco_string_create(argv[++i]);
else if (coco_string_equal(argv[i], L"-trace") && i < argc - 1) ddtString = coco_string_create(argv[++i]);
else if (coco_string_equal(argv[i], L"-o") && i < argc - 1) outDir = coco_string_create_append(argv[++i], L"/");
else srcName = coco_string_create(argv[i]);
}
#if defined __GNUC__
for (int i = 0; i < argc; ++i) {
coco_string_delete(argv[i]);
}
delete [] argv; argv = NULL;
#endif
if (argc > 0 && srcName != NULL) {
int pos = coco_string_lastindexof(srcName, '/');
if (pos < 0) pos = coco_string_lastindexof(srcName, '\\');
wchar_t* file = coco_string_create(srcName);
wchar_t* srcDir = coco_string_create(srcName, 0, pos+1);
CocoXml::Scanner *scanner = new CocoXml::Scanner(file);
CocoXml::Parser *parser = new CocoXml::Parser(scanner);
traceFileName = coco_string_create_append(srcDir, L"trace.txt");
chTrFileName = coco_string_create_char(traceFileName);
if ((parser->trace = fopen(chTrFileName, "w")) == NULL) {
wprintf(L"-- could not open %ls\n", chTrFileName);
exit(1);
}
parser->tab = new CocoXml::Tab(parser);
parser->xsdata = new CocoXml::XmlScannerData(parser);
parser->pgen = new CocoXml::ParserGen(parser);
parser->tab->srcName = coco_string_create(srcName);
parser->tab->srcDir = coco_string_create(srcDir);
parser->tab->nsName = coco_string_create(nsName);
parser->tab->frameDir = coco_string_create(frameDir);
parser->tab->outDir = coco_string_create(outDir != NULL ? outDir : srcDir);
if (ddtString != NULL) parser->tab->SetDDT(ddtString);
parser->Parse();
fclose(parser->trace);
// obtain the FileSize
parser->trace = fopen(chTrFileName, "r");
fseek(parser->trace, 0, SEEK_END);
long fileSize = ftell(parser->trace);
fclose(parser->trace);
if (fileSize == 0)
remove(chTrFileName);
else
wprintf(L"trace output is in %ls\n", chTrFileName);
wprintf(L"%d errors detected\n", parser->errors->count);
if (parser->errors->count != 0) {
exit(1);
}
delete parser->pgen;
delete parser->xsdata;
delete parser->tab;
delete parser;
delete scanner;
coco_string_delete(file);
coco_string_delete(srcDir);
} else {
wprintf(L"Usage: CocoXml Grammar.ATG {Option}\n");
wprintf(L"Options:\n");
wprintf(L" -namespace <namespaceName>\n");
wprintf(L" -frames <frameFilesDirectory>\n");
wprintf(L" -trace <traceString>\n");
wprintf(L" -o <outputDirectory>\n");
wprintf(L"Valid characters in the trace string:\n");
wprintf(L" A trace automaton\n");
wprintf(L" F list first/follow sets\n");
wprintf(L" G print syntax graph\n");
wprintf(L" I trace computation of first sets\n");
wprintf(L" J list ANY and SYNC sets\n");
wprintf(L" P print statistics\n");
wprintf(L" S list symbol table\n");
wprintf(L" X list cross reference table\n");
wprintf(L"XmlScanner.frame and XmlParser.frame files needed in ATG directory\n");
wprintf(L"or in a directory specified in the -frames option.\n");
}
coco_string_delete(srcName);
coco_string_delete(nsName);
coco_string_delete(frameDir);
coco_string_delete(ddtString);
coco_string_delete(chTrFileName);
coco_string_delete(traceFileName);
return 0;
}
