temporary vdmos-1.el

This commit is contained in:
rlar 2018-04-12 15:38:38 +02:00
parent 45a70b3a53
commit 2072e142a7
1 changed files with 19 additions and 0 deletions

19
vdmos-1.el Normal file
View File

@ -0,0 +1,19 @@
;;; (load-file buffer-file-name)
(defun mos1->vdmos(file)
(with-temp-file file
(insert-file-contents-literally file)
(while (re-search-forward (rx "mos1")
nil t)
(replace-match "vdmos"))))
(cl-loop for f in (process-lines "git" "ls-files" "--" "src/spicelib/devices/mos1")
for dst = (concat "src/spicelib/devices/vdmos/"
(replace-regexp-in-string "mos1" "vdmos"
(file-name-nondirectory f)))
initially (mkdir "src/spicelib/devices/vdmos" t)
do (progn
(copy-file f dst t)
(mos1->vdmos dst)
(process-lines "git" "add" dst)))