[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/vms/make-mms-derivative.el
From: |
Thien-Thi Nguyen |
Subject: |
[Emacs-diffs] Changes to emacs/vms/make-mms-derivative.el |
Date: |
Mon, 24 Nov 2003 13:31:29 -0500 |
Index: emacs/vms/make-mms-derivative.el
diff -c emacs/vms/make-mms-derivative.el:1.1
emacs/vms/make-mms-derivative.el:1.2
*** emacs/vms/make-mms-derivative.el:1.1 Mon Nov 24 13:04:06 2003
--- emacs/vms/make-mms-derivative.el Mon Nov 24 13:31:29 2003
***************
*** 32,46 ****
;; Emacs-specific methodology to DCL and TPU commands, so to alleviate
;; this pain, we provide `make-mms-derivative', which given a source
;; FILENAME (under `make-mms-derivative-root-dir'), inserts the file
! ;; contents in a new buffer and loads FILENAME.2mms. The elisp in the
! ;; .2mms file can (do whatever -- it's emacs -- and) arrange to write
! ;; out the modified buffer after FILENAME.2mms loading by using:
;;
;; (make-mms-derivative-data 'write-under-root RELATIVE-FILENAME)
;;
;; where RELATIVE-FILENAME is something like "src/descrip.mms_in_in".
;; Over the long run, the convenience procedures provided (see source)
! ;; will be augmented by factoring maximally the .2mms files, squeezing
;; as much algorithm out of those nasty heuristics as possible. What
;; makes them nasty is not that they rely on the conventions of the
;; Emacs makefiles; that's no big deal. What makes them nasty is that
--- 32,46 ----
;; Emacs-specific methodology to DCL and TPU commands, so to alleviate
;; this pain, we provide `make-mms-derivative', which given a source
;; FILENAME (under `make-mms-derivative-root-dir'), inserts the file
! ;; contents in a new buffer and loads FILENAME-2mms. The elisp in the
! ;; -2mms file can (do whatever -- it's emacs -- and) arrange to write
! ;; out the modified buffer after FILENAME-2mms loading by using:
;;
;; (make-mms-derivative-data 'write-under-root RELATIVE-FILENAME)
;;
;; where RELATIVE-FILENAME is something like "src/descrip.mms_in_in".
;; Over the long run, the convenience procedures provided (see source)
! ;; will be augmented by factoring maximally the -2mms files, squeezing
;; as much algorithm out of those nasty heuristics as possible. What
;; makes them nasty is not that they rely on the conventions of the
;; Emacs makefiles; that's no big deal. What makes them nasty is that
***************
*** 100,106 ****
(file (expand-file-name file)))
(unless (string-match (concat "^" root) file)
(error "Not under root (%s)" root))
! (let ((edits-filename (concat file ".2mms")))
(unless (file-exists-p edits-filename)
(error "Could not find %s" edits-filename))
(let* ((pre (+ (length root) (if (string= "/" (substring root -1)) 0
1)))
--- 100,106 ----
(file (expand-file-name file)))
(unless (string-match (concat "^" root) file)
(error "Not under root (%s)" root))
! (let ((edits-filename (concat file "-2mms")))
(unless (file-exists-p edits-filename)
(error "Could not find %s" edits-filename))
(let* ((pre (+ (length root) (if (string= "/" (substring root -1)) 0
1)))