--- 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" > «.»