pkg/embed_files/decode_files.c

ab504a3a96 Ed H*0001 /*************************************************   -*- mode: C -*-
89a775a110 Ed H*0002 */
                0003
                0004 /*  Decode and write files */
                0005
ab504a3a96 Ed H*0006 #include "FC_NAMEMANGLE.h"
                0007
89a775a110 Ed H*0008 #include <stdio.h>
                0009
ab504a3a96 Ed H*0010 #include "EMBEDDED_FILES.h"
                0011
                0012 /*   NOTE: output to stdout has been removed below since it is not a
                0013  *   good idea to mix C stdio with Fortran stdio.
                0014  */
89a775a110 Ed H*0015
ab504a3a96 Ed H*0016 void FC_NAMEMANGLE(embdec) ()
89a775a110 Ed H*0017 {
                0018     FILE * fout;
                0019     int ii, jj;
                0020
                0021     for (ii=0; ii<n_flist; ii++) {
ab504a3a96 Ed H*0022     /* printf("  decoding:  \"%s\"\n", flist[ii].name); */
89a775a110 Ed H*0023
                0024     fout = fopen(flist[ii].name, "w");
                0025     if (!fout) {
ab504a3a96 Ed H*0026         /*
89a775a110 Ed H*0027         printf("    WARNING:  cannot fopen() \"%s\" for writing\n",
                0028            flist[ii].name);
ab504a3a96 Ed H*0029         */
89a775a110 Ed H*0030         continue;
                0031     }
                0032
                0033     for (jj=0; jj<flist[ii].ndat; jj++) {
                0034         fprintf(fout,"%c",(unsigned char)(flist[ii].dat[jj]) );
                0035     }
                0036     fclose(fout);
                0037     }
                0038 }
                0039