From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 22 Jun 2000 21:00:33 +0000 (+0000)
Subject: First import of resource compiler by Maciej
X-Git-Tag: V2.12.0~3407
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=53485bc321fa71825765f58a59c2256d6969e942;p=cc65

First import of resource compiler by Maciej


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

diff --git a/src/grc/.cvsignore b/src/grc/.cvsignore
new file mode 100644
index 000000000..380ddcc5c
--- /dev/null
+++ b/src/grc/.cvsignore
@@ -0,0 +1,3 @@
+grc
+*.hh
+*.ss
diff --git a/src/grc/grc.c b/src/grc/grc.c
new file mode 100644
index 000000000..9564d93c4
--- /dev/null
+++ b/src/grc/grc.c
@@ -0,0 +1,496 @@
+
+/*
+    GEOS resource compiler
+    
+    by Maciej 'YTM/Alliance' Witkowiak
+
+    Error function by Uz
+
+    see GEOSLib documentation for license info
+
+*/
+
+/* 
+ - make it work, then do it better
+ - more or less comments? it was hard to code, should be even harder to
+   understand =D
+ - add loadable icons feature (binary - 63 bytes)
+ - counted menusize is most possibly wrong (const offsets, not sure about text)
+*/
+
+/* - err, maybe free allocated memory, huh? (who cares, it's just a little prog...)
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include <ctype.h>
+#include <errno.h>
+#include <time.h>
+
+#include "grc.h"
+
+
+void Error (const char* Format, ...)
+/* borrowed from cl65/error.c	  */
+/* Print an error message and die */
+{
+    va_list ap;
+    va_start (ap, Format);
+    fprintf (stderr, "%s: ", progName);
+    vfprintf (stderr, Format, ap);
+    va_end (ap);
+    exit (EXIT_FAILURE);
+}
+
+void printCHeader (void) {
+
+    fprintf(outputCFile, "\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*/\n\n");
+}
+
+void printSHeader (void) {
+
+    fprintf(outputSFile, "\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;\n\n");
+}
+
+void openCFile (void) {
+    if ((outputCFile = fopen (outputCName,"a"))==0) 
+	Error("can't open file %s for writting: %s\n",outputCName,strerror (errno));
+    if (CFnum==0) { printCHeader(); CFnum++; }
+}
+
+void openSFile (void) {
+    if ((outputSFile = fopen (outputSName,"a"))==0) 
+	Error("can't open file %s for writting: %s\n",outputSName,strerror (errno));
+    if (SFnum==0) { printSHeader(); SFnum++; }
+}
+
+void printUsage (void) {
+    fprintf(stderr, "Usage: %s [options] file\n"
+	    "Options:\n"
+	    "\t-h, -?\t\tthis help\n"
+	    "\t-o name\t\tname C output file\n"
+	    "\t-s name\t\tname asm output file\n",
+	    progName);
+
+}
+
+int findToken (const char **tokenTbl, const char *token) {
+/* takes as input table of tokens and token, returns position in table or -1 if not found */
+int a=0;
+
+    while (strlen(tokenTbl[a])!=0) {
+	if (strcmp(tokenTbl[a],token)==0) break;
+	a++;
+    }
+    if (strlen(tokenTbl[a])==0) a=-1;
+    return a;
+}
+
+char *nextPhrase() {
+    return strtok(NULL, "\"");
+    }
+
+char *nextWord() {
+    return strtok(NULL, " ");
+    }
+
+void setLen (char *name, int len) {
+    if (strlen(name)>len)
+	name[len]='\0';
+}
+
+void fillOut (char *name, int len, char *filler) {
+int a;
+    setLen (name, len);
+    fprintf(outputSFile, ".byte \"%s\"\n\t\t", name);
+    a = len - strlen(name);
+    if (a!=0) {
+	fprintf(outputSFile, ".byte %s", filler);
+        while (--a!=0) fprintf(outputSFile, ", %s", filler);
+	fprintf(outputSFile, "\n\t\t");
+	}
+}
+
+char *bintos(unsigned char a, char *out) {
+int i=0;
+    for (;i<8;i++) {
+    out[7-i] = ((a & 1)==0) ? '0' : '1';
+    a = a >> 1; };
+    out[i]='\0';
+return out;
+}
+
+int getNameSize (const char *word) {
+/* count length of a word using BSW 9 font table */
+int a=0, i=0;
+
+    while (word[i]!='\0') {
+	a+=(BSWTab[word[i]-31] - BSWTab[word[i]-32]); i++; }
+
+    return a;
+}
+
+void DoMenu (void) {
+
+int a, size, tmpsize, item=0;
+char *token;
+char namebuff[255]="";
+struct menu myMenu;
+struct menuitem *curItem, *newItem;
+
+    openCFile();
+
+    myMenu.name=nextWord();
+    myMenu.left=atoi(nextWord());
+    myMenu.top=atoi(nextWord());
+    myMenu.type=nextWord();
+
+    if (strcmp(nextWord(),"{")!=0) { 
+	Error ("menu %s description has no opening bracket!\n", myMenu.name);
+	};
+    curItem=malloc(sizeof(struct menuitem));
+    myMenu.item=curItem;
+    do {
+	token = nextWord();
+	if (strcmp(token,"}")==0) break;
+	if (token[strlen(token)-1]!='"') {
+	    strcpy (namebuff, token);
+	    do {
+		token = nextWord();
+		strcat (namebuff, " ");
+		strcat (namebuff, token);
+		} while (token[strlen(token)-1]!='"');
+	    token = malloc(strlen(namebuff));
+	    strcpy (token, namebuff);
+	}
+	curItem->name=token;
+	curItem->type=nextWord();
+	curItem->target=nextWord();
+	newItem=malloc(sizeof(struct menuitem));
+	curItem->next=newItem;
+	curItem=newItem;
+	item++;
+	} while (strcmp(token,"}")!=0);
+    if (item==0) Error ("menu %s has 0 items!\n", myMenu.name);
+    if (item>31) Error ("menu %s has too many items!\n", myMenu.name);
+
+    curItem->next=NULL;
+
+    /* Count menu sizes */
+
+    size=0;
+    curItem=myMenu.item;
+    if (strstr(myMenu.type,"HORIZONTAL")!=NULL) {
+	/* menu is HORIZONTAL, ysize=15, sum xsize of all items +~8?*/
+	    myMenu.bot=myMenu.top+15;
+	    for (a=0;a!=item;a++) {
+		size+=getNameSize(curItem->name);
+		curItem=curItem->next;
+		};
+	} else {
+	/* menu is VERTICAL, ysize=item*15, count largest xsize of all items +~8? */
+	    myMenu.bot=myMenu.top+(15*item);
+	    for (a=0;a!=item;a++) {
+		tmpsize=getNameSize(curItem->name);
+		size = (size > tmpsize) ? size : tmpsize;
+		curItem=curItem->next;
+		};
+	};
+    myMenu.right=myMenu.left+size;
+
+    curItem=myMenu.item;
+    for (a=0;a!=item;a++) {
+	/* print prototype only if MENU_ACTION or DYN_SUB_MENU are present in type */
+	if ((strstr(curItem->type, "MENU_ACTION")!=NULL) || (strstr(curItem->type, "DYN_SUB_MENU")!=NULL))
+	    fprintf(outputCFile, "void %s (void);\n", curItem->target);
+	curItem=curItem->next;
+	}
+
+    fprintf(outputCFile, "\nconst void %s = {\n\t(char)%i, (char)%i,\n\t(int)%i, (int)%i,\n\t"
+	    "(char)(%i | %s),\n", myMenu.name, myMenu.top, myMenu.bot, myMenu.left,
+	    myMenu.right, item, myMenu.type);
+
+    curItem=myMenu.item;
+    for (a=0;a!=item;a++) {
+	fprintf(outputCFile, "\t%s, (char)%s, (int)", curItem->name, curItem->type);
+	if ((strstr(curItem->type, "SUB_MENU")!=NULL) && (strstr(curItem->type, "DYN_SUB_MENU")==NULL))
+	    fprintf(outputCFile, "&");
+	fprintf(outputCFile, "%s,\n", curItem->target);
+	curItem=curItem->next;
+	}
+
+    fprintf(outputCFile, "\t};\n\n");
+
+    if (fclose (outputCFile)!=0) 
+	Error("error closing %s: %s\n",outputCName,strerror (errno));
+}
+
+void DoHeader (void) {
+
+time_t t;
+struct tm *my_tm;
+
+struct appheader myHead;
+char *token;
+char i1[9], i2[9], i3[9];
+int a, b;
+
+    openSFile();
+
+    token = nextWord();
+    
+    a = findToken (hdrFTypes, token);
+
+    if (a>1)
+	Error("filetype %s isn't supported yet\n", token);
+
+    switch (a) {
+	case 0: myHead.geostype = 6; break;
+	case 1: myHead.geostype = 14; break;
+	}
+
+    myHead.dosname = nextPhrase();
+    nextPhrase();
+    myHead.classname = nextPhrase();
+    nextPhrase();
+    myHead.version = nextPhrase();
+
+    /* put default values into myHead here */
+    myHead.author = "cc65";
+    myHead.info = "Program compiled with cc65 and GEOSLib.";
+    myHead.dostype = 128+3;
+    myHead.mode = 0;
+
+    t = time(NULL);
+    my_tm = localtime (&t);
+
+    myHead.year = my_tm->tm_year;
+    myHead.month = my_tm->tm_mon+1;
+    myHead.day = my_tm->tm_mday;
+    myHead.hour = my_tm->tm_hour;
+    myHead.min = my_tm->tm_min;
+
+    if (strcmp(nextWord(),"{")!=0) { 
+	Error ("header %s has no opening bracket!\n", myHead.dosname);
+	};
+
+    do {
+	token=nextWord();
+	if (strcmp(token, "}")==0) break;
+        switch (a = findToken (hdrFields, token)) {
+		case -1:
+		    Error ("unknown field %s in header %s\n", token, myHead.dosname);
+		    break;
+		case 0: /* author */
+		    myHead.author = nextPhrase(); break;
+		case 1: /* info */
+		    myHead.info = nextPhrase(); break;
+		case 2:	/* date */
+		    myHead.year = atoi(nextWord());
+		    myHead.month = atoi(nextWord());
+		    myHead.day = atoi(nextWord());
+		    myHead.hour = atoi(nextWord());
+		    myHead.min = atoi(nextWord());
+		    break;
+		case 3:	/* dostype */
+		    switch (b = findToken (hdrDOSTp, nextWord())) {
+			case -1:
+			    Error ("unknown dostype in header %s\n", myHead.dosname);
+			    break;
+			default:
+			    myHead.dostype = b/2 + 128 + 1;
+			    break;
+		    }
+		    break;
+		case 4:	/* mode */
+		    switch (b = findToken (hdrModes, nextWord())) {
+			case -1:
+			    Error ("unknown mode in header %s\n", myHead.dosname);
+			case 0:
+			    myHead.mode = 0x40; break;
+			case 1:
+			    myHead.mode = 0x00; break;
+			case 2:
+			    myHead.mode = 0xc0; break;
+			case 3:
+			    myHead.mode = 0x80; break;
+		    }
+		    break;
+        }
+    
+    } while (strcmp(token, "}")!=0);
+
+    /* OK, all information is gathered, do flushout */
+
+    fprintf(outputSFile,
+	 "\t\t\t.segment \"HEADER\"\n\n\t\t.byte %i\n\t\t.word 0\n\t\t", myHead.dostype);
+
+    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 \"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);
+
+    for (a=0;a!=63;a=a+3) {
+	fprintf(outputSFile,
+	     ".byte %%%s, %%%s, %%%s\n\t\t",
+	     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);
+
+    fillOut(myHead.classname,12,"$20");
+
+    fillOut(myHead.version,4,"0");
+    
+    fprintf(outputSFile,
+	    ".byte 0, 0, 0\n\t\t.byte %i\n\n\t\t", myHead.mode);
+
+    setLen(myHead.author,62);
+    fprintf(outputSFile,
+	    ".byte \"%s\"\n\t\t.byte 0\n\t\t.res (63-%i)\n\n\t\t",
+	    myHead.author, strlen(myHead.author)+1);
+
+    setLen(myHead.info, 95);
+    fprintf(outputSFile,
+	    ".byte \"%s\"\n\t\t.byte 0\n\t\t.res (96-%i)\n\n",
+	    myHead.info, strlen(myHead.info)+1);
+
+    if (fclose (outputSFile)!=0) 
+	Error("error closing %s: %s\n",outputSName,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;
+
+    while (1) {
+	a = getc(F);
+	if ((a=='\n')||(a=='\015')) a = ' ';
+	if (a==',') a = ' ';
+	if (a=='\042') quote=!quote;
+	if (quote) {
+	    if ((a=='{')||(a=='(')) bracket++;
+	    if ((a=='}')||(a==')')) bracket--;
+	}
+	if (a==EOF) { tbl[i]='\0'; realloc(tbl, i+1); break; };
+	if (isspace(a)) {
+	    if ((prevchar!=' ') && (prevchar!=-1)) { tbl[i++]=' '; prevchar=' '; }
+	} else {
+	    if (a==';' && quote) { do { a = getc (F); } while (a!='\n'); fseek(F,-1,SEEK_CUR); }
+		else {
+		    tbl[i++]=a; prevchar=a; }
+	}
+    }
+
+    if (bracket!=0) Error("there are unclosed brackets!\n");
+
+    return tbl;
+}
+
+void processFile (const char *filename) {
+
+FILE *F;
+
+char *str;
+char *token;
+
+int head=0;
+
+    if ((F = fopen (filename,"r"))==0) 
+	Error("can't open file %s for reading: %s\n",filename,strerror (errno));
+
+    str=filterInput(F, malloc(BLOODY_BIG_BUFFER));
+
+    token = strtok (str," ");
+
+    do {
+        if (str!=NULL) {
+	    switch (findToken (mainToken, token)) {
+	    
+	    case 0: DoMenu(); break;
+	    case 1: 
+		if (++head!=1) {
+			Error ("more than one HEADER section, aborting.\n");
+		    } else {
+			DoHeader();
+		    } 
+		break;
+	    case 2: break;
+	    case 3: break;
+	    default: Error ("unknown section %s.\n",token); break;
+	    }
+	}
+	token = nextWord();
+    } while (token!=NULL);
+}
+
+int main(int argc, char *argv[]) {
+
+int ffile=0, i=1;
+char *p, *tmp;
+
+    progName = argv[0];
+    while (i < argc) {
+	const char *arg = argv[i];
+	if (arg[0] == '-') {
+	    switch (arg[1]) {
+		case 'o':
+		    outputCName=argv[++i];
+		    break;
+		case 's':
+		    outputSName=argv[++i];
+		    break;
+		case 'h':
+		case '?':
+		    printUsage();
+		    exit (EXIT_SUCCESS);
+		    break;
+		default: Error("unknown option %s\n",arg);
+	    }
+	} else {
+	    ffile++;
+
+	    tmp = malloc(strlen(arg)+4);
+	    strcpy (tmp, arg);
+	    if ((p = strrchr (tmp, '.')))
+		*p = '\0';
+
+
+	    if (outputCName==NULL) {
+		outputCName = malloc(strlen(arg));
+		strcpy (outputCName, tmp);
+		strcat (outputCName, ".hh");
+	    }
+
+
+	    if (outputSName==NULL) {
+		outputSName = malloc(strlen(arg));
+		strcpy (outputSName, tmp);
+		strcat (outputSName, ".ss");
+	    }
+
+
+	    processFile(arg);
+
+	    }
+	i++;
+	}
+    if (ffile==0) Error("no input file\n");
+
+    return EXIT_SUCCESS;
+}
diff --git a/src/grc/grc.h b/src/grc/grc.h
new file mode 100644
index 000000000..25f2579ed
--- /dev/null
+++ b/src/grc/grc.h
@@ -0,0 +1,67 @@
+
+/* I hope that no one will be able to create a .grc bigger than this... */
+#define BLOODY_BIG_BUFFER 65000
+
+struct menuitem {
+	char *name;
+	char *type;
+	char *target;
+	struct menuitem *next; };
+
+struct menu {
+	char *name;
+	int top, left;
+	int bot, right;
+	char *type;
+	struct menuitem *item; };
+
+struct appheader {
+	int year,month,day,hour,min;
+	int mode;
+	int dostype;
+	int geostype;
+	char *dosname;
+	char *classname;
+	char *version;
+	char *author;
+	char *info; };
+
+const char *mainToken[] = {
+	"MENU", "HEADER", "ICON", "DIALOG", "" };
+
+const char *hdrFTypes[] = {
+	"APPLICATION", "AUTO_EXEC", "DESK_ACC", "ASSEMBLY", "DISK_DEVICE", "PRINTER", "SYSTEM", "" };
+
+const char *hdrFields[] = {
+	"author", "info", "date", "dostype", "mode", "" };
+
+const char *hdrDOSTp[] = {
+	"seq", "SEQ", "prg", "PRG", "usr", "USR", "" };
+
+const char *hdrModes[] = {
+	"any", "40only", "80only", "c64only", "" };
+
+const int BSWTab[] = { 0,
+	0x005, 0x007, 0x00b, 0x011, 0x017,
+	0x01d, 0x023, 0x025, 0x029, 0x02d, 0x033, 0x039, 0x03c, 0x041, 0x043,
+	0x04a, 0x04f, 0x052, 0x056, 0x05a, 0x05f, 0x063, 0x068, 0x06d, 0x072,
+	0x077, 0x079, 0x07c, 0x080, 0x084, 0x088, 0x08e, 0x094, 0x09a, 0x09f,
+	0x0a4, 0x0a9, 0x0ad, 0x0b1, 0x0b6, 0x0bc, 0x0be, 0x0c2, 0x0c8, 0x0cc,
+	0x0d4, 0x0da, 0x0e0, 0x0e5, 0x0eb, 0x0f0, 0x0f5, 0x0f9, 0x0fe, 0x104,
+	0x10c, 0x112, 0x118, 0x11e, 0x121, 0x129, 0x12c, 0x132, 0x13a, 0x13e,
+	0x143, 0x148, 0x14d, 0x152, 0x157, 0x15a, 0x15f, 0x164, 0x166, 0x168,
+	0x16d, 0x16f, 0x177, 0x17c, 0x182, 0x187, 0x18c, 0x18f, 0x193, 0x196,
+	0x19b, 0x1a1, 0x1a9, 0x1af, 0x1b4, 0x1ba, 0x1be, 0x1c0, 0x1c4, 0x1ca,
+	0x1d2, 0x1dd };
+
+const unsigned char icon1[] = {
+	 255, 255, 255, 128, 0, 1, 128, 0, 1, 128, 0, 1, 128, 0, 1, 128, 0, 1,
+			128, 0, 1, 128, 0, 1, 128, 0, 1, 128, 0, 1, 128, 0, 1,
+			128, 0, 1, 128, 0, 1, 128, 0, 1, 128, 0, 1, 128, 0, 1,
+			128, 0, 1, 128, 0, 1, 128, 0, 1, 128, 0, 1, 255, 255, 255 };
+
+char *progName;
+
+char *outputCName=NULL, *outputSName=NULL;
+FILE *outputCFile, *outputSFile;
+int CFnum=0, SFnum=0;