icsv: fix use of uninitialized memory - ploot - simple plotting tools Err bitreich.org 70
hgit clone git://bitreich.org/ploot git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/ploot URL:git://bitreich.org/ploot git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/ploot bitreich.org 70
1Log /scm/ploot/log.gph bitreich.org 70
1Files /scm/ploot/files.gph bitreich.org 70
1Refs /scm/ploot/refs.gph bitreich.org 70
1Tags /scm/ploot/tag bitreich.org 70
1README /scm/ploot/file/README.md.gph bitreich.org 70
1LICENSE /scm/ploot/file/LICENSE.gph bitreich.org 70
i--- Err bitreich.org 70
1commit f7f88c2ee5573abff4c44c36bf7b2e705081b2ed /scm/ploot/commit/f7f88c2ee5573abff4c44c36bf7b2e705081b2ed.gph bitreich.org 70
1parent c3fcef87d156b02a9ad8ca7cd47fee4a826534f4 /scm/ploot/commit/c3fcef87d156b02a9ad8ca7cd47fee4a826534f4.gph bitreich.org 70
hAuthor: Josuah Demangeon <me@josuah.net> URL:mailto:me@josuah.net bitreich.org 70
iDate: Sun, 27 Jun 2021 01:04:39 +0200 Err bitreich.org 70
i Err bitreich.org 70
icsv: fix use of uninitialized memory Err bitreich.org 70
i Err bitreich.org 70
iDiffstat: Err bitreich.org 70
i M Makefile | 6 +++--- Err bitreich.org 70
i M csv.c | 33 ++++++++++++++----------------- Err bitreich.org 70
i M csv.h | 1 - Err bitreich.org 70
i M ploot-braille.c | 157 ++++++++++++++++++++++--------- Err bitreich.org 70
i M ploot-farbfeld.c | 14 +++++++------- Err bitreich.org 70
i D scale.c | 94 ------------------------------- Err bitreich.org 70
i D scale.h | 14 -------------- Err bitreich.org 70
i Err bitreich.org 70
i7 files changed, 140 insertions(+), 179 deletions(-) Err bitreich.org 70
i--- Err bitreich.org 70
1diff --git a/Makefile b/Makefile /scm/ploot/file/Makefile.gph bitreich.org 70
i@@ -7,9 +7,9 @@ LFLAGS = -static -lm Err bitreich.org 70
i PREFIX = /usr/local Err bitreich.org 70
i MANOREFIX = $(PREFIX)/share/man Err bitreich.org 70
i Err bitreich.org 70
i-SRC = csv.c drawille.c font.c font13.c font8.c scale.c util.c Err bitreich.org 70
i-INC = csv.h drawille.h font.h scale.h util.h Err bitreich.org 70
i-BIN = ploot-farbfeld ploot-feed ploot-braille ploot-text Err bitreich.org 70
i+SRC = csv.c drawille.c font.c font13.c font8.c util.c Err bitreich.org 70
i+INC = csv.h drawille.h font.h util.h Err bitreich.org 70
i+BIN = ploot-feed ploot-braille ploot-text # ploot-farbfeld Err bitreich.org 70
i OBJ = ${SRC:.c=.o} Err bitreich.org 70
i Err bitreich.org 70
i all: ${BIN} Err bitreich.org 70
1diff --git a/csv.c b/csv.c /scm/ploot/file/csv.c.gph bitreich.org 70
i@@ -13,11 +13,10 @@ Err bitreich.org 70
i */ Err bitreich.org 70
i Err bitreich.org 70
i static void Err bitreich.org 70
i-csv_addtime(struct csv *vl, time_t epoch) Err bitreich.org 70
i+csv_add_time(struct csv *vl, time_t epoch) Err bitreich.org 70
i { Err bitreich.org 70
i void *mem; Err bitreich.org 70
i Err bitreich.org 70
i- debug("csv_addtime %p", vl->t); Err bitreich.org 70
i if ((mem = realloc(vl->t, (vl->n + 1) * sizeof *vl->t)) == NULL) Err bitreich.org 70
i err(1, "realloc: %s", strerror(errno)); Err bitreich.org 70
i vl->t = mem; Err bitreich.org 70
i@@ -25,11 +24,10 @@ csv_addtime(struct csv *vl, time_t epoch) Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i static void Err bitreich.org 70
i-csv_addval(struct csv *vl, double field) Err bitreich.org 70
i+csv_add_val(struct csv *vl, double field) Err bitreich.org 70
i { Err bitreich.org 70
i void *mem; Err bitreich.org 70
i Err bitreich.org 70
i- debug("csv_addval %p", vl->t); Err bitreich.org 70
i if ((mem = realloc(vl->v, (vl->n + 1) * sizeof *vl->v)) == NULL) Err bitreich.org 70
i err(1, "", strerror(errno)); Err bitreich.org 70
i vl->v = mem; Err bitreich.org 70
i@@ -40,8 +38,8 @@ csv_addval(struct csv *vl, double field) Err bitreich.org 70
i * Add to each column the value on the current row. The time_t Err bitreich.org 70
i * buffer is shared among all fields. Err bitreich.org 70
i */ Err bitreich.org 70
i-void Err bitreich.org 70
i-csv_addrow(struct csv *vl, size_t ncol, char *line) Err bitreich.org 70
i+static void Err bitreich.org 70
i+csv_add_row(struct csv *vl, size_t ncol, char *line) Err bitreich.org 70
i { Err bitreich.org 70
i char *field; Err bitreich.org 70
i time_t *tbuf; Err bitreich.org 70
i@@ -55,7 +53,7 @@ csv_addrow(struct csv *vl, size_t ncol, char *line) Err bitreich.org 70
i if (errno) Err bitreich.org 70
i err(100, "parsing number '%s'", field); Err bitreich.org 70
i Err bitreich.org 70
i- csv_addtime(vl, l); Err bitreich.org 70
i+ csv_add_time(vl, l); Err bitreich.org 70
i tbuf = vl[0].t; Err bitreich.org 70
i for (; (field = strsep(&line, ",")); ncol--, vl->n++, vl++) { Err bitreich.org 70
i if (ncol == 0) Err bitreich.org 70
i@@ -63,7 +61,7 @@ csv_addrow(struct csv *vl, size_t ncol, char *line) Err bitreich.org 70
i d = strtod(field, NULL); Err bitreich.org 70
i if (errno) Err bitreich.org 70
i err(100, "parsing double '%s'", field); Err bitreich.org 70
i- csv_addval(vl, d); Err bitreich.org 70
i+ csv_add_val(vl, d); Err bitreich.org 70
i vl->t = tbuf; Err bitreich.org 70
i } Err bitreich.org 70
i if (ncol > 0) Err bitreich.org 70
i@@ -75,10 +73,10 @@ csv_addrow(struct csv *vl, size_t ncol, char *line) Err bitreich.org 70
i * label1,label2,label3 Err bitreich.org 70
i */ Err bitreich.org 70
i void Err bitreich.org 70
i-csv_labels(FILE *fp, struct csv **vl, size_t *ncol) Err bitreich.org 70
i+csv_labels(FILE *fp, struct csv **vlp, size_t *ncol) Err bitreich.org 70
i { Err bitreich.org 70
i char *field, *line, *cp; Err bitreich.org 70
i- struct csv *col; Err bitreich.org 70
i+ struct csv *vl, *col; Err bitreich.org 70
i size_t sz; Err bitreich.org 70
i ssize_t r; Err bitreich.org 70
i Err bitreich.org 70
i@@ -94,16 +92,16 @@ csv_labels(FILE *fp, struct csv **vl, size_t *ncol) Err bitreich.org 70
i if (strcmp(strsep(&cp, ","), "epoch") != 0) Err bitreich.org 70
i err(1, "first label must be 'epoch'"); Err bitreich.org 70
i Err bitreich.org 70
i- *vl = NULL; Err bitreich.org 70
i- *ncol = 0; Err bitreich.org 70
i+ sz = 0, vl = NULL, *ncol = 0; Err bitreich.org 70
i while ((field = strsep(&cp, ","))) { Err bitreich.org 70
i- if ((*vl = realloc(*vl, sz += sizeof **vl)) == NULL) Err bitreich.org 70
i+ if ((vl = realloc(vl, sz += sizeof *vl)) == NULL) Err bitreich.org 70
i err(1, "realloc: %s", strerror(errno)); Err bitreich.org 70
i- col = (*vl) + (*ncol)++; Err bitreich.org 70
i- strlcpy(col->label, field, sizeof(col->label)); Err bitreich.org 70
i+ memset(vl, 0, sizeof *vl); Err bitreich.org 70
i+ col = vl + (*ncol)++; Err bitreich.org 70
i+ strlcpy(col->label, field, sizeof col->label); Err bitreich.org 70
i } Err bitreich.org 70
i- Err bitreich.org 70
i free(line); Err bitreich.org 70
i+ *vlp = vl; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i@@ -122,11 +120,10 @@ csv_values(FILE *fp, struct csv *vl, size_t ncol) Err bitreich.org 70
i Err bitreich.org 70
i sz = 0, line = NULL; Err bitreich.org 70
i while (getline(&line, &sz, fp) > -1) Err bitreich.org 70
i- csv_addrow(vl, ncol, line); Err bitreich.org 70
i+ csv_add_row(vl, ncol, line); Err bitreich.org 70
i if (vl->n == 0) Err bitreich.org 70
i err(1, "no value could be read"); Err bitreich.org 70
i if (vl->n == 1) Err bitreich.org 70
i err(1, "only one value could be read"); Err bitreich.org 70
i- Err bitreich.org 70
i free(line); Err bitreich.org 70
i } Err bitreich.org 70
1diff --git a/csv.h b/csv.h /scm/ploot/file/csv.h.gph bitreich.org 70
i@@ -15,7 +15,6 @@ struct csv { Err bitreich.org 70
i char label[64]; /* for the legend */ Err bitreich.org 70
i }; Err bitreich.org 70
i Err bitreich.org 70
i-void csv_addrow(struct csv *, size_t, char *); Err bitreich.org 70
i void csv_labels(FILE *, struct csv **, size_t *); Err bitreich.org 70
i void csv_values(FILE *, struct csv *, size_t); Err bitreich.org 70
i Err bitreich.org 70
1diff --git a/ploot-braille.c b/ploot-braille.c /scm/ploot/file/ploot-braille.c.gph bitreich.org 70
i@@ -8,13 +8,90 @@ Err bitreich.org 70
i #include <math.h> Err bitreich.org 70
i #include <unistd.h> Err bitreich.org 70
i #include "drawille.h" Err bitreich.org 70
i-#include "scale.h" Err bitreich.org 70
i #include "util.h" Err bitreich.org 70
i+#include "csv.h" Err bitreich.org 70
i Err bitreich.org 70
i #ifndef __OpenBSD__ Err bitreich.org 70
i #define pledge(...) 0 Err bitreich.org 70
i #endif Err bitreich.org 70
i Err bitreich.org 70
i+static int Err bitreich.org 70
i+get_min_max(struct csv *vl, int ncol, Err bitreich.org 70
i+ time_t *tmin, time_t *tmax, Err bitreich.org 70
i+ double *vmin, double *vmax) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ double *v; Err bitreich.org 70
i+ time_t *t; Err bitreich.org 70
i+ size_t n; Err bitreich.org 70
i+ Err bitreich.org 70
i+ *vmin = *vmax = 0; /* always show 0 on the scale */ Err bitreich.org 70
i+ *tmin = *tmax = *vl->t; Err bitreich.org 70
i+ Err bitreich.org 70
i+ for (; ncol > 0; ncol--, vl++) { Err bitreich.org 70
i+ for (t = vl->t, v = vl->v, n = vl->n; n > 0; t++, v++, n--) { Err bitreich.org 70
i+ if (*v < *vmin) *vmin = *v; Err bitreich.org 70
i+ if (*v > *vmax) *vmax = *v; Err bitreich.org 70
i+ if (*t < *tmin) *tmin = *t; Err bitreich.org 70
i+ if (*t > *tmax) *tmax = *t; Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } Err bitreich.org 70
i+ if (*tmin == *tmax) Err bitreich.org 70
i+ return -1; Err bitreich.org 70
i+ return 0; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+static time_t Err bitreich.org 70
i+time_mark_step(time_t min, time_t max, int dots) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ time_t dt, scale[] = { Err bitreich.org 70
i+ 1, 5, 2, 10, 20, 30, 60, 60*2, 60*5, 60*10, 60*20, 60*30, 3600, Err bitreich.org 70
i+ 3600*2, 3600*6, 3600*12, 3600*24, 3600*24*2, Err bitreich.org 70
i+ 3600*24*7, 3600*24*14, 3600*24*20, 3600*24*21, 3600*24*28, 3600*24*50, Err bitreich.org 70
i+ 3600*24*100, 3600*24*365, 0 Err bitreich.org 70
i+ }; Err bitreich.org 70
i+ Err bitreich.org 70
i+ dt = max - min; Err bitreich.org 70
i+ for (time_t *sc = scale; *sc > 0; sc++) Err bitreich.org 70
i+ if (dt < *sc * dots) Err bitreich.org 70
i+ return *sc; Err bitreich.org 70
i+ return dt / dots; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+/* Err bitreich.org 70
i+ * Make the value scale aligned with round values by changing the Err bitreich.org 70
i+ * minimal and maximal values. Err bitreich.org 70
i+ */ Err bitreich.org 70
i+static void Err bitreich.org 70
i+adjust_scale(double *min, double *max, int rows) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ double dv, step, scale[] = { 1, 2, 2.5, 5, }; Err bitreich.org 70
i+ Err bitreich.org 70
i+ dv = *max - *min; Err bitreich.org 70
i+ Err bitreich.org 70
i+ if (dv > 1) { Err bitreich.org 70
i+ for (double mant = 1;; mant *= 10) { Err bitreich.org 70
i+ double *sc = scale; Err bitreich.org 70
i+ for (; sc < scale + LEN(scale); sc++) { Err bitreich.org 70
i+ step = mant * *sc; Err bitreich.org 70
i+ if (dv < (rows - 2) * step) Err bitreich.org 70
i+ goto end; Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } else { Err bitreich.org 70
i+ for (double mant = 1;; mant /= 10) { Err bitreich.org 70
i+ double *sc = scale + LEN(scale) - 1; Err bitreich.org 70
i+ for (; sc >= scale; sc--) { Err bitreich.org 70
i+ step = mant * *sc; Err bitreich.org 70
i+ if (dv > (rows - 2) * step) Err bitreich.org 70
i+ goto end; Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } Err bitreich.org 70
i+end: Err bitreich.org 70
i+ *min = (int)(*min / step) * step; Err bitreich.org 70
i+ *max = *min + step * rows; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i /* Err bitreich.org 70
i * Plot the body as an histogram interpolating the gaps and include Err bitreich.org 70
i * a vertical and horizontal axis. Err bitreich.org 70
i@@ -28,25 +105,31 @@ braille_histogram(struct csv *vl, struct drawille *drw, Err bitreich.org 70
i time_t *t; Err bitreich.org 70
i size_t n; Err bitreich.org 70
i Err bitreich.org 70
i- zero = scale_ypos(0, vmin, vmax, drw->row*4); Err bitreich.org 70
i+#define SHIFT (4 / 2) Err bitreich.org 70
i+#define POSITION(val, min, max, sz) ((sz) * ((val) - (min)) / ((max) - (min)) + SHIFT) Err bitreich.org 70
i+ Err bitreich.org 70
i+ zero = POSITION(0, vmin, vmax, drw->row*4); Err bitreich.org 70
i v = vl->v; Err bitreich.org 70
i t = vl->t; Err bitreich.org 70
i n = vl->n; Err bitreich.org 70
i for (; n > 0; n--, t++, v++) { Err bitreich.org 70
i- if (isnan(*v)) /* XXX: better handling? */ Err bitreich.org 70
i+ if (isnan(*v)) /* XXX: better handling? */ Err bitreich.org 70
i continue; Err bitreich.org 70
i- y = scale_ypos(*v, vmin, vmax, drw->row * 4); Err bitreich.org 70
i- x = scale_xpos(*t, tmin, tmax, drw->col * 2); Err bitreich.org 70
i- if (n < vl->n) /* only plot when xprev, yprev are set */ Err bitreich.org 70
i+ y = POSITION(*v, vmin, vmax, drw->row * 4); Err bitreich.org 70
i+ x = POSITION(*t, tmin, tmax, drw->col * 2); Err bitreich.org 70
i+ if (n < vl->n) /* only plot when xprev, yprev are set */ Err bitreich.org 70
i drawille_histogram_line(drw, xprev, yprev, x, y, zero); Err bitreich.org 70
i xprev = x; Err bitreich.org 70
i yprev = y; Err bitreich.org 70
i } Err bitreich.org 70
i+ Err bitreich.org 70
i+#undef POSITION Err bitreich.org 70
i+ Err bitreich.org 70
i return 0; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i static int Err bitreich.org 70
i-braille_axis_x(FILE *fp, time_t tmin, time_t tmax, time_t csvep, int col) Err bitreich.org 70
i+braille_axis_x(FILE *fp, time_t tmin, time_t tmax, time_t tstep, int col) Err bitreich.org 70
i { Err bitreich.org 70
i int x, o, prec; Err bitreich.org 70
i char tmp[sizeof("MM/DD HH:MM")], *fmt; Err bitreich.org 70
i@@ -54,13 +137,13 @@ braille_axis_x(FILE *fp, time_t tmin, time_t tmax, time_t csvep, int col) Err bitreich.org 70
i time_t t; Err bitreich.org 70
i Err bitreich.org 70
i fmt = Err bitreich.org 70
i- (csvep < 3600 * 12) ? "^%H:%M:%S" : Err bitreich.org 70
i- (csvep < 3600 * 24) ? "^%m/%d %H:%M" : Err bitreich.org 70
i- "^%Y/%m/%d"; Err bitreich.org 70
i+ (tstep < 3600 * 12) ? "^%H:%M:%S" : Err bitreich.org 70
i+ (tstep < 3600 * 24) ? "^%m/%d %H:%M" : Err bitreich.org 70
i+ "^%Y/%m/%d"; Err bitreich.org 70
i n = x = 0; Err bitreich.org 70
i Err bitreich.org 70
i- t = tmin + csvep - tmin % csvep; Err bitreich.org 70
i- for (; t < tmax; t += csvep) { Err bitreich.org 70
i+ t = tmin + tstep - tmin % tstep; Err bitreich.org 70
i+ for (; t < tmax; t += tstep) { Err bitreich.org 70
i x = (t - tmin) * col / (tmax - tmin); Err bitreich.org 70
i strftime(tmp, sizeof tmp, fmt, localtime(&t)); Err bitreich.org 70
i prec = x - n + strlen(tmp); Err bitreich.org 70
i@@ -76,51 +159,41 @@ braille_axis_x(FILE *fp, time_t tmin, time_t tmax, time_t csvep, int col) Err bitreich.org 70
i * Plot a single line out of the y axis, at row <r> out of <rows>. Err bitreich.org 70
i */ Err bitreich.org 70
i static void Err bitreich.org 70
i-braille_axis_y(FILE *fp, double vmin, double vmax, int r, int rows) Err bitreich.org 70
i+braille_axis_y(FILE *fp, double min, double max, int r, int rows) Err bitreich.org 70
i { Err bitreich.org 70
i- char tmp[10] = "", *s; Err bitreich.org 70
i- double val; Err bitreich.org 70
i- Err bitreich.org 70
i- val = (rows - r) * (vmax - vmin) / rows; Err bitreich.org 70
i- humanize(tmp, val); Err bitreich.org 70
i- s = Err bitreich.org 70
i- (r == 0) ? "┌" : Err bitreich.org 70
i- (r == rows - 1) ? "└" : Err bitreich.org 70
i- "├"; Err bitreich.org 70
i- fprintf(fp, "%s%-6s ", s, tmp); Err bitreich.org 70
i+ char buf[10] = ""; Err bitreich.org 70
i+ Err bitreich.org 70
i+ humanize(buf, (rows - 1 - r) * (max - min) / rows); Err bitreich.org 70
i+ fprintf(fp, "├%s ", buf); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i static int Err bitreich.org 70
i-braille_render(struct drawille *drw, FILE *fp, double vmin, double vmax) Err bitreich.org 70
i+braille_render(struct drawille *drw, FILE *fp, double min, double max) Err bitreich.org 70
i { Err bitreich.org 70
i int row; Err bitreich.org 70
i Err bitreich.org 70
i for (row = 0; row < drw->row; row++) { Err bitreich.org 70
i drawille_put_row(fp, drw, row); Err bitreich.org 70
i- braille_axis_y(fp, vmin, vmax, row, drw->row); Err bitreich.org 70
i+ braille_axis_y(fp, min, max, row, drw->row); Err bitreich.org 70
i fprintf(fp, "\n"); Err bitreich.org 70
i } Err bitreich.org 70
i return 0; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i static void Err bitreich.org 70
i-plot(struct csv *vl, FILE *fp, size_t ncol, int rows, int cols) Err bitreich.org 70
i+plot(struct csv *vl, size_t ncol, int rows, int cols, FILE *fp) Err bitreich.org 70
i { Err bitreich.org 70
i- double vmin, vmax, vstep; Err bitreich.org 70
i- time_t tmin, tmax, csvep; Err bitreich.org 70
i+ double vmin, vmax; Err bitreich.org 70
i+ time_t tmin, tmax, tstep; Err bitreich.org 70
i struct drawille *drw; Err bitreich.org 70
i Err bitreich.org 70
i- cols -= 9; /* scale printed at the right */ Err bitreich.org 70
i- Err bitreich.org 70
i- scale_minmax(vl, ncol, &tmin, &tmax, &vmin, &vmax); Err bitreich.org 70
i- csvep = scale_csvep(tmin, tmax, cols / 10); Err bitreich.org 70
i- vstep = scale_vstep(vmin, vmax, rows / 10); Err bitreich.org 70
i+ rows = MAX(rows, 2); /* readable */ Err bitreich.org 70
i Err bitreich.org 70
i- rows -= ncol - 1; /* room for the labels and the scale */ Err bitreich.org 70
i- rows /= ncol; /* plot <ncol> times */ Err bitreich.org 70
i- rows = MAX(rows, 3); /* readable */ Err bitreich.org 70
i- Err bitreich.org 70
i- debug("vstep=%lf vstep=%ld ncol=%zu rows=%zu", vstep, csvep, ncol, rows); Err bitreich.org 70
i+ if (get_min_max(vl, ncol, &tmin, &tmax, &vmin, &vmax) < 0) Err bitreich.org 70
i+ err(1, "invalid scale: tmin=%lld tmax=%lld vmin=%fd vmax=%fd", Err bitreich.org 70
i+ (long long)tmin, (long long)tmax, vmin, vmax); Err bitreich.org 70
i+ adjust_scale(&vmin, &vmax, rows); Err bitreich.org 70
i+ tstep = time_mark_step(tmin, tmax, cols); Err bitreich.org 70
i Err bitreich.org 70
i for (; ncol > 0; vl++, ncol--) { Err bitreich.org 70
i if ((drw = drawille_new(rows, cols)) == NULL) Err bitreich.org 70
i@@ -132,7 +205,7 @@ plot(struct csv *vl, FILE *fp, size_t ncol, int rows, int cols) Err bitreich.org 70
i err(1, "rendering braille canvas"); Err bitreich.org 70
i free(drw); Err bitreich.org 70
i } Err bitreich.org 70
i- if (braille_axis_x(fp, tmin, tmax, csvep, cols) == -1) Err bitreich.org 70
i+ if (braille_axis_x(fp, tmin, tmax, tstep * 10, cols) == -1) Err bitreich.org 70
i err(1, "printing x axis");; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i@@ -153,7 +226,7 @@ main(int argc, char **argv) Err bitreich.org 70
i if (pledge("stdio", "") < 0) Err bitreich.org 70
i err(1, "pledge: %s", strerror(errno)); Err bitreich.org 70
i Err bitreich.org 70
i- rows = 20, cols = 80; Err bitreich.org 70
i+ rows = 4, cols = 60; Err bitreich.org 70
i arg0 = *argv; Err bitreich.org 70
i while ((c = getopt(argc, argv, "r:c:")) > -1) { Err bitreich.org 70
i switch (c) { Err bitreich.org 70
i@@ -185,8 +258,8 @@ main(int argc, char **argv) Err bitreich.org 70
i csv_labels(stdin, &vl, &ncol); Err bitreich.org 70
i csv_values(stdin, vl, ncol); Err bitreich.org 70
i Err bitreich.org 70
i- plot(vl, stdout, ncol, rows, cols); Err bitreich.org 70
i+ plot(vl, ncol, rows, cols, stdout); Err bitreich.org 70
i Err bitreich.org 70
i free(vl); Err bitreich.org 70
i- return 1; Err bitreich.org 70
i+ return 0; Err bitreich.org 70
i } Err bitreich.org 70
1diff --git a/ploot-farbfeld.c b/ploot-farbfeld.c /scm/ploot/file/ploot-farbfeld.c.gph bitreich.org 70
i@@ -236,20 +236,20 @@ ffplot_v2y(double v, double vmin, double vmax) Err bitreich.org 70
i Err bitreich.org 70
i static void Err bitreich.org 70
i ffplot_xaxis(struct ffplot *plot, struct ffcolor *label, struct ffcolor *grid, Err bitreich.org 70
i- time_t tmin, time_t tmax, time_t csvep) Err bitreich.org 70
i+ time_t tmin, time_t tmax, time_t tstep) Err bitreich.org 70
i { Err bitreich.org 70
i time_t t; Err bitreich.org 70
i int x; Err bitreich.org 70
i char str[sizeof("MM/DD HH/MM")], *fmt; Err bitreich.org 70
i Err bitreich.org 70
i- if (csvep < 3600 * 12) Err bitreich.org 70
i+ if (tstep < 3600 * 12) Err bitreich.org 70
i fmt = "%H:%M:%S"; Err bitreich.org 70
i- else if (csvep < 3600 * 24) Err bitreich.org 70
i+ else if (tstep < 3600 * 24) Err bitreich.org 70
i fmt = "%m/%d %H:%M"; Err bitreich.org 70
i else Err bitreich.org 70
i fmt = "%X/%m/%d"; Err bitreich.org 70
i Err bitreich.org 70
i- for (t = tmax - tmax % csvep; t >= tmin; t -= csvep) { Err bitreich.org 70
i+ for (t = tmax - tmax % tstep; t >= tmin; t -= tstep) { Err bitreich.org 70
i x = ffplot_t2x(t, tmin, tmax); Err bitreich.org 70
i Err bitreich.org 70
i ffplot_line(plot, grid, Err bitreich.org 70
i@@ -358,10 +358,10 @@ plot(struct csv *vl, struct ffcolor **cl, size_t ncol, char *name, char *units) Err bitreich.org 70
i struct ffcolor label_fg = { 0x8888, 0x8888, 0x8888, 0xffff }; Err bitreich.org 70
i struct ffcolor title_fg = { 0xdddd, 0xdddd, 0xdddd, 0xffff }; Err bitreich.org 70
i double vmin, vmax, vstep; Err bitreich.org 70
i- time_t tmin, tmax, csvep; Err bitreich.org 70
i+ time_t tmin, tmax, tstep; Err bitreich.org 70
i Err bitreich.org 70
i scale_minmax(vl, ncol, &tmin, &tmax, &vmin, &vmax); Err bitreich.org 70
i- csvep = scale_csvep(tmin, tmax, 7); Err bitreich.org 70
i+ tstep = scale_tstep(tmin, tmax, 7); Err bitreich.org 70
i vstep = scale_vstep(vmin, vmax, 7); Err bitreich.org 70
i Err bitreich.org 70
i if ((plot.buf = calloc(IMAGE_H * IMAGE_W, sizeof *plot.buf)) == NULL) Err bitreich.org 70
i@@ -377,7 +377,7 @@ plot(struct csv *vl, struct ffcolor **cl, size_t ncol, char *name, char *units) Err bitreich.org 70
i Err bitreich.org 70
i plot.x = XLABEL_X; Err bitreich.org 70
i plot.y = XLABEL_Y; Err bitreich.org 70
i- ffplot_xaxis(&plot, &label_fg, &grid_fg, tmin, tmax, csvep); Err bitreich.org 70
i+ ffplot_xaxis(&plot, &label_fg, &grid_fg, tmin, tmax, tstep); Err bitreich.org 70
i Err bitreich.org 70
i plot.x = YLABEL_X; Err bitreich.org 70
i plot.y = YLABEL_Y; Err bitreich.org 70
1diff --git a/scale.c b/scale.c /scm/ploot/file/scale.c.gph bitreich.org 70
i@@ -1,94 +0,0 @@ Err bitreich.org 70
i-#include "scale.h" Err bitreich.org 70
i- Err bitreich.org 70
i-#include <stddef.h> Err bitreich.org 70
i-#include <time.h> Err bitreich.org 70
i- Err bitreich.org 70
i-#include "util.h" Err bitreich.org 70
i- Err bitreich.org 70
i-/* Err bitreich.org 70
i- * - <max ^ Err bitreich.org 70
i- * - | Translate the coordinates between double values Err bitreich.org 70
i- * - <val szy and height in the plot of <row> rows. Err bitreich.org 70
i- * - | Err bitreich.org 70
i- * - <min v Err bitreich.org 70
i- */ Err bitreich.org 70
i-int Err bitreich.org 70
i-scale_ypos(double val, double min, double max, int szy) Err bitreich.org 70
i-{ Err bitreich.org 70
i- return szy * (val - min) / (max - min); Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-/* Err bitreich.org 70
i- * <---- szx ----> Translate the coordinates between the time Err bitreich.org 70
i- * range and position in the plot of <col> cols. Err bitreich.org 70
i- * t1 t t2 Err bitreich.org 70
i- * | . . | . . | Err bitreich.org 70
i- */ Err bitreich.org 70
i-int Err bitreich.org 70
i-scale_xpos(time_t t, time_t t1, time_t t2, int szx) Err bitreich.org 70
i-{ Err bitreich.org 70
i- return szx * (t - t1) / (t2 - t1); Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-void Err bitreich.org 70
i-scale_minmax(struct csv *vl, int ncol, Err bitreich.org 70
i- time_t *tmin, time_t *tmax, Err bitreich.org 70
i- double *vmin, double *vmax) Err bitreich.org 70
i-{ Err bitreich.org 70
i- double *v; Err bitreich.org 70
i- time_t *t; Err bitreich.org 70
i- size_t n; Err bitreich.org 70
i- Err bitreich.org 70
i- *vmin = *vmax = 0; Err bitreich.org 70
i- *tmin = *tmax = *vl->t; Err bitreich.org 70
i- Err bitreich.org 70
i- for (; ncol > 0; ncol--, vl++) { Err bitreich.org 70
i- for (t = vl->t, v = vl->v, n = vl->n; n > 0; t++, v++, n--) { Err bitreich.org 70
i- if (*v < *vmin) *vmin = *v; Err bitreich.org 70
i- if (*v > *vmax) *vmax = *v; Err bitreich.org 70
i- if (*t < *tmin) *tmin = *t; Err bitreich.org 70
i- if (*t > *tmax) *tmax = *t; Err bitreich.org 70
i- } Err bitreich.org 70
i- } Err bitreich.org 70
i- Err bitreich.org 70
i- if (*tmin == *tmax) Err bitreich.org 70
i- err(1, "invalid time scale: min=%lld max=%lld", *tmin, *tmax); Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-time_t Err bitreich.org 70
i-scale_csvep(time_t min, time_t max, int nval) Err bitreich.org 70
i-{ Err bitreich.org 70
i- time_t dt, *sc, scale[] = { Err bitreich.org 70
i- 1, 5, 2, 10, 20, 30, 60, 60*2, 60*5, 60*10, 60*20, 60*30, 3600, Err bitreich.org 70
i- 3600*2, 3600*5, 3600*10, 3600*18, 3600*24, 3600*24*2, Err bitreich.org 70
i- 3600*24*5, 3600*24*10, 3600*24*20, 3600*24*30, 3600*24*50, Err bitreich.org 70
i- 3600*24*100, 3600*24*365, 0 Err bitreich.org 70
i- }; Err bitreich.org 70
i- Err bitreich.org 70
i- dt = max - min; Err bitreich.org 70
i- Err bitreich.org 70
i- for (sc = scale; *sc > 0; sc++) Err bitreich.org 70
i- if (dt < *sc * nval) Err bitreich.org 70
i- return *sc; Err bitreich.org 70
i- return dt / nval; Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-double Err bitreich.org 70
i-scale_vstep(double min, double max, int nval) Err bitreich.org 70
i-{ Err bitreich.org 70
i- double dv, d, *sc, scale[] = { 1, 2, 3, 5 }; Err bitreich.org 70
i- Err bitreich.org 70
i- dv = max - min; Err bitreich.org 70
i- Err bitreich.org 70
i- if (dv > 1) Err bitreich.org 70
i- for (d = 1; d != 0; d *= 10) Err bitreich.org 70
i- for (sc = scale; sc < scale + LEN(scale); sc++) Err bitreich.org 70
i- if (dv < *sc * d * nval) Err bitreich.org 70
i- return *sc * d; Err bitreich.org 70
i- if (dv < 1) Err bitreich.org 70
i- for (d = 1; d != 0; d *= 10) Err bitreich.org 70
i- for (sc = scale + LEN(scale) - 1; sc >= scale; sc--) Err bitreich.org 70
i- if (dv > *sc / d * nval / 2) Err bitreich.org 70
i- return *sc / d; Err bitreich.org 70
i- return 0; Err bitreich.org 70
i-} Err bitreich.org 70
1diff --git a/scale.h b/scale.h /scm/ploot/file/scale.h.gph bitreich.org 70
i@@ -1,14 +0,0 @@ Err bitreich.org 70
i-#ifndef SCALE_H Err bitreich.org 70
i-#define SCALE_H Err bitreich.org 70
i- Err bitreich.org 70
i-#include <stddef.h> Err bitreich.org 70
i-#include <time.h> Err bitreich.org 70
i-#include "csv.h" Err bitreich.org 70
i- Err bitreich.org 70
i-int scale_ypos(double, double, double, int); Err bitreich.org 70
i-int scale_xpos(time_t, time_t, time_t, int); Err bitreich.org 70
i-void scale_minmax(struct csv *, int, time_t *, time_t *, double *, double *); Err bitreich.org 70
i-time_t scale_csvep(time_t, time_t, int); Err bitreich.org 70
i-double scale_vstep(double, double, int); Err bitreich.org 70
i- Err bitreich.org 70
i-#endif Err bitreich.org 70
.
Response:
text/plain