Page MenuHomePhorge
Files F4504382

io.c
No OneTemporary
Actions

Size
7 KB
Referenced Files
None
Subscribers
None

io.c
View Options

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#include <ctype.h>
#include <libgen.h>
#include "runtime.h"
#include "modules/io.h"
#define ANSI_RED "\x1b[31m"
#define ANSI_YELLOW "\x1b[33m"
#define ANSI_RESET "\x1b[0m"
#define JSON_KEY "\x1b[0m"
#define JSON_STRING "\x1b[32m"
#define JSON_NUMBER "\x1b[33m"
#define JSON_BOOL "\x1b[35m"
#define JSON_NULL "\x1b[90m"
#define JSON_BRACE "\x1b[37m"
#define JSON_FUNC "\x1b[36m"
#define JSON_TAG "\x1b[34m"
#define JSON_REF "\x1b[90m"
void print_value_colored(const char *str, FILE *stream) {
bool in_string = false;
bool escape_next = false;
bool is_key = true;
int bracket_depth = 0;
char string_char = 0;
for (const char *p = str; *p; p++) {
if (escape_next) {
fputc(*p, stream);
escape_next = false;
continue;
}
if (*p == '\\' && in_string) {
fputc(*p, stream);
escape_next = true;
continue;
}
if (*p == '\'' || *p == '"') {
if (!in_string) {
bool use_key_color = is_key && bracket_depth > 0;
fprintf(stream, "%s%c", use_key_color ? JSON_KEY : JSON_STRING, *p);
in_string = true;
string_char = *p;
} else if (*p == string_char) {
fprintf(stream, "%c%s", *p, ANSI_RESET);
in_string = false;
string_char = 0;
} else {
fputc(*p, stream);
}
continue;
}
if (in_string) {
fputc(*p, stream);
continue;
}
if (*p == '[' && strncmp(p, "[Function", 9) == 0) {
fprintf(stream, "%s", JSON_FUNC);
while (*p && *p != ']') fputc(*p++, stream);
if (*p == ']') fputc(*p, stream);
fprintf(stream, "%s", ANSI_RESET);
continue;
}
if (*p == '[' && strncmp(p, "[Circular", 9) == 0) {
fprintf(stream, "%s", JSON_REF);
while (*p && *p != ']') fputc(*p++, stream);
if (*p == ']') fputc(*p, stream);
fprintf(stream, "%s", ANSI_RESET);
continue;
}
if (*p == '<' && strncmp(p, "<ref", 4) == 0) {
fprintf(stream, "%s", JSON_REF);
while (*p && *p != '>') fputc(*p++, stream);
if (*p == '>') fputc(*p, stream);
fprintf(stream, "%s", ANSI_RESET);
continue;
}
if (strncmp(p, "Object [", 8) == 0) {
fprintf(stream, "%sObject [", JSON_TAG);
p += 7;
while (*p && *p != ']') fputc(*++p, stream);
fprintf(stream, "%s", ANSI_RESET);
continue;
}
if (*p == ':') {
fputc(*p, stream);
is_key = false;
continue;
}
if (*p == ',' || *p == '\n') {
fputc(*p, stream);
is_key = true;
continue;
}
if (*p == '{' || *p == '[') {
fprintf(stream, "%s%c%s", JSON_BRACE, *p, ANSI_RESET);
bracket_depth++;
is_key = true;
continue;
}
if (*p == '}' || *p == ']') {
fprintf(stream, "%s%c%s", JSON_BRACE, *p, ANSI_RESET);
bracket_depth--;
continue;
}
if (strncmp(p, "true", 4) == 0 && !isalnum((unsigned char)p[4]) && p[4] != '_') {
fprintf(stream, "%strue%s", JSON_BOOL, ANSI_RESET);
p += 3;
continue;
}
if (strncmp(p, "false", 5) == 0 && !isalnum((unsigned char)p[5]) && p[5] != '_') {
fprintf(stream, "%sfalse%s", JSON_BOOL, ANSI_RESET);
p += 4;
continue;
}
if (strncmp(p, "null", 4) == 0 && !isalnum((unsigned char)p[4]) && p[4] != '_') {
fprintf(stream, "%snull%s", JSON_NULL, ANSI_RESET);
p += 3;
continue;
}
if (strncmp(p, "undefined", 9) == 0 && !isalnum((unsigned char)p[9]) && p[9] != '_') {
fprintf(stream, "%sundefined%s", JSON_NULL, ANSI_RESET);
p += 8;
continue;
}
if (strncmp(p, "Infinity", 8) == 0 && !is_key) {
fprintf(stream, "%sInfinity%s", JSON_NUMBER, ANSI_RESET);
p += 7;
continue;
}
if (strncmp(p, "NaN", 3) == 0 && !isalnum((unsigned char)p[3]) && p[3] != '_' && !is_key) {
fprintf(stream, "%sNaN%s", JSON_NUMBER, ANSI_RESET);
p += 2;
continue;
}
if ((*p >= '0' && *p <= '9') || (*p == '-' && p[1] >= '0' && p[1] <= '9')) {
fprintf(stream, "%s", JSON_NUMBER);
if (*p == '-') fputc(*p++, stream);
while ((*p >= '0' && *p <= '9') || *p == '.' || *p == 'e' || *p == 'E' || *p == '+' || *p == '-') {
fputc(*p, stream);
if (!((p[1] >= '0' && p[1] <= '9') || p[1] == '.' || p[1] == 'e' || p[1] == 'E' || p[1] == '+' || p[1] == '-')) break;
p++;
}
fprintf(stream, "%s", ANSI_RESET);
continue;
}
if (is_key && bracket_depth > 0 && (isalpha((unsigned char)*p) || *p == '_' || *p == '$')) {
fprintf(stream, "%s", JSON_KEY);
while (isalnum((unsigned char)*p) || *p == '_' || *p == '$') {
fputc(*p, stream);
if (!(isalnum((unsigned char)p[1]) || p[1] == '_' || p[1] == '$')) break;
p++;
}
fprintf(stream, "%s", ANSI_RESET);
continue;
}
fputc(*p, stream);
}
}
static void console_print(struct js *js, jsval_t *args, int nargs, const char *color, FILE *stream) {
if (color) fprintf(stream, "%s", color);
for (int i = 0; i < nargs; i++) {
const char *space = i == 0 ? "" : " ";
fprintf(stream, "%s", space);
if (js_type(args[i]) == JS_STR) {
char *str = js_getstr(js, args[i], NULL);
fprintf(stream, "%s", str);
} else {
const char *str = js_str(js, args[i]);
if (color) fprintf(stream, "%s", ANSI_RESET);
print_value_colored(str, stream);
if (color) fprintf(stream, "%s", color);
}
}
if (color) fprintf(stream, "%s", ANSI_RESET);
fputc('\n', stream);
}
static jsval_t js_console_log(struct js *js, jsval_t *args, int nargs) {
console_print(js, args, nargs, NULL, stdout);
return js_mkundef();
}
static jsval_t js_console_error(struct js *js, jsval_t *args, int nargs) {
console_print(js, args, nargs, ANSI_RED, stderr);
return js_mkundef();
}
static jsval_t js_console_warn(struct js *js, jsval_t *args, int nargs) {
console_print(js, args, nargs, ANSI_YELLOW, stderr);
return js_mkundef();
}
static jsval_t js_console_assert(struct js *js, jsval_t *args, int nargs) {
if (nargs < 1) return js_mkundef();
bool is_truthy = js_truthy(js, args[0]);
if (is_truthy) return js_mkundef();
fprintf(stderr, "%sAssertion failed", ANSI_RED);
if (nargs > 1) {
fprintf(stderr, ": ");
for (int i = 1; i < nargs; i++) {
const char *space = i == 1 ? "" : " ";
fprintf(stderr, "%s", space);
if (js_type(args[i]) == JS_STR) {
char *str = js_getstr(js, args[i], NULL);
fprintf(stderr, "%s", str);
} else {
const char *str = js_str(js, args[i]);
fprintf(stderr, "%s", str);
}
}
}
fprintf(stderr, "%s\n", ANSI_RESET);
return js_mkundef();
}
static jsval_t js_console_trace(struct js *js, jsval_t *args, int nargs) {
fprintf(stderr, "Console Trace");
if (nargs > 0 && js_type(args[0]) == JS_STR) {
fprintf(stderr, ": ");
char *str = js_getstr(js, args[0], NULL);
fprintf(stderr, "%s", str);
}
fprintf(stderr, "\n");
js_print_stack_trace(stderr);
return js_mkundef();
}
void init_console_module() {
struct js *js = rt->js;
jsval_t console_obj = js_mkobj(js);
js_set(js, console_obj, "log", js_mkfun(js_console_log));
js_set(js, console_obj, "error", js_mkfun(js_console_error));
js_set(js, console_obj, "warn", js_mkfun(js_console_warn));
js_set(js, console_obj, "assert", js_mkfun(js_console_assert));
js_set(js, console_obj, "trace", js_mkfun(js_console_trace));
js_set(js, console_obj, "@@toStringTag", js_mkstr(js, "console", 7));
js_set(js, js_glob(js), "console", console_obj);
}

File Metadata

Mime Type
text/x-c
Expires
Sun, May 3, 9:49 AM (6 h, 2 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
523858
Default Alt Text
io.c (7 KB)

Event Timeline