path.c
No OneTemporary
Actions

Size

13 KB

Referenced Files

None

Subscribers

None

path.c
View Options

	#include <compat.h> // IWYU pragma: keep

	#include <stdio.h>
	#include <stdlib.h>
	#include <string.h>

	#include "ant.h"
	#include "errors.h"
	#include "internal.h"
	#include "modules/symbol.h"

	#ifndef PATH_MAX
	#define PATH_MAX 4096
	#endif

	#ifdef _WIN32
	#define PATH_SEP '\\'
	#define PATH_SEP_STR "\\"
	#define PATH_DELIMITER ';'
	#else
	#define PATH_SEP '/'
	#define PATH_SEP_STR "/"
	#define PATH_DELIMITER ':'
	#endif

	static char* normalize_separators(const char *path, size_t len) {
	char *result = malloc(len + 1);
	if (!result) return NULL;

	for (size_t i = 0; i < len; i++) {
	if (path[i] == '\\' \|\| path[i] == '/') {
	result[i] = PATH_SEP;
	} else {
	result[i] = path[i];
	}
	}
	result[len] = '\0';
	return result;
	}

	static jsval_t builtin_path_basename(ant_t js, jsval_t args, int nargs) {
	if (nargs < 1) return js_mkerr(js, "basename() requires a path argument");
	if (vtype(args[0]) != T_STR) return js_mkerr(js, "basename() path must be a string");

	size_t path_len;
	char *path = js_getstr(js, args[0], &path_len);
	if (!path \|\| path_len == 0) return js_mkstr(js, "", 0);

	char *path_copy = strndup(path, path_len);
	if (!path_copy) return js_mkerr(js, "Out of memory");
	char *base = basename(path_copy);

	if (nargs >= 2 && vtype(args[1]) == T_STR) {
	size_t ext_len;
	char *ext = js_getstr(js, args[1], &ext_len);

	if (ext && ext_len > 0) {
	size_t base_len = strlen(base);
	if (base_len >= ext_len && strcmp(base + base_len - ext_len, ext) == 0) base[base_len - ext_len] = '\0';
	}
	}

	jsval_t result = js_mkstr(js, base, strlen(base));
	free(path_copy);
	return result;
	}

	// path.dirname(path)
	static jsval_t builtin_path_dirname(ant_t js, jsval_t args, int nargs) {
	if (nargs < 1) return js_mkerr(js, "dirname() requires a path argument");
	if (vtype(args[0]) != T_STR) return js_mkerr(js, "dirname() path must be a string");

	size_t path_len;
	char *path = js_getstr(js, args[0], &path_len);
	if (!path \|\| path_len == 0) return js_mkstr(js, ".", 1);

	char *path_copy = strndup(path, path_len);
	if (!path_copy) return js_mkerr(js, "Out of memory");

	char *dir = dirname(path_copy);
	jsval_t result = js_mkstr(js, dir, strlen(dir));
	free(path_copy);
	return result;
	}

	// path.extname(path)
	static jsval_t builtin_path_extname(ant_t js, jsval_t args, int nargs) {
	if (nargs < 1) return js_mkerr(js, "extname() requires a path argument");
	if (vtype(args[0]) != T_STR) return js_mkerr(js, "extname() path must be a string");

	size_t path_len;
	char *path = js_getstr(js, args[0], &path_len);
	if (!path \|\| path_len == 0) return js_mkstr(js, "", 0);

	char *path_copy = strndup(path, path_len);
	if (!path_copy) return js_mkerr(js, "Out of memory");

	char *base = basename(path_copy);
	char *last_dot = strrchr(base, '.');

	if (last_dot && last_dot != base) {
	jsval_t result = js_mkstr(js, last_dot, strlen(last_dot));
	free(path_copy);
	return result;
	}

	free(path_copy);
	return js_mkstr(js, "", 0);
	}

	static int is_dotdot(char *seg, size_t len) {
	return len == 2 && seg[0] == '.' && seg[1] == '.';
	}

	static char* normalize_path_full(const char *path, size_t path_len) {
	char *normalized = NULL;
	char **segments = NULL;
	size_t *seg_lens = NULL;
	char *result = NULL;

	if (path_len == 0) return strdup(".");

	normalized = normalize_separators(path, path_len);
	if (!normalized) goto fail;

	segments = malloc(path_len * sizeof(char*));
	seg_lens = malloc(path_len * sizeof(size_t));
	if (!segments \|\| !seg_lens) goto fail;

	int is_absolute = (normalized[0] == PATH_SEP);
	int seg_count = 0;

	char *start = is_absolute ? normalized + 1 : normalized;
	char *seg_start = start;

	for (char *p = start; ; p++) {
	if (p != PATH_SEP && p != '\0') continue;

	size_t len = p - seg_start;
	if (len == 0 \|\| (len == 1 && seg_start[0] == '.')) goto next;

	if (is_dotdot(seg_start, len)) {
	if (seg_count > 0 && !is_dotdot(segments[seg_count-1], seg_lens[seg_count-1]))
	seg_count--;
	else if (!is_absolute)
	goto add_segment;
	goto next;
	}

	add_segment:
	segments[seg_count] = seg_start;
	seg_lens[seg_count] = len;
	seg_count++;

	next:
	if (*p == '\0') break;
	seg_start = p + 1;
	}

	size_t result_len = is_absolute ? 1 : 0;
	for (int i = 0; i < seg_count; i++) {
	result_len += seg_lens[i];
	if (i < seg_count - 1) result_len++;
	}
	if (result_len == 0) result_len = 1;

	result = malloc(result_len + 1);
	if (!result) goto fail;

	size_t pos = 0;
	if (is_absolute) result[pos++] = PATH_SEP;

	for (int i = 0; i < seg_count; i++) {
	memcpy(result + pos, segments[i], seg_lens[i]);
	pos += seg_lens[i];
	if (i < seg_count - 1) result[pos++] = PATH_SEP;
	}

	if (pos == 0) result[pos++] = '.';
	result[pos] = '\0';

	free(segments);
	free(seg_lens);
	free(normalized);
	return result;

	fail:
	free(segments);
	free(seg_lens);
	free(normalized);
	return NULL;
	}

	// path.normalize(path)
	static jsval_t builtin_path_normalize(ant_t js, jsval_t args, int nargs) {
	if (nargs < 1) return js_mkerr(js, "normalize() requires a path argument");
	if (vtype(args[0]) != T_STR) return js_mkerr(js, "normalize() path must be a string");

	size_t path_len;
	char *path = js_getstr(js, args[0], &path_len);
	if (!path \|\| path_len == 0) return js_mkstr(js, ".", 1);

	char *result = normalize_path_full(path, path_len);
	if (!result) return js_mkerr(js, "Out of memory");

	jsval_t ret = js_mkstr(js, result, strlen(result));
	free(result);
	return ret;
	}

	// path.join(...paths)
	static jsval_t builtin_path_join(ant_t js, jsval_t args, int nargs) {
	if (nargs < 1) return js_mkstr(js, ".", 1);

	size_t total_len = 0;
	char *segments = malloc(nargs sizeof(char*));
	size_t lengths = malloc(nargs sizeof(size_t));

	if (!segments \|\| !lengths) {
	free(segments);
	free(lengths);
	return js_mkerr(js, "Out of memory");
	}

	int valid_segments = 0;

	for (int i = 0; i < nargs; i++) {
	if (vtype(args[i]) == T_STR) {
	segments[valid_segments] = js_getstr(js, args[i], &lengths[valid_segments]);
	if (segments[valid_segments] && lengths[valid_segments] > 0) {
	total_len += lengths[valid_segments] + 1; // +1 for separator
	valid_segments++;
	}
	}
	}

	if (valid_segments == 0) {
	free(segments);
	free(lengths);
	return js_mkstr(js, ".", 1);
	}

	char *result = malloc(total_len + 1);
	if (!result) {
	free(segments);
	free(lengths);
	return js_mkerr(js, "Out of memory");
	}

	size_t pos = 0;
	for (int i = 0; i < valid_segments; i++) {
	if (i > 0 && pos > 0 && result[pos - 1] != PATH_SEP) {
	result[pos++] = PATH_SEP;
	}

	size_t start = 0;
	if (i > 0 && segments[i][0] == PATH_SEP) start = 1;

	size_t seg_len = lengths[i];
	if (seg_len > start && segments[i][seg_len - 1] == PATH_SEP) seg_len--;

	if (seg_len > start) {
	memcpy(result + pos, segments[i] + start, seg_len - start);
	pos += seg_len - start;
	}
	}

	result[pos] = '\0';

	char *normalized = normalize_path_full(result, pos);
	free(result);
	free(segments);
	free(lengths);

	if (!normalized) return js_mkerr(js, "Out of memory");

	jsval_t ret = js_mkstr(js, normalized, strlen(normalized));
	free(normalized);
	return ret;
	}

	// path.resolve(...paths)
	static jsval_t builtin_path_resolve(ant_t js, jsval_t args, int nargs) {
	char cwd[PATH_MAX];
	if (getcwd(cwd, sizeof(cwd)) == NULL) {
	return js_mkerr(js, "Failed to get current working directory");
	}

	char *result = strdup(cwd);
	if (!result) return js_mkerr(js, "Out of memory");

	for (int i = 0; i < nargs; i++) {
	if (vtype(args[i]) != T_STR) continue;

	size_t seg_len;
	char *segment = js_getstr(js, args[i], &seg_len);
	if (!segment \|\| seg_len == 0) continue;

	if (segment[0] == PATH_SEP) {
	free(result);
	result = strndup(segment, seg_len);
	if (!result) return js_mkerr(js, "Out of memory");
	} else {
	size_t result_len = strlen(result);
	size_t new_len = result_len + seg_len + 2;
	char *new_result = malloc(new_len);
	if (!new_result) {
	free(result);
	return js_mkerr(js, "Out of memory");
	}

	snprintf(new_result, new_len, "%s%c%.*s", result, PATH_SEP, (int)seg_len, segment);
	free(result);
	result = new_result;
	}
	}

	jsval_t ret = js_mkstr(js, result, strlen(result));
	free(result);
	return ret;
	}

	// path.relative(from, to)
	static jsval_t builtin_path_relative(ant_t js, jsval_t args, int nargs) {
	if (nargs < 2) return js_mkerr(js, "relative() requires from and to arguments");
	if (vtype(args[0]) != T_STR) return js_mkerr(js, "relative() from must be a string");
	if (vtype(args[1]) != T_STR) return js_mkerr(js, "relative() to must be a string");

	size_t from_len, to_len;
	char *from = js_getstr(js, args[0], &from_len);
	char *to = js_getstr(js, args[1], &to_len);

	if (!from \|\| !to) return js_mkerr(js, "Failed to get arguments");
	if (from_len == to_len && strncmp(from, to, from_len) == 0) return js_mkstr(js, "", 0);

	return js_mkstr(js, to, to_len);
	}

	// path.isAbsolute(path)
	static jsval_t builtin_path_isAbsolute(ant_t js, jsval_t args, int nargs) {
	if (nargs < 1) return js_mkerr(js, "isAbsolute() requires a path argument");
	if (vtype(args[0]) != T_STR) return js_mkerr(js, "isAbsolute() path must be a string");

	size_t path_len;
	char *path = js_getstr(js, args[0], &path_len);
	if (!path \|\| path_len == 0) return js_false;

	#ifdef _WIN32
	if (path_len >= 2 && path[1] == ':') return js_true;
	if (path_len >= 2 && path[0] == '\\' && path[1] == '\\') return js_true;
	return js_false;
	#else
	return js_bool(path[0] == '/');
	#endif
	}

	// path.parse(path)
	static jsval_t builtin_path_parse(ant_t js, jsval_t args, int nargs) {
	if (nargs < 1) return js_mkerr(js, "parse() requires a path argument");
	if (vtype(args[0]) != T_STR) return js_mkerr(js, "parse() path must be a string");

	size_t path_len;
	char *path = js_getstr(js, args[0], &path_len);
	if (!path) return js_mkerr(js, "Failed to get path string");

	jsval_t result = js_mkobj(js);

	if (path_len > 0 && path[0] == PATH_SEP) {
	js_set(js, result, "root", js_mkstr(js, PATH_SEP_STR, 1));
	} else {
	js_set(js, result, "root", js_mkstr(js, "", 0));
	}

	char *path_copy = strndup(path, path_len);
	if (!path_copy) return js_mkerr(js, "Out of memory");
	char *dir = dirname(path_copy);
	js_set(js, result, "dir", js_mkstr(js, dir, strlen(dir)));
	free(path_copy);

	path_copy = strndup(path, path_len);
	if (!path_copy) return js_mkerr(js, "Out of memory");
	char *base = basename(path_copy);
	js_set(js, result, "base", js_mkstr(js, base, strlen(base)));

	char *last_dot = strrchr(base, '.');
	if (last_dot && last_dot != base && *(last_dot + 1) != '\0') {
	js_set(js, result, "ext", js_mkstr(js, last_dot, strlen(last_dot)));
	size_t name_len = last_dot - base;
	js_set(js, result, "name", js_mkstr(js, base, name_len));
	} else {
	js_set(js, result, "ext", js_mkstr(js, "", 0));
	js_set(js, result, "name", js_mkstr(js, base, strlen(base)));
	}

	free(path_copy);
	return result;
	}

	// path.format(pathObject)
	static jsval_t builtin_path_format(ant_t js, jsval_t args, int nargs) {
	if (nargs < 1) return js_mkerr(js, "format() requires a path object argument");
	if (!is_special_object(args[0])) return js_mkerr(js, "format() argument must be an object");

	jsval_t obj = args[0];

	jsval_t dir_val = js_get(js, obj, "dir");
	jsval_t root_val = js_get(js, obj, "root");
	jsval_t base_val = js_get(js, obj, "base");
	jsval_t name_val = js_get(js, obj, "name");
	jsval_t ext_val = js_get(js, obj, "ext");

	char result[PATH_MAX] = {0};
	size_t pos = 0;

	if (vtype(dir_val) == T_STR) {
	size_t len;
	char *str = js_getstr(js, dir_val, &len);
	if (str && len > 0 && pos + len < PATH_MAX) {
	memcpy(result + pos, str, len);
	pos += len;
	if (result[pos - 1] != PATH_SEP && pos < PATH_MAX - 1) {
	result[pos++] = PATH_SEP;
	}
	}
	} else if (vtype(root_val) == T_STR) {
	size_t len;
	char *str = js_getstr(js, root_val, &len);
	if (str && len > 0 && pos + len < PATH_MAX) {
	memcpy(result + pos, str, len);
	pos += len;
	}
	}

	if (vtype(base_val) == T_STR) {
	size_t len;
	char *str = js_getstr(js, base_val, &len);
	if (str && len > 0 && pos + len < PATH_MAX) {
	memcpy(result + pos, str, len);
	pos += len;
	}
	} else {
	if (vtype(name_val) == T_STR) {
	size_t len;
	char *str = js_getstr(js, name_val, &len);
	if (str && len > 0 && pos + len < PATH_MAX) {
	memcpy(result + pos, str, len);
	pos += len;
	}
	}
	if (vtype(ext_val) == T_STR) {
	size_t len;
	char *str = js_getstr(js, ext_val, &len);
	if (str && len > 0 && pos + len < PATH_MAX) {
	memcpy(result + pos, str, len);
	pos += len;
	}
	}
	}

	return js_mkstr(js, result, pos);
	}

	jsval_t path_library(ant_t *js) {
	jsval_t lib = js_mkobj(js);

	js_set(js, lib, "basename", js_mkfun(builtin_path_basename));
	js_set(js, lib, "dirname", js_mkfun(builtin_path_dirname));
	js_set(js, lib, "extname", js_mkfun(builtin_path_extname));
	js_set(js, lib, "join", js_mkfun(builtin_path_join));
	js_set(js, lib, "normalize", js_mkfun(builtin_path_normalize));
	js_set(js, lib, "resolve", js_mkfun(builtin_path_resolve));
	js_set(js, lib, "relative", js_mkfun(builtin_path_relative));
	js_set(js, lib, "isAbsolute", js_mkfun(builtin_path_isAbsolute));
	js_set(js, lib, "parse", js_mkfun(builtin_path_parse));
	js_set(js, lib, "format", js_mkfun(builtin_path_format));

	js_set(js, lib, "sep", js_mkstr(js, PATH_SEP_STR, 1));
	char delimiter_str[2] = {PATH_DELIMITER, '\0'};
	js_set(js, lib, "delimiter", js_mkstr(js, delimiter_str, 1));
	js_set_sym(js, lib, get_toStringTag_sym(), js_mkstr(js, "path", 4));

	return lib;
	}

File Metadata

Mime Type: text/x-c
Expires: Thu, Mar 26, 4:40 PM (2 d)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 511687
Default Alt Text: path.c (13 KB)

path.cNo OneTemporaryActions

path.cView Options

File Metadata

Event Timeline

path.c
No OneTemporary
Actions

path.c
View Options