isimpler log functions - 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 1d056caf74acaf182318297e2911fa8595fbd45c /scm/ploot/commit/1d056caf74acaf182318297e2911fa8595fbd45c.gph bitreich.org 70
1parent f57e3eaca390e814349d3f6bcafde07b82041217 /scm/ploot/commit/f57e3eaca390e814349d3f6bcafde07b82041217.gph bitreich.org 70
hAuthor: Josuah Demangeon <me@josuah.net> URL:mailto:me@josuah.net bitreich.org 70
iDate: Tue, 25 Feb 2020 23:36:06 +0100 Err bitreich.org 70
i Err bitreich.org 70
isimpler log functions Err bitreich.org 70
i Err bitreich.org 70
iDiffstat: Err bitreich.org 70
i M ploot-braille.c | 6 +++--- Err bitreich.org 70
i M ploot-farbfeld.c | 6 +++--- Err bitreich.org 70
i M ploot-feed.c | 18 +++++++++--------- Err bitreich.org 70
i M src/csv.c | 20 ++++++++++---------- Err bitreich.org 70
i M src/log.c | 22 ++++++++++------------ Err bitreich.org 70
i M src/log.h | 4 ++-- Err bitreich.org 70
i M src/scale.c | 2 +- Err bitreich.org 70
i Err bitreich.org 70
i7 files changed, 38 insertions(+), 40 deletions(-) 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@@ -123,13 +123,13 @@ plot(struct csv *vl, FILE *fp, size_t ncol, int row, int col) Err bitreich.org 70
i assert(drw = drawille_new(row, col)); Err bitreich.org 70
i fprintf(fp, " %s\n", vl->label); Err bitreich.org 70
i if (braille_histogram(vl, drw, tmin, tmax, vmin, vmax) == -1) Err bitreich.org 70
i- fatal(1, "allocating drawille canvas"); Err bitreich.org 70
i+ die(1, "allocating drawille canvas"); Err bitreich.org 70
i if (braille_render(drw, fp, vmin, vmax) == -1) Err bitreich.org 70
i- fatal(1, "rendering braille canvas"); Err bitreich.org 70
i+ die(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, tstep, col) == -1) Err bitreich.org 70
i- fatal(1, "printing x axis");; Err bitreich.org 70
i+ die(1, "printing x axis");; Err bitreich.org 70
i Err bitreich.org 70
i } 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@@ -262,7 +262,7 @@ argv_to_color(struct ffcolor **cl, char **argv) Err bitreich.org 70
i { Err bitreich.org 70
i for (; *argv != NULL; cl++, argv++) Err bitreich.org 70
i if ((*cl = name_to_color(*argv)) == NULL) Err bitreich.org 70
i- fatal(1, "unknown color name: %s", *argv); Err bitreich.org 70
i+ die(1, "unknown color name: %s", *argv); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i static void Err bitreich.org 70
i@@ -307,9 +307,9 @@ main(int argc, char **argv) Err bitreich.org 70
i Err bitreich.org 70
i csv_labels(stdin, &vl, &ncol); Err bitreich.org 70
i if (ncol > (size_t)argc) Err bitreich.org 70
i- fatal(1, "too many columns or not enough arguments"); Err bitreich.org 70
i+ die(1, "too many columns or not enough arguments"); Err bitreich.org 70
i else if (ncol < (size_t)argc) Err bitreich.org 70
i- fatal(1, "too many arguments or not enough columns"); Err bitreich.org 70
i+ die(1, "too many arguments or not enough columns"); Err bitreich.org 70
i csv_values(stdin, vl, ncol); Err bitreich.org 70
i argv_to_color(cl, argv); Err bitreich.org 70
i Err bitreich.org 70
1diff --git a/ploot-feed.c b/ploot-feed.c /scm/ploot/file/ploot-feed.c.gph bitreich.org 70
i@@ -60,19 +60,19 @@ plot_row(long *out, char *line, double *max, int nrow, int ncol) Err bitreich.org 70
i Err bitreich.org 70
i tok = strsep(&line, ","); Err bitreich.org 70
i if (!tok) Err bitreich.org 70
i- fatal(100, "*** missing epoch value"); Err bitreich.org 70
i+ die(100, "*** missing epoch value"); Err bitreich.org 70
i epoch = strtol(tok, NULL, 10); Err bitreich.org 70
i if (errno) Err bitreich.org 70
i error("*** parsing epoch '%s'", tok); Err bitreich.org 70
i Err bitreich.org 70
i for (n = 0; (tok = strsep(&line, ",")) != NULL; n++) { Err bitreich.org 70
i if (n >= ncol) Err bitreich.org 70
i- fatal(100, "too many values"); Err bitreich.org 70
i+ die(100, "too many values"); Err bitreich.org 70
i val = atof(tok); Err bitreich.org 70
i plot_val(out + n * width, val, max[n], nrow); Err bitreich.org 70
i } Err bitreich.org 70
i if (n < ncol) Err bitreich.org 70
i- fatal(100, "not enough values"); Err bitreich.org 70
i+ die(100, "not enough values"); Err bitreich.org 70
i Err bitreich.org 70
i return epoch; Err bitreich.org 70
i } Err bitreich.org 70
i@@ -100,7 +100,7 @@ plot_line(long *out, double *max, int ncol) Err bitreich.org 70
i for (nrow = 0; nrow < 4; nrow++) { Err bitreich.org 70
i if (getline(&line, &sz, stdin) == -1) { Err bitreich.org 70
i if (ferror(stdin)) Err bitreich.org 70
i- fatal(111, "reading row from stdin"); Err bitreich.org 70
i+ die(111, "reading row from stdin"); Err bitreich.org 70
i exit(0); Err bitreich.org 70
i } Err bitreich.org 70
i epoch = plot_row(out, line, max, nrow, ncol); Err bitreich.org 70
i@@ -179,21 +179,21 @@ read_labels(char **labv) Err bitreich.org 70
i line = NULL, sz = 0; Err bitreich.org 70
i if (getline(&line, &sz, stdin) == -1) { Err bitreich.org 70
i if (ferror(stdin)) Err bitreich.org 70
i- fatal(111, "reading labels from stdin"); Err bitreich.org 70
i- fatal(100, "missing label line", stderr); Err bitreich.org 70
i+ die(111, "reading labels from stdin"); Err bitreich.org 70
i+ die(100, "missing label line", stderr); Err bitreich.org 70
i } Err bitreich.org 70
i strchomp(line); Err bitreich.org 70
i cp = line; Err bitreich.org 70
i Err bitreich.org 70
i if (strcmp(strsep(&cp, ","), "epoch") != 0) Err bitreich.org 70
i- fatal(100, "first label must be 'epoch'"); Err bitreich.org 70
i+ die(100, "first label must be 'epoch'"); Err bitreich.org 70
i Err bitreich.org 70
i for (ncol = 0; (tok = strsep(&cp, ",")) != NULL; ncol++, labv++) Err bitreich.org 70
i *labv = tok; Err bitreich.org 70
i *labv = NULL; Err bitreich.org 70
i Err bitreich.org 70
i if (ncol < 1) Err bitreich.org 70
i- fatal(100, "no label found"); Err bitreich.org 70
i+ die(100, "no label found"); Err bitreich.org 70
i return ncol; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i@@ -250,7 +250,7 @@ main(int argc, char **argv) Err bitreich.org 70
i width = (wflag - sizeof("XXxXXxXX _")) / ncol - sizeof("|"); Err bitreich.org 70
i fmt_labels(labels, ncol, labv); Err bitreich.org 70
i if (ncol != nmax) Err bitreich.org 70
i- fatal(100, "not as many labels and arguments"); Err bitreich.org 70
i+ die(100, "not as many labels and arguments"); Err bitreich.org 70
i plot(labels, max, ncol); Err bitreich.org 70
i Err bitreich.org 70
i return 0; Err bitreich.org 70
1diff --git a/src/csv.c b/src/csv.c /scm/ploot/file/src/csv.c.gph bitreich.org 70
i@@ -43,24 +43,24 @@ csv_addrow(struct csv *vl, size_t ncol, char *line) Err bitreich.org 70
i Err bitreich.org 70
i field = strsep(&line, ","); Err bitreich.org 70
i if (!field) Err bitreich.org 70
i- fatal(1, "missing epoch at row %zu", vl->n); Err bitreich.org 70
i+ die(1, "missing epoch at row %zu", vl->n); Err bitreich.org 70
i Err bitreich.org 70
i l = strtol(field, NULL, 10); Err bitreich.org 70
i if (errno) Err bitreich.org 70
i- fatal(100, "parsing number '%s'", field); Err bitreich.org 70
i+ die(100, "parsing number '%s'", field); Err bitreich.org 70
i csv_addtime(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- fatal(1, "too many fields at line %zu", vl->n); Err bitreich.org 70
i+ die(1, "too many fields at line %zu", vl->n); Err bitreich.org 70
i d = strtod(field, NULL); Err bitreich.org 70
i if (errno) Err bitreich.org 70
i- fatal(100, "parsing double '%s'", field); Err bitreich.org 70
i+ die(100, "parsing double '%s'", field); Err bitreich.org 70
i csv_addval(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- fatal(1, "too few fields at line %zu", vl->n); Err bitreich.org 70
i+ die(1, "too few fields at line %zu", vl->n); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i@@ -78,14 +78,14 @@ csv_labels(FILE *fp, struct csv **vl, size_t *ncol) Err bitreich.org 70
i sz = 0, line = NULL; Err bitreich.org 70
i r = getline(&line, &sz, fp); Err bitreich.org 70
i if (ferror(fp)) Err bitreich.org 70
i- fatal(111, "error while reading from file"); Err bitreich.org 70
i+ die(111, "error while reading from file"); Err bitreich.org 70
i if (r == -1) Err bitreich.org 70
i- fatal(100, "missing label line"); Err bitreich.org 70
i+ die(100, "missing label line"); Err bitreich.org 70
i strchomp(line); Err bitreich.org 70
i Err bitreich.org 70
i cp = line; Err bitreich.org 70
i if (strcmp(strsep(&cp, ","), "epoch") != 0) Err bitreich.org 70
i- fatal(1, "first label must be 'epoch'"); Err bitreich.org 70
i+ die(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@@ -114,9 +114,9 @@ csv_values(FILE *fp, struct csv *vl, size_t ncol) 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 if (vl->n == 0) Err bitreich.org 70
i- fatal(1, "no value could be read"); Err bitreich.org 70
i+ die(1, "no value could be read"); Err bitreich.org 70
i if (vl->n == 1) Err bitreich.org 70
i- fatal(1, "only one value could be read"); Err bitreich.org 70
i+ die(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/src/log.c b/src/log.c /scm/ploot/file/src/log.c.gph bitreich.org 70
i@@ -16,12 +16,12 @@ Err bitreich.org 70
i #include <stdlib.h> Err bitreich.org 70
i #include <stdio.h> Err bitreich.org 70
i Err bitreich.org 70
i-#define LOG_DEFAULT 3 Err bitreich.org 70
i+#define LOG_DEFAULT 2 /* info */ Err bitreich.org 70
i Err bitreich.org 70
i int log_level = -1; Err bitreich.org 70
i Err bitreich.org 70
i void Err bitreich.org 70
i-vlogf(int exitcode, int level, char const *flag, char const *fmt, va_list va) Err bitreich.org 70
i+vlogf(int level, char const *flag, char const *fmt, va_list va) Err bitreich.org 70
i { Err bitreich.org 70
i char *env; Err bitreich.org 70
i Err bitreich.org 70
i@@ -32,7 +32,7 @@ vlogf(int exitcode, int level, char const *flag, char const *fmt, va_list va) Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i if (log_level < level) Err bitreich.org 70
i- goto end; Err bitreich.org 70
i+ return; Err bitreich.org 70
i Err bitreich.org 70
i fprintf(stderr, "%s: ", flag); Err bitreich.org 70
i vfprintf(stderr, fmt, va); Err bitreich.org 70
i@@ -43,19 +43,17 @@ vlogf(int exitcode, int level, char const *flag, char const *fmt, va_list va) Err bitreich.org 70
i Err bitreich.org 70
i fprintf(stderr, "\n"); Err bitreich.org 70
i fflush(stderr); Err bitreich.org 70
i-end: Err bitreich.org 70
i- if (exitcode) Err bitreich.org 70
i- exit(exitcode); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i void Err bitreich.org 70
i-fatal(int exitcode, char const *fmt, ...) Err bitreich.org 70
i+die(int exitcode, char const *fmt, ...) Err bitreich.org 70
i { Err bitreich.org 70
i va_list va; Err bitreich.org 70
i Err bitreich.org 70
i va_start(va, fmt); Err bitreich.org 70
i- vlogf(exitcode, 0, "fatal", fmt, va); Err bitreich.org 70
i+ vlogf(0, "error", fmt, va); Err bitreich.org 70
i va_end(va); Err bitreich.org 70
i+ exit(exitcode); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i void Err bitreich.org 70
i@@ -64,7 +62,7 @@ error(char const *fmt, ...) Err bitreich.org 70
i va_list va; Err bitreich.org 70
i Err bitreich.org 70
i va_start(va, fmt); Err bitreich.org 70
i- vlogf(0, 1, "error", fmt, va); Err bitreich.org 70
i+ vlogf(0, "error", fmt, va); Err bitreich.org 70
i va_end(va); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i@@ -74,7 +72,7 @@ warn(char const *fmt, ...) Err bitreich.org 70
i va_list va; Err bitreich.org 70
i Err bitreich.org 70
i va_start(va, fmt); Err bitreich.org 70
i- vlogf(0, 2, "warn", fmt, va); Err bitreich.org 70
i+ vlogf(1, "warn", fmt, va); Err bitreich.org 70
i va_end(va); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i@@ -84,7 +82,7 @@ info(char const *fmt, ...) Err bitreich.org 70
i va_list va; Err bitreich.org 70
i Err bitreich.org 70
i va_start(va, fmt); Err bitreich.org 70
i- vlogf(0, 3, "info", fmt, va); Err bitreich.org 70
i+ vlogf(2, "info", fmt, va); Err bitreich.org 70
i va_end(va); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i@@ -94,6 +92,6 @@ debug(char const *fmt, ...) Err bitreich.org 70
i va_list va; Err bitreich.org 70
i Err bitreich.org 70
i va_start(va, fmt); Err bitreich.org 70
i- vlogf(0, 4, "debug", fmt, va); Err bitreich.org 70
i+ vlogf(3, "debug", fmt, va); Err bitreich.org 70
i va_end(va); Err bitreich.org 70
i } Err bitreich.org 70
1diff --git a/src/log.h b/src/log.h /scm/ploot/file/src/log.h.gph bitreich.org 70
i@@ -5,8 +5,8 @@ Err bitreich.org 70
i Err bitreich.org 70
i /**/ Err bitreich.org 70
i int log_level; Err bitreich.org 70
i-void vlogf (int, int, char const *, char const *, va_list); Err bitreich.org 70
i-void fatal (int, char const *, ...); Err bitreich.org 70
i+void vlogf (int, char const *, char const *, va_list); Err bitreich.org 70
i+void die (int, char const *, ...); Err bitreich.org 70
i void error (char const *, ...); Err bitreich.org 70
i void warn (char const *, ...); Err bitreich.org 70
i void info (char const *, ...); Err bitreich.org 70
1diff --git a/src/scale.c b/src/scale.c /scm/ploot/file/src/scale.c.gph bitreich.org 70
i@@ -53,7 +53,7 @@ scale_minmax(struct csv *vl, int ncol, Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i if (*tmin == *tmax) Err bitreich.org 70
i- fatal(1, "invalid time scale: min=%lld max=%lld", *tmin, *tmax); Err bitreich.org 70
i+ die(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 static time_t Err bitreich.org 70
.
Response:
text/plain