iadd an experimental ploot-braille tool - 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 1f4e757723ea483ab2c60c8fec2937569441af9e /scm/ploot/commit/1f4e757723ea483ab2c60c8fec2937569441af9e.gph bitreich.org 70
1parent ffb9fc9caeaf3a79f5ab4c7fcbbf4994c1037582 /scm/ploot/commit/ffb9fc9caeaf3a79f5ab4c7fcbbf4994c1037582.gph bitreich.org 70
hAuthor: Josuah Demangeon <me@josuah.net> URL:mailto:me@josuah.net bitreich.org 70
iDate: Sat, 15 Feb 2020 15:23:03 +0100 Err bitreich.org 70
i Err bitreich.org 70
iadd an experimental ploot-braille tool Err bitreich.org 70
i Err bitreich.org 70
iDiffstat: Err bitreich.org 70
i M .gitignore | 1 + Err bitreich.org 70
i M Makefile | 4 ++-- Err bitreich.org 70
i M arg.h | 2 -- Err bitreich.org 70
i A csv.c | 95 ++++++++++++++++++++++++++++++ Err bitreich.org 70
i M def.h | 24 ++++++++++++++++++++++-- Err bitreich.org 70
i M drawille.c | 39 +++++++++++++++---------------- Err bitreich.org 70
i D log.h | 45 ------------------------------- Err bitreich.org 70
i M ploot-braille.c | 201 +++++++++++++------------------ Err bitreich.org 70
i M ploot-farbfeld.c | 7 +++---- Err bitreich.org 70
i M ploot-feed.c | 14 ++++++++------ Err bitreich.org 70
i A scale.c | 139 ++++++++++++++++++++++++++++++ Err bitreich.org 70
i M util.c | 53 ++++++++++++++++++++++++++++--- Err bitreich.org 70
i Err bitreich.org 70
i12 files changed, 425 insertions(+), 199 deletions(-) Err bitreich.org 70
i--- Err bitreich.org 70
1diff --git a/.gitignore b/.gitignore /scm/ploot/file/.gitignore.gph bitreich.org 70
i@@ -1,4 +1,5 @@ Err bitreich.org 70
i *.o Err bitreich.org 70
i *.core Err bitreich.org 70
i+ploot-braille Err bitreich.org 70
i ploot-farbfeld Err bitreich.org 70
i ploot-feed Err bitreich.org 70
1diff --git a/Makefile b/Makefile /scm/ploot/file/Makefile.gph bitreich.org 70
i@@ -1,5 +1,4 @@ Err bitreich.org 70
i-CFLAGS = -Wall -Wextra -std=c99 -pedantic -fPIC \ Err bitreich.org 70
i- -D_POSIX_C_SOURCE=200809L Err bitreich.org 70
i+CFLAGS = -Wall -Wextra -std=c99 -pedantic -fPIC Err bitreich.org 70
i LFLAGS = -static Err bitreich.org 70
i BIN = ploot-farbfeld ploot-feed ploot-braille Err bitreich.org 70
i LIB = -lm Err bitreich.org 70
i@@ -9,6 +8,7 @@ SRC = csv.c drawille.c font.c font7.c font8.c font13.c util.c scale.c Err bitreich.org 70
i Err bitreich.org 70
i all: $(BIN) Err bitreich.org 70
i Err bitreich.org 70
i+${SRC:.c=.o} ${BIN:=.o}: arg.h def.h Makefile Err bitreich.org 70
i ${BIN}: ${SRC:.c=.o} ${BIN:=.o} Err bitreich.org 70
i ${CC} $(LFLAGS) -o $@ $@.o ${SRC:.c=.o} $(LIB) Err bitreich.org 70
i Err bitreich.org 70
1diff --git a/arg.h b/arg.h /scm/ploot/file/arg.h.gph bitreich.org 70
i@@ -1,8 +1,6 @@ Err bitreich.org 70
i #ifndef ARG_H Err bitreich.org 70
i #define ARG_H Err bitreich.org 70
i Err bitreich.org 70
i-extern char const *arg0; Err bitreich.org 70
i- Err bitreich.org 70
i #define ARG_SWITCH(argc, argv) \ Err bitreich.org 70
i arg0 = *argv; \ Err bitreich.org 70
i while (++argv && --argc && **argv == '-' && (*argv)[1]) \ Err bitreich.org 70
1diff --git a/csv.c b/csv.c /scm/ploot/file/csv.c.gph bitreich.org 70
i@@ -0,0 +1,95 @@ Err bitreich.org 70
i+/* Err bitreich.org 70
i+ * Read CSV data onto a set of (struct vlist). Err bitreich.org 70
i+ */ Err bitreich.org 70
i+ Err bitreich.org 70
i+#include <string.h> Err bitreich.org 70
i+#include <time.h> Err bitreich.org 70
i+#include <stdlib.h> Err bitreich.org 70
i+ Err bitreich.org 70
i+#include "def.h" Err bitreich.org 70
i+ Err bitreich.org 70
i+static void Err bitreich.org 70
i+csv_addtime(struct vlist *vl, time_t epoch) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ if ((vl->t = realloc(vl->t, (vl->n + 1) * sizeof(*vl->t))) == NULL) Err bitreich.org 70
i+ err(1, "reallocating values buffer"); Err bitreich.org 70
i+ vl->t[vl->n] = 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 vlist *vl, double field) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ if ((vl->v = realloc(vl->v, (vl->n + 1) * sizeof(*vl->v))) == NULL) Err bitreich.org 70
i+ err(1, "reallocating values buffer"); Err bitreich.org 70
i+ vl->v[vl->n] = field; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+/* Err bitreich.org 70
i+ * Add to each column the value on the current row. Err bitreich.org 70
i+ */ Err bitreich.org 70
i+void Err bitreich.org 70
i+csv_addrow(struct vlist *vl, size_t ncol, char *line) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ char *field; Err bitreich.org 70
i+ Err bitreich.org 70
i+ if ((field = strsep(&line, ",")) == NULL) Err bitreich.org 70
i+ err(1, "missing epoch at row %zu", vl->n); Err bitreich.org 70
i+ Err bitreich.org 70
i+ csv_addtime(vl, eatol(field)); Err bitreich.org 70
i+ for (; (field = strsep(&line, ",")) != NULL; ncol--, vl->n++, vl++) { Err bitreich.org 70
i+ if (ncol == 0) Err bitreich.org 70
i+ err(1, "too many fields at line %zu", vl->n); Err bitreich.org 70
i+ csv_addval(vl, eatof(field)); Err bitreich.org 70
i+ } Err bitreich.org 70
i+ if (ncol > 0) Err bitreich.org 70
i+ err(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+ * < *ncol > Err bitreich.org 70
i+ * epoch,label1,label2,label3 Err bitreich.org 70
i+ */ Err bitreich.org 70
i+void Err bitreich.org 70
i+csv_labels(FILE *fp, char *buf, struct vlist **vl, size_t *ncol) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ char *field; Err bitreich.org 70
i+ size_t sz; Err bitreich.org 70
i+ Err bitreich.org 70
i+ if (esfgets(buf, LINE_MAX, fp) == NULL) Err bitreich.org 70
i+ err(1, "missing label line"); Err bitreich.org 70
i+ Err bitreich.org 70
i+ if (strcmp(strsep(&buf, ","), "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+ for (*ncol = 0; (field = strsep(&buf, ",")) != NULL; ++*ncol) { Err bitreich.org 70
i+ sz = (*ncol + 1) * sizeof **vl; Err bitreich.org 70
i+ if ((*vl = realloc(*vl, sz)) == NULL) Err bitreich.org 70
i+ err(1, "realloc"); Err bitreich.org 70
i+ (*vl)[*ncol].label = field; Err bitreich.org 70
i+ } Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+/* Err bitreich.org 70
i+ * < ncol > Err bitreich.org 70
i+ * epoch,a1,b1,c1 ^ Err bitreich.org 70
i+ * epoch,a2,b2,c2 vl->n Err bitreich.org 70
i+ * epoch,a3,b3,c3 v Err bitreich.org 70
i+ */ Err bitreich.org 70
i+void Err bitreich.org 70
i+csv_values(FILE *fp, struct vlist *vl, size_t ncol) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ char line[LINE_MAX]; Err bitreich.org 70
i+ time_t *tbuf; Err bitreich.org 70
i+ Err bitreich.org 70
i+ while (esfgets(line, sizeof(line), fp) != NULL) Err bitreich.org 70
i+ csv_addrow(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+ /* The same time buffer can be used for all. */ Err bitreich.org 70
i+ for (tbuf = vl->t; ncol > 0; ncol--, vl++) Err bitreich.org 70
i+ vl->t = tbuf; Err bitreich.org 70
i+} Err bitreich.org 70
1diff --git a/def.h b/def.h /scm/ploot/file/def.h.gph bitreich.org 70
i@@ -1,4 +1,5 @@ Err bitreich.org 70
i #include <limits.h> Err bitreich.org 70
i+#include <stdarg.h> Err bitreich.org 70
i #include <stdint.h> Err bitreich.org 70
i #include <stdio.h> Err bitreich.org 70
i Err bitreich.org 70
i@@ -37,8 +38,8 @@ struct vlist { Err bitreich.org 70
i /* csv.c */ Err bitreich.org 70
i Err bitreich.org 70
i void csv_addrow (struct vlist *, size_t, char *); Err bitreich.org 70
i-void csv_values (struct vlist *, size_t); Err bitreich.org 70
i-void csv_labels (struct vlist *, char **, char *); Err bitreich.org 70
i+void csv_labels (FILE *, char *, struct vlist **, size_t *); Err bitreich.org 70
i+void csv_values (FILE *, struct vlist *, size_t); Err bitreich.org 70
i Err bitreich.org 70
i /* drawille.c */ Err bitreich.org 70
i Err bitreich.org 70
i@@ -61,12 +62,28 @@ struct font font13; Err bitreich.org 70
i struct font font7; Err bitreich.org 70
i struct font font8; Err bitreich.org 70
i Err bitreich.org 70
i+/* ploot-braille.c */ Err bitreich.org 70
i+ Err bitreich.org 70
i+char const *arg0; Err bitreich.org 70
i+ Err bitreich.org 70
i+/* ploot-farbfeld.c */ Err bitreich.org 70
i+ Err bitreich.org 70
i+char const *arg0; Err bitreich.org 70
i+ Err bitreich.org 70
i+/* ploot-feed.c */ Err bitreich.org 70
i+ Err bitreich.org 70
i+char const *arg0; Err bitreich.org 70
i+ Err bitreich.org 70
i /* scale.c */ 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_vminmax (double *, double *, int); Err bitreich.org 70
i void scale (struct vlist *, int, time_t *, time_t *, time_t *, double *, double *, double *); Err bitreich.org 70
i Err bitreich.org 70
i /* util.c */ Err bitreich.org 70
i Err bitreich.org 70
i+size_t strlcpy (char *, const char *, size_t); Err bitreich.org 70
i void put3utf (long); Err bitreich.org 70
i char * strsep (char **, const char *); Err bitreich.org 70
i void estriplf (char *); Err bitreich.org 70
i@@ -74,3 +91,6 @@ double eatof (char *); Err bitreich.org 70
i long eatol (char *); Err bitreich.org 70
i char * esfgets (char *, size_t, FILE *); Err bitreich.org 70
i int humanize (char *, double); Err bitreich.org 70
i+void vlog (char const *, char const *, va_list); Err bitreich.org 70
i+void warn (char const *, ...); Err bitreich.org 70
i+void err (int, char const *, ...); Err bitreich.org 70
1diff --git a/drawille.c b/drawille.c /scm/ploot/file/drawille.c.gph bitreich.org 70
i@@ -1,3 +1,7 @@ Err bitreich.org 70
i+/* Err bitreich.org 70
i+ * Terminal-based plotting using drawille character, aka drawille. Err bitreich.org 70
i+ */ Err bitreich.org 70
i+ Err bitreich.org 70
i #include <stdint.h> Err bitreich.org 70
i #include <stdio.h> Err bitreich.org 70
i #include <stdlib.h> Err bitreich.org 70
i@@ -5,14 +9,10 @@ Err bitreich.org 70
i Err bitreich.org 70
i #include "def.h" Err bitreich.org 70
i Err bitreich.org 70
i-/* Err bitreich.org 70
i- * Terminal-based plotting using drawille character, aka drawille. Err bitreich.org 70
i- */ Err bitreich.org 70
i- Err bitreich.org 70
i /* parameters used to draw a line */ Err bitreich.org 70
i struct line { Err bitreich.org 70
i- int x0, y0, x1, y1; /* point of the line */ Err bitreich.org 70
i- int dx, dy, sx, sy, err; /* parameters for the algorythm */ Err bitreich.org 70
i+ int x0, y0, x1, y1; /* point of the line */ Err bitreich.org 70
i+ int dx, dy, sx, sy, err; /* parameters for the algorythm */ Err bitreich.org 70
i }; Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i@@ -36,7 +36,7 @@ drawille_cell_dot(uint8_t *cell, int row, int col) Err bitreich.org 70
i static size_t Err bitreich.org 70
i drawille_cell_utf(uint8_t cell, char *utf) Err bitreich.org 70
i { Err bitreich.org 70
i- long rune; Err bitreich.org 70
i+ long rune; Err bitreich.org 70
i Err bitreich.org 70
i rune = 10240 + cell; Err bitreich.org 70
i utf[0] = (char)(0xe0 | (0x0f & (rune >> 12))); /* 1110xxxx */ Err bitreich.org 70
i@@ -54,8 +54,8 @@ drawille_get(struct drawille *drw, int row, int col) Err bitreich.org 70
i size_t Err bitreich.org 70
i drawille_fmt_row(struct drawille *drw, char *buf, size_t sz, int row) Err bitreich.org 70
i { Err bitreich.org 70
i- char txt[] = "xxx"; Err bitreich.org 70
i- size_t n; Err bitreich.org 70
i+ char txt[] = "xxx"; Err bitreich.org 70
i+ size_t n; Err bitreich.org 70
i Err bitreich.org 70
i n = 0; Err bitreich.org 70
i for (int col = 0; col < drw->col; col++) { Err bitreich.org 70
i@@ -82,7 +82,7 @@ drawille_dot(struct drawille *drw, int x, int y) Err bitreich.org 70
i struct drawille * Err bitreich.org 70
i drawille_new(int row, int col) Err bitreich.org 70
i { Err bitreich.org 70
i- struct drawille *drw; Err bitreich.org 70
i+ struct drawille *drw; Err bitreich.org 70
i Err bitreich.org 70
i if ((drw = calloc(sizeof(struct drawille) + row * col, 1)) == NULL) Err bitreich.org 70
i return NULL; Err bitreich.org 70
i@@ -108,10 +108,10 @@ drawille_line_init(struct line *l, int x0, int y0, int x1, int y1) Err bitreich.org 70
i static int Err bitreich.org 70
i drawille_line_next(struct line *l) Err bitreich.org 70
i { Err bitreich.org 70
i- int e; Err bitreich.org 70
i+ int e; Err bitreich.org 70
i Err bitreich.org 70
i if (l->x0 == l->x1 && l->y0 == l->y1) Err bitreich.org 70
i- return 0; Err bitreich.org 70
i+ return -1; Err bitreich.org 70
i Err bitreich.org 70
i e = l->err; Err bitreich.org 70
i if (e > -l->dx) { Err bitreich.org 70
i@@ -122,13 +122,13 @@ drawille_line_next(struct line *l) Err bitreich.org 70
i l->y0 += l->sy; Err bitreich.org 70
i l->err += l->dx; Err bitreich.org 70
i } 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 void Err bitreich.org 70
i drawille_line(struct drawille *drw, int x0, int y0, int x1, int y1) Err bitreich.org 70
i { Err bitreich.org 70
i- struct line l; Err bitreich.org 70
i+ struct line l; Err bitreich.org 70
i Err bitreich.org 70
i drawille_line_init(&l, x0, y0, x1, y1); Err bitreich.org 70
i do { Err bitreich.org 70
i@@ -139,8 +139,8 @@ drawille_line(struct drawille *drw, int x0, int y0, int x1, int y1) Err bitreich.org 70
i void Err bitreich.org 70
i drawille_line_hist(struct drawille *drw, int x0, int y0, int x1, int y1, int zero) Err bitreich.org 70
i { Err bitreich.org 70
i- struct line l; Err bitreich.org 70
i- int sign; Err bitreich.org 70
i+ struct line l; Err bitreich.org 70
i+ int sign; Err bitreich.org 70
i Err bitreich.org 70
i drawille_line_init(&l, x0, y0, x1, y1); Err bitreich.org 70
i do { Err bitreich.org 70
i@@ -153,7 +153,7 @@ drawille_line_hist(struct drawille *drw, int x0, int y0, int x1, int y1, int zer Err bitreich.org 70
i void Err bitreich.org 70
i drawille_dot_hist(struct drawille *drw, int x, int y, int zero) Err bitreich.org 70
i { Err bitreich.org 70
i- int sign; Err bitreich.org 70
i+ int sign; Err bitreich.org 70
i Err bitreich.org 70
i sign = (y > zero) ? (-1) : (+1); Err bitreich.org 70
i for (; y != zero + sign; y += sign) Err bitreich.org 70
i@@ -163,8 +163,8 @@ drawille_dot_hist(struct drawille *drw, int x, int y, int zero) Err bitreich.org 70
i static int Err bitreich.org 70
i drawille_text_glyph(struct drawille *drw, int x, int y, struct font *font, char c) Err bitreich.org 70
i { Err bitreich.org 70
i- int width; Err bitreich.org 70
i- char *glyph; Err bitreich.org 70
i+ int width; Err bitreich.org 70
i+ char *glyph; Err bitreich.org 70
i Err bitreich.org 70
i if ((unsigned)c > 127) Err bitreich.org 70
i glyph = font->glyph[0]; Err bitreich.org 70
i@@ -187,7 +187,6 @@ drawille_text(struct drawille *drw, int x, int y, struct font *font, char *s) Err bitreich.org 70
i { Err bitreich.org 70
i if (drw->row*4 < font->height) Err bitreich.org 70
i return NULL; Err bitreich.org 70
i- Err bitreich.org 70
i for (; *s != '\0' && x < drw->col/2; s++, x++) Err bitreich.org 70
i x += drawille_text_glyph(drw, x, y, font, *s); Err bitreich.org 70
i return s; Err bitreich.org 70
1diff --git a/log.h b/log.h /scm/ploot/file/log.h.gph bitreich.org 70
i@@ -1,45 +0,0 @@ Err bitreich.org 70
i-#ifndef LOG_H Err bitreich.org 70
i-#define LOG_H Err bitreich.org 70
i- Err bitreich.org 70
i-#include <errno.h> Err bitreich.org 70
i-#include <stdarg.h> Err bitreich.org 70
i-#include <stdio.h> Err bitreich.org 70
i-#include <stdlib.h> Err bitreich.org 70
i-#include <string.h> Err bitreich.org 70
i- Err bitreich.org 70
i-char const *arg0; /* Should be set by the library caller. */ Err bitreich.org 70
i- Err bitreich.org 70
i-static inline void Err bitreich.org 70
i-vlog(char const *base, char const *fmt, va_list va) Err bitreich.org 70
i-{ Err bitreich.org 70
i- fprintf(stderr, "%s: ", base); Err bitreich.org 70
i- vfprintf(stderr, fmt, va); Err bitreich.org 70
i- if (errno) Err bitreich.org 70
i- fprintf(stderr, ": %s", strerror(errno)); Err bitreich.org 70
i- fputc('\n', stderr); Err bitreich.org 70
i- fflush(stderr); Err bitreich.org 70
i- errno = 0; /* avoid repeating the error in loop */ Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-static inline void Err bitreich.org 70
i-warn(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- vlog(arg0, 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-static inline void Err bitreich.org 70
i-err(int e, 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- vlog(arg0, fmt, va); Err bitreich.org 70
i- va_end(va); Err bitreich.org 70
i- exit(e); Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-#endif 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,48 +8,15 @@ Err bitreich.org 70
i #include <math.h> Err bitreich.org 70
i Err bitreich.org 70
i #include "def.h" Err bitreich.org 70
i+#include "arg.h" Err bitreich.org 70
i Err bitreich.org 70
i-/* Err bitreich.org 70
i- * Adjust the vertical scale so that it gets possible to Err bitreich.org 70
i- */ Err bitreich.org 70
i-static void Err bitreich.org 70
i-plot_scale(double *min, double *max, int row) Err bitreich.org 70
i-{ Err bitreich.org 70
i- double unit, range, mi; Err bitreich.org 70
i- Err bitreich.org 70
i- range = *max - *min; Err bitreich.org 70
i- unit = 1; Err bitreich.org 70
i- Err bitreich.org 70
i- /* Zoom until it fills the canvas. */ Err bitreich.org 70
i- for (; (row - 1) * unit > range; unit /= 10) Err bitreich.org 70
i- continue; Err bitreich.org 70
i- Err bitreich.org 70
i- /* Dezoom until it fits the canvas. */ Err bitreich.org 70
i- for (; (row - 1) * unit < range; unit *= 10) Err bitreich.org 70
i- continue; Err bitreich.org 70
i- Err bitreich.org 70
i- /* Fine tune. */ Err bitreich.org 70
i- if ((row - 1) * unit / 5 > range) Err bitreich.org 70
i- unit /= 5; Err bitreich.org 70
i- if ((row - 1) * unit / 4 > range) Err bitreich.org 70
i- unit /= 4; Err bitreich.org 70
i- if ((row - 1) * unit / 2 > range) Err bitreich.org 70
i- unit /= 2; Err bitreich.org 70
i- Err bitreich.org 70
i- /* Align the minimum (and the zero). */ Err bitreich.org 70
i- for (mi = 0; mi > *min - unit; mi -= unit) Err bitreich.org 70
i- continue; Err bitreich.org 70
i- Err bitreich.org 70
i- /* Update the displayed minimal and maximal. */ Err bitreich.org 70
i- *min = mi; Err bitreich.org 70
i- *max = mi + unit * row; Err bitreich.org 70
i-} Err bitreich.org 70
i+char const *arg0 = NULL; Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i * Return the step between two values. Err bitreich.org 70
i */ Err bitreich.org 70
i static int Err bitreich.org 70
i-plot_time_interval(time_t step) Err bitreich.org 70
i+braille_time_interval(time_t step) Err bitreich.org 70
i { Err bitreich.org 70
i time_t scale[] = { Err bitreich.org 70
i 1, 5, 2, 10, 20, 30, 60, 60*2, 60*5, 60*10, 60*20, 60*30, Err bitreich.org 70
i@@ -65,136 +32,142 @@ plot_time_interval(time_t step) Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i static size_t Err bitreich.org 70
i-plot_axis_x(char *buf, size_t sz, time_t step, time_t t2, int col) Err bitreich.org 70
i+braille_axis_x(FILE *fp, time_t step, time_t tmax, int col) Err bitreich.org 70
i { Err bitreich.org 70
i int x, prec; Err bitreich.org 70
i char tmp[sizeof("MM/DD HH:MM")], *fmt; Err bitreich.org 70
i size_t n; Err bitreich.org 70
i time_t t, interval; Err bitreich.org 70
i Err bitreich.org 70
i- interval = plot_time_interval(step); Err bitreich.org 70
i+ interval = braille_time_interval(step); Err bitreich.org 70
i fmt = (step < 3600 * 12) ? "^%H:%M:%S" : Err bitreich.org 70
i (step < 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 = t2 - col * 2 * step; Err bitreich.org 70
i+ t = tmax - col * 2 * step; Err bitreich.org 70
i t += interval - t % interval; Err bitreich.org 70
i- for (; t < t2; t += interval) { Err bitreich.org 70
i+ for (; t < tmax; t += interval) { Err bitreich.org 70
i strftime(tmp, sizeof tmp, fmt, localtime(&t)); Err bitreich.org 70
i- x = ((t - t2) / 2 + col * step) / step; Err bitreich.org 70
i+ x = ((t - tmax) / 2 + col * step) / step; Err bitreich.org 70
i prec = x - n + strlen(tmp); Err bitreich.org 70
i- assert((n += snprintf(buf+n, sz-n, "%*s", prec, tmp)) <= sz); Err bitreich.org 70
i+ fprintf(fp, "%*s", prec, tmp); Err bitreich.org 70
i } Err bitreich.org 70
i- assert((n += strlcpy(buf+n, "\n", sz-n)) < sz); Err bitreich.org 70
i- return n; Err bitreich.org 70
i+ fputc('\n', fp); Err bitreich.org 70
i+ return 1; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i /* 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 size_t Err bitreich.org 70
i-plot_axis_y(char *buf, size_t sz, double min, double max, int r, int rows) Err bitreich.org 70
i+static void 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- size_t 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 = (max - min) * (rows - r) / rows + min; Err bitreich.org 70
i- humanize(tmp, sizeof tmp, val); Err bitreich.org 70
i+ humanize(tmp, val); Err bitreich.org 70
i s = (r == 0) ? "┌" : Err bitreich.org 70
i (r == rows - 1) ? "└" : Err bitreich.org 70
i "├"; Err bitreich.org 70
i- i = snprintf(buf, sz, "%s%-6s ", s, tmp); Err bitreich.org 70
i- return (i > sz) ? (sz) : (i); Err bitreich.org 70
i+ fprintf(fp, "%s%-6s ", s, tmp); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i-static char * Err bitreich.org 70
i-plot_render(struct drawille *drw, double min, double max, time_t step, time_t t2) Err bitreich.org 70
i+static int Err bitreich.org 70
i+braille_render(struct drawille *drw, FILE *fp, time_t tmin, time_t tmax) Err bitreich.org 70
i { Err bitreich.org 70
i- char *buf; Err bitreich.org 70
i- size_t sz; Err bitreich.org 70
i- size_t n; Err bitreich.org 70
i+ char buf[LINE_MAX]; Err bitreich.org 70
i Err bitreich.org 70
i /* Render the plot line by line. */ Err bitreich.org 70
i- sz = drw->row * (20 + drw->col * 3 + 1) + 1; Err bitreich.org 70
i- sz += drw->col + 1 + 100000; Err bitreich.org 70
i- if ((buf = calloc(sz, 1)) == NULL) Err bitreich.org 70
i- goto err; Err bitreich.org 70
i- n = 0; Err bitreich.org 70
i for (int row = 0; row < drw->row; row++) { Err bitreich.org 70
i- n += drawille_fmt_row(drw, buf+n, sz-n, row); Err bitreich.org 70
i- n += plot_axis_y(buf+n, sz-n, min, max, row, drw->row); Err bitreich.org 70
i- n += strlcpy(buf+n, "\n", sz-n); Err bitreich.org 70
i+ drawille_fmt_row(drw, buf, sizeof buf, row); Err bitreich.org 70
i+ braille_axis_y(fp, tmin, tmax, row, drw->row); Err bitreich.org 70
i+ fputc('\n', fp); Err bitreich.org 70
i } Err bitreich.org 70
i- plot_axis_x(buf+n, sz-n, step, t2, drw->col); Err bitreich.org 70
i- return buf; Err bitreich.org 70
i-err: Err bitreich.org 70
i- errno = ENOBUFS; Err bitreich.org 70
i- free(buf); Err bitreich.org 70
i- return NULL; Err bitreich.org 70
i+ return 0; 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 */ Err bitreich.org 70
i-static char * Err bitreich.org 70
i-plot_hist(struct vlist *vl, time_t t2, struct drawille *drw) Err bitreich.org 70
i+static int Err bitreich.org 70
i+braille_hist(struct vlist *vl, FILE *fp, time_t tmin, time_t tmax, int row, int col) Err bitreich.org 70
i { Err bitreich.org 70
i int x, y, zero, shift; Err bitreich.org 70
i- double min, max, val; Err bitreich.org 70
i- time_t t1, t; Err bitreich.org 70
i- Err bitreich.org 70
i- /* Adjust the y scale. */ Err bitreich.org 70
i- shift = min = max = 0; Err bitreich.org 70
i- timeserie_stats(vl, &min, &max); Err bitreich.org 70
i- if (drw->row > 1) { Err bitreich.org 70
i- shift = 2; /* Align values to the middle of the scale: |- */ Err bitreich.org 70
i- plot_scale(&min, &max, drw->row); Err bitreich.org 70
i- } Err bitreich.org 70
i- zero = timeserie_ypos(0, min, max, drw->row*4) - shift; Err bitreich.org 70
i- Err bitreich.org 70
i- /* Adjust the x scale. */ Err bitreich.org 70
i- t2 = t2 + vl->step - t2 % vl->step; Err bitreich.org 70
i- t1 = t2 - vl->step * vl->len; Err bitreich.org 70
i- Err bitreich.org 70
i- /* Plot the data in memory in <drw> starting from the end (t2). */ Err bitreich.org 70
i- t = t2; Err bitreich.org 70
i- for (x = drw->col * 2; x > 0; x--) { Err bitreich.org 70
i- val = timeserie_get(vl, t); Err bitreich.org 70
i- if (!isnan(val)) { Err bitreich.org 70
i- y = timeserie_ypos(val, min, max, drw->row*4) - shift; Err bitreich.org 70
i- drawille_dot_hist(drw, x, y, zero); Err bitreich.org 70
i- } Err bitreich.org 70
i- t -= vl->step; Err bitreich.org 70
i- } Err bitreich.org 70
i+ double *v, vmin, vmax; Err bitreich.org 70
i+ time_t *t; Err bitreich.org 70
i+ size_t n; Err bitreich.org 70
i+ struct drawille *drw; Err bitreich.org 70
i Err bitreich.org 70
i- return plot_render(drw, min, max, vl->step, t2); Err bitreich.org 70
i+ if ((drw = drawille_new(row, col)) == NULL) Err bitreich.org 70
i+ err(1, "allocating drawille canvas"); Err bitreich.org 70
i+ Err bitreich.org 70
i+ shift = (drw->row > 1) ? (2) : (0); /* center values on "|-" marks */ Err bitreich.org 70
i+ vmin = vmax = 0; Err bitreich.org 70
i+ zero = scale_ypos(0, vmin, vmax, drw->row*4) - shift; 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+ continue; Err bitreich.org 70
i+ y = scale_ypos(*v, vmin, vmax, drw->row * 4) - shift; Err bitreich.org 70
i+ x = scale_xpos(*t, tmin, tmax, drw->col * 2); Err bitreich.org 70
i+ drawille_dot_hist(drw, x, y, zero); Err bitreich.org 70
i+ } Err bitreich.org 70
i+ if (braille_render(drw, fp, tmin, tmax) == -1) Err bitreich.org 70
i+ err(1, "rendering braille canvas"); Err bitreich.org 70
i+ free(drw); Err bitreich.org 70
i+ return 0; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i-static char * Err bitreich.org 70
i-plot(struct vlist *vl, time_t t2, int row, int col) Err bitreich.org 70
i+static int Err bitreich.org 70
i+plot(struct vlist *vl, FILE *fp, size_t ncol, int row, int col) Err bitreich.org 70
i { Err bitreich.org 70
i- struct drawille *drw; Err bitreich.org 70
i size_t len; Err bitreich.org 70
i- char *buf; Err bitreich.org 70
i+ double vmin, vmax, vstep; Err bitreich.org 70
i+ time_t tmin, tmax, tstep; Err bitreich.org 70
i Err bitreich.org 70
i len = 500; Err bitreich.org 70
i- buf = NULL; Err bitreich.org 70
i- drw = NULL; Err bitreich.org 70
i col -= 8; Err bitreich.org 70
i Err bitreich.org 70
i- if (timeserie_read(vl) == -1) Err bitreich.org 70
i- goto err; Err bitreich.org 70
i+ scale(vl, ncol, &tmin, &tmax, &tstep, &vmin, &vmax, &vstep); Err bitreich.org 70
i Err bitreich.org 70
i- if ((drw = drawille_new(row, col)) == NULL) Err bitreich.org 70
i- goto err; Err bitreich.org 70
i+ if (braille_hist(vl, fp, tmin, tmax, row, col) == -1) Err bitreich.org 70
i+ err(1, "allocating drawille canvas"); Err bitreich.org 70
i+ braille_axis_x(fp, tstep, tmax, col); Err bitreich.org 70
i+ return 0; Err bitreich.org 70
i+} Err bitreich.org 70
i Err bitreich.org 70
i- buf = plot_hist(vl, t2, drw); Err bitreich.org 70
i-err: Err bitreich.org 70
i- if (buf == NULL) Err bitreich.org 70
i- timedb_close(&vl->db); Err bitreich.org 70
i- free(drw); Err bitreich.org 70
i- return buf; Err bitreich.org 70
i+static void Err bitreich.org 70
i+usage(void) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ fprintf(stderr, "usage: %s\n", arg0); Err bitreich.org 70
i+ exit(1); Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+int Err bitreich.org 70
i+main(int argc, char **argv) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ struct vlist *vl; Err bitreich.org 70
i+ char labels[LINE_MAX]; Err bitreich.org 70
i+ size_t ncol; Err bitreich.org 70
i+ Err bitreich.org 70
i+ ARG_SWITCH(argc, argv) { Err bitreich.org 70
i+ default: Err bitreich.org 70
i+ usage(); Err bitreich.org 70
i+ } Err bitreich.org 70
i+ Err bitreich.org 70
i+ if (argc > 0) Err bitreich.org 70
i+ usage(); Err bitreich.org 70
i+ Err bitreich.org 70
i+ csv_labels(stdin, labels, &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, 20, 80); Err bitreich.org 70
i+ Err bitreich.org 70
i+ free(vl); Err bitreich.org 70
i+ return 1; 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@@ -13,7 +13,6 @@ Err bitreich.org 70
i #include <math.h> Err bitreich.org 70
i Err bitreich.org 70
i #include "arg.h" Err bitreich.org 70
i-#include "log.h" Err bitreich.org 70
i #include "def.h" Err bitreich.org 70
i Err bitreich.org 70
i #define MARGIN 4 Err bitreich.org 70
i@@ -66,9 +65,9 @@ struct canvas { Err bitreich.org 70
i struct color *buf; Err bitreich.org 70
i }; Err bitreich.org 70
i Err bitreich.org 70
i-char const *arg0; Err bitreich.org 70
i-static char *tflag = ""; Err bitreich.org 70
i-static char *uflag = ""; Err bitreich.org 70
i+char const *arg0 = NULL; Err bitreich.org 70
i+static char *tflag = ""; Err bitreich.org 70
i+static char *uflag = ""; Err bitreich.org 70
i static struct font *font = &font13; Err bitreich.org 70
i Err bitreich.org 70
i static struct cname cname[] = { 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@@ -13,9 +13,9 @@ Err bitreich.org 70
i #define WIDTH_MAX 1024 Err bitreich.org 70
i #define BRAILLE_START 10240 Err bitreich.org 70
i Err bitreich.org 70
i-int wflag = 80; Err bitreich.org 70
i-int width = 0; Err bitreich.org 70
i-char const *arg0 = NULL; Err bitreich.org 70
i+char const *arg0 = NULL; Err bitreich.org 70
i+static int wflag = 80; Err bitreich.org 70
i+static int width = 0; Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i * Turn the bit at position (row, col) on in the . Err bitreich.org 70
i@@ -139,8 +139,11 @@ plot(char labels[LINE_MAX], double *max, int ncol) Err bitreich.org 70
i last_epoch = epoch = 0; Err bitreich.org 70
i Err bitreich.org 70
i for (n = 0;; n = (n == 25 ? 0 : n + 1)) { Err bitreich.org 70
i- if (n == 0) Err bitreich.org 70
i- put_time(0, 0, 2), fputs(labels, stdout), puts("│"); Err bitreich.org 70
i+ if (n == 0) { Err bitreich.org 70
i+ put_time(0, 0, 2); Err bitreich.org 70
i+ fputs(labels, stdout); Err bitreich.org 70
i+ puts("│"); Err bitreich.org 70
i+ } Err bitreich.org 70
i Err bitreich.org 70
i epoch = plot_line(out, max, ncol); Err bitreich.org 70
i put_time(epoch, last_epoch, n); Err bitreich.org 70
i@@ -224,7 +227,6 @@ main(int argc, char **argv) Err bitreich.org 70
i int ncol, nmax; Err bitreich.org 70
i char *labv[LINE_MAX / 2], labels[LINE_MAX]; Err bitreich.org 70
i Err bitreich.org 70
i- setvbuf(stdin, NULL, _IOLBF, 0); Err bitreich.org 70
i nmax = parse_args(argc, argv, max); Err bitreich.org 70
i ncol = read_labels(labv); Err bitreich.org 70
i width = (wflag - sizeof("XXxXXxXX _")) / ncol - sizeof("|"); Err bitreich.org 70
1diff --git a/scale.c b/scale.c /scm/ploot/file/scale.c.gph bitreich.org 70
i@@ -0,0 +1,139 @@ Err bitreich.org 70
i+#include "def.h" Err bitreich.org 70
i+#include "err.h" Err bitreich.org 70
i+ Err bitreich.org 70
i+#define XDENSITY 7 /* nb of values on x axis */ Err bitreich.org 70
i+#define YDENSITY 7 /* nb of values on y axis */ 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+static void Err bitreich.org 70
i+scale_minmax(struct vlist *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+static time_t Err bitreich.org 70
i+scale_tstep(time_t min, time_t max, int density) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ time_t dt, *s, 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+ for (s = scale; s < scale + LEN(scale); s++) Err bitreich.org 70
i+ if (dt < *s * density) Err bitreich.org 70
i+ return *s; Err bitreich.org 70
i+ return 0; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+static double Err bitreich.org 70
i+scale_vstep(double min, double max, int density) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ double dv, d, *s, 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 (s = scale; s < scale + LEN(scale); s++) Err bitreich.org 70
i+ if (dv < *s * d * density) Err bitreich.org 70
i+ return *s * 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 (s = scale + LEN(scale) - 1; s >= scale; s--) Err bitreich.org 70
i+ if (dv > *s / d * density / 2) Err bitreich.org 70
i+ return *s / d; Err bitreich.org 70
i+ return 0; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+/* Err bitreich.org 70
i+ * Adjust the vertical scale so that everything fits, with nice Err bitreich.org 70
i+ * scale values. Err bitreich.org 70
i+ */ Err bitreich.org 70
i+void Err bitreich.org 70
i+scale_vminmax(double *min, double *max, int row) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ double unit, range, mi; Err bitreich.org 70
i+ Err bitreich.org 70
i+ range = *max - *min; Err bitreich.org 70
i+ unit = 1; Err bitreich.org 70
i+ Err bitreich.org 70
i+ /* Zoom until it fills the canvas. */ Err bitreich.org 70
i+ for (; (row - 1) * unit > range; unit /= 10) Err bitreich.org 70
i+ continue; Err bitreich.org 70
i+ Err bitreich.org 70
i+ /* Dezoom until it fits the canvas. */ Err bitreich.org 70
i+ for (; (row - 1) * unit < range; unit *= 10) Err bitreich.org 70
i+ continue; Err bitreich.org 70
i+ Err bitreich.org 70
i+ /* Fine tune. */ Err bitreich.org 70
i+ if ((row - 1) * unit / 5 > range) Err bitreich.org 70
i+ unit /= 5; Err bitreich.org 70
i+ if ((row - 1) * unit / 4 > range) Err bitreich.org 70
i+ unit /= 4; Err bitreich.org 70
i+ if ((row - 1) * unit / 2 > range) Err bitreich.org 70
i+ unit /= 2; Err bitreich.org 70
i+ Err bitreich.org 70
i+ /* Align the minimum (and the zero). */ Err bitreich.org 70
i+ for (mi = 0; mi > *min - unit; mi -= unit) Err bitreich.org 70
i+ continue; Err bitreich.org 70
i+ Err bitreich.org 70
i+ /* Update the displayed minimal and maximal. */ Err bitreich.org 70
i+ *min = mi; Err bitreich.org 70
i+ *max = mi + unit * row; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+void Err bitreich.org 70
i+scale(struct vlist *vl, int ncol, Err bitreich.org 70
i+ time_t *tmin, time_t *tmax, time_t *tstep, Err bitreich.org 70
i+ double *vmin, double *vmax, double *vstep) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ scale_minmax(vl, ncol, tmin, tmax, vmin, vmax); Err bitreich.org 70
i+ *tstep = scale_tstep(*tmin, *tmax, XDENSITY); Err bitreich.org 70
i+ *vstep = scale_vstep(*vmin, *vmax, YDENSITY); Err bitreich.org 70
i+} Err bitreich.org 70
1diff --git a/util.c b/util.c /scm/ploot/file/util.c.gph bitreich.org 70
i@@ -1,12 +1,24 @@ Err bitreich.org 70
i-#include <string.h> Err bitreich.org 70
i+#include <ctype.h> Err bitreich.org 70
i #include <errno.h> Err bitreich.org 70
i-#include <stdio.h> Err bitreich.org 70
i #include <limits.h> Err bitreich.org 70
i+#include <stdarg.h> Err bitreich.org 70
i+#include <stdio.h> Err bitreich.org 70
i #include <stdlib.h> Err bitreich.org 70
i-#include <ctype.h> Err bitreich.org 70
i+#include <string.h> Err bitreich.org 70
i Err bitreich.org 70
i #include "def.h" Err bitreich.org 70
i Err bitreich.org 70
i+size_t Err bitreich.org 70
i+strlcpy(char *buf, const char *str, size_t sz) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ size_t len, cpy; Err bitreich.org 70
i+ Err bitreich.org 70
i+ cpy = ((len = strlen(str)) > sz) ? (sz) : (len); Err bitreich.org 70
i+ memcpy(buf, str, cpy); Err bitreich.org 70
i+ buf[sz - 1] = '\0'; Err bitreich.org 70
i+ return len; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i void Err bitreich.org 70
i put3utf(long rune) Err bitreich.org 70
i { Err bitreich.org 70
i@@ -79,7 +91,7 @@ esfgets(char *buf, size_t n, FILE *file) Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i- * Set 'str' to a human-readable form of 'num' with always a width of 8 (+ 1 Err bitreich.org 70
i+ * Set 'str' to a human-readable form of 'num' with always a width of 8 (+1 for Err bitreich.org 70
i * the '\0' terminator). Buffer overflow is ensured not to happen due to the Err bitreich.org 70
i * max size of a double. Return the exponent. Err bitreich.org 70
i */ Err bitreich.org 70
i@@ -102,3 +114,36 @@ humanize(char *str, double val) Err bitreich.org 70
i Err bitreich.org 70
i return exp * 3; Err bitreich.org 70
i } Err bitreich.org 70
i+ Err bitreich.org 70
i+void Err bitreich.org 70
i+vlog(char const *base, char const *fmt, va_list va) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ fprintf(stderr, "%s: ", base); Err bitreich.org 70
i+ vfprintf(stderr, fmt, va); Err bitreich.org 70
i+ if (errno) Err bitreich.org 70
i+ fprintf(stderr, ": %s", strerror(errno)); Err bitreich.org 70
i+ fputc('\n', stderr); Err bitreich.org 70
i+ fflush(stderr); Err bitreich.org 70
i+ errno = 0; /* avoid repeating the error in loop */ Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+void Err bitreich.org 70
i+warn(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+ vlog(arg0, 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+void Err bitreich.org 70
i+err(int e, 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+ vlog(arg0, fmt, va); Err bitreich.org 70
i+ va_end(va); Err bitreich.org 70
i+ exit(e); Err bitreich.org 70
i+} Err bitreich.org 70
.
Response:
text/plain