test

test.clj

(defn combine-symbol [x y]
  (symbol (str x y)))

(defmacro is [char token]
  `(~(combine-symbol '.is token) ; combind .is with token name
    Tokenizer ~char))

(defmacro set-token-type [token-type]
  `(def token-type (~(combine-symbol '.- (clojure.string/upper-case (str token-type))) TOKEN_TYPE)))

(cond
  (is char Blank) (set-token-type blank)
  (is char Digits) (set-token-type digits)
  (is char Operator) (cond
                       (= char "@") (set-token-type close_cont_marker)
                       (= char ".") (set-token-type member_operator)
                       :else (set-token-type equal-operator))
  (is char CodeCover) (set-token-type code_cover)
  (is char ContCover) (if
                          (= char "<") (set-token-type left_cont_cover)
                          (set-token-type right_cont_cover))
  (is char IdentifierPart) (set-token-type identifier_char)
  (is char CloseMarker) (set-token-type close_cont_marker)
  :else (set-token-type any_character))