From: izydorst Date: Fri, 2 Jun 2000 02:33:28 +0000 (+0000) Subject: ? X-Git-Tag: V2.12.0~3489 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=5e561a0f4019ef8e129868ebec86d7377cb9d79f;p=cc65 ? git-svn-id: svn://svn.cc65.org/cc65/trunk@23 b7a2c559-68d2-44c3-8de9-860c34a00d81 --- diff --git a/src/geos/grc.c b/src/geos/grc.c deleted file mode 100644 index 9564d93c4..000000000 --- a/src/geos/grc.c +++ /dev/null @@ -1,496 +0,0 @@ - -/* - 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 deleted file mode 100644 index 25f2579ed..000000000 --- a/src/geos/grc.h +++ /dev/null @@ -1,67 +0,0 @@ - -/* 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 deleted file mode 100644 index ad039242b..000000000 --- a/src/geos/test.grc +++ /dev/null @@ -1,36 +0,0 @@ - -;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 -}