Implement builtin function str-length

src/builtin/string.rs

@@ -1,7 +1,8 @@
 use std::collections::BTreeMap;
 
 use super::Builtin;
-use crate::value::Value;
+use crate::units::Unit;
+use crate::value::{Number, Value};
 
 pub(crate) fn register(f: &mut BTreeMap<String, Builtin>) {
     decl!(f "to-upper-case", |args, _| {
@@ -18,4 +19,11 @@ pub(crate) fn register(f: &mut BTreeMap<String, Builtin>) {
             _ => todo!("")
         }
     });
+    decl!(f "str-length", |args, _| {
+        let s: &Value = arg!(args, 0, "string");
+        match s.eval() {
+            Value::Ident(i, _) => Some(Value::Dimension(Number::from(i.len()), Unit::None)),
+            _ => todo!("")
+        }
+    });
 }

src/value/number.rs

@@ -30,13 +30,21 @@ impl From<BigInt> for Number {
     }
 }
 
-impl From<u16> for Number {
+macro_rules! from_integer {
-    fn from(b: u16) -> Self {
+    ($ty:ty) => {
+        impl From<$ty> for Number {
+            fn from(b: $ty) -> Self {
                 Number {
                     val: BigRational::from_integer(BigInt::from(b)),
                 }
             }
         }
+    };
+}
+
+from_integer!(u16);
+from_integer!(usize);
+from_integer!(i32);
 
 impl Display for Number {
     fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {

tests/strings.rs

@@ -23,3 +23,13 @@ test!(
     "a {\n  color: to-lower-case($string: AbC123);\n}\n",
     "a {\n  color: abc123;\n}\n"
 );
+test!(
+    length_ident,
+    "a {\n  color: str-length(AbC123);\n}\n",
+    "a {\n  color: 6;\n}\n"
+);
+test!(
+    length_named_arg,
+    "a {\n  color: str-length($string: aBc123);\n}\n",
+    "a {\n  color: 6;\n}\n"
+);