etc/bin2c.c

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