ING_DB
This commit is contained in:
Oliver Lehmann
parent
c7fd119e98
commit
22a801bbb1
|
|
@ -0,0 +1,231 @@
|
||||||
|
# include <stdio.h>
|
||||||
|
# include "gen.h"
|
||||||
|
# include "../h/dbs.h"
|
||||||
|
# include "../h/aux.h"
|
||||||
|
# include "../h/tree.h"
|
||||||
|
# include "../h/symbol.h"
|
||||||
|
# include "../h/pipes.h"
|
||||||
|
# include "ovqp.h"
|
||||||
|
|
||||||
|
/*
|
||||||
|
** TYPECHECK
|
||||||
|
**
|
||||||
|
** Performs typechecking and conversions where appropriate .
|
||||||
|
** Prohibits mixed type expressions.
|
||||||
|
*/
|
||||||
|
typecheck(pp1, pp2, opval)
|
||||||
|
SYMBOL *pp1, *pp2;
|
||||||
|
int opval;
|
||||||
|
{
|
||||||
|
register SYMBOL *p1;
|
||||||
|
register SYMBOL *p2;
|
||||||
|
register int i;
|
||||||
|
|
||||||
|
p1 = pp1;
|
||||||
|
p2 = pp2;
|
||||||
|
|
||||||
|
i = (((SYMBOL *) p1)->type == CHAR && ((SYMBOL *) p2)->type == CHAR);
|
||||||
|
switch (opval)
|
||||||
|
{
|
||||||
|
case opCONCAT:
|
||||||
|
if (!i) /* numeric in a char operator */
|
||||||
|
ov_err(NUMERIC);
|
||||||
|
return; /* else no further checking is needed */
|
||||||
|
|
||||||
|
case opADD:
|
||||||
|
case opSUB:
|
||||||
|
case opMUL:
|
||||||
|
case opDIV:
|
||||||
|
case opPOW:
|
||||||
|
case opMOD:
|
||||||
|
if (i) /* arithmetic operation on two character fields */
|
||||||
|
ov_err(BADCHAR);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* first check for identical types of symbols */
|
||||||
|
if (((SYMBOL *) p1)->type == ((SYMBOL *) p2)->type)
|
||||||
|
{
|
||||||
|
if (((SYMBOL *) p1)->len == ((SYMBOL *) p2)->len)
|
||||||
|
return;
|
||||||
|
/* lengths are different. make p2 point to the smaller one */
|
||||||
|
if (((SYMBOL *) p1)->len < ((SYMBOL *) p2)->len)
|
||||||
|
{
|
||||||
|
p2 = p1;
|
||||||
|
p1 = pp2;
|
||||||
|
}
|
||||||
|
|
||||||
|
switch (((SYMBOL *) p2)->type)
|
||||||
|
{
|
||||||
|
case INT:
|
||||||
|
if (((SYMBOL *) p1)->len == sizeof (long))
|
||||||
|
i2toi4(p2);
|
||||||
|
|
||||||
|
case CHAR:
|
||||||
|
return; /* done if char or int */
|
||||||
|
|
||||||
|
# ifndef NO_F4
|
||||||
|
case FLOAT:
|
||||||
|
f8tof4(p2);
|
||||||
|
return;
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* at least one symbol is an INT or FLOAT. The other can't be a CHAR */
|
||||||
|
if (((SYMBOL *) p1)->type == CHAR || ((SYMBOL *) p2)->type == CHAR)
|
||||||
|
ov_err(BADMIX); /* attempting binary operation on one CHAR field with a numeric */
|
||||||
|
|
||||||
|
/* one symbol is an INT and the other a FLOAT */
|
||||||
|
if (((SYMBOL *) p2)->type == INT)
|
||||||
|
{
|
||||||
|
/* exchange so that p1 is an INT and p2 is a FLOAT */
|
||||||
|
p1 = p2;
|
||||||
|
p2 = pp1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* p1 is an INT and p2 a FLOAT */
|
||||||
|
itof8(p1);
|
||||||
|
# ifndef NO_F4
|
||||||
|
if (((SYMBOL *) p2)->len == sizeof (float))
|
||||||
|
f8tof4(p2);
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Coerce the top of stack symbol to the
|
||||||
|
** specified type and length. If the current
|
||||||
|
** value is a character then it must be converted
|
||||||
|
** to numeric. A user error will occure is the
|
||||||
|
** char is not syntaxtically correct.
|
||||||
|
*/
|
||||||
|
typecoerce(tos, ntype, nlen)
|
||||||
|
register struct stacksym *tos;
|
||||||
|
int ntype;
|
||||||
|
int nlen;
|
||||||
|
{
|
||||||
|
register char *cp;
|
||||||
|
register char *val;
|
||||||
|
register int ret;
|
||||||
|
char temp[MAXFIELD + 1];
|
||||||
|
|
||||||
|
if (((SYMBOL *) tos)->type == CHAR)
|
||||||
|
{
|
||||||
|
val = (char *) ((SYMBOL *) tos)->value;
|
||||||
|
cp = temp;
|
||||||
|
AAbmove(((STRINGP *) val)->stringp, cp, ctou(((SYMBOL *) tos)->len));
|
||||||
|
cp[ctou(((SYMBOL *) tos)->len)] = '\0';
|
||||||
|
if (ntype == FLOAT)
|
||||||
|
{
|
||||||
|
ret = AA_atof(cp, val);
|
||||||
|
# ifndef NO_F4
|
||||||
|
if (nlen == sizeof (float))
|
||||||
|
((F4TYPE *) val)->f4type = ((F8TYPE *) val)->f8type;
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (nlen == sizeof (long))
|
||||||
|
ret = AA_atol(cp, val);
|
||||||
|
else
|
||||||
|
ret = AA_atoi(cp, val);
|
||||||
|
}
|
||||||
|
if (ret < 0)
|
||||||
|
ov_err(CHARCONVERT);
|
||||||
|
((SYMBOL *) tos)->type = ntype;
|
||||||
|
((SYMBOL *) tos)->len = nlen;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
rcvt(tos, ntype, nlen);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
i2toi4(p)
|
||||||
|
register SYMBOL *p;
|
||||||
|
{
|
||||||
|
register char *val;
|
||||||
|
|
||||||
|
val = (char *) ((SYMBOL *) p)->value;
|
||||||
|
((I4TYPE *) val)->i4type = ((I2TYPE *) val)->i2type;
|
||||||
|
((SYMBOL *) p)->len = sizeof (long);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
i4toi2(p)
|
||||||
|
register SYMBOL *p;
|
||||||
|
{
|
||||||
|
register char *val;
|
||||||
|
|
||||||
|
val = (char *) ((SYMBOL *) p)->value;
|
||||||
|
((I2TYPE *) val)->i2type = ((I4TYPE *) val)->i4type;
|
||||||
|
((SYMBOL *) p)->len = sizeof (short);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
itof8(p)
|
||||||
|
register SYMBOL *p;
|
||||||
|
{
|
||||||
|
register char *val;
|
||||||
|
|
||||||
|
val = (char *) ((SYMBOL *) p)->value;
|
||||||
|
if (((SYMBOL *) p)->len == sizeof (long))
|
||||||
|
((F8TYPE *) val)->f8type = ((I4TYPE *) val)->i4type;
|
||||||
|
else
|
||||||
|
((F8TYPE *) val)->f8type = ((I2TYPE *) val)->i2type;
|
||||||
|
((SYMBOL *) p)->type = FLOAT;
|
||||||
|
((SYMBOL *) p)->len = sizeof (double);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
# ifndef NO_F4
|
||||||
|
itof4(p)
|
||||||
|
register SYMBOL *p;
|
||||||
|
{
|
||||||
|
register char *val;
|
||||||
|
|
||||||
|
val = (char *) ((SYMBOL *) p)->value;
|
||||||
|
if (((SYMBOL *) p)->len == sizeof (long))
|
||||||
|
((F4TYPE *) val)->f4type = ((I4TYPE *) val)->i4type;
|
||||||
|
else
|
||||||
|
((F4TYPE *) val)->f4type = ((I2TYPE *) val)->i2type;
|
||||||
|
((SYMBOL *) p)->type = FLOAT;
|
||||||
|
((SYMBOL *) p)->len = sizeof (float);
|
||||||
|
}
|
||||||
|
# endif
|
||||||
|
|
||||||
|
|
||||||
|
ftoi2(p)
|
||||||
|
register SYMBOL *p;
|
||||||
|
{
|
||||||
|
register char *val;
|
||||||
|
|
||||||
|
val = (char *) ((SYMBOL *) p)->value;
|
||||||
|
((I2TYPE *) val)->i2type = ((F8TYPE *) val)->f8type;
|
||||||
|
((SYMBOL *) p)->type = INT;
|
||||||
|
((SYMBOL *) p)->len = sizeof (short);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
ftoi4(p)
|
||||||
|
register SYMBOL *p;
|
||||||
|
{
|
||||||
|
register char *val;
|
||||||
|
|
||||||
|
val = (char *) ((SYMBOL *) p)->value;
|
||||||
|
((I4TYPE *) val)->i4type = ((F8TYPE *) val)->f8type;
|
||||||
|
((SYMBOL *) p)->type = INT;
|
||||||
|
((SYMBOL *) p)->len = sizeof (long);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
# ifndef NO_F4
|
||||||
|
f8tof4(p)
|
||||||
|
register SYMBOL *p;
|
||||||
|
{
|
||||||
|
register char *val;
|
||||||
|
|
||||||
|
val = (char *) ((SYMBOL *) p)->value;
|
||||||
|
((F4TYPE *) val)->f4type = ((F8TYPE *) val)->f8type;
|
||||||
|
((SYMBOL *) p)->len = sizeof (float);
|
||||||
|
}
|
||||||
|
# endif
|
||||||
Loading…
Reference in New Issue