aboutsummaryrefslogtreecommitdiff
path: root/stdlib
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/README.md1
-rw-r--r--stdlib/shell.c157
-rw-r--r--stdlib/shell.h35
-rw-r--r--stdlib/tomo.h1
4 files changed, 0 insertions, 194 deletions
diff --git a/stdlib/README.md b/stdlib/README.md
index c3814114..ba47dd0a 100644
--- a/stdlib/README.md
+++ b/stdlib/README.md
@@ -29,7 +29,6 @@ some common functionality.
- Paths: [header](stdlib/paths.h), [implementation](stdlib/paths.c)
- Patterns: [header](stdlib/patterns.h), [implementation](stdlib/patterns.c)
- Pointers: [header](stdlib/pointers.h), [implementation](stdlib/pointers.c)
-- Shell: [header](stdlib/shell.h), [implementation](stdlib/shell.c)
- Tables: [header](stdlib/tables.h), [implementation](stdlib/tables.c)
- Text: [header](stdlib/text.h), [implementation](stdlib/text.c)
- Threads: [header](stdlib/threads.h), [implementation](stdlib/threads.c)
diff --git a/stdlib/shell.c b/stdlib/shell.c
deleted file mode 100644
index 30dc7c6f..00000000
--- a/stdlib/shell.c
+++ /dev/null
@@ -1,157 +0,0 @@
-// A lang for Shell Command Language
-#include <errno.h>
-#include <stdbool.h>
-#include <stdint.h>
-#include <unistr.h>
-
-#include "arrays.h"
-#include "integers.h"
-#include "paths.h"
-#include "patterns.h"
-#include "shell.h"
-#include "text.h"
-#include "types.h"
-#include "util.h"
-
-public Shell_t Shell$escape_text(Text_t text)
-{
- return Texts(Text("'"), Text$replace(text, Text("'"), Text("'\"'\"'"), Text(""), false), Text("'"));
-}
-
-public Shell_t Shell$escape_path(Path_t path)
-{
- return Shell$escape_text(Path$as_text(&path, false, &Path$info));
-}
-
-public Shell_t Shell$escape_text_array(Array_t texts)
-{
- Array_t all_escaped = {};
- for (int64_t i = 0; i < texts.length; i++) {
- Text_t raw = *(Text_t*)(texts.data + i*texts.stride);
- Text_t escaped = Shell$escape_text(raw);
- Array$insert(&all_escaped, &escaped, I(0), sizeof(Text_t));
- }
- return Text$join(Text(" "), all_escaped);
-}
-
-public Shell_t Shell$escape_path_array(Array_t paths)
-{
- Array_t all_escaped = {};
- for (int64_t i = 0; i < paths.length; i++) {
- Path_t path = *(Path_t*)(paths.data + i*paths.stride);
- Text_t escaped = Shell$escape_path(path);
- Array$insert(&all_escaped, &escaped, I(0), sizeof(Text_t));
- }
- return Text$join(Text(" "), all_escaped);
-}
-
-public OptionalArray_t Shell$run_bytes(Shell_t command)
-{
- const char *cmd_str = Text$as_c_string(command);
- FILE *prog = popen(cmd_str, "r");
- if (!prog)
- return NONE_ARRAY;
-
- size_t capacity = 256, len = 0;
- char *content = GC_MALLOC_ATOMIC(capacity);
- char chunk[256];
- size_t just_read;
- do {
- just_read = fread(chunk, 1, sizeof(chunk), prog);
- if (just_read == 0) {
- if (errno == EAGAIN || errno == EINTR)
- continue;
- break;
- }
-
- if (len + (size_t)just_read >= capacity)
- content = GC_REALLOC(content, (capacity *= 2));
-
- memcpy(content + len, chunk, (size_t)just_read);
- len += (size_t)just_read;
- } while (just_read == sizeof(chunk));
-
- int status = pclose(prog);
- if (!WIFEXITED(status) || WEXITSTATUS(status) != 0)
- return NONE_ARRAY;
-
- return (Array_t){.data=content, .atomic=1, .stride=1, .length=len};
-}
-
-public OptionalText_t Shell$run(Shell_t command)
-{
- Array_t bytes = Shell$run_bytes(command);
- if (bytes.length < 0)
- return NONE_TEXT;
-
- if (bytes.length > 0 && *(char*)(bytes.data + (bytes.length-1)*bytes.stride) == '\n') {
- --bytes.length;
- if (bytes.length > 0 && *(char*)(bytes.data + (bytes.length-1)*bytes.stride) == '\r')
- --bytes.length;
- }
- return Text$from_bytes(bytes);
-}
-
-public OptionalInt32_t Shell$execute(Shell_t command)
-{
- const char *cmd_str = Text$as_c_string(command);
- int status = system(cmd_str);
- if (WIFEXITED(status))
- return (OptionalInt32_t){.i=WEXITSTATUS(status)};
- else
- return (OptionalInt32_t){.is_none=true};
-}
-
-static void _line_reader_cleanup(FILE **f)
-{
- if (f && *f) {
- pclose(*f);
- *f = NULL;
- }
-}
-
-static Text_t _next_line(FILE **f)
-{
- if (!f || !*f) return NONE_TEXT;
-
- char *line = NULL;
- size_t size = 0;
- ssize_t len = getline(&line, &size, *f);
- if (len <= 0) {
- _line_reader_cleanup(f);
- return NONE_TEXT;
- }
-
- while (len > 0 && (line[len-1] == '\r' || line[len-1] == '\n'))
- --len;
-
- if (u8_check((uint8_t*)line, (size_t)len) != NULL)
- fail("Invalid UTF8!");
-
- Text_t line_text = Text$format("%.*s", len, line);
- free(line);
- return line_text;
-}
-
-public OptionalClosure_t Shell$by_line(Shell_t command)
-{
- const char *cmd_str = Text$as_c_string(command);
- FILE *prog = popen(cmd_str, "r");
- if (!prog)
- return NONE_CLOSURE;
-
- FILE **wrapper = GC_MALLOC(sizeof(FILE*));
- *wrapper = prog;
- GC_register_finalizer(wrapper, (void*)_line_reader_cleanup, NULL, NULL, NULL);
- return (Closure_t){.fn=(void*)_next_line, .userdata=wrapper};
-}
-
-public const TypeInfo_t Shell$info = {
- .size=sizeof(Shell_t),
- .align=__alignof__(Shell_t),
- .tag=TextInfo,
- .TextInfo={.lang="Shell"},
- .metamethods=Text$metamethods,
-};
-
-// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0
diff --git a/stdlib/shell.h b/stdlib/shell.h
deleted file mode 100644
index 517a3609..00000000
--- a/stdlib/shell.h
+++ /dev/null
@@ -1,35 +0,0 @@
-#pragma once
-
-// A lang for Shell Command Language
-
-#include <stdbool.h>
-#include <stdint.h>
-
-#include "arrays.h"
-#include "datatypes.h"
-#include "optionals.h"
-#include "text.h"
-#include "types.h"
-
-#define Shell_t Text_t
-#define OptionalShell_t Text_t
-#define Shell(text) ((Shell_t)Text(text))
-#define Shells(...) ((Shell_t)Texts(__VA_ARGS__))
-
-OptionalClosure_t Shell$by_line(Shell_t command);
-Shell_t Shell$escape_text(Text_t text);
-Shell_t Shell$escape_path(Path_t path);
-Shell_t Shell$escape_text_array(Array_t texts);
-Shell_t Shell$escape_path_array(Array_t paths);
-OptionalArray_t Shell$run_bytes(Shell_t command);
-OptionalText_t Shell$run(Shell_t command);
-OptionalInt32_t Shell$execute(Shell_t command);
-
-#define Shell$hash Text$hash
-#define Shell$compare Text$compare
-#define Shell$equal Text$equal
-
-extern const TypeInfo_t Shell$info;
-
-// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0
-
diff --git a/stdlib/tomo.h b/stdlib/tomo.h
index d3887af4..61dba404 100644
--- a/stdlib/tomo.h
+++ b/stdlib/tomo.h
@@ -25,7 +25,6 @@
#include "patterns.h"
#include "pointers.h"
#include "rng.h"
-#include "shell.h"
#include "siphash.h"
#include "structs.h"
#include "tables.h"
generated by cgit v1.2.3 (git 2.25.1) at 2026-03-01 13:20:07 +0000