bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

support for VLIR structured files when using ca65 only

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1340 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst
2002-07-10 18:43:04 +00:00
parent da3baace1f
commit a152fe71c5
3 changed files with 263 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

155
src/grc/grc.c
View File

@@ -2,7 +2,7 @@
/*
GEOS resource compiler
by Maciej 'YTM/Alliance' Witkowiak
by Maciej 'YTM/Elysium' Witkowiak
Error function by Uz
@@ -59,6 +59,15 @@ void printSHeader (void) {
"\n;\n\n");
}
void printVHeader (void) {
fprintf(outputVFile, "\n#\n#\tThis file was generated by GEOS Resource Compiler\n#"
"\n#\tDO NOT EDIT! Any changes will be lost!\n#"
"\n#\tEdit proper resource file instead\n#"
"\n#\tLook at end of this file to find commandline that must be used\n"
"#\tto invoke ld65 and vlink\n#"
"\n#\n\n");
}
void openCFile (void) {
if ((CFnum==0) && (forceFlag==0)) {
/* test if file exists already and no forcing*/
@@ -81,13 +90,25 @@ void openSFile (void) {
if (SFnum==0) { outputSMode[0]='a'; printSHeader(); SFnum++; }
}
void openVFile (void) {
if ((VFnum==0) && (forceFlag==0)) {
/* test if file exists already and no forcing*/
if ((outputVFile = fopen (outputVName,"r"))!=0)
Error("file %s already exists, no forcing, aborting\n", outputVName);
}
if ((outputVFile = fopen (outputVName,outputVMode))==0)
Error("can't open file %s for writting: %s\n",outputVName,strerror (errno));
if (VFnum==0) { outputVMode[0]='a'; printVHeader(); VFnum++; }
}
void printUsage (void) {
fprintf(stderr, "Usage: %s [options] file\n"
"Options:\n"
"\t-h, -?\t\tthis help\n"
"\t-f\t\tforce writting files\n"
"\t-o name\t\tname C output file\n"
"\t-s name\t\tname asm output file\n",
"\t-s name\t\tname asm output file\n"
"\t-l name\t\tname ld65 config output file (for vlir)\n",
progName);
}
@@ -277,6 +298,7 @@ int a, b;
myHead.author = "cc65";
myHead.info = "Program compiled with cc65 and GEOSLib.";
myHead.dostype = 128+3;
myHead.structure = 0;
myHead.mode = 0;
t = time(NULL);
@@ -334,6 +356,18 @@ int a, b;
myHead.mode = 0x80; break;
}
break;
case 5: /* structure */
switch (b = findToken(hdrStructTp, nextWord())) {
case -1:
Error ("unknown structure type in header %s\n", myHead.dosname);
case 0:
case 1:
myHead.structure = 0; break;
case 2:
case 3:
myHead.structure = 1; break;
}
break;
}
} while (strcmp(token, "}")!=0);
@@ -346,11 +380,11 @@ int a, b;
fillOut(myHead.dosname,16,"$a0");
fprintf(outputSFile,
".word 0\n\t\t.byte 0\n\t\t.byte %i\n\t\t.byte %i, %i, %i, %i, %i\n\n\t\t"
".word 0\n\t\t.byte %i\n\t\t.byte %i\n\t\t.byte %i, %i, %i, %i, %i\n\n\t\t"
".word 0\n\t\t.byte \"PRG formatted GEOS file V1.0\"\n\n\t\t.res $c4\n\n\t\t"
".byte 3, 21, 63 | $80\n\t\t",
myHead.geostype, myHead.year, myHead.month, myHead.day, myHead.hour,
myHead.min);
myHead.structure, myHead.geostype, myHead.year, myHead.month, myHead.day,
myHead.hour, myHead.min);
for (a=0;a!=63;a=a+3) {
fprintf(outputSFile,
@@ -358,8 +392,8 @@ int a, b;
bintos(icon1[a], i1), bintos(icon1[a+1], i2), bintos(icon1[a+2], i3)); };
fprintf(outputSFile,
"\n\t\t.byte %i, %i, 0\n\t\t.word $0400, $0400-1, $0400\n\n\t\t",
myHead.dostype, myHead.geostype);
"\n\t\t.byte %i, %i, %i\n\t\t.word $0400, $0400-1, $0400\n\n\t\t",
myHead.dostype, myHead.geostype, myHead.structure);
fillOut(myHead.classname,12,"$20");
@@ -384,6 +418,89 @@ int a, b;
}
void DoVLIR (void) {
char *token;
char *headname;
int i,numchains,vlirbase;
struct vlirentry {
char *chainname;
int exist;
};
struct vlirentry vlirtable[127];
openVFile();
headname = nextWord();
vlirbase = strtol(nextWord(),NULL,0);
if (strcmp(nextWord(),"{")!=0) {
Error ("VLIR description has no opening bracket!\n");
};
numchains=0;
do {
token=nextWord();
if (strcmp(token, "}")==0) break;
numchains++;
if (numchains>127) {
Error("Too many VLIR chains!\n");
}
vlirtable[numchains].chainname=token;
/* for first chain - name header */
if (numchains==1) {
fprintf(outputVFile,"MEMORY {\n\tHEADER: start = $204, size = 508, file = \"%s\";\n"
"\tVLIR0: start = $0400, size = $5C00, file = \"%s\";\n",headname,token);
} else {
/* for all other - segment */
/* ignore non-existing segments */
vlirtable[numchains].exist=1;
if ( (strcmp(token,"blank")==0) || (strcmp(token,"noexist")==0) ) {
vlirtable[numchains].exist=0;
fprintf(outputVFile,"#");
}
fprintf(outputVFile,"\tVLIR%i: start = $%x, size = $%x, file = \"%s\";\n",
numchains-1,vlirbase,0x5c00-vlirbase,token);
}
} while (strcmp(token, "}")!=0);
fprintf(outputVFile,"}\n\n");
if (numchains==0) {
Error("There must be at least one VLIR chain.\n");
};
/* now put segments info */
fprintf(outputVFile,"SEGMENTS {\n\tHEADER: load = HEADER, type = ro;\n"
"\tCODE: load = VLIR0, type = ro;\n"
"\tRODATA: load = VLIR0, type = ro;\n"
"\tDATA: load = VLIR0, type = rw;\n"
"\tBSS: load = VLIR0, type = bss, define = yes;\n\n");
for (i=2;i<=numchains;i++) {
if (vlirtable[i].exist==0) {
fprintf(outputVFile,"#");
}
fprintf(outputVFile,"\tVLIR%i: load = VLIR%i, type = rw, define = yes;\n",i-1,i-1);
}
fprintf(outputVFile,"}\n");
/* now put usage info */
fprintf(outputVFile,"\n# ld65 -o output.cvt -C %s file1.o file2.o ...",outputVName);
fprintf(outputVFile,"\n# vlink outputname %s",headname);
for (i=1;i<=numchains;i++) {
fprintf(outputVFile," %s",vlirtable[i].chainname);
}
fprintf(outputVFile,"\n");
if (fclose (outputVFile)!=0)
Error("error closing %s: %s\n",outputVName,strerror (errno));
}
char *filterInput (FILE *F, char *tbl) {
/* loads file into buffer filtering it out */
int a, prevchar=-1, i=0, bracket=0, quote=1;
@@ -419,7 +536,8 @@ FILE *F;
char *str;
char *token;
int head=0;
int head=0; /* number of processed HEADER sections */
int vlir=0; /* number of processed VLIR sections */
if ((F = fopen (filename,"r"))==0)
Error("can't open file %s for reading: %s\n",filename,strerror (errno));
@@ -440,8 +558,15 @@ int head=0;
DoHeader();
}
break;
case 2: break;
case 3: break;
case 2: break; /* icon not implemented yet */
case 3: break; /* dialog not implemented yet */
case 4:
if (++vlir!=1) {
Error ("more than one VLIR section, aborting.\n");
} else {
DoVLIR();
}
break;
default: Error ("unknown section %s.\n",token); break;
}
}
@@ -468,6 +593,9 @@ char *p, *tmp;
case 's':
outputSName=argv[++i];
break;
case 'l':
outputVName=argv[++i];
break;
case 'h':
case '?':
printUsage();
@@ -498,6 +626,13 @@ char *p, *tmp;
}
if (outputVName==NULL) {
outputVName = malloc(strlen(arg));
strcpy (outputVName, tmp);
strcat (outputVName, ".cfg");
}
processFile(arg);
}

