lobo/growl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ooh okay diva

Browse source
This commit is contained in:
Lobo 2026-02-08 10:03:56 -03:00
parent 90175b7e26
commit 58ba150c93
17 changed files with 1122 additions and 94 deletions
Download patch file Download diff file Expand all files Collapse all files

82
next/core/print.c Normal file
View file

@ -0,0 +1,82 @@
#include <growl.h>
#include <inttypes.h>
void growl_print(Growl value) { growl_print_to(stdout, value); }
void growl_println(Growl value) {
growl_print_to(stdout, value);
putchar('\n');
}
static void print_escaped(const char *data, size_t len) {
putchar('"');
for (size_t i = 0; i < len; ++i) {
switch (data[i]) {
case '\0':
putchar('\\');
putchar('0');
break;
case '\t':
putchar('\\');
putchar('t');
break;
case '\n':
putchar('\\');
putchar('n');
break;
case '\r':
putchar('\\');
putchar('r');
break;
case '\b':
putchar('\\');
putchar('b');
break;
case '\v':
putchar('\\');
putchar('v');
break;
case '\f':
putchar('\\');
putchar('f');
break;
case '\x1b':
putchar('\\');
putchar('e');
break;
case '\\':
putchar('\\');
putchar('\\');
break;
case '"':
putchar('\\');
putchar('"');
break;
default:
putchar(data[i]);
break;
}
}
putchar('"');
}
void growl_print_to(FILE *file, Growl value) {
if (value == GROWL_NIL) {
fprintf(file, "nil");
} else if (GROWL_IMM(value)) {
fprintf(file, "%" PRIdPTR, GROWL_ORD(value));
} else {
GrowlObjectHeader *hdr = GROWL_UNBOX(value);
switch (hdr->type) {
case GROWL_TYPE_STRING: {
GrowlString *str = (GrowlString *)(hdr + 1);
print_escaped(str->data, str->len);
break;
}
default:
fprintf(file, "<object type=%" PRIu32 " @ %p>", hdr->type, hdr);
break;
}
}
}