From cf9af14fe749c52473fdf5a327c3e935e45bf0e7 Mon Sep 17 00:00:00 2001 From: _ov4 Date: Tue, 20 Oct 2026 10:56:22 +0000 Subject: feat(library): add experimental string LEFT function Co-Authored-By: Claude Opus 5.5 --- tests/library/exp-string/program.cps | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'tests/library/exp-string/program.cps') diff --git a/tests/library/exp-string/program.cps b/tests/library/exp-string/program.cps index 719d9a4..c9dad8a 100644 --- a/tests/library/exp-string/program.cps +++ b/tests/library/exp-string/program.cps @@ -39,3 +39,8 @@ DECLARE Heap : _EXP_STRING Heap <- NEW _EXP_STRING((C_STRING)"heap") CALL _EXP_STRING_OUTPUT(Heap) DELETE Heap +DECLARE Letters : _EXP_STRING((C_STRING)"ABCDEFGH") +CALL _EXP_STRING_OUTPUT(_EXP_STRING_LEFT(Letters, 3)) +OUTPUT _EXP_STRING_LENGTH(_EXP_STRING_LEFT(Empty, 2)), ":", _EXP_STRING_LENGTH(_EXP_STRING_LEFT(Letters, 0)), ":", _EXP_STRING_LENGTH(_EXP_STRING_LEFT(Letters, -1)) +CALL _EXP_STRING_OUTPUT(_EXP_STRING_LEFT(Letters, 20)) +OUTPUT _EXP_STRING_LENGTH(_EXP_STRING_LEFT(Nuls & A, 4)) -- cgit v1.3.1-4-g156e