/*
 * bdbf2c: braindead brainf**k to c compiler
 *
 * written 1:30am 10/16/2001 by joey richards
 *
 * this code is hereby released into the public domain
 *
 * the author makes no claims about the fitness of this code for
 * any purpose.  for the love of god, it's a brainf**k compiler.
 * what the hell would it be fit for, anyway?!
 *
 * if you do anything with this code, it would be appreciated if
 * you left the above credit intact
 */

/* usage: bdbf2c <infile> */
/* outputs to bfout.c */

#include <stdio.h>

const int tablen = 2;
const char *outfile="bfout.c";
const int arysz = 30000;

void
fatal_error( const char *s )
{
  printf( "%s\n", s );
  exit( 1 );
}

int
main( int argc, char *argv[] )
{
  FILE *in, *out;
  int nest=1, c, i;
  
  if( in=fopen( argv[1], "r" ) )
  {
    if( out=fopen( outfile, "w" ) )
    {
      /* first put in header */
      fprintf( out,
               "/* compiled from brainf**k source file %s */\n"
               "#include <stdio.h>\n"
               "\n"
               "int main( void )\n"
               "{\n",
               argv[1] );
      
      for(i=0;i<tablen;i++,fputc(' ',out));;
      fprintf( out,
               "static char a[%d], *p;\n"
               "\n",
               arysz );
      for(i=0;i<tablen;i++,fputc(' ',out));;
      fprintf( out,
               "p=&(a[0]);\n" );

      while( (c=fgetc( in )) != EOF )
      {
        switch( c )
        {
        case '.':
          for(i=0;i<nest*tablen;i++,fputc(' ',out));;
          fprintf( out, "putchar( *p );\n" );
          break;
        case ',':
          for(i=0;i<nest*tablen;i++,fputc(' ',out));;
          fprintf( out, "*p = getchar( );\n" );
          break;
        case '<':
          for(i=0;i<nest*tablen;i++,fputc(' ',out));;
          fprintf( out, "p--;\n" );
          break;
        case '>':
          for(i=0;i<nest*tablen;i++,fputc(' ',out));;
          fprintf( out, "p++;\n" );
          break;
        case '[':
          for(i=0;i<nest*tablen;i++,fputc(' ',out));;
          fprintf( out, "while( *p )\n" );
          for(i=0;i<nest*tablen;i++,fputc(' ',out));;
          fprintf( out, "{\n" );
          nest++;
          break;
        case ']':
          nest--;
          if( nest < 1 )
          {
            fatal_error("Unopened loop!");
          }
          for(i=0;i<nest*tablen;i++,fputc(' ',out));;
          fprintf( out, "}\n" );
          break;
        case '+':
          for(i=0;i<nest*tablen;i++,fputc(' ',out));;
          fprintf( out, "(*p)++;\n" );
          break;
        case '-':
          for(i=0;i<nest*tablen;i++,fputc(' ',out));;
          fprintf( out, "(*p)--;\n" );
          break;
        case '\n':
          break;
        case '\t':
          break;
        case ' ':
          break;
        case '\r':
          break;
        default:
          fatal_error("Illegal character!");
        }
      }
      if( nest != 1 )
      {
        fatal_error("Unterminated loop!");
      }
      fprintf( out, "}\n" );
      fclose( out );
    }
    fclose( in );
  }
}