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
.