forked from GitHub/comp-syntax-gu-mlt
13 lines
491 B
Clojure
Executable File
13 lines
491 B
Clojure
Executable File
#!/usr/bin/env bb
|
|
|
|
(require '[babashka.fs :as fs]
|
|
'[clojure.string :as str])
|
|
|
|
(doseq [f (fs/glob "lab1/grammar/korean" "**.gf")
|
|
[line-number line] (map-indexed (fn [i x] [i x])
|
|
(-> f str slurp str/split-lines))]
|
|
(when (re-find #"\p{block=HangulJamo}" line)
|
|
(printf "JAMO: %s:%d: %s\n" (str f) line-number line))
|
|
(when (re-find #"\p{block=HangulSyllables}" line)
|
|
(printf "SYLLABLE: %s:%d: %s\n" (str f) line-number line)))
|