/* open csv reader from memory */
iCsvReader *icsv_reader_open_memory(const char *text, ilong size)
{
iCsvReader *reader;
reader = (iCsvReader*)ikmem_malloc(sizeof(iCsvReader));
if (reader == NULL) {
return NULL;
}
it_init(&reader->string, ITYPE_STR);
#ifndef IDISABLE_FILE_SYSTEM_ACCESS
reader->fp = NULL;
#endif
reader->source = NULL;
reader->strings = NULL;
reader->line = 0;
reader->count = 0;
reader->source = istring_list_split(text, size, "\n", 1);
if (reader->source == NULL) {
ikmem_free(reader);
return NULL;
}
return reader;
}
void *xmalloc(iulong size)
{
iulong pos, end;
ilong *ptr;
if (kmem_turnon) ptr = (ilong*)ikmem_malloc(size);
else ptr = (ilong*)malloc(size);
end = size / sizeof(ilong);
for (pos = 0; pos < end ; pos += 1024)
ptr[pos] = (ilong)pos;
return ptr;
}
// open csv writer from file: if filename is NULL, it will open in memory
iCsvWriter *icsv_writer_open(const char *filename, int append)
{
iCsvWriter *writer;
writer = (iCsvWriter*)ikmem_malloc(sizeof(iCsvWriter));
if (writer == NULL) return NULL;
if (filename != NULL) {
void *fp = NULL;
#ifndef IDISABLE_FILE_SYSTEM_ACCESS
writer->fp = fopen(filename, append? "a" : "w");
if (writer->fp && append) {
fseek(writer->fp, 0, SEEK_END);
}
fp = writer->fp;
#endif
if (fp == NULL) {
ikmem_free(writer);
return NULL;
}
writer->mode = 1;
} else {
writer->mode = 2;
#ifndef IDISABLE_FILE_SYSTEM_ACCESS
writer->fp = NULL;
#endif
}
writer->strings = istring_list_new();
if (writer->strings == NULL) {
#ifndef IDISABLE_FILE_SYSTEM_ACCESS
if (writer->fp) {
fclose(writer->fp);
}
#endif
ikmem_free(writer);
return NULL;
}
it_init(&writer->string, ITYPE_STR);
it_init(&writer->output, ITYPE_STR);
return writer;
}
/* open csv reader from file */
iCsvReader *icsv_reader_open_file(const char *filename)
{
#ifndef IDISABLE_FILE_SYSTEM_ACCESS
iCsvReader *reader;
FILE *fp;
fp = fopen(filename, "rb");
if (fp == NULL) return NULL;
reader = (iCsvReader*)ikmem_malloc(sizeof(iCsvReader));
if (reader == NULL) {
fclose(fp);
return NULL;
}
it_init(&reader->string, ITYPE_STR);
reader->fp = fp;
reader->source = NULL;
reader->strings = NULL;
reader->line = 0;
reader->count = 0;
return reader;
#else
return NULL;
#endif
}
