From 4e4880fd6631f46138fabee5e20ddc22c84ac6bd Mon Sep 17 00:00:00 2001 From: unwox Date: Wed, 29 Jan 2025 22:00:44 +0600 Subject: add suhexuan parser --- parser/parser.fnl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'parser/parser.fnl') diff --git a/parser/parser.fnl b/parser/parser.fnl index e97351f..b2ff20c 100644 --- a/parser/parser.fnl +++ b/parser/parser.fnl @@ -147,7 +147,8 @@ (if extra-metrics (table.unpack extra-metrics) ""))) - (+ (peg.P " ") "\t" "." "\n" -1))))))] + (maybe ".") + (+ (peg.P " ") "\t" "." "\n" "<" -1))))))] (let [result (peg:match text)] (if result (let [[number metric] result] @@ -162,7 +163,8 @@ (* (peg.C pegs.number) (maybe " ") (+ (* (peg.C (+ (peg.P "мл") "л")) - (+ (peg.P " ") "\t" "." "\n" -1))))))] + (maybe ".") + (+ (peg.P " ") "\t" "." "\n" "<" -1))))))] (let [result (peg:match text)] (if result (let [[number metric] result] -- cgit v1.2.3