tools/embed_encode/encode_files.c

/*************************************************   -*- mode: C -*-
**
** $Header: /u/gcmpack/MITgcm/pkg/embed_files/encode_files.c,v 1.1 2006/01/11 01:38:09 edhill Exp $
** $Name:  $
**
*/

/*  Encode one or more files for later writing */

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/stat.h>
#include <sys/types.h>

int main(int argc, char** argv)
{
    FILE * fout;
    FILE * fin;
    int ii;
    int nbytes;
    struct stat astat;
    unsigned char c;
    unsigned char buf[1024];

    /*
    fout = fopen("t8", "w");
    for (ii=0; ii<256; ii++) {
        c = (unsigned char)ii;
        fprintf(fout,"%c",c);
    }
    fclose(fout);
    */

    if (argc < 3) {
        printf("ERROR:  usage is: "
               "\"%s OUTPUT_FILE INPUT_FILE [...INPUT_FILES...]\"\n",
               argv[0]);
        return 1;
    }

    fout = fopen(argv[1], "w");
    if (! fout) {
        printf("ERROR: cannot open \"%s\" for output\n", argv[1]);
        return 1;
    }
    fprintf(fout,"struct embeded_file {\n    char * name;\n"
            "    int ndat;\n    char * dat;\n};\n");
    fprintf(fout,"const int n_flist = %d;\n", argc-2);
    fprintf(fout,"struct embeded_file flist[] = {\n");
    
    for (ii=2; ii<argc; ii++) {
        printf("  encoding:  \"%s\"\n",argv[ii]);
        if (! stat(argv[ii], &astat)) {
            nbytes = (int)(astat.st_size);
        }
        else {
            printf("    ERROR:  cannot stat() \"%s\"\n",argv[ii]);
            return 3;
        }

        fin = fopen(argv[ii], "r");
        if (!fin) {
            printf("    ERROR:  cannot fopen() \"%s\"\n",argv[ii]);
            return 4;
        }

        fprintf(fout,"  %s{ \"%s\", %d,", ((ii==2) ? " " : ","),
                argv[ii], nbytes);
        while(fin) {
            size_t ir;
            size_t nread;

            /* fgets(buf, 255, fin); */
            nread = fread(buf, sizeof(char), 200, fin);
            if (nread < 1)
                break;
            fprintf(fout,"\n\"");
            for (ir=0; ir<nread; ir++) {
                fprintf(fout,"\\x%02x",buf[ir]);
                /*
                if (isalnum(buf[ir]))
                    fprintf(fout,"%c",buf[ir]);
                else
                    fprintf(fout,"\\x%02x",buf[ir]);
                */
            }
            fprintf(fout,"\"");
        }
        fclose(fin);
        fprintf(fout,"  }\n");
    }
    fprintf(fout,"  };\n");
    fclose(fout);

    return 0;
}

1	/************************************************* -- mode: C --
2	**
3	** $Header: /u/gcmpack/MITgcm/pkg/embed_files/encode_files.c,v 1.1 2006/01/11 01:38:09 edhill Exp $
4	** $Name: $
5	**
6	*/
7
8	/* Encode one or more files for later writing */
9
10	#include <stdio.h>
11	#include <stdlib.h>
12	#include <unistd.h>
13	#include <sys/stat.h>
14	#include <sys/types.h>
15
16	int main(int argc, char** argv)
17	{
18	FILE * fout;
19	FILE * fin;
20	int ii;
21	int nbytes;
22	struct stat astat;
23	unsigned char c;
24	unsigned char buf[1024];
25
26	/*
27	fout = fopen("t8", "w");
28	for (ii=0; ii<256; ii++) {
29	c = (unsigned char)ii;
30	fprintf(fout,"%c",c);
31	}
32	fclose(fout);
33	*/
34
35	if (argc < 3) {
36	printf("ERROR: usage is: "
37	"\"%s OUTPUT_FILE INPUT_FILE [...INPUT_FILES...]\"\n",
38	argv[0]);
39	return 1;
40	}
41
42	fout = fopen(argv[1], "w");
43	if (! fout) {
44	printf("ERROR: cannot open \"%s\" for output\n", argv[1]);
45	return 1;
46	}
47	fprintf(fout,"struct embeded_file {\n char * name;\n"
48	" int ndat;\n char * dat;\n};\n");
49	fprintf(fout,"const int n_flist = %d;\n", argc-2);
50	fprintf(fout,"struct embeded_file flist[] = {\n");
51
52	for (ii=2; ii<argc; ii++) {
53	printf(" encoding: \"%s\"\n",argv[ii]);
54	if (! stat(argv[ii], &astat)) {
55	nbytes = (int)(astat.st_size);
56	}
57	else {
58	printf(" ERROR: cannot stat() \"%s\"\n",argv[ii]);
59	return 3;
60	}
61
62	fin = fopen(argv[ii], "r");
63	if (!fin) {
64	printf(" ERROR: cannot fopen() \"%s\"\n",argv[ii]);
65	return 4;
66	}
67
68	fprintf(fout," %s{ \"%s\", %d,", ((ii==2) ? " " : ","),
69	argv[ii], nbytes);
70	while(fin) {
71	size_t ir;
72	size_t nread;
73
74	/* fgets(buf, 255, fin); */
75	nread = fread(buf, sizeof(char), 200, fin);
76	if (nread < 1)
77	break;
78	fprintf(fout,"\n\"");
79	for (ir=0; ir<nread; ir++) {
80	fprintf(fout,"\\x%02x",buf[ir]);
81	/*
82	if (isalnum(buf[ir]))
83	fprintf(fout,"%c",buf[ir]);
84	else
85	fprintf(fout,"\\x%02x",buf[ir]);
86	*/
87	}
88	fprintf(fout,"\"");
89	}
90	fclose(fin);
91	fprintf(fout," }\n");
92	}
93	fprintf(fout," };\n");
94	fclose(fout);
95
96	return 0;
97	}
98