mirror of
https://github.com/postgres/postgres.git
synced 2025-05-17 06:41:24 +03:00
4e1ed3da9b
- Accept CPP defines for type definitions. - Do not parse system include files automatically for Informix mode
372 lines
8.8 KiB
C
372 lines
8.8 KiB
C
/* $Header: /cvsroot/pgsql/src/interfaces/ecpg/preproc/ecpg.c,v 1.70 2003/05/14 14:37:35 meskes Exp $ */
|
|
|
|
/* New main for ecpg, the PostgreSQL embedded SQL precompiler. */
|
|
/* (C) Michael Meskes <meskes@postgresql.org> Feb 5th, 1998 */
|
|
/* Placed under the same license as PostgreSQL */
|
|
|
|
#include "postgres_fe.h"
|
|
|
|
#include <unistd.h>
|
|
#include <string.h>
|
|
#ifdef HAVE_GETOPT_H
|
|
#include <getopt.h>
|
|
#endif
|
|
|
|
extern int optind;
|
|
extern char *optarg;
|
|
|
|
#include "extern.h"
|
|
|
|
int ret_value = 0,
|
|
autocommit = false,
|
|
auto_create_c = false,
|
|
system_includes = false;
|
|
|
|
enum COMPAT_MODE compat = ECPG_COMPAT_PGSQL;
|
|
|
|
struct _include_path *include_paths = NULL;
|
|
struct cursor *cur = NULL;
|
|
struct typedefs *types = NULL;
|
|
struct _defines *defines = NULL;
|
|
|
|
static void
|
|
help(const char *progname)
|
|
{
|
|
printf("%s is the PostgreSQL embedded SQL preprocessor for C programs.\n\n",
|
|
progname);
|
|
printf("Usage:\n"
|
|
" %s [OPTION]... FILE...\n\n",
|
|
progname);
|
|
printf("Options:\n");
|
|
printf(" -c automatically generate C code from embedded SQL code;\n"
|
|
" currently this works for EXEC SQL TYPE\n");
|
|
#ifdef YYDEBUG
|
|
printf(" -d generate parser debug output\n");
|
|
#endif
|
|
printf(" -C <mode> set compatibility mode\n"
|
|
" mode may be INFORMIX only at the moment\n"
|
|
" INFORMIX mode implies '-i'\n");
|
|
printf(" -D SYMBOL define SYMBOL\n");
|
|
printf(" -I DIRECTORY search DIRECTORY for include files\n");
|
|
printf(" -o OUTFILE write result to OUTFILE\n");
|
|
printf(" -t turn on autocommit of transactions\n");
|
|
printf(" -i parse system include files as well\n");
|
|
printf(" --help show this help, then exit\n");
|
|
printf(" --version output version information, then exit\n");
|
|
printf("\nIf no output file is specified, the name is formed by adding .c to the\n"
|
|
"input file name, after stripping off .pgc if present.\n");
|
|
printf("\nReport bugs to <pgsql-bugs@postgresql.org>.\n");
|
|
}
|
|
|
|
static void
|
|
add_include_path(char *path)
|
|
{
|
|
struct _include_path *ip = include_paths, *new;
|
|
|
|
new = mm_alloc(sizeof(struct _include_path));
|
|
new->path = path;
|
|
new->next = NULL;
|
|
|
|
if (ip == NULL)
|
|
include_paths = new;
|
|
else
|
|
{
|
|
for (;ip->next != NULL; ip=ip->next);
|
|
ip->next = new;
|
|
}
|
|
}
|
|
|
|
static void
|
|
add_preprocessor_define(char *define)
|
|
{
|
|
struct _defines *pd = defines;
|
|
char *ptr, *define_copy = mm_strdup(define);
|
|
|
|
defines = mm_alloc(sizeof(struct _defines));
|
|
|
|
/* look for = sign */
|
|
ptr = strchr(define_copy, '=');
|
|
if (ptr != NULL)
|
|
{
|
|
char *tmp;
|
|
|
|
/* symbol gets a value */
|
|
for (tmp=ptr-1; *tmp == ' '; tmp--);
|
|
tmp[1] = '\0';
|
|
defines->old = define_copy;
|
|
defines->new = ptr+1;
|
|
}
|
|
else
|
|
{
|
|
defines->old = define_copy;
|
|
defines->new = mm_strdup("");
|
|
}
|
|
defines->pertinent = true;
|
|
defines->next = pd;
|
|
}
|
|
|
|
int
|
|
main(int argc, char *const argv[])
|
|
{
|
|
int fnr,
|
|
c,
|
|
verbose = false,
|
|
out_option = 0;
|
|
struct _include_path *ip;
|
|
char *progname;
|
|
|
|
progname = get_progname(argv[0]);
|
|
|
|
if (argc > 1)
|
|
{
|
|
if (strcmp(argv[1], "--help") == 0 || strcmp(argv[1], "-?") == 0)
|
|
{
|
|
help(progname);
|
|
exit(0);
|
|
}
|
|
else if (strcmp(argv[1], "--version") == 0)
|
|
{
|
|
printf("ecpg (PostgreSQL %s) %d.%d.%d\n", PG_VERSION,
|
|
MAJOR_VERSION, MINOR_VERSION, PATCHLEVEL);
|
|
exit(0);
|
|
}
|
|
}
|
|
|
|
while ((c = getopt(argc, argv, "vcio:I:tD:dC:")) != -1)
|
|
{
|
|
switch (c)
|
|
{
|
|
case 'o':
|
|
yyout = fopen(optarg, PG_BINARY_W);
|
|
if (yyout == NULL)
|
|
perror(optarg);
|
|
else
|
|
out_option = 1;
|
|
break;
|
|
case 'I':
|
|
add_include_path(optarg);
|
|
break;
|
|
case 't':
|
|
autocommit = true;
|
|
break;
|
|
case 'v':
|
|
verbose = true;
|
|
break;
|
|
case 'c':
|
|
auto_create_c = true;
|
|
break;
|
|
case 'i':
|
|
system_includes = true;
|
|
break;
|
|
case 'C':
|
|
if (strcmp(optarg, "INFORMIX") == 0)
|
|
{
|
|
compat = ECPG_COMPAT_INFORMIX;
|
|
/* system_includes = true; */
|
|
add_preprocessor_define("dec_t=Numeric");
|
|
add_preprocessor_define("intrvl_t=Interval");
|
|
}
|
|
else
|
|
{
|
|
fprintf(stderr, "Try '%s --help' for more information.\n", argv[0]);
|
|
return ILLEGAL_OPTION;
|
|
}
|
|
break;
|
|
case 'D':
|
|
add_preprocessor_define(optarg);
|
|
break;
|
|
case 'd':
|
|
#ifdef YYDEBUG
|
|
yydebug = 1;
|
|
#else
|
|
fprintf(stderr, "%s: parser debug support (-d) not available\n",
|
|
progname);
|
|
#endif
|
|
break;
|
|
default:
|
|
fprintf(stderr, "Try '%s --help' for more information.\n", argv[0]);
|
|
return ILLEGAL_OPTION;
|
|
}
|
|
}
|
|
|
|
add_include_path(".");
|
|
add_include_path("/usr/local/include");
|
|
add_include_path(INCLUDE_PATH);
|
|
add_include_path("/usr/include");
|
|
|
|
if (verbose)
|
|
{
|
|
fprintf(stderr, "%s, the PostgreSQL embedded C preprocessor, version %d.%d.%d\n",
|
|
progname, MAJOR_VERSION, MINOR_VERSION, PATCHLEVEL);
|
|
fprintf(stderr, "exec sql include ... search starts here:\n");
|
|
for (ip = include_paths; ip != NULL; ip = ip->next)
|
|
fprintf(stderr, " %s\n", ip->path);
|
|
fprintf(stderr, "end of search list\n");
|
|
return 0;
|
|
}
|
|
|
|
if (optind >= argc) /* no files specified */
|
|
{
|
|
fprintf(stderr, "%s: no input files specified\n", progname);
|
|
fprintf(stderr, "Try '%s --help' for more information.\n", argv[0]);
|
|
return (ILLEGAL_OPTION);
|
|
}
|
|
else
|
|
{
|
|
/* after the options there must not be anything but filenames */
|
|
for (fnr = optind; fnr < argc; fnr++)
|
|
{
|
|
char *output_filename = NULL,
|
|
*ptr2ext;
|
|
|
|
input_filename = mm_alloc(strlen(argv[fnr]) + 5);
|
|
|
|
strcpy(input_filename, argv[fnr]);
|
|
|
|
/* take care of relative paths */
|
|
ptr2ext = last_path_separator(input_filename);
|
|
ptr2ext = (ptr2ext ? strrchr(ptr2ext, '.') : strrchr(input_filename, '.'));
|
|
|
|
/* no extension? */
|
|
if (ptr2ext == NULL)
|
|
{
|
|
ptr2ext = input_filename + strlen(input_filename);
|
|
|
|
/* no extension => add .pgc */
|
|
ptr2ext[0] = '.';
|
|
ptr2ext[1] = 'p';
|
|
ptr2ext[2] = 'g';
|
|
ptr2ext[3] = 'c';
|
|
ptr2ext[4] = '\0';
|
|
}
|
|
|
|
if (out_option == 0) /* calculate the output name */
|
|
{
|
|
output_filename = strdup(input_filename);
|
|
|
|
ptr2ext = strrchr(output_filename, '.');
|
|
/* make extension = .c */
|
|
ptr2ext[1] = 'c';
|
|
ptr2ext[2] = '\0';
|
|
|
|
yyout = fopen(output_filename, PG_BINARY_W);
|
|
if (yyout == NULL)
|
|
{
|
|
perror(output_filename);
|
|
free(output_filename);
|
|
free(input_filename);
|
|
continue;
|
|
}
|
|
}
|
|
|
|
yyin = fopen(input_filename, PG_BINARY_R);
|
|
if (yyin == NULL)
|
|
perror(argv[fnr]);
|
|
else
|
|
{
|
|
struct cursor *ptr;
|
|
struct _defines *defptr;
|
|
struct typedefs *typeptr;
|
|
|
|
/* remove old cursor definitions if any are still there */
|
|
for (ptr = cur; ptr != NULL;)
|
|
{
|
|
struct cursor *this = ptr;
|
|
struct arguments *l1,
|
|
*l2;
|
|
|
|
free(ptr->command);
|
|
free(ptr->connection);
|
|
free(ptr->name);
|
|
for (l1 = ptr->argsinsert; l1; l1 = l2)
|
|
{
|
|
l2 = l1->next;
|
|
free(l1);
|
|
}
|
|
for (l1 = ptr->argsresult; l1; l1 = l2)
|
|
{
|
|
l2 = l1->next;
|
|
free(l1);
|
|
}
|
|
ptr = ptr->next;
|
|
free(this);
|
|
}
|
|
cur = NULL;
|
|
|
|
/* remove non-pertinent old defines as well */
|
|
while (defines && !defines->pertinent)
|
|
{
|
|
defptr = defines;
|
|
defines = defines->next;
|
|
|
|
free(defptr->new);
|
|
free(defptr->old);
|
|
free(defptr);
|
|
}
|
|
|
|
for (defptr = defines; defptr != NULL; defptr = defptr->next)
|
|
{
|
|
struct _defines *this = defptr->next;
|
|
|
|
if (this && !this->pertinent)
|
|
{
|
|
defptr->next = this->next;
|
|
|
|
free(this->new);
|
|
free(this->old);
|
|
free(this);
|
|
}
|
|
}
|
|
|
|
/* and old typedefs */
|
|
for (typeptr = types; typeptr != NULL;)
|
|
{
|
|
struct typedefs *this = typeptr;
|
|
|
|
free(typeptr->name);
|
|
ECPGfree_struct_member(typeptr->struct_member_list);
|
|
free(typeptr->type);
|
|
typeptr = typeptr->next;
|
|
free(this);
|
|
}
|
|
types = NULL;
|
|
|
|
/* initialize whenever structures */
|
|
memset(&when_error, 0, sizeof(struct when));
|
|
memset(&when_nf, 0, sizeof(struct when));
|
|
memset(&when_warn, 0, sizeof(struct when));
|
|
|
|
/* and structure member lists */
|
|
memset(struct_member_list, 0, sizeof(struct_member_list));
|
|
|
|
/* finally the actual connection */
|
|
connection = NULL;
|
|
|
|
/* initialize lex */
|
|
lex_init();
|
|
|
|
/* we need several includes */
|
|
fprintf(yyout, "/* Processed by ecpg (%d.%d.%d) */\n/* These four include files are added by the preprocessor */\n#include <ecpgtype.h>\n#include <ecpglib.h>\n#include <ecpgerrno.h>\n#include <sqlca.h>\n#line 1 \"%s\"\n", MAJOR_VERSION, MINOR_VERSION, PATCHLEVEL, input_filename);
|
|
|
|
/* add some compatibility headers */
|
|
if (compat == ECPG_COMPAT_INFORMIX)
|
|
fprintf(yyout, "/* Needed for informix compatibility */\n#include <ecpg_informix.h>\n");
|
|
|
|
/* and parse the source */
|
|
yyparse();
|
|
|
|
if (yyin != NULL)
|
|
fclose(yyin);
|
|
if (out_option == 0)
|
|
fclose(yyout);
|
|
}
|
|
|
|
if (output_filename)
|
|
free(output_filename);
|
|
|
|
free(input_filename);
|
|
}
|
|
}
|
|
return ret_value;
|
|
}
|