/* 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 }