mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(make-mms-derivative-load-edits-file): Rewrite

Browse source 
to avoid external programs; do all processing inside Emacs.
This commit is contained in:
Thien-Thi Nguyen 2003-11-25 02:47:22 +00:00
parent def6201d44
commit 26d7d4bb9f
1 changed files with 23 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

33
vms/make-mms-derivative.el
View file

@ -79,16 +79,29 @@
(defun make-mms-derivative-load-edits-file (name)
(make-mms-derivative-data 'edits-filename name)
(let ((i 0) tmp res)
(while (progn
(setq tmp
(shell-command-to-string
(format "grep '^;;;%s;;' %s | sed 's/^;;;[0-9][0-9]*;;//g'"
i name)))
(not (string= "" tmp)))
(setq res (cons (cons i tmp) res)
i (1+ i)))
(make-mms-derivative-data 'raw-data res))
(let (raw-data
(cur (current-buffer))
(wbuf (get-buffer-create "*make-mms-derivative-load-edits-file work")))
(set-buffer wbuf)
(insert-file-contents name)
(keep-lines "^;;;[0-9]+;;")
(goto-char (point-max))
(while (re-search-backward "^;;;\\([0-9]+\\);;\\(.*\\)$" (point-min) t)
(let* ((i (string-to-number (match-string 1)))
(line (match-string 2))
(look (assq i raw-data)))
(if look
(setcdr look (cons line (cdr look)))
(setq raw-data (cons (list i line) raw-data)))))
(kill-buffer wbuf)
(set-buffer cur)
(mapcar '(lambda (ent)
(setcdr ent (mapconcat '(lambda (line)
(concat line "\n"))
(cdr ent)
"")))
raw-data)
(make-mms-derivative-data 'raw-data raw-data))
(load name))
(defun make-mms-derivative-insert-raw-data (n)