From 1558a1b36b15eb9bde28e05beea43b619e6257c6 Mon Sep 17 00:00:00 2001
From: Albert Cervin <albert@acervin.com>
Date: Mon, 18 Mar 2024 22:07:36 +0100
Subject: More work on languages/syntax

Implement another predicate and add javascript.
---
 src/dged/s8.c | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'src/dged/s8.c')

diff --git a/src/dged/s8.c b/src/dged/s8.c
index 0566fde..c4544b9 100644
--- a/src/dged/s8.c
+++ b/src/dged/s8.c
@@ -23,3 +23,21 @@ char *s8tocstr(struct s8 s) {
   cstr[s.l] = '\0';
   return cstr;
 }
+
+bool s8startswith(struct s8 s, struct s8 prefix) {
+  if (prefix.l > s.l) {
+    return false;
+  }
+
+  return memcmp(s.s, prefix.s, prefix.l) == 0;
+}
+
+struct s8 s8dup(struct s8 s) {
+  struct s8 new = {0};
+  new.l = s.l;
+
+  new.s = (char *)malloc(s.l);
+  memcpy(new.s, s.s, s.l);
+
+  return new;
+}
-- 
cgit v1.2.3