#!/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)))