From 7dddfb71a0ebf8dbbe8a9bdfc156d7471ff943bd Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Sun, 19 May 2024 14:38:44 -0400 Subject: Add Text.slice() --- builtins/text.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'builtins/text.c') diff --git a/builtins/text.c b/builtins/text.c index b4246980..9a9c3801 100644 --- a/builtins/text.c +++ b/builtins/text.c @@ -124,6 +124,21 @@ public uint32_t Text$hash(const CORD *cord) return hash; } +public CORD Text$slice(CORD text, int64_t first, int64_t length) +{ + if (length == 0) return CORD_EMPTY; + int64_t len = CORD_len(text); + + if (length < -len) return CORD_EMPTY; + + if (first <= 0) first = len + first + 1; + if (first < 1) first = 1; + else if (first > len + 1) first = len + 1; + + if (length < 0) length = len + length; + return CORD_substr(text, first - 1, length); +} + public CORD Text$upper(CORD str) { if (!str) return str; -- cgit v1.2.3