Return to geticon.c CVS log

Up to [local] / OpenXM_contrib / gnuplot / win

Annotation of OpenXM_contrib/gnuplot/win/geticon.c, Revision 1.1.1.1

1.1       maekawa     1: #ifndef lint
                      2: static char *RCSid = "$Id: geticon.c,v 1.2 1993/09/27 17:24:27 alex Exp $";
                      3: #endif
                      4:
                      5: /* geticon.c */
                      6: /* extract Borland ascii format icons from resource script */
                      7: /* and write as Microsoft binary format .ICO files */
                      8: /* Russell Lang 1992-12-20 */
                      9:
                     10: #include <stdio.h>
                     11: #include <stdlib.h>
                     12: #include <string.h>
                     13: #include <ctype.h>
                     14:
                     15: /* HBB 980809: naming a variable 'inline' is a bad idea, these days. Too
                     16:  * many compilers use it as a keyword... Changed to 'inputline' */
                     17: #define MAXLINE 255
                     18: FILE *rcfile;
                     19: char inputline[MAXLINE+1];
                     20: char *tok1, *tok2, *tok3;
                     21: char *p;
                     22: char iconname[MAXLINE+1];
                     23: FILE *iconfile;
                     24: int line;
                     25:
                     26: int htoi(char ch)
                     27: {
                     28:     ch = toupper(ch);
                     29:     if (ch < '0')
                     30:         return(0);
                     31:     else if (ch <= '9')
                     32:         return((int)(ch - '0'));
                     33:     else if (ch < 'A')
                     34:         return(0);
                     35:     else if (ch <= 'F')
                     36:         return((int)(ch - 'A' + 10));
                     37:     return(0);
                     38: }
                     39:
                     40: void
                     41: geticon(void)
                     42: {
                     43: char ch;
                     44:     fgets(inputline,MAXLINE,rcfile);
                     45:     line++;
                     46:     if (strncmp(inputline,"BEGIN",5)) {
                     47:        fprintf(stderr,"Expecting BEGIN at line %d\n",line);
                     48:        exit(3);
                     49:     }
                     50:     if ( (iconfile = fopen(iconname,"wb")) == (FILE *)NULL) {
                     51:         fprintf(stderr,"Can't open ICON file %s\n",iconname);
                     52:         exit(4);
                     53:     }
                     54:     fgets(inputline,MAXLINE,rcfile);
                     55:     line++;
                     56:     while (strncmp(inputline,"END",3) && !feof(rcfile)) {
                     57:         for (p = inputline; *p && (*p==' ' || *p == '\t' || *p=='\''); p++);
                     58:         while (isxdigit(*p)) {
                     59:             ch = htoi(*p++)<<4;
                     60:             ch += htoi(*p++);
                     61:             fputc(ch, iconfile);
                     62:             p++;
                     63:         }
                     64:         fgets(inputline,MAXLINE,rcfile);
                     65:         line++;
                     66:     }
                     67:     fclose(iconfile);
                     68: }
                     69:
                     70: int
                     71: main(int argc, char *argv[])
                     72: {
                     73:     if ((argc < 2) || (argc > 3)) {
                     74:        fprintf(stderr,"Usage:  geticon  resource_file [icon_directory]\n");
                     75:        return(1);
                     76:     }
                     77:     if ( (rcfile = fopen(argv[1],"r")) == (FILE *)NULL) {
                     78:        fprintf(stderr,"Can't open RC file\n");
                     79:        return(2);
                     80:     }
                     81:     line = 0;
                     82:     while (fgets(inputline,MAXLINE,rcfile)) {
                     83:         line++;
                     84:        tok1 = strtok(inputline," \t\r\n");
                     85:        tok2 = strtok(NULL," \t\r\n");
                     86:        tok3 = strtok(NULL," \t\r\n");
                     87:        if (tok2 && !strcmp(tok2,"ICON") && (tok3 == (char *)NULL)) {
                     88:             iconname[0] = '\0';
                     89:            if (argc == 3) {
                     90:                 strcpy(iconname,argv[2]);
                     91:                 strcat(iconname,"\\");
                     92:             }
                     93:             strcat(iconname,tok1);
                     94:             strcat(iconname,".ico");
                     95:            fprintf(stdout,"%s\n",iconname);
                     96:            geticon();
                     97:        }
                     98:     }
                     99:     return (0);
                    100: }