#include "utils.h"
|
#include <stdio.h>
|
#include <stdlib.h>
|
#include <string.h>
|
#include <math.h>
|
|
void error(char *s)
|
{
|
fprintf(stderr, "Error: %s\n", s);
|
exit(0);
|
}
|
|
void malloc_error()
|
{
|
fprintf(stderr, "Malloc error\n");
|
exit(-1);
|
}
|
|
void file_error(char *s)
|
{
|
fprintf(stderr, "Couldn't open file: %s\n", s);
|
exit(0);
|
}
|
|
list *split_str(char *s, char delim)
|
{
|
int i;
|
int len = strlen(s);
|
list *l = make_list();
|
list_insert(l, s);
|
for(i = 0; i < len; ++i){
|
if(s[i] == delim){
|
s[i] = '\0';
|
list_insert(l, &(s[i+1]));
|
}
|
}
|
return l;
|
}
|
|
void strip(char *s)
|
{
|
int i;
|
int len = strlen(s);
|
int offset = 0;
|
for(i = 0; i < len; ++i){
|
char c = s[i];
|
if(c==' '||c=='\t'||c=='\n') ++offset;
|
else s[i-offset] = c;
|
}
|
s[len-offset] = '\0';
|
}
|
|
void strip_char(char *s, char bad)
|
{
|
int i;
|
int len = strlen(s);
|
int offset = 0;
|
for(i = 0; i < len; ++i){
|
char c = s[i];
|
if(c==bad) ++offset;
|
else s[i-offset] = c;
|
}
|
s[len-offset] = '\0';
|
}
|
|
char *fgetl(FILE *fp)
|
{
|
if(feof(fp)) return 0;
|
int size = 512;
|
char *line = malloc(size*sizeof(char));
|
if(!fgets(line, size, fp)){
|
free(line);
|
return 0;
|
}
|
|
int curr = strlen(line);
|
|
while(line[curr-1]!='\n'){
|
size *= 2;
|
line = realloc(line, size*sizeof(char));
|
if(!line) malloc_error();
|
fgets(&line[curr], size-curr, fp);
|
curr = strlen(line);
|
}
|
line[curr-1] = '\0';
|
|
return line;
|
}
|
|
char *copy_string(char *s)
|
{
|
char *copy = malloc(strlen(s)+1);
|
strncpy(copy, s, strlen(s)+1);
|
return copy;
|
}
|
|
list *parse_csv_line(char *line)
|
{
|
list *l = make_list();
|
char *c, *p;
|
int in = 0;
|
for(c = line, p = line; *c != '\0'; ++c){
|
if(*c == '"') in = !in;
|
else if(*c == ',' && !in){
|
*c = '\0';
|
list_insert(l, copy_string(p));
|
p = c+1;
|
}
|
}
|
list_insert(l, copy_string(p));
|
return l;
|
}
|
|
int count_fields(char *line)
|
{
|
int count = 0;
|
int done = 0;
|
char *c;
|
for(c = line; !done; ++c){
|
done = (*c == '\0');
|
if(*c == ',' || done) ++count;
|
}
|
return count;
|
}
|
|
double *parse_fields(char *line, int n)
|
{
|
double *field = calloc(n, sizeof(double));
|
char *c, *p, *end;
|
int count = 0;
|
int done = 0;
|
for(c = line, p = line; !done; ++c){
|
done = (*c == '\0');
|
if(*c == ',' || done){
|
*c = '\0';
|
field[count] = strtod(p, &end);
|
if(p == c) field[count] = nan("");
|
if(end != c && (end != c-1 || *end != '\r')) field[count] = nan(""); //DOS file formats!
|
p = c+1;
|
++count;
|
}
|
}
|
return field;
|
}
|
