static int csv_read_record(TABDCA *dca, struct csv *csv)
{ /* read next record from csv data file */
int k, ret = 0;
xassert(csv->mode == 'R');
if (setjmp(csv->jump))
{ ret = 1;
goto done;
}
/* read dummy RECNO field */
if (csv->ref[0] > 0)
#if 0 /* 01/VI-2010 */
mpl_tab_set_num(dca, csv->ref[0], csv->count-1);
#else
mpl_tab_set_num(dca, csv->ref[0], csv->count-csv->nskip-1);
#endif
/* read fields */
for (k = 1; k <= csv->nf; k++)
{ read_field(csv);
if (csv->what == CSV_EOF)
{ /* end-of-file reached */
xassert(k == 1);
ret = -1;
goto done;
}
else if (csv->what == CSV_EOR)
{ /* end-of-record reached */
int lack = csv->nf - k + 1;
if (lack == 1)
xprintf("%s:%d: one field missing\n", csv->fname,
csv->count);
else
xprintf("%s:%d: %d fields missing\n", csv->fname,
csv->count, lack);
longjmp(csv->jump, 0);
}
else if (csv->what == CSV_NUM)
{ /* floating-point number */
if (csv->ref[k] > 0)
{ double num;
xassert(str2num(csv->field, &num) == 0);
mpl_tab_set_num(dca, csv->ref[k], num);
}
}
else if (csv->what == CSV_STR)
{ /* character string */
if (csv->ref[k] > 0)
mpl_tab_set_str(dca, csv->ref[k], csv->field);
}
else
xassert(csv != csv);
}
/* now there must be NL */
read_field(csv);
xassert(csv->what != CSV_EOF);
if (csv->what != CSV_EOR)
{ xprintf("%s:%d: too many fields\n", csv->fname, csv->count);
longjmp(csv->jump, 0);
}
done: return ret;
}
static int dbf_read_record(TABDCA *dca, struct dbf *dbf)
{ /* read next record from xBASE data file */
int b, j, k, ret = 0;
char buf[DBF_FDLEN_MAX+1];
xassert(dbf->mode == 'R');
if (setjmp(dbf->jump))
{ ret = 1;
goto done;
}
/* check record flag */
b = read_byte(dbf);
if (b == 0x1A)
{ /* end of data */
ret = -1;
goto done;
}
if (b != 0x20)
{ xprintf("%s:0x%X: invalid record flag\n", dbf->fname,
dbf->offset);
longjmp(dbf->jump, 0);
}
/* read dummy RECNO field */
if (dbf->ref[0] > 0)
mpl_tab_set_num(dca, dbf->ref[0], dbf->count+1);
/* read fields */
for (k = 1; k <= dbf->nf; k++)
{ /* read k-th field */
for (j = 0; j < dbf->len[k]; j++)
buf[j] = (char)read_byte(dbf);
buf[dbf->len[k]] = '\0';
/* set field value */
if (dbf->type[k] == 'C')
{ /* character field */
if (dbf->ref[k] > 0)
mpl_tab_set_str(dca, dbf->ref[k], strtrim(buf));
}
else if (dbf->type[k] == 'N')
{ /* numeric field */
if (dbf->ref[k] > 0)
{ double num;
strspx(buf);
xassert(str2num(buf, &num) == 0);
mpl_tab_set_num(dca, dbf->ref[k], num);
}
}
else
xassert(dbf != dbf);
}
/* increase record count */
dbf->count++;
done: return ret;
}
int db_iodbc_read(TABDCA *dca, void *link)
{
struct db_odbc *sql;
SQLRETURN ret;
char buf[SQL_FDLEN_MAX+1];
int i;
int len;
double num;
sql = (struct db_odbc *) link;
xassert(sql != NULL);
xassert(sql->mode == 'R');
ret=dl_SQLFetch(sql->hstmt);
if (ret== SQL_ERROR)
return -1;
if (ret== SQL_NO_DATA_FOUND)
return -1; /*EOF*/
for (i=1; i <= sql->nresultcols; i++)
{
if (sql->ref[i] > 0)
{
len = sql->outlen[i];
if (len != SQL_NULL_DATA)
{
if (sql->isnumeric[i])
{ mpl_tab_set_num(dca, sql->ref[i],
*((const double *) sql->data[i]));
}
else
{ if (len > SQL_FDLEN_MAX)
len = SQL_FDLEN_MAX;
else if (len < 0)
len = 0;
strncpy(buf, (const char *) sql->data[i], len);
buf[len] = 0x00;
mpl_tab_set_str(dca, sql->ref[i], strtrim(buf));
}
}
}
}
return 0;
}
