svghmi/parse_labels.ysl2
changeset 3455 2716cd8e498d
parent 3412 04c4835ca376
child 3469 97622e9560b5
--- a/svghmi/parse_labels.ysl2	Thu May 05 10:37:36 2022 +0200
+++ b/svghmi/parse_labels.ysl2	Thu May 05 11:48:43 2022 +0200
@@ -44,7 +44,12 @@
     if "$type" widget {
         attrib "id" > «$id»
         attrib "type" > «$type»
-        if "$freq" attrib "freq" > «$freq»
+        if "$freq" {
+            if "not(regexp:test($freq,'^[0-9]*(\.[0-9]+)?[smh]'))" {
+                error > Widget id:«$id» label:«$label» has wrong syntax of frequency forcing «$freq»
+            }
+            attrib "freq" > «$freq»
+        }
         foreach "str:split(substring-after($args, ':'), ':')" {
             arg {
                 attrib "value" > «.»