Parsing, image loading, lots of stuff

src/utils.c

@@ -0,0 +1,147 @@
+#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;
+}
+
+
+