init files

loader/tools/subsizer-0.7pre1/src/params.c

@@ -0,0 +1,155 @@
+/**************************************************************************
+ *
+ * FILE  params.c
+ * Copyright (c) 2012, 2015 Daniel Kahlin
+ * Written by Daniel Kahlin <daniel@kahlin.net>
+ *
+ * DESCRIPTION
+ *   parameter parsing
+ *
+ ******/
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "memory.h"
+#include "global.h"
+#include "params.h"
+
+
+
+static unsigned long int my_strtoul(char *ptr, char **eptr)
+{
+    int base;
+    unsigned long int v;
+
+    switch (*ptr) {
+    case '$':
+	base = 16;
+	ptr++;
+	break;
+    case '@':
+	base = 8;
+	ptr++;
+	break;
+    case '%':
+	base = 2;
+	ptr++;
+	break;
+    default:
+	base = 0;
+	break;
+    }
+
+    v = strtoul(ptr, eptr, base);
+
+    return v;
+}
+
+
+int parse_value(char *str)
+{
+    char *eptr;
+    unsigned long int v;
+
+    v = my_strtoul(str, &eptr);
+    if ( str == eptr || *eptr != 0 )
+	panic("couldn't parse value (%s)", str);
+
+    return v;
+}
+
+void parse_range(char *str, mem_ptr_t *low, mem_ptr_t *high)
+{
+    char *p;
+    if ( !(str && strlen(str)) ) {
+	return;
+    }
+
+    p = strchr(str, '-');
+    if (p) {
+	*p++ = 0;
+	if (*p != 0) {
+	    *high = parse_value(p);
+	}
+    }
+    if (*str != 0) {
+	*low = parse_value(str);
+    }
+}
+
+file_t parse_filename(char *name)
+{
+    char *p, *name_end;
+    char c;
+    char *eptr;
+    unsigned long int v;
+    file_t file;
+
+    file.name = name;
+    file.mode = MODE_NORMAL;
+    file.la = 0;
+    file.offs = -1;
+    file.len = -1;
+
+
+    p = name;
+    /* parse */
+    p = strpbrk(p, ",@");
+    if (p) {
+	name_end = p;
+	c = *p++;
+
+	switch (c) {
+	case ',':
+	    v = my_strtoul(p, &eptr);
+	    if (p == eptr && *p != ',') {
+		panic("missing start address");
+	    }
+	    if (p != eptr) {
+		file.la = v;
+		file.mode = MODE_NEWADDR;
+	    }
+
+	    p = eptr;
+	    break;
+	case '@':
+	    file.la = my_strtoul(p, &eptr);
+	    if (p == eptr) {
+		panic("missing start address");
+	    }
+	    file.mode = MODE_RAW;
+
+	    p = eptr;
+	    break;
+	default:
+	    break;
+	}
+
+	p = strchr(p, ',');
+	if (p) {
+	    p++;
+	    v = my_strtoul(p, &eptr);
+	    if (p != eptr) {
+		file.offs = v;
+	    }
+
+	    p = strchr(p, ',');
+	    if (p) {
+		p++;
+		file.len = parse_value(p);
+	    }
+	}
+
+	/* mark the end of the file name */
+	*name_end = 0;
+    }
+
+    if (debug_g) {
+	printf("name='%s', ad=$%04X, offs=%d, len=%d, mode=%d\n", file.name, file.la, file.offs, file.len, file.mode);
+    } 
+
+    return file;
+}
+
+/* eof */