1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
|
/* See LICENSE file for copyright and license details. */
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <getopt.h>
#include "util.h"
#define BUFFER_SIZE 1024
static char ** config_read_values(size_t *n_out_keys, char *first_value, char **strtok_ptr);
void die(const char *fmt, ...)
{
va_list ap;
va_start(ap, fmt);
vfprintf(stderr, fmt, ap);
va_end(ap);
if (fmt[0] && fmt[strlen(fmt)-1] == ':') {
fputc(' ', stderr);
perror(NULL);
} else {
fputc('\n', stderr);
}
exit(1);
}
void * ecalloc(size_t nmemb, size_t size)
{
void *p;
if (!(p = calloc(nmemb, size)))
die("calloc:");
return p;
}
char *e_strdup(const char *s)
{
char *out = strdup(s);
if (out == NULL) die("strdup() Error:");
return out;
}
void version()
{
printf("ml 0.1\n");
printf("Written by vech\n");
exit(0);
}
void usage(int exit_code)
{
FILE *fp = (!exit_code) ? stdout : stderr;
fprintf(fp,
"Usage: ml train [Options] JSON_FILE\n"
" or: ml predict [-o FILE] FILE\n"
"Train and predict json data\n"
"\n"
"Options:\n"
" -a, --alpha=ALPHA Learning rate (only works with train) [default: 1e-5]\n"
" -e, --epochs=EPOCHS Number of epochs to train the model (only works with train)\n"
" [default: 100]\n"
" -o, --output FILE Output file (only works with predict)\n"
"\n"
"Examples:\n"
" $ ml train -e 150 -a 1e-4 housing.json\n"
" $ ml predict housing.json -o predictions.json\n"
);
exit(exit_code);
}
void util_load_cli(struct Configs *ml, int argc, char *argv[])
{
if (argc <= 1) usage(1);
static struct option long_opts[] = {
{"help", no_argument, 0, 'h'},
{"version", no_argument, 0, 'v'},
{"epochs", required_argument, 0, 'e'},
{"alpha", required_argument, 0, 'a'},
{"output", required_argument, 0, 'o'},
{0, 0, 0, 0 },
};
int c;
while (1) {
c = getopt_long(argc, argv, "hve:a:o:i:l:", long_opts, NULL);
if (c == -1) {
break;
}
switch (c) {
case 'e':
ml->epochs = (size_t)atol(optarg);
break;
case 'a':
ml->alpha = (double)atof(optarg);
break;
case 'o':
ml->out_filepath = optarg;
break;
case 'h':
usage(0);
case 'v':
version();
default:
usage(1);
}
}
argv += optind;
argc -= optind;
if (argc != 2) usage(1);
ml->in_filepath = argv[1];
}
void util_free_config(struct Configs *ml)
{
if (ml->input_keys != NULL) {
for (size_t i = 0; i < ml->n_input_keys; i++)
free(ml->input_keys[i]);
free(ml->input_keys);
}
if (ml->label_keys != NULL) {
for (size_t i = 0; i < ml->n_label_keys; i++)
free(ml->label_keys[i]);
free(ml->label_keys);
}
}
void util_load_config(struct Configs *ml, char *filepath)
{
int line_number = 1;
char line_buffer[BUFFER_SIZE], line_buffer_original[BUFFER_SIZE];
char token_buffer[BUFFER_SIZE];
FILE *fp = fopen(filepath, "r");
if (fp == NULL) die("util_load_config() Error:");
while (fgets(line_buffer, BUFFER_SIZE, fp)) {
int ret = sscanf(line_buffer, "[%[-_a-zA-Z0-9]]", token_buffer);
if (ret >= 1) continue;
strcpy(line_buffer_original, line_buffer);
char *line_ptr = line_buffer;
while (*line_ptr == ' ') line_ptr++; // delete whitespaces
/* if the line start with comments or is a blank line ignore it */
if (*line_ptr == ';'
|| *line_ptr == '#'
|| *line_ptr == '\n') continue;
/* Verify that each line starts with [a-zA-Z] */
if ((*line_ptr < 0x41 && *line_ptr > 0x5A)
|| (*line_ptr < 0x61 && *line_ptr > 0x7A))
goto util_load_config_error;
/* Load Key Value */
char *key, *value;
char *ptr_buffer;
strtok_r(line_buffer, ";#", &ptr_buffer); // omit comments
key = strtok_r(line_buffer, " =", &ptr_buffer);
value = strtok_r(NULL, "= ,\n", &ptr_buffer);
if (value == NULL) goto util_load_config_error;
if (!strcmp(key, "weights_path")) ml->weights_filepath = e_strdup(value);
else if (!strcmp(key, "loss")) ml->loss = e_strdup(value);
else if (!strcmp(key, "epochs")) ml->epochs = (size_t)atol(value);
else if (!strcmp(key, "alpha")) ml->alpha = (double)atof(value);
else if (!strcmp(key, "inputs")) ml->input_keys = config_read_values(&(ml->n_input_keys), value, &ptr_buffer);
else if (!strcmp(key, "labels")) ml->label_keys = config_read_values(&(ml->n_label_keys), value, &ptr_buffer);
else die("util_load_config() Error: Unknown parameter '%s' on line '%d'", key, line_number);
ptr_buffer = NULL;
value = NULL;
}
fclose(fp);
return;
util_load_config_error:
die("util_load_config() Error: line %d has invalid format '%s'",
line_number, line_buffer_original);
}
char ** config_read_values(size_t *n_out_keys, char *first_value, char **strtok_ptr)
{
*n_out_keys = 1;
char **out_keys = ecalloc(1, sizeof(char *));
out_keys[0] = e_strdup(first_value);
char *value;
while ((value = strtok_r(NULL, ", \n", strtok_ptr)) != NULL) {
out_keys = realloc(out_keys, sizeof(char *) * (*n_out_keys + 1));
out_keys[*n_out_keys] = e_strdup(value);
(*n_out_keys)++;
}
return out_keys;
}
#undef BUFFER_SIZE
|
