home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / alt / lucidem / help / 803 < prev    next >
Encoding:
Text File  |  1992-12-15  |  8.5 KB  |  223 lines
  1. Newsgroups: alt.lucid-emacs.help
  2. Path: sparky!uunet!mcsun!sunic!dkuug!daimi!lynbech
  3. From: lynbech@daimi.aau.dk (Christian Lynbech)
  4. Subject: Proposed change to byte-recompile-directory
  5. Message-ID: <1992Dec15.091234.5065@daimi.aau.dk>
  6. Keywords: bytecomp byte-recompile-directory 
  7. Sender: news@daimi.aau.dk
  8. Organization: DAIMI: Computer Science Department, Aarhus University, Denmark
  9. Date: Tue, 15 Dec 92 09:12:34 GMT
  10. Lines: 211
  11.  
  12. I would like to propose the following change to the function
  13. byte-recompile-directory in lisp/bytecomp/bytecomp.el
  14.  
  15. In the current implementation, a recompilation is aborted whenever a file fails
  16. to be compiled. An error is generated and the rest of the files in the
  17. specified directories is discarded.
  18.  
  19. Instead, I will suggest, it should be possible to continue to compile the rest
  20. of the files. I hit this problem when I was trying to recompile the lucid lisp
  21. distribution from scratch. There are files which cannot (and some should not)
  22. be compiled, for instance some epoch related files, and as I maintain the lucid
  23. distribution under cvs, I do not by default store the .elc files, and I would
  24. like to be able to use the cvs export facility.
  25.  
  26. Below my signature is a patch included, containing my own attempt of
  27. implementing the above functionality. Note that this has not been extensively
  28. tested.
  29.  
  30. I have labelled this version as 2.08a so it may be distinguished from the
  31. official versions.
  32.  
  33.  
  34. ------------------------------------------------------------------------------
  35. Christian Lynbech
  36.  
  37. DAIMI                        office: R0.32   phone: 5034
  38. University of Aarhus,DK-Denmark                 email: lynbech@daimi.aau.dk
  39. ------------------------------------------------------------------------------
  40.               EMACS, The One True Editor                       
  41.  
  42.  
  43. Hit the philistines three times over the head with the Elisp reference manual.
  44.  
  45.                                         - petonic@hal.com (Michael A. Petonic)
  46.  
  47.  
  48.  
  49. ===================================================================
  50. RCS file: /users/src/LucidEmacs-19/REPOSITORY/LucidEmacs/lisp/bytecomp/bytecomp.el,v
  51. retrieving revision 1.1.1.1
  52. diff -c -r1.1.1.1 bytecomp.el
  53. *** 1.1.1.1    1992/09/30 13:53:02
  54. --- bytecomp.el    1992/12/15 08:58:20
  55. ***************
  56. *** 4,11 ****
  57.   
  58.   ;; By Jamie Zawinski <jwz@lucid.com> and Hallvard Furuseth <hbf@ulrik.uio.no>.
  59.   
  60. ! (defconst byte-compile-version "2.08; 27-aug-92.")
  61.   
  62.   ;; This file is part of GNU Emacs.
  63.   
  64.   ;; GNU Emacs is free software; you can redistribute it and/or modify
  65. --- 4,14 ----
  66.   
  67.   ;; By Jamie Zawinski <jwz@lucid.com> and Hallvard Furuseth <hbf@ulrik.uio.no>.
  68.   
  69. ! ;; byte-recompile-directory enhanced by
  70. ! ;; Christian Lynbech <lynbech@daimi.aau.dk>
  71.   
  72. + (defconst byte-compile-version "2.08a; 15-Dec-92.")
  73. + 
  74.   ;; This file is part of GNU Emacs.
  75.   
  76.   ;; GNU Emacs is free software; you can redistribute it and/or modify
  77. ***************
  78. *** 53,58 ****
  79. --- 56,62 ----
  80.   ;;;  + correct compilation of nested defuns, defmacros, defvars and defsubsts;
  81.   ;;;  + correct compilation of top-level uses of macros;
  82.   ;;;  + the ability to generate a histogram of functions called.
  83. + ;;;  + recompilation can continue even if some files fails
  84.   
  85.   ;;; User customization variables:
  86.   ;;;
  87. ***************
  88. *** 106,111 ****
  89. --- 110,118 ----
  90.   ;;;                see also the function byte-compile-dest-file.
  91.   ;;; byte-compile-overwrite-file    If nil, delete old .elc files before saving.
  92.   ;;;
  93. + ;;; byte-compile-recompile-continue     Determine what should happen when a
  94. + ;;;                             file fails compilation.
  95. + ;;;                             
  96.   ;;; Most of the above parameters can also be set on a file-by-file basis; see
  97.   ;;; the documentation of the `byte-compiler-options' macro.
  98.   
  99. ***************
  100. *** 162,167 ****
  101. --- 169,179 ----
  102.   ;;;  o  If you run byte-compile-file on a filename which is visited in a 
  103.   ;;;     buffer, and that buffer is modified, you are asked whether you want
  104.   ;;;     to save the buffer before compiling.
  105. + ;;;
  106. + ;;;  o  If you run byte-recompile-directory and a file fails compilation
  107. + ;;;     there are several options for handling this, including continuing.
  108. + ;;;     See variable byte-compile-recompile-continue for further information.
  109. + ;;;
  110.   
  111.   (or (fboundp 'defsubst)
  112.       ;; This really ought to be loaded already!
  113. ***************
  114. *** 325,330 ****
  115. --- 337,350 ----
  116.   is a symbolic link will be turned into a normal file, instead of the file
  117.   which the link points to being overwritten.")
  118.   
  119. + (defvar byte-compile-recompile-continue nil
  120. +   "*If this variable is nil, recompilation is stopped with an error if any
  121. + file fails compilation.
  122. + If it is t, recompilation is just continued with the remaining files.
  123. + If not nil and not t, ask for confirmation before continuing.
  124. + If recompilation is continued, a note is made int the buffer
  125. + `*Recompile Log*', describing which file failed and what the error was.")
  126. + 
  127.   (defvar byte-compile-constants nil
  128.     "list of all constants encountered during compilation of this form")
  129.   (defvar byte-compile-variables nil
  130. ***************
  131. *** 1096,1107 ****
  132.   If the `.elc' file does not exist, normally the `.el' file is *not* compiled.
  133.   But a prefix argument (optional second arg) means ask user,
  134.   for each such `.el' file, whether to compile it.  Prefix argument 0 means
  135. ! don't ask and compile the file anyway."
  136.     (interactive "DByte recompile directory: \nP")
  137.     (save-some-buffers)
  138.     (set-buffer-modified-p (buffer-modified-p))  ;Update the mode line.
  139.     (let ((directories (list (expand-file-name directory)))
  140.       (file-count 0)
  141.       (dir-count 0)
  142.       last-dir)
  143.       (displaying-byte-compile-warnings
  144. --- 1116,1133 ----
  145.   If the `.elc' file does not exist, normally the `.el' file is *not* compiled.
  146.   But a prefix argument (optional second arg) means ask user,
  147.   for each such `.el' file, whether to compile it.  Prefix argument 0 means
  148. ! don't ask and compile the file anyway.
  149. ! 
  150. ! What should happen if a file fails compilation is determined by the variable
  151. ! byte-compile-recompile-continue. See this for a further explanation."
  152.     (interactive "DByte recompile directory: \nP")
  153.     (save-some-buffers)
  154.     (set-buffer-modified-p (buffer-modified-p))  ;Update the mode line.
  155. +   (and (get-buffer "*Recompile Log*")
  156. +        (kill-buffer "*Recompile Log*"))    ;remove old recompilation log
  157.     (let ((directories (list (expand-file-name directory)))
  158.       (file-count 0)
  159. +     (fail-count 0)
  160.       (dir-count 0)
  161.       last-dir)
  162.       (displaying-byte-compile-warnings
  163. ***************
  164. *** 1127,1134 ****
  165.               (and arg
  166.                    (or (eq 0 arg)
  167.                    (y-or-n-p (concat "Compile " source "? "))))))
  168. !          (progn (byte-compile-file source)
  169. !             (setq file-count (1+ file-count))
  170.               (if (not (eq last-dir directory))
  171.                   (setq last-dir directory
  172.                     dir-count (1+ dir-count)))
  173. --- 1153,1172 ----
  174.               (and arg
  175.                    (or (eq 0 arg)
  176.                    (y-or-n-p (concat "Compile " source "? "))))))
  177. !          (progn (condition-case err
  178. !                 (progn (byte-compile-file source)
  179. !                    (setq file-count (1+ file-count)))
  180. !               (error (if (or
  181. !                       (null byte-compile-recompile-continue)
  182. !                       (and (not (equal t byte-compile-recompile-continue))
  183. !                        (not (y-or-n-p "Continue recompilation? "))))
  184. !                      (error "Compilation error %s" (cdr err))
  185. !                    (setq fail-count (1+ fail-count))
  186. !                    (save-excursion
  187. !                      (set-buffer (get-buffer-create
  188. !                           "*Recompile Log*"))
  189. !                      (insert (format "** Error in file %s\n\t%s\n\n"
  190. !                              source err))))))
  191.               (if (not (eq last-dir directory))
  192.                   (setq last-dir directory
  193.                     dir-count (1+ dir-count)))
  194. ***************
  195. *** 1135,1143 ****
  196.               )))
  197.          (setq files (cdr files))))
  198.          (setq directories (cdr directories))))
  199. !     (message "Done (Total of %d file%s compiled%s)"
  200.            file-count (if (= file-count 1) "" "s")
  201. !          (if (> dir-count 1) (format " in %d directories" dir-count) ""))))
  202.   
  203.   (defun byte-compile-file (filename &optional load)
  204.     "Compile a file of Lisp code named FILENAME into a file of byte code.
  205. --- 1173,1188 ----
  206.               )))
  207.          (setq files (cdr files))))
  208.          (setq directories (cdr directories))))
  209. !     (and (get-buffer "*Recompile Log*")
  210. !      (display-buffer "*Recompile Log*"))
  211. !     (message "Done (Total of %d file%s compiled%s%s)"
  212.            file-count (if (= file-count 1) "" "s")
  213. !          (if (> dir-count 1) (format " in %d directories" dir-count) "")
  214. !          (if (> fail-count 0)
  215. !          (format ". %d file%s failed compilation"
  216. !              fail-count (if (> fail-count 1) "s" ""))
  217. !            "")
  218. !     )))
  219.   
  220.   (defun byte-compile-file (filename &optional load)
  221.     "Compile a file of Lisp code named FILENAME into a file of byte code.
  222.  
  223.