読者です 読者をやめる 読者になる 読者になる

Let's write β

趣味で書いたこととか、RustとLispが好き

正規表現でmatchをつかってcond

正規表現でマッチしたときだけ、式を実行したいときってありますよね。
ただ、二回チェックするのは冗長なので、cond風に書きたいですね。
そこでマクロです。

(defmacro aif-match (regex str then-expr &optional (else-expr nil))
  (if (stringp regex)
    `(multiple-value-bind (match regs) (ppcre:scan-to-strings ,regex ,str)
       (if match
         ,then-expr
         ,else-expr))
    then-expr))
    
(defmacro match-cond (str conds)
  (when conds
    (let ((first-cond (car conds)))
      `(aif-match ,(car first-cond) ,str
                  ,@(cdr first-cond)
                  (match-cond ,str ,(cdr conds))))))

Usage:

(match-cond "create-users-table"
 (("create-(.*)-btable" 1)
  ("create-(.*)-table" (aref regs 0))
  (t 13)))
=> "users"

(match-cond "create-users-table"
 (("create-(.*)-btable" 1)
  ("create-(.*)-tabele" (aref regs 0))
  (t 13)))
=> 13

僕が働いているAzit.incでは一緒に働けるエンジニアを募集しています!
採用情報 — 株式会社アジット|Azit Inc.