home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / gnu / emacs / sources / 926 < prev    next >
Encoding:
Text File  |  1993-01-08  |  3.3 KB  |  95 lines
  1. Path: sparky!uunet!ittc!fpb
  2. From: fpb@ittc.wec.com (Frank P. Bresz)
  3. Newsgroups: gnu.emacs.sources
  4. Subject: compile.el v18.59 to handle tree walking makes.
  5. Message-ID: <FPB.93Jan8102232@ittc.ittc.wec.com>
  6. Date: 8 Jan 93 15:22:32 GMT
  7. Sender: news@ittc.wec.com
  8. Distribution: gnu
  9. Organization: Westinghouse, ITTC, Pgh, PA.
  10. Lines: 83
  11.  
  12.  
  13. Here are some changes to allow compile.el to parse and understand Makes
  14. like we have locally that end up walking up and down a tree building
  15. things.  
  16.  
  17. enjoy.
  18.  
  19. # rcsdiff -r1.1 -cw compile.el
  20. *** /tmp/T0a27037    Fri Jan  8 10:19:45 1993
  21. --- compile.el    Fri Jan  8 10:19:34 1993
  22. ***************
  23. *** 46,51 ****
  24. --- 46,54 ----
  25.     "\\([^ :\n]+\\(: *\\|, line \\|(\\)[0-9]+\\)\\|\\([0-9]+ *of *[^ \n]+\\)"
  26.     "Regular expression for filename/linenumber in error in compilation log.")
  27.   
  28. + (defvar compilation-cd-regexp "^cd"
  29. +   "Regular expression to be used to glean any cd-ing the make may do")
  30. + 
  31.   (defun compile (command)
  32.     "Compile the program including the current buffer.  Default: run `make'.
  33.   Runs COMMAND, a shell command, in a separate process asynchronously
  34. ***************
  35. *** 230,236 ****
  36.       ;; This matters for grep.
  37.       (if (bobp)
  38.       (forward-line 2))
  39. !     (while (re-search-forward compilation-error-regexp nil t)
  40.         (let (linenum filename
  41.           error-marker text-marker)
  42.       ;; Extract file name and line number from error message.
  43. --- 233,261 ----
  44.       ;; This matters for grep.
  45.       (if (bobp)
  46.       (forward-line 2))
  47. !     (while (re-search-forward 
  48. !         (concat compilation-error-regexp "\\|" compilation-cd-regexp) nil t)
  49. !       ;; Go to the beginninnng of the match and see if we are at a cd line
  50. !       ;; If so the change directory 
  51. !       ;; This allows cd'ing within Make i.e. the tree walking makes can
  52. !       ;; be parsed with this.
  53. !       (goto-char (match-beginning 0))
  54. !       (if (looking-at compilation-cd-regexp)
  55. !       (let (dir)
  56. !         ;; Code snarfed from shell.el to get directory.
  57. !         (skip-chars-forward "^ ")
  58. !         (skip-chars-forward " \t")
  59. !         (file-directory-p
  60. !          (setq dir
  61. !            (expand-file-name
  62. !             (substitute-in-file-name
  63. !              (buffer-substring
  64. !               (point)
  65. !               (progn
  66. !             (skip-chars-forward "^\n \t;")
  67. !             (point)))))))
  68. !         (cd dir))
  69. !     (re-search-forward compilation-error-regexp nil t)
  70.       (let (linenum filename
  71.                 error-marker text-marker)
  72.         ;; Extract file name and line number from error message.
  73. ***************
  74. *** 296,302 ****
  75.           (setq compilation-error-list
  76.                 (cons (list error-marker text-marker)
  77.                   compilation-error-list)))))
  78. !     (forward-line 1)))
  79.       (setq compilation-parsing-end (point-max)))
  80.     (message "Parsing error messages...done")
  81.     (setq compilation-error-list (nreverse compilation-error-list)))
  82. --- 321,327 ----
  83.             (setq compilation-error-list
  84.               (cons (list error-marker text-marker)
  85.                     compilation-error-list)))))
  86. !       (forward-line 1))))
  87.       (setq compilation-parsing-end (point-max)))
  88.     (message "Parsing error messages...done")
  89.     (setq compilation-error-list (nreverse compilation-error-list)))
  90. --
  91. Frank P. Bresz <fpb@ittc.pgh.wec.com>, uunet!ittc!fpb, +1 412 733 6749, Fx 6444
  92. My opinions are mine, Westinghouse pays big money for *official* opinions
  93. Member: League for Programming Freedom (LPF)  | STOP Software Patents
  94. For more information on the 'LPF' send mail   | before they stop you.
  95.