oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Remove maint.el.

Browse Source 
This script is unused and will probably not be used by anyone.
This commit is contained in:
Asanka Herath
2016-03-09 11:31:42 -05:00
parent a114690bde
commit 3f5bc8830f
1 changed files with 0 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
windows/maint.el
View File

@@ -1,34 +0,0 @@
(defun generate-obj-macro (mname &optional postfix &rest slist)
"Generates a macro definition for an OBJs dependency based on a list of source definitions"
(let*
((replist (apply 'append (mapcar (lambda (sdef)
(goto-char 0)
(let*
((def (buffer-substring-no-properties
(search-forward (concat sdef " = \\\n") nil t)
(search-forward "\n\n" nil t)))
(st (split-string
(replace-regexp-in-string "^.*\\.h.*\n" "" def)
"\\s-+\\\\?\\|\n" t)))
st)) slist)))
(def-start (search-forward (concat mname " = \\\n") nil t))
(def-end (search-forward "\n\n" nil t))
(repl (mapconcat
(lambda (s)
(concat "\t"
(replace-regexp-in-string
"\\(\\s-*\\)\\(.*\\)\\.c" "\\1$(OBJ)\\\\\\2.obj" s)
" \\"))
replist "\n"))
(erepl (if postfix
(concat repl "\n" postfix "\n\n")
(concat repl "\n\n")))
)
(delete-region def-start def-end)
(insert erepl))
)