atom *
atom_general(sql_allocator *sa, sql_subtype *tpe, char *val)
{
atom *a;
ptr p = NULL;
if (atom_debug)
fprintf(stderr, "atom_general(%s,%s)\n", tpe->type->sqlname, val);
if (tpe->type->localtype == TYPE_str)
return atom_string(sa, tpe, val);
a = atom_create(sa);
a->tpe = *tpe;
a->data.val.pval = NULL;
a->data.vtype = tpe->type->localtype;
a->data.len = 0;
assert(a->data.vtype >= 0);
if (val) {
int type = a->data.vtype;
a->isnull = 0;
if (ATOMstorage(type) == TYPE_str) {
a->isnull = 0;
a->data.val.sval = sql2str(sa_strdup(sa, val));
a->data.len = (int)strlen(a->data.val.sval);
} else {
int res = ATOMfromstr(type, &p, &a->data.len, val);
/* no result or nil means error (SQL has NULL not nil) */
if (res < 0 || !p || ATOMcmp(type, p, ATOMnilptr(type)) == 0) {
/*_DELETE(val);*/
if (p)
GDKfree(p);
return NULL;
}
VALset(&a->data, a->data.vtype, p);
SA_VALcopy(sa, &a->data, &a->data);
if (p && ATOMextern(a->data.vtype) == 0)
GDKfree(p);
/*_DELETE(val);*/
}
} else {
p = ATOMnilptr(a->data.vtype);
VALset(&a->data, a->data.vtype, p);
a->isnull = 1;
}
return a;
}
str
str_2_timestamp(timestamp *res, const str *val)
{
ptr p = NULL;
int len = 0;
int e;
char buf[BUFSIZ];
e = ATOMfromstr(TYPE_timestamp, &p, &len, *val);
if (e < 0 || !p || (ATOMcmp(TYPE_timestamp, p, ATOMnilptr(TYPE_timestamp)) == 0 && ATOMcmp(TYPE_str, *val, ATOMnilptr(TYPE_str)) != 0)) {
if (p)
GDKfree(p);
snprintf(buf, BUFSIZ, "conversion of string '%s' failed", *val? *val:"");
throw(SQL, "timestamp", "%s", buf);
}
*res = *(timestamp *) p;
if (!ATOMextern(TYPE_timestamp)) {
if (p)
GDKfree(p);
}
return MAL_SUCCEED;
}
