81 lines
1.7 KiB
C
81 lines
1.7 KiB
C
#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(FILE *file, const char *data, size_t len) {
|
|
putc('"', file);
|
|
for (size_t i = 0; i < len; ++i) {
|
|
switch (data[i]) {
|
|
case '\0':
|
|
putc('\\', file);
|
|
putc('0', file);
|
|
break;
|
|
case '\t':
|
|
putc('\\', file);
|
|
putc('t', file);
|
|
break;
|
|
case '\n':
|
|
putc('\\', file);
|
|
putc('n', file);
|
|
break;
|
|
case '\r':
|
|
putc('\\', file);
|
|
putc('r', file);
|
|
break;
|
|
case '\b':
|
|
putc('\\', file);
|
|
putc('b', file);
|
|
break;
|
|
case '\v':
|
|
putc('\\', file);
|
|
putc('v', file);
|
|
break;
|
|
case '\f':
|
|
putc('\\', file);
|
|
putc('f', file);
|
|
break;
|
|
case '\x1b':
|
|
putc('\\', file);
|
|
putc('e', file);
|
|
break;
|
|
case '\\':
|
|
putc('\\', file);
|
|
putc('\\', file);
|
|
break;
|
|
case '"':
|
|
putc('\\', file);
|
|
putc('"', file);
|
|
break;
|
|
default:
|
|
putc(data[i], file);
|
|
break;
|
|
}
|
|
}
|
|
putc('"', file);
|
|
}
|
|
|
|
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(file, str->data, str->len);
|
|
break;
|
|
}
|
|
default:
|
|
fprintf(file, "<object type=%" PRIu32 " @ %p>", hdr->type, hdr);
|
|
break;
|
|
}
|
|
}
|
|
}
|