From dee6b970a1919c5e466140913eddf7d919c1ddfe Mon Sep 17 00:00:00 2001 From: izydorst Date: Fri, 2 Jun 2000 02:13:19 +0000 Subject: [PATCH] *** empty log message *** git-svn-id: svn://svn.cc65.org/cc65/trunk@22 b7a2c559-68d2-44c3-8de9-860c34a00d81 --- src/geos/grc.c | 496 ++++++++++++++++++++++++++++++++++++++++++++++ src/geos/grc.h | 67 +++++++ src/geos/test.grc | 36 ++++ 3 files changed, 599 insertions(+) create mode 100644 src/geos/grc.c create mode 100644 src/geos/grc.h create mode 100644 src/geos/test.grc diff --git a/src/geos/grc.c b/src/geos/grc.c new file mode 100644 index 000000000..9564d93c4 --- /dev/null +++ b/src/geos/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 +#include +#include +#include +#include +#include +#include + +#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/geos/grc.h b/src/geos/grc.h new file mode 100644 index 000000000..25f2579ed --- /dev/null +++ b/src/geos/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; diff --git a/src/geos/test.grc b/src/geos/test.grc new file mode 100644 index 000000000..ad039242b --- /dev/null +++ b/src/geos/test.grc @@ -0,0 +1,36 @@ + +;This is proposed syntax of general GEOS resource file for upcoming resource compiler. + +;(token MENU, topname (will be escaped with _), x,y of top-left corner, bottom-right will be +; counted according to BSW font table (in x) and a multiply 15 (14?) in y) +;Note that MENU is either MENU and SUBMENU +;Note that if you want to use any C operators (like '|', '&' etc.) do it WITHOUT spaces +;between arguments (parser is simple and weak) + + +; format: MENU "name" left,top ALIGN { "itemname" TYPE pointer ... } + +MENU mainMenu 0,0 HORIZONTAL +{ + "sub menu1" SUB_MENU subMenu1 ; goes for _subMenu1 + "quit" MENU_ACTION EnterDeskTop ; goes for _EnterDeskTop +} + +MENU subMenu1 15,0 VERTICAL +{ + "subitem1" MENU_ACTION smenu1 + "mubitem2" MENU_ACTION|DYN_SUB_MENU smenu2 + "subitem3" MENU_ACTION smenu3 +} + +; format: HEADER GEOS_TYPE "dosname" "classname" "version" + +HEADER APPLICATION "123456789 1234567" "Class Name" "V1.0.0" +{ + ; not all fields are required, default and current values will be used + author "Maciej Witkowiak" ; always in quotes! + info "Information text" ; always in quotes! +; date yy mm dd hh ss ; always 5 fields! +; dostype seq ; can be PRG, SEQ, USR + mode c64only ; can be any, 40only, 80only, c64only +}