RCS tags in ada source files

[Geoff Keating]

Mark Mitchell <mark@codesourcery.com> writes:

> > 2. Deleting the tags?
> 
> This one.  I believe the GNU coding standards say not to use such
> tags, and -kb has other side-effects as well, IIRC.

I looked into this more.  There is this code in 'xeinfo.adb':

   Get_BRev : Pattern := BreakX ('$') & "$Rev" & "ision: "
                           & Break (' ') * Einfobrev;
   Get_SRev : Pattern := BreakX ('$') & "$Rev" & "ision: "
                           & Break (' ') * Einfosrev;
...
   Open (InB, In_File, "einfo.adb");
...
   loop
      Line := Get_Line (InB);

      if Line = "" then
         raise Err;
      end if;

      exit when Match (Line, Get_BRev);
   end loop;

Now, I don't know Ada very well, but it looks like this is scanning
source files for revision information and will die if it doesn't find it.

So, clearly this code will need to be changed, most likely just removed.
I'll be submitting a patch shortly...

-- 
- Geoffrey Keating <geoffk@geoffk.org> <geoffk@redhat.com>