bodewig     01/07/25 03:12:50

  Modified:    webpage/docs faq.html
               webpage/xdocs faq.xml
  Log:
  Add Dirk's Perl script to the -emacs mode question.
  
  Submitted by: Dirk-Willem van Gulik <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.14      +48 -5     jakarta-ant/webpage/docs/faq.html
  
  Index: faq.html
  ===================================================================
  RCS file: /home/cvs/jakarta-ant/webpage/docs/faq.html,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- faq.html  2001/07/25 07:58:30     1.13
  +++ faq.html  2001/07/25 10:12:49     1.14
  @@ -172,8 +172,8 @@
     Is Ant supported by my IDE/Editor?
     </a></li>
                       <li><a href="#emacs-mode">
  -  Why doesn't (X)Emacs parse the error messages generated
  -        by Ant correctly?
  +  Why doesn't (X)Emacs/vi/MacOS X's project builder
  +      parse the error messages generated by Ant correctly?
     </a></li>
                   </ul>
         </blockquote>
  @@ -706,8 +706,8 @@
       <tr><td bgcolor="#828DA6">
         <font color="#ffffff" face="arial,helvetica,sanserif">
           <strong>
  -          Why doesn't (X)Emacs parse the error messages generated
  -        by Ant correctly?
  +          Why doesn't (X)Emacs/vi/MacOS X's project builder
  +      parse the error messages generated by Ant correctly?
           </strong>
         </font>
       </td></tr>
  @@ -715,7 +715,8 @@
         <blockquote>
                                 <p>Ant adds a "banner" with the name of the 
current
           task in front of all messages - and there are no built-in
  -        regular expressions in Emacs that would account for this.</p>
  +        regular expressions in your Editor that would account for
  +        this.</p>
                                           <p>You can disable this banner by 
invoking Ant with the
           <code>-emacs</code> switch. Alternatively you can add the
           following snippet to your <code>.emacs</code> to make Emacs
  @@ -738,6 +739,48 @@
        ;; works for javac 
        '(&quot;^\\s-*\\[[^]]*\\]\\s-*\\(.+\\):\\([0-9]+\\):&quot; 1 2))
     compilation-error-regexp-alist))
  +</pre></td>
  +        <td bgcolor="#023264" width="1"><img src="/images/void.gif" 
width="1" height="1" vspace="0" hspace="0" border="0"/></td>
  +      </tr>
  +      <tr>
  +        <td bgcolor="#023264" width="1" height="1"><img 
src="/images/void.gif" width="1" height="1" vspace="0" hspace="0" 
border="0"/></td>
  +        <td bgcolor="#023264" height="1"><img src="/images/void.gif" 
width="1" height="1" vspace="0" hspace="0" border="0"/></td>
  +        <td bgcolor="#023264" width="1" height="1"><img 
src="/images/void.gif" width="1" height="1" vspace="0" hspace="0" 
border="0"/></td>
  +      </tr>
  +    </table>
  +  </div>
  +                                        <p>Yet another alternative that 
preserves most of Ant's
  +        formatting is to pipe Ant's output through the following Perl
  +        script by Dirk-Willem van Gulik:</p>
  +                                          <div align="left">
  +    <table cellspacing="4" cellpadding="0" border="0">
  +      <tr>
  +        <td bgcolor="#023264" width="1" height="1"><img 
src="/images/void.gif" width="1" height="1" vspace="0" hspace="0" 
border="0"/></td>
  +        <td bgcolor="#023264" height="1"><img src="/images/void.gif" 
width="1" height="1" vspace="0" hspace="0" border="0"/></td>
  +        <td bgcolor="#023264" width="1" height="1"><img 
src="/images/void.gif" width="1" height="1" vspace="0" hspace="0" 
border="0"/></td>
  +      </tr>
  +      <tr>
  +        <td bgcolor="#023264" width="1"><img src="/images/void.gif" 
width="1" height="1" vspace="0" hspace="0" border="0"/></td>
  +        <td bgcolor="#ffffff"><pre>
  +#!/usr/bin/perl
  +#
  +# May 2001 [EMAIL PROTECTED] - remove any
  +# [foo] lines from the output; keeping
  +# spacing more or less there.
  +#
  +$|=1;
  +while(&lt;STDIN&gt;) {
  +     if (s/^(\s+)\[(\w+)\]//) {
  +             if ($2 ne $last) {
  +                     print &quot;$1\[$2\]&quot;;
  +                     $s = ' ' x length($2);
  +             } else {
  +                     print &quot;$1 $s &quot;;
  +             };
  +             $last = $2;
  +     };
  +     print;
  +};
   </pre></td>
           <td bgcolor="#023264" width="1"><img src="/images/void.gif" 
width="1" height="1" vspace="0" hspace="0" border="0"/></td>
         </tr>
  
  
  
  1.11      +30 -3     jakarta-ant/webpage/xdocs/faq.xml
  
  Index: faq.xml
  ===================================================================
  RCS file: /home/cvs/jakarta-ant/webpage/xdocs/faq.xml,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- faq.xml   2001/07/25 07:58:32     1.10
  +++ faq.xml   2001/07/25 10:12:50     1.11
  @@ -258,13 +258,14 @@
       </faq>
   
       <faq id="emacs-mode">
  -      <question>Why doesn&apos;t (X)Emacs parse the error messages generated
  -        by Ant correctly?</question>
  +      <question>Why doesn&apos;t (X)Emacs/vi/MacOS X's project builder
  +      parse the error messages generated by Ant correctly?</question>
         <answer>
   
           <p>Ant adds a &quot;banner&quot; with the name of the current
           task in front of all messages - and there are no built-in
  -        regular expressions in Emacs that would account for this.</p>
  +        regular expressions in your Editor that would account for
  +        this.</p>
   
           <p>You can disable this banner by invoking Ant with the
           <code>-emacs</code> switch. Alternatively you can add the
  @@ -280,6 +281,32 @@
        ;; works for javac 
        '("^\\s-*\\[[^]]*\\]\\s-*\\(.+\\):\\([0-9]+\\):" 1 2))
     compilation-error-regexp-alist))
  +]]></source>
  +
  +        <p>Yet another alternative that preserves most of Ant's
  +        formatting is to pipe Ant's output through the following Perl
  +        script by Dirk-Willem van Gulik:</p>
  +
  +        <source><![CDATA[
  +#!/usr/bin/perl
  +#
  +# May 2001 [EMAIL PROTECTED] - remove any
  +# [foo] lines from the output; keeping
  +# spacing more or less there.
  +#
  +$|=1;
  +while(<STDIN>) {
  +     if (s/^(\s+)\[(\w+)\]//) {
  +             if ($2 ne $last) {
  +                     print "$1\[$2\]";
  +                     $s = ' ' x length($2);
  +             } else {
  +                     print "$1 $s ";
  +             };
  +             $last = $2;
  +     };
  +     print;
  +};
   ]]></source>
   
         </answer>
  
  
  

Reply via email to