New function: coded-length.

* eval.c (eval_init): Register coded-length intrinsic.

* lib.c (coded_length): New function.

* lib.h (coded_length): Declared.

1 files changed, 5 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index f4cd1306..d5e8fec4 100644
--- a/lib.c
+++ b/lib.c
@@ -3648,6 +3648,11 @@ val length_str(val str)
   }
 }
 
+val coded_length(val str)
+{
+  return unum(utf8_to_buf(0, c_str(str), 0));
+}
+
 const wchar_t *c_str(val obj)
 {
   switch (type(obj)) {