15
src/grc/grc.h
View File

@@ -20,6 +20,7 @@ struct appheader {
int mode;
int dostype;
int geostype;
int structure;
char *dosname;
char *classname;
char *version;
@@ -27,17 +28,20 @@ struct appheader {
char *info; };
const char *mainToken[] = {
"MENU", "HEADER", "ICON", "DIALOG", "" };
"MENU", "HEADER", "ICON", "DIALOG", "VLIR", "" };
const char *hdrFTypes[] = {
"APPLICATION", "AUTO_EXEC", "DESK_ACC", "ASSEMBLY", "DISK_DEVICE", "PRINTER", "SYSTEM", "" };
const char *hdrFields[] = {
"author", "info", "date", "dostype", "mode", "" };
"author", "info", "date", "dostype", "mode", "structure", "" };
const char *hdrDOSTp[] = {
"seq", "SEQ", "prg", "PRG", "usr", "USR", "" };
const char *hdrStructTp[] = {
"seq", "SEQ", "vlir", "VLIR", "" };
const char *hdrModes[] = {
"any", "40only", "80only", "c64only", "" };
@@ -62,9 +66,10 @@ const unsigned char icon1[] = {
char *progName;
char *outputCName=NULL, *outputSName=NULL;
FILE *outputCFile, *outputSFile;
int CFnum=0, SFnum=0;
char *outputCName=NULL, *outputSName=NULL, *outputVName=NULL;
FILE *outputCFile, *outputSFile, *outputVFile;
int CFnum=0, SFnum=0, VFnum=0;
int forceFlag=0;
char outputCMode[2]="w";
char outputSMode[2]="w";
char outputVMode[2]="w";