etc/bin2c.c

   1 /*
   2 * bin2c.c
   3 * convert binary files to byte arrays
   4 * Luiz Henrique de Figueiredo (lhf@tecgraf.puc-rio.br)
   5 * 24 Nov 98 12:15:27
   6 */
   7
   8 #include <ctype.h>
   9 #include <stdio.h>
  10 #include <stdlib.h>
  11
  12 void dump(FILE* f, int n)
  13 {
  14  printf("static unsigned char B%d[]={\n",n);
  15  for (n=1;;n++)
  16  {
  17   int c=getc(f);
  18   if (c==EOF) break;
  19 #if 0
  20   printf("0x%02x,",c);
  21 #else
  22   printf("%3u,",c);
  23 #endif
  24   if (n==20) { putchar('\n'); n=0; }
  25  }
  26  printf("\n};\n\n");
  27 }
  28
  29 void fdump(char* fn, int n)
  30 {
  31  FILE* f= (fn==NULL) ? stdin : fopen(fn,"rb");  /* must open in binary mode */
  32  if (f==NULL)
  33  {
  34   fprintf(stderr,"bin2c: cannot open ");
  35   perror(fn);
  36   exit(1);
  37  }
  38  else
  39  {
  40   if (fn!=NULL) printf("/* %s */\n",fn);
  41   dump(f,n);
  42   fclose(f);
  43  }
  44 }
  45
  46 void emit(char* fn, int n)
  47 {
  48  printf(" lua_dobuffer(B%d,sizeof(B%d),\"%s\");\n",n,n,fn);
  49 }
  50
  51 int main(int argc, char* argv[])
  52 {
  53  printf("/* code automatically generated by bin2c -- DO NOT EDIT */\n");
  54  printf("{\n");
  55  if (argc<2)
  56  {
  57   dump(stdin,0);
  58   emit("(stdin)",0);
  59  }
  60  else
  61  {
  62   int i;
  63   printf("/* #include'ing this file in a C program is equivalent to calling\n");
  64   for (i=1; i<argc; i++) printf("  lua_dofile(\"%s\");\n",argv[i]);
  65   printf("*/\n");
  66   for (i=1; i<argc; i++) fdump(argv[i],i);
  67   for (i=1; i<argc; i++) emit(argv[i],i);
  68  }
  69  printf("}\n");
  70  return 0;
  71 }