str
malAtomDefinition(str name, int tpe)
{
int i;
if (strlen(name) >= IDLENGTH) {
throw (SYNTAX, "atomDefinition", "Atom name '%s' too long", name);
}
if (ATOMindex(name) >= 0) {
#ifndef HAVE_EMBEDDED /* we can restart embedded MonetDB, making this an expected error */
throw(TYPE, "atomDefinition", "Redefinition of atom '%s'", name);
#endif
}
if (tpe < 0 || tpe >= GDKatomcnt) {
throw(TYPE, "atomDefinition", "Undefined atom inheritance '%s'", name);
}
if (strlen(name) >= sizeof(BATatoms[0].name))
throw(TYPE, "atomDefinition", "Atom name too long '%s'", name);
i = ATOMallocate(name);
if (is_int_nil(i))
throw(TYPE,"atomDefinition", SQLSTATE(HY001) MAL_MALLOC_FAIL);
/* overload atom ? */
if (tpe) {
BATatoms[i] = BATatoms[tpe];
strncpy(BATatoms[i].name, name, sizeof(BATatoms[i].name));
BATatoms[i].name[sizeof(BATatoms[i].name) - 1] = 0; /* make coverity happy */
BATatoms[i].storage = ATOMstorage(tpe);
} else { /* cannot overload void atoms */
BATatoms[i].storage = i;
BATatoms[i].linear = false;
}
return MAL_SUCCEED;
}
void malAtomDefinition(stream *out, str name, int tpe)
{
int i;
if (strlen(name) >= IDLENGTH) {
showException(out, SYNTAX, "atomDefinition", "Atom name '%s' too long", name);
return;
}
if (ATOMindex(name) >= 0) {
#ifndef HAVE_EMBEDDED /* we can restart embedded MonetDB, making this an expected error */
showException(out, TYPE, "atomDefinition", "Redefinition of atom '%s'", name);
#endif
return;
}
if (tpe < 0 || tpe >= GDKatomcnt) {
showException(out, TYPE, "atomDefinition", "Undefined atom inheritance '%s'", name);
return;
}
if (strlen(name) >= sizeof(BATatoms[0].name))
return;
i = ATOMallocate(name);
/* overload atom ? */
if (tpe) {
BATatoms[i] = BATatoms[tpe];
strncpy(BATatoms[i].name, name, sizeof(BATatoms[i].name));
BATatoms[i].name[sizeof(BATatoms[i].name) - 1] = 0; /* make coverity happy */
BATatoms[i].storage = ATOMstorage(tpe);
} else { /* cannot overload void atoms */
BATatoms[i].storage = i;
BATatoms[i].linear = 0;
}
}
void malAtomDefinition(stream *out, str name, int tpe)
{
int i;
if (strlen(name) >= IDLENGTH) {
showException(out, SYNTAX, "atomDefinition", "Atom name '%s' too long", name);
return;
}
if (ATOMindex(name) >= 0) {
showException(out, TYPE, "atomDefinition", "Redefinition of atom '%s'", name);
return;
}
if (tpe < 0 || tpe >= GDKatomcnt) {
showException(out, TYPE, "atomDefinition", "Undefined atom inheritance '%s'", name);
return;
}
if (strlen(name) >= sizeof(BATatoms[0].name))
return;
i = ATOMallocate(name);
/* overload atom ? */
if (tpe) {
BATatoms[i] = BATatoms[tpe];
strncpy(BATatoms[i].name, name, sizeof(BATatoms[i].name));
BATatoms[i].name[sizeof(BATatoms[i].name) - 1] = 0; /* make coverity happy */
BATatoms[i].storage = BATatoms[tpe].storage;
} else { /* cannot overload void atoms */
BATatoms[i].storage = i;
BATatoms[i].linear = 0;
}
}
