diff options
| author | unwox <me@unwox.com> | 2025-01-29 22:00:44 +0600 |
|---|---|---|
| committer | unwox <me@unwox.com> | 2025-01-29 23:18:00 +0600 |
| commit | 4e4880fd6631f46138fabee5e20ddc22c84ac6bd (patch) | |
| tree | c1d67535e7cf95741b3dc96280b764f9f4ec5bb6 /parser/parser.fnl | |
| parent | 5c2dfda03f0ce765b4dacd0c39cc8a0602eea917 (diff) | |
add suhexuan parser
Diffstat (limited to 'parser/parser.fnl')
| -rw-r--r-- | parser/parser.fnl | 6 |
1 files changed, 4 insertions, 2 deletions
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] |