- added do option to whenever statement

Sat Feb 21 19:10:55 CET 1998

- use char[] as string not as array of bytes that is integers

Sun Feb 22 16:37:36 CET 1998

- use long for all size variables

- added execute immediate statement

Sun Feb 22 20:41:32 CET 1998

- use varcharsize = 1 for all simple types, 0 means pointer, > 1

means array if type is char resp. unsigned char

Thu Feb 24 12:26:12 CET 1998

- allow 'go to' in whenever statement as well as 'goto'

- new argument 'stop' for whenever statement

SUBDIRS = include lib preproc doc

allinstalluninstallclean:

$(MAKE) -C include$@

$(MAKE) -C lib$@

$(MAKE) -C preproc$@

Now comes my list (MM):

What do we do with enum data types?

The return code is alway -1 in case of an error. You cannot see which error

occured by examining the return code.

The cursor is opened when the declare statement is issued.

The cursor is opened when the declare statement is issued.

ecpg does not understand enum datatypes.

The is no exec sql prepare statement.

The complete structure definition has to be listed inside the declare

section for ecpg to be able to understand it.

Each variable has to be defined on a line on its own.

There is no way yet to fill a complete array with one call except arrays of

[unsigned] char which are considered strings.

ecpg cannot use pointer variables except [unsigned] char *

while (type!=ECPGt_EOIT)

{

void*value=NULL;

shortvarcharsize;

shortsize;

shortarrsize;

longvarcharsize;

longsize;

longarrsize;

char*newcopy;

char*mallocedval=NULL;

value=va_arg(ap,void*);

varcharsize=va_arg(ap,short);

size=va_arg(ap,short);

arrsize=va_arg(ap,short);

varcharsize=va_arg(ap,long);

size=va_arg(ap,long);

arrsize=va_arg(ap,long);

switch (type)

{

caseECPGt_char:

caseECPGt_short:

caseECPGt_int:

sprintf(buff,"%d",*(int*)value);

tobeinserted=buff;

break;

caseECPGt_unsigned_char:

caseECPGt_unsigned_short:

caseECPGt_unsigned_int:

sprintf(buff,"%d",*(unsignedint*)value);

tobeinserted=buff;

break;

caseECPGt_char:

caseECPGt_unsigned_char:

{

intslen= (varcharsize==0) ?strlen((char*)value) :varcharsize;

newcopy= (char*)malloc(slen+1);

strncpy(newcopy, (char*)value,slen);

newcopy[slen]='\0';

mallocedval= (char*)malloc(2*strlen(newcopy)+3);

strcpy(mallocedval,"'");

strcat(mallocedval,quote_postgres(newcopy));

strcat(mallocedval,"'");

free(newcopy);

tobeinserted=mallocedval;

}

break;

caseECPGt_varchar:

caseECPGt_varchar2:

{

if (n<1)

{

ECPGlog("ECPGdolineno %d: Incorrect number of matches: %d\n",

ECPGlog("ECPGdoline %d: Incorrect number of matches: %d\n",

lineno,n);

register_error(1,"Data not found line %d.",lineno);

break;

for (x=0;x<m&&status;x++)

{

void*value=NULL;

shortvarcharsize;

shortsize;

shortarrsize;

longvarcharsize;

longsize;

longarrsize;

char*pval=PQgetvalue(results,0,x);

type=va_arg(ap,enumECPGttype);

value=va_arg(ap,void*);

varcharsize=va_arg(ap,short);

size=va_arg(ap,short);

arrsize=va_arg(ap,short);

varcharsize=va_arg(ap,long);

size=va_arg(ap,long);

arrsize=va_arg(ap,long);

switch (type)

{

longres;

unsigned longures;

doubledres;

caseECPGt_char:

caseECPGt_short:

caseECPGt_int:

caseECPGt_long:

switch (type)

{

caseECPGt_char:

*(char*)value= (char)res;

break;

caseECPGt_short:

*(short*)value= (short)res;

break;

}

break;

caseECPGt_unsigned_char:

caseECPGt_unsigned_short:

caseECPGt_unsigned_int:

caseECPGt_unsigned_long:

switch (type)

{

caseECPGt_unsigned_char:

*(unsignedchar*)value= (unsignedchar)ures;

break;

caseECPGt_unsigned_short:

*(unsigned short*)value= (unsigned short)ures;

break;

return false;

break;

caseECPGt_char:

caseECPGt_unsigned_char:

{

if (varcharsize==0)

{

strncpy((char*)value,pval,strlen(pval));

((char*)value)[strlen(pval)]='\0';

}

strncpy((char*)value,pval,varcharsize);

}

break;

caseECPGt_varchar:

{

MINOR_VERSION=0

PATCHLEVEL=0

CFLAGS=-I$(SRCDIR)/include -I../include -Wall -DMAJOR_VERSION=$(MAJOR_VERSION) -DMINOR_VERSION=$(MINOR_VERSION) -DPATCHLEVEL=$(PATCHLEVEL)

CFLAGS+=-I$(SRCDIR)/include -I../include -Wall -DMAJOR_VERSION=$(MAJOR_VERSION) -DMINOR_VERSION=$(MINOR_VERSION) -DPATCHLEVEL=$(PATCHLEVEL)

all:: ecpg

clean:

rm -f*.o core a.out ecpg y.tab.h y.tab.c*~

rm -f*.o core a.out ecpg y.tab.h y.tab.cpgc.c*~

install: all

$(INSTALL)$(INSTLOPTS) ecpg$(DESTDIR)$(BINDIR)

$(INSTALL)$(INSTL_EXE_OPTS) ecpg$(DESTDIR)$(BINDIR)

uninstall:

rm -f$(DESTDIR)$(BINDIR)/ecpg

ecpg: y.tab.o pgc.o type.o ecpg.o ../lib/typename.o

$(CC) -Wall -o ecpg y.tab.o pgc.o type.o ecpg.o ../lib/typename.o$(LEXLIB)

$(CC) -o ecpg y.tab.o pgc.o type.o ecpg.o ../lib/typename.o$(LEXLIB)

y.tab.hy.tab.c: preproc.y

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

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

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

go[gG][oO]

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

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

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

sql[sS][qQ][lL]

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

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

stop[sS][tT][oO][pP]

to [tT][oO]

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]

<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>{go}{ws}{to}{dbg(SQL_GOTO);return SQL_GOTO; }

<SQL>{stop}{dbg(SQL_STOP);return SQL_STOP; }

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

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