diff options
| author | evan@chromium.org <evan@chromium.org@0039d316-1c4b-4281-b951-d872f2087c98> | 2010-12-17 03:46:15 +0000 |
|---|---|---|
| committer | evan@chromium.org <evan@chromium.org@0039d316-1c4b-4281-b951-d872f2087c98> | 2010-12-17 03:46:15 +0000 |
| commit | 094b705690bf7e9d7bf787e6c4a88efc92d2cdd1 (patch) | |
| tree | 8039a09fa18702dca2681646612b54ef05957485 /tools/emacs/trybot.el | |
| parent | ccea03c373e1efb8bd3d72212be656300e38ff1f (diff) | |
| download | chromium_src-094b705690bf7e9d7bf787e6c4a88efc92d2cdd1.zip chromium_src-094b705690bf7e9d7bf787e6c4a88efc92d2cdd1.tar.gz chromium_src-094b705690bf7e9d7bf787e6c4a88efc92d2cdd1.tar.bz2 | |
emacs: make trybot parser work on offical windows build output
Review URL: http://codereview.chromium.org/5941003
git-svn-id: svn://svn.chromium.org/chrome/trunk/src@69510 0039d316-1c4b-4281-b951-d872f2087c98
Diffstat (limited to 'tools/emacs/trybot.el')
| -rw-r--r-- | tools/emacs/trybot.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/tools/emacs/trybot.el b/tools/emacs/trybot.el index 0352ed5..2c65897 100644 --- a/tools/emacs/trybot.el +++ b/tools/emacs/trybot.el @@ -103,11 +103,15 @@ (switch-to-buffer (process-buffer process)) (when (equal state "finished\n") (trybot-fixup (process-get process 'type-hint))))) - (command (concat "curl -s " url - (when (eq type-hint 'mac) - ; Pipe it through the output shortener. + (command (concat "curl -s " (shell-quote-argument url) + ; Pipe it through the output shortener. + (cond + ((eq type-hint 'win) (concat " | " (get-chrome-root) - "build/sanitize-mac-build-log.sh"))))) + "build/sanitize-win-build-log.sh")) + ((eq type-hint 'mac) + (concat " | " (get-chrome-root) + "build/sanitize-mac-build-log.sh")))))) ; Start up the subprocess. (let* ((coding-system-for-read 'utf-8-dos) @@ -154,7 +158,7 @@ (when (equal "stdio" (car (last (split-string url "/")))) (setq url (concat url "/text"))) - (let ((type-hint (cond ((string-match "/win/" url) 'win) + (let ((type-hint (cond ((string-match "/[Ww]in" url) 'win) ((string-match "/mac/" url) 'mac) ; Match /linux, /linux_view, etc. ((string-match "/linux" url) 'linux) |