- enable initialisation in declare section.

- connect call accepts a variable as well.

Wed Feb 18 21:41:30 CET 1998

- added whenever statement

Thu Feb 19 12:48:14 CET 1998

- added do option to whenever statement

The variables should be static.

Preprocessor cannot do syntax checking on your SQL statements Whatever you

write is copied more or less exactly to thepostgres95 and you will not be

write is copied more or less exactly to thePostgreSQL and you will not be

able to locate your errors until run-time.

No restriction to strings only The PQ interface, and most of all the PQexec

What do we do with enum data types?

'signed' isn't understood so far

The cursor is opened when the declare statement is issued.

The is no exec sql prepare statement.

chararr[1];

};

voidsqlprint(void);

#defineSQLCODE sqlca.sqlcode

return false;

}

if (committed)

{

free(f);

}

}

voidsqlprint(void)

{

sqlca.sqlerrm.sqlerrmc[sqlca.sqlerrm.sqlerrml]='\0';

printf ("sql error %s\n",sqlca.sqlerrm.sqlerrmc);

}

for (fnr=optind;fnr<argc;fnr++)

{

char*filename,*ptr2ext;

intext=0;

filename=mm_alloc(strlen(argv[fnr])+2);

filename=mm_alloc(strlen(argv[fnr])+4);

strcpy(filename,argv[fnr]);

ptr2ext=strrchr(filename,'.');

if (ptr2ext==NULL||strcmp(ptr2ext,".pgc")!=0)

{

if (ptr2ext==NULL)

ext=1;/* we need this information a while later */

ptr2ext=filename+strlen(filename);

ptr2ext[0]='.';

}

}

}

yyin=fopen(input_filename=argv[fnr],"r");

if (ext==1)

{

ptr2ext=strrchr(filename,'.');

ptr2ext[1]='p';

ptr2ext[2]='g';

ptr2ext[3]='c';

ptr2ext[4]='\0';

input_filename=filename;

}

input_filename=argv[fnr];

yyin=fopen(input_filename,"r");

if (yyin==NULL)

perror(argv[fnr]);

externvoidlex_init(void);

externchar*input_filename;

externintyyparse(void);

externvoid*mm_alloc(size_t);

externvoid*mm_alloc(size_t),*mm_realloc(void*,size_t);

digit[0-9]

length{digit}+

symbol{letter}({letter}|{digit})*

label({letter}|{digit})*

string'[^']*'

begin[bB][eE][gG][iI][nN]

break [bB][rR][eE][aA][kK]

commit [cC][oO][mM][mM][iI][tT]

connect [cC][oO][nN][nN][eE][cC][tT]

continue [cC][oO][nN][tT][iI][nN][uU][eE]

declare [dD][eE][cC][lL][aA][rR][eE]

do [dD][oO]

end[eE][nN][dD]

exec[eE][xX][eE][cC]

execute[eE][xX][eE][cC][uU][tT][eE]

found[fF][oO][uU][nN][dD]

goto [gG][oO][tT][oO]

immediate [iI][mM][mM][eE][dD][iI][aA][tT][eE]

include [iI][nN][cC][lL][uU][dD][eE]

into[iI][nN][tT][oO]

not[nN][oO][tT]

open[oO][pP][eE][nN]

release [rR][eE][lL][eE][aA][sS][eE]

rollback [rR][oO][lL][lL][bB][aA][cC][kK]

section[sS][eE][cC][tT][iI][oO][nN]

sql[sS][qQ][lL]

sqlerror [sS][qQ][lL][eE][rR][rR][oO][rR]

sqlprint [sS][qQ][lL][pP][rR][iI][nN][tT]

varchar[vV][aA][rR][cC][hH][aA][rR]

varchar2[vV][aA][rR][cC][hH][aA][rR]2

whenever [wW][hH][eE][nN][eE][vV][eE][rR]

work [wW][oO][rR][kK]

%%

<C>{exec}{ws}{sql}{ BEGIN SQL;dbg(SQL_START);return SQL_START; }

<SQL>{release}{dbg(SQL_RELEASE);return SQL_RELEASE; }

<SQL>{work}{dbg(SQL_WORK);return SQL_WORK; }

<SQL>{rollback}{dbg(SQL_ROLLBACK);return SQL_ROLLBACK; }

<SQL>{whenever}{dbg(SQL_WHENEVER);return SQL_WHENEVER; }

<SQL>{sqlerror}{dbg(SQL_SQLERROR);return SQL_SQLERROR; }

<SQL>{sqlprint}{dbg(SQL_SQLPRINT);return SQL_SQLPRINT; }

<SQL>{not}{ws}{found}{dbg(SQL_NOT_FOUND);return SQL_NOT_FOUND; }

<SQL>{break}{dbg(SQL_BREAK);return SQL_BREAK; }

<SQL>{continue}{dbg(SQL_CONTINUE);return SQL_CONTINUE; }

<SQL>{into}{dbg(SQL_INTO);return SQL_INTO; }

<SQL>{goto}{dbg(SQL_GOTO);return SQL_GOTO; }

<SQL>{do}{dbg(SQL_DO);return SQL_DO; }

{length}{dbg(S_LENGTH);return S_LENGTH; }

bool {dbg(S_BOOL);return S_BOOL; }

static{dbg(S_STATIC);return S_STATIC; }

signed{dbg(S_SIGNED);return S_SIGNED; }

extern{dbg(S_EXTERN);return S_EXTERN; }

auto{dbg(S_AUTO);return S_AUTO; }

const{dbg(S_CONST);return S_CONST; }

{string}{dbg(SQL_STRING);return SQL_STRING; }

<SQL>{ws};

{symbol}{dbg(S_SYMBOL);return S_SYMBOL; }

{label}{dbg(S_LABEL);return S_LABEL; }

<SQL>"!<"{dbg(S_SYMBOL);return S_SYMBOL; }

<SQL>"!>"{dbg(S_SYMBOL);return S_SYMBOL; }

";"{dbg(;);return';'; }

"="{dbg(=);return'='; }

","{dbg(komma);return','; }

\({dbg(braceopen);return'('; }

\){dbg(braceclose);return')'; }

\{{dbg(blockstart);return'{'; }

\}{ dbg(blockend); return'}'; }

\}{dbg(blockend);return'}'; }

\*{dbg(*);return('*'); }

<SQL>":"{dbg(:);return':'; }