pkgs/development/lisp-modules-new-obsolete/import/util.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(defpackage org.lispbuilds.nix/util
  (:use :cl)
  (:import-from :ppcre)
  (:export
   :replace-regexes))

(in-package org.lispbuilds.nix/util)

(defun replace-regexes (from to str)
  (assert (= (length from) (length to)))
  (if (null from)
      str
      (replace-regexes
       (rest from)
       (rest to)
       (ppcre:regex-replace-all (first from) str (first to)))))