mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-07-03 09:48:29 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add LISP interpreter

Browse source
This commit is contained in:
Justine Tunney 2022-04-07 20:30:22 -07:00
parent 4f98ad1054
commit d31bebdd2d
84 changed files with 9081 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

130
tool/plinko/lib/prettyprint.c Normal file
View file

@ -0,0 +1,130 @@
/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│
│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8 :vi│
╞══════════════════════════════════════════════════════════════════════════════╡
│ Copyright 2022 Justine Alexandra Roberts Tunney │
│ │
│ Permission to use, copy, modify, and/or distribute this software for │
│ any purpose with or without fee is hereby granted, provided that the │
│ above copyright notice and this permission notice appear in all copies. │
│ │
│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL │
│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED │
│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE │
│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL │
│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR │
│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER │
│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR │
│ PERFORMANCE OF THIS SOFTWARE. │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/log/check.h"
#include "libc/nt/struct/size.h"
#include "tool/plinko/lib/plinko.h"
#include "tool/plinko/lib/print.h"
#include "tool/plinko/lib/tree.h"
static void PrettyPrintList(int fd, int x, int n) {
int i, y, once, func, mode, argwidth, funcwidth, forcedot;
DCHECK_GE(n, 0);
DCHECK_LE(x, 0);
if (x < cx) {
n += PrintChar(fd, L'!');
n += PrintInt(fd, x, 0, 0, 0, 10, true);
} else {
if (ShouldConcealClosure(x)) {
x = Car(Cdr(x));
}
PrintChar(fd, L'(');
if (x < 0) {
func = Car(x);
funcwidth = PrettyPrint(fd, func, ++n);
if (func == kDefine) {
PrintSpace(fd);
PrettyPrint(fd, Car(Cdr(x)), n);
forcedot = 0;
x = Cdr(x);
mode = Cdr(x) < 0;
once = 1;
n += 1;
} else if ((func == kLambda || func == kMacro) &&
(Cdr(x) < 0 && Cdr(Cdr(x)) < 0)) {
PrintSpace(fd);
if (!Car(Cdr(x))) {
PrintChar(fd, L'(');
PrintChar(fd, L')');
} else {
PrettyPrint(fd, Car(Cdr(x)), n);
}
x = Cdr(x);
mode = 1;
forcedot = 0;
once = 1;
n += 1;
} else {
if (func >= 0) {
n += funcwidth + 1;
}
mode = func < 0 && Car(func) != kQuote;
once = mode;
forcedot = 0;
}
if (!forcedot && ShouldForceDot(x)) {
forcedot = true;
n += 2;
}
while ((x = Cdr(x))) {
y = x;
argwidth = 0;
if (y < 0 && !forcedot) {
y = Car(y);
} else {
argwidth += PrintSpace(fd);
argwidth += PrintDot(fd);
mode = y < 0;
x = 0;
}
if (y >= 0) {
argwidth += PrintSpace(fd);
argwidth += PrintAtom(fd, y);
if (!once) n += argwidth;
} else {
if (once && (y < 0 || mode)) {
mode = 1;
PrintNewline(fd);
if (depth >= 0) PrintDepth(fd, depth);
PrintIndent(fd, n);
} else {
if (y < 0) mode = 1;
PrintSpace(fd);
}
once = 1;
PrettyPrint(fd, y, n);
}
forcedot = 0;
}
}
PrintChar(fd, L')');
}
}
/**
* Prints LISP data structure with style.
*
* @param fd is where i/o goes
* @param x is thing to print
* @param n is indent level
*/
int PrettyPrint(int fd, int x, int n) {
DCHECK_GE(n, 0);
if (!noname) {
GetName(&x);
}
x = EnterPrint(x);
if (1. / x < 0) {
PrettyPrintList(fd, x, n);
n = 0;
} else {
n = PrintAtom(fd, x);
}
LeavePrint(x);
return n;
}