integrated VLIR linker into grc

git-svn-id: svn://svn.cc65.org/cc65/trunk@1352 b7a2c559-68d2-44c3-8de9-860c34a00d81

src/grc/grc.c

@@ -43,6 +43,91 @@ void Error (const char* Format, ...)
     exit (EXIT_FAILURE);
 }
 
+
+void VLIRLinker(int argc, char *argv[]) {
+FILE *outCVT, *input;
+unsigned char buffer[BLOODY_BIG_BUFFER];
+unsigned char vlirtabt[127];
+unsigned char vlirtabs[127];
+int i,j;
+size_t bytes;
+int blocks,rest;
+
+	i=2;
+
+	/* check if we know enough */
+
+	if (argc<4)
+    	    Error("too less arguments, required [out] [cvthead] [vlir0] ...\n");
+
+	/* first open and copy CVT header */
+
+        outCVT = fopen(argv[i],"wb+");
+	if (outCVT==NULL)
+	    Error("can't open output\n");
+
+	++i;
+        input = fopen(argv[i],"rb");
+	if (input==NULL)
+	    Error("can't open input:%s\n",strerror(errno));
+
+	bytes = fread(buffer,1,BLOODY_BIG_BUFFER,input);
+	fclose(input);
+	if (bytes!=508)
+		Error("%s is not a cvt header\n",argv[i]);
+
+	fwrite(buffer,1,bytes,outCVT);
+
+	/* now put 254 bytes of VLIR table, to update later */
+
+	/* clear out things */
+	memset(buffer,0,254);
+	fwrite(buffer,1,254,outCVT);
+	for (j=0;j!=126;j++) {
+		vlirtabt[j]=0;
+		vlirtabs[j]=0;
+	}
+
+	/* now read all VLIR chains, aligned to 254 bytes */
+
+	++i;
+	j=0;
+	while (i!=argc) {
+		if (strcmp(argv[i],"blank")==0) {
+			vlirtabt[j]=0; vlirtabs[j]=0; }
+		else if (strcmp(argv[i],"noexist")==0) {
+			vlirtabt[j]=0; vlirtabs[j]=0xff; }
+		else {
+			memset(buffer,0,BLOODY_BIG_BUFFER);
+                        input = fopen(argv[i],"rb");
+			if (input==NULL)
+				Error("couldn't open %s:%s\n",argv[i],strerror(errno));
+			bytes = fread(buffer,1,BLOODY_BIG_BUFFER,input);
+			fclose(input);
+			if (bytes<0)
+				Error("couldn't read %s:%s\n",argv[i],strerror(errno));
+			blocks = bytes / 254;
+			rest = bytes % 254 + 2;
+			if (rest>255) rest=255;
+			vlirtabt[j]=blocks+1; vlirtabs[j]=rest;
+			fwrite(buffer,1,(blocks+1)*254,outCVT);
+		}
+		++j;
+		++i;
+	}
+
+	/* now rewind and update VLIR table */
+
+	fflush(outCVT);
+	fseek(outCVT,508,SEEK_SET);
+	for (i=0;i!=127;i++) {
+		fputc(vlirtabt[i],outCVT);
+		fputc(vlirtabs[i],outCVT);
+	}
+	fclose(outCVT);
+	exit(EXIT_SUCCESS);
+}
+
 void printCHeader (void) {
 
     fprintf(outputCFile, "\n/*\n\tThis file was generated by GEOS Resource Compiler\n"
@@ -64,7 +149,7 @@ void printVHeader (void) {
 	    "\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#"
+	      "#\tto invoke ld65 and grc (as VLIR linker)\n#"
 	    "\n#\n\n");
 }
 
@@ -108,8 +193,9 @@ void printUsage (void) {
 	    "\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-l name\t\tname ld65 config output file (for vlir)\n",
-	    progName);
+	    "\t-l name\t\tname ld65 config output file (for vlir)\n"
+	    "Or as VLIR linker: %s -vlir output.cvt header [vlir0] ... [blank] ... [vlir_n]\n",
+	    progName,progName);
 
 }
 
@@ -491,7 +577,7 @@ struct vlirentry vlirtable[127];
 
     /* 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);
+    fprintf(outputVFile,"\n# grc -vlir outputname %s",headname);
     for (i=1;i<=numchains;i++) {
 	fprintf(outputVFile," %s",vlirtable[i].chainname);
     }
@@ -601,6 +687,15 @@ char *p, *tmp;
 		    printUsage();
 		    exit (EXIT_SUCCESS);
 		    break;
+		case 'v':
+		    if (strcmp(arg,"-vlir")==0) {
+			VLIRLinker(argc,argv);
+			exit (EXIT_SUCCESS);
+			break;
+		    } else {
+			Error("unknown option %s\n",arg);
+			break;
+		    }
 		default: Error("unknown option %s\n",arg);
 	    }
 	} else {