1; To use this,
2; 1) Add to init.el:
3;    (setq-default chrome-root "/path/to/chrome/src/")
4;    (add-to-list 'load-path (concat chrome-root "tools/emacs"))
5;    (require 'trybot)
6; 2) Run on trybot output:
7;    M-x trybot
8;
9; To hack on this,
10; M-x eval-buffer
11; M-x trybot-test-win  or  M-x trybot-test-mac
12
13(defvar chrome-root nil
14  "Path to the src/ directory of your Chrome checkout.")
15
16(defun get-chrome-root ()
17  (or chrome-root default-directory))
18
19; Hunt down from the top, case correcting each path component as needed.
20; Currently does not keep a cache.  Returns nil if no matching file can be
21; figured out.
22(defun case-corrected-filename (filename)
23  (save-match-data
24    (let ((path-components (split-string filename "/"))
25          (corrected-path (file-name-as-directory (get-chrome-root))))
26      (mapc
27       (function
28        (lambda (elt)
29          (if corrected-path
30              (let ((next-component
31                     (car (member-ignore-case
32                           elt (directory-files corrected-path)))))
33                (setq corrected-path
34                      (and next-component
35                           (file-name-as-directory
36                            (concat corrected-path next-component))))))))
37       path-components)
38      (if corrected-path
39          (file-relative-name (directory-file-name corrected-path)
40                              (get-chrome-root))
41        nil))))
42
43(defun trybot-fixup-win ()
44  "Fix up Windows-specific output."
45
46  ; Fix Windows paths ("d:\...\src\").
47  (save-excursion
48    ; This regexp is subtle and rather hard to read. :~(
49    ; Use regexp-builder when making changes to it.
50    (while (re-search-forward
51            (concat
52             ; First part: path leader, either of the form
53             ;   e:\...src\  or  ..\
54             "\\(^.:\\\\.*\\\\src\\\\\\|\\.\\.\\\\\\)"
55             ; Second part: path, followed by error message marker.
56             "\\(.*?\\)[(:]") nil t)
57      (replace-match "" nil t nil 1)
58      ; Line now looks like:
59      ;  foo\bar\baz.cc error message here
60      ; We want to fixup backslashes in path into forward slashes,
61      ; without modifying the error message - by matching up to the
62      ; first colon above (which will be just beyond the end of the
63      ; filename) we can use the end of the match as a limit.
64      (subst-char-in-region (point) (match-end 0) ?\\ ?/)
65      ; See if we can correct the file name casing.
66      (let ((filename (buffer-substring (match-beginning 2) (match-end 2))))
67        (if (and (not (file-exists-p filename))
68                 (setq filename (case-corrected-filename filename)))
69            (replace-match filename t t nil 2))))))
70
71(defun trybot-fixup-maclin ()
72  "Fix up Mac/Linux output."
73  (save-excursion
74    (while (re-search-forward "^/b/build/[^ ]*/src/" nil t)
75      (replace-match ""))))
76
77(defun trybot-fixup (type-hint)
78  "Parse and fixup the contents of the current buffer as trybot output."
79
80  ; XXX is there something I should so so this stuff doesn't end up on the
81  ; undo stack?
82
83  ;; Fixup paths.
84  (cd (get-chrome-root))
85
86  (goto-char (point-min))
87
88  ;; Fix up path references.
89  (cond ((eq type-hint 'win) (trybot-fixup-win))
90        ((eq type-hint 'mac) (trybot-fixup-maclin))
91        ((eq type-hint 'linux) (trybot-fixup-maclin))
92        (t (trybot-fixup-win) (trybot-fixup-maclin)))
93
94  (compilation-mode))
95
96(defun trybot-get-new-buffer ()
97  "Get a new clean buffer for trybot output."
98  ; Use trybot-buffer-name if available; otherwise, "*trybot*".
99  (let ((buffer-name (if (boundp 'trybot-buffer-name)
100                         trybot-buffer-name
101                       "*trybot*")))
102    (let ((old (get-buffer buffer-name)))
103      (when old (kill-buffer old)))
104    (get-buffer-create buffer-name)))
105
106(defun trybot-fetch (type-hint url)
107  "Fetch a URL and postprocess it as trybot output."
108
109  (let ((on-fetch-completion
110         (lambda (process state)
111           (switch-to-buffer (process-buffer process))
112           (when (equal state "finished\n")
113             (trybot-fixup (process-get process 'type-hint)))))
114        (command (concat "curl -s " (shell-quote-argument url)
115                         ; Pipe it through the output shortener.
116                         (cond
117                          ((eq type-hint 'win)
118                           (concat " | " (get-chrome-root)
119                                   "build/sanitize-win-build-log.sh"))
120                          ((eq type-hint 'mac)
121                           (concat " | " (get-chrome-root)
122                                   "build/sanitize-mac-build-log.sh"))))))
123
124    ; Start up the subprocess.
125    (let* ((coding-system-for-read 'utf-8-dos)
126           (buffer (trybot-get-new-buffer))
127           (process (start-process-shell-command "curl" buffer command)))
128      ; Attach the type hint to the process so we can get it back when
129      ; the process completes.
130      (process-put process 'type-hint type-hint)
131      (set-process-query-on-exit-flag process nil)
132      (set-process-sentinel process on-fetch-completion))))
133
134(defun trybot-test (type-hint filename)
135  "Load the given test data filename and do the trybot parse on it."
136
137  (let ((trybot-buffer-name "*trybot-test*")
138        (url (concat "file://" (get-chrome-root) "tools/emacs/" filename)))
139    (trybot-fetch type-hint url)))
140
141(defun trybot-test-win ()
142  "Load the Windows test data and do the trybot parse on it."
143  (interactive)
144  (trybot-test 'win "trybot-windows.txt"))
145(defun trybot-test-mac ()
146  "Load the Mac test data and do the trybot parse on it."
147  (interactive)
148  (trybot-test 'mac "trybot-mac.txt"))
149(defun trybot-test-linux ()
150  "Load the Linux test data and do the trybot parse on it."
151  (interactive)
152  (trybot-test 'linux "trybot-linux.txt"))
153
154(defun trybot (url)
155  "Fetch a trybot URL and fix up the output into a compilation-mode buffer."
156  (interactive "sURL to trybot stdout (leave empty to use clipboard): ")
157
158  ;; Yank URL from clipboard if necessary.
159  (when (= (length url) 0)
160    (with-temp-buffer
161      (clipboard-yank)
162      (setq url (buffer-string))))
163
164  ;; Append /text to the URL to get plain text output in the common
165  ;; case of getting a URL to the HTML build log.
166  (when (equal "stdio" (car (last (split-string url "/"))))
167    (setq url (concat url "/text")))
168
169  (let ((type-hint (cond ((string-match "/[Ww]in" url) 'win)
170                         ((string-match "/mac/" url) 'mac)
171                         ; Match /linux, /linux_view, etc.
172                         ((string-match "/linux" url) 'linux)
173                         (t 'unknown))))
174    (trybot-fetch type-hint url)))
175
176(provide 'trybot)
177