temporary vdmos-1.el
This commit is contained in:
parent
45a70b3a53
commit
2072e142a7
|
|
@ -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)))
|
||||
Loading…
Reference in New Issue