Add message bytes to string.

gabordemooij · Aug 6, 2024 · 172538c · 172538c
1 parent 5bee774
commit 172538c
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 1 deletion.
diff --git a/base.c b/base.c
@@ -1654,6 +1654,18 @@ ctr_object* ctr_string_length(ctr_object* myself, ctr_argument* argumentList) {
 	return ctr_build_number_from_float((ctr_number) n);
 }
 
+/**
+ * @def
+ * [ String ] bytes
+ *
+ * @example
+ * ☞ x ≔ ‘☘☘☘’.
+ * ✎ write: x bytes, stop.
+ */
+ctr_object* ctr_string_bytes(ctr_object* myself, ctr_argument* argumentList) {
+	return ctr_build_number_from_float(myself->value.svalue->vlen);
+}
+
 /**
  * @def
  * [ String ] + [ String ]

diff --git a/citrine.h b/citrine.h
@@ -579,6 +579,8 @@ extern ctr_object* ctr_string_fill_in(ctr_object* myself, ctr_argument* argument
 extern ctr_object* ctr_string_copy(ctr_object* myself, ctr_argument* argumentList);
 extern ctr_object* ctr_string_to_code(ctr_object* myself, ctr_argument* ctr_argumentList);
 extern ctr_object* ctr_string_minus(ctr_object* myself, ctr_argument* ctr_argumentList);
+extern ctr_object* ctr_string_bytes(ctr_object* myself, ctr_argument* ctr_argumentList);
+
 
 /**
  * Block Interface

diff --git a/tests/test-o-mat/Configuration b/tests/test-o-mat/Configuration
@@ -31,6 +31,6 @@
 ☞ one way languages ≔ List ← ‘hy’ ; ‘en’.
 
 ☞ variations ≔ 	memory management modes + languages.
-☞ number of tests ≔ 368.
+☞ number of tests ≔ 369.
 
 ☞ base path for tests ≔ ‘../../’.
diff --git a/world.c b/world.c
@@ -817,6 +817,7 @@ void ctr_initialize_world() {
 	ctr_internal_create_func(CtrStdString, ctr_build_string_from_cstring( CTR_DICT_CODE ), &ctr_string_to_code );
 	ctr_internal_create_func(CtrStdString, ctr_build_string_from_cstring( CTR_DICT_TOOBJECT ), &ctr_string_eval );
 	ctr_internal_create_func(CtrStdString, ctr_build_string_from_cstring( CTR_DICT_MINUS ), &ctr_string_minus );
+	ctr_internal_create_func(CtrStdString, ctr_build_string_from_cstring( "bytes" ), &ctr_string_bytes );
 	ctr_internal_object_add_property(CtrStdWorld, ctr_build_string_from_cstring( CTR_DICT_STRING ), CtrStdString, 0 );
 	CtrStdString->link = CtrStdObject;
 	CtrStdString->info.sticky = 1;