lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Comment variables used by Lisp printer

This commit is contained in:
Lassi Kortela 2019-08-25 12:41:24 +03:00
parent 2b9e15920b
commit 8b6b2d96e4
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
c/print.h
View File

@ -1,15 +1,26 @@
extern void *memrchr(const void *s, int c, size_t n); extern void *memrchr(const void *s, int c, size_t n);
static struct htable printconses; // not *print-readably* -- use `display` repr instead of `write` repr
static uint32_t printlabel;
static int print_pretty;
static int print_princ; static int print_princ;
static fixnum_t print_length;
static fixnum_t print_level; // *print-pretty* -- indent instead of printing everything on one long line
static fixnum_t P_LEVEL; static int print_pretty;
// *print-width* -- maximum line length when indenting, ignored when not
static int SCR_WIDTH = 80; static int SCR_WIDTH = 80;
static int HPOS = 0, VPOS; // *print-length* -- truncate lists after N items and write "..."
static fixnum_t print_length;
// *print-level* -- print only the outermost N levels of nested structures
static fixnum_t print_level;
// Internals to keep track of circular structures
static struct htable printconses;
static uint32_t printlabel;
static fixnum_t P_LEVEL; // current indent level
static int HPOS = 0, VPOS; // current line and column number
static void outc(char c, struct ios *f) static void outc(char c, struct ios *f)
{ {