/* Copyright (c) 2004, 2007 MySQL AB
   Use is subject to license terms

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; version 2 of the License.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA */

/*
  Written by Magnus Svensson
*/

/*
  Converts a SQL file into a C file that can be compiled and linked
  into other programs
*/

#include <stdarg.h>
#include <stdlib.h>
#include <stdio.h>

FILE *in, *out;

static void die(const char *fmt, ...)
{
  va_list args;

  /* Print the error message */
  fprintf(stderr, "FATAL ERROR: ");
  if (fmt)
  {
    va_start(args, fmt);
    vfprintf(stderr, fmt, args);
    va_end(args);
  }
  else
    fprintf(stderr, "unknown error");
  fprintf(stderr, "\n");
  fflush(stderr);

  /* Close any open files */
  if (in)
    fclose(in);
  if (out)
    fclose(out);

  exit(1);
}


int main(int argc, char *argv[])
{
  char buff[512];
  char* struct_name= argv[1];
  char* infile_name= argv[2];
  char* outfile_name= argv[3];

  if (argc != 4)
    die("Usage: comp_sql <struct_name> <sql_filename> <c_filename>");

  /* Open input and output file */
  if (!(in= fopen(infile_name, "r")))
    die("Failed to open SQL file '%s'", infile_name);
  if (!(out= fopen(outfile_name, "w")))
    die("Failed to open output file '%s'", outfile_name);

#ifndef MCP_BUG51828
  /*
    Print the SQL as an array of strings instead of one
    large string in order to avoid compiler limit on max string length.
    Significant parts of patch for bug#51828 backported from trunk.
  */
  fprintf(out, "const char* %s[]={\n\"", struct_name);
#else
  fprintf(out, "const char* %s={\n\"", struct_name);
#endif

  while (fgets(buff, sizeof(buff), in))
  {
    char *curr= buff;
    while (*curr)
    {
      if (*curr == '\n')
      {
        /*
          Reached end of line, add escaped newline, escaped
          backslash and a newline to outfile
        */
        fprintf(out, "\\n \"\n\"");
        curr++;
      }
      else if (*curr == '\r')
      {
        curr++; /* Skip */
      }
      else
      {
        if (*curr == '"')
        {
          /* Needs escape */
          fputc('\\', out);
        }

        fputc(*curr, out);
        curr++;
      }
    }
    if (*(curr-1) != '\n')
    {
      /*
        Some compilers have a max string length,
        insert a newline at every 512th char in long
        strings
      */
      fprintf(out, "\"\n\"");
    }
#ifndef MCP_BUG51828
    /* new line -> convert to new entry in array */
    fprintf(out, "\",\n\"");
#endif
  }

#ifndef MCP_BUG51828
  fprintf(out, "\",\nNULL\n};\n");
#else
  fprintf(out, "\\\n\"};\n");
#endif

  fclose(in);
  fclose(out);

  exit(0);

}

