# Helper to generate core library mappings for janet

(def allsyms (all-symbols))

(def- escapes
  {(get "|" 0) `\|`
   (get "-" 0) `\-`
   (get "+" 0) `\+`
   (get "*" 0) `\*`
   (get "^" 0) `\^`
   (get "$" 0) `\$`
   (get "?" 0) `\?`
   38 "&"
   60 "<"
   62 ">"
   34 """
   39 "'"
   47 "/"})

(defn- escape
  "Escape special characters for HTML encoding."
  [str]
  (def buf @"")
  (loop [byte :in str]
    (if-let [rep escapes.byte]
      (buffer/push-string buf rep)
      (buffer/push-byte buf byte)))
  buf)

(print (string/join (map escape allsyms)) "|"))