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);
}
void Generator::CopyFramePart(const wchar_t* stop, bool generateOutput) {
wchar_t startCh = 0;
int endOfStopString = 0;
wchar_t ch = 0;
if (stop != NULL) {
startCh = stop[0];
endOfStopString = coco_string_length(stop)-1;
}
fwscanf(fram, L"%lc", &ch); // fram.ReadByte();
while (!feof(fram)) { // ch != EOF
if (stop != NULL && ch == startCh) {
int i = 0;
do {
if (i == endOfStopString) return; // stop[0..i] found
fwscanf(fram, L"%lc", &ch); i++;
} while (ch == stop[i]);
// stop[0..i-1] found; continue with last read character
if (generateOutput) {
wchar_t *subStop = coco_string_create(stop, 0, i);
fwprintf(gen, L"%ls", subStop);
coco_string_delete(subStop);
}
} else {
if (generateOutput) { fwprintf(gen, L"%lc", ch); }
fwscanf(fram, L"%lc", &ch);
}
}
if (stop != NULL) {
wchar_t *message = coco_string_create_append(L" -- Incomplete or corrupt frame file: ", frameFile);
errors->Exception(message);
delete [] message;
}
}
void coco_string_merge(wchar_t* &target, const wchar_t* appendix) {
if (!appendix) {
return;
}
wchar_t* data = coco_string_create_append(target, appendix);
delete [] target;
target = data;
}
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;
}
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;
}
