diff options
author | Geoffrey Keating <geoffk@redhat.com> | 2002-03-14 11:00:22 +0000 |
---|---|---|
committer | Geoffrey Keating <geoffk@gcc.gnu.org> | 2002-03-14 11:00:22 +0000 |
commit | 6cbcc54138180f03dcd58067bdc5b81d4ccbb4ef (patch) | |
tree | 0df4aae3843760e99eb325f5ca186099a3db2566 /gcc/ada/xsinfo.adb | |
parent | 3f26edaa1969c9ec8b79f2f129b37a91a8b0c7c0 (diff) | |
download | gcc-6cbcc54138180f03dcd58067bdc5b81d4ccbb4ef.zip gcc-6cbcc54138180f03dcd58067bdc5b81d4ccbb4ef.tar.gz gcc-6cbcc54138180f03dcd58067bdc5b81d4ccbb4ef.tar.bz2 |
Delete all lines containing "$Revision:".
* xeinfo.adb: Don't look for revision numbers.
* xnmake.adb: Likewise.
* xsinfo.adb: Likewise.
* xsnames.adb: Likewise.
* xtreeprs.adb: Likewise.
From-SVN: r50768
Diffstat (limited to 'gcc/ada/xsinfo.adb')
-rw-r--r-- | gcc/ada/xsinfo.adb | 34 |
1 files changed, 9 insertions, 25 deletions
diff --git a/gcc/ada/xsinfo.adb b/gcc/ada/xsinfo.adb index 57d4b3e..3a6d142 100644 --- a/gcc/ada/xsinfo.adb +++ b/gcc/ada/xsinfo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.19 $ -- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- @@ -66,16 +65,12 @@ procedure XSinfo is N1, N2 : VString := Nul; Nam : VString := Nul; Rtn : VString := Nul; - Sinforev : VString := Nul; Term : VString := Nul; - XSinforev : VString := Nul; InS : File_Type; Ofile : File_Type; wsp : Pattern := Span (' ' & ASCII.HT); - Get_Vsn : Pattern := BreakX ('$') & "$Rev" & "ision: " - & Break (' ') * Sinforev; Wsp_For : Pattern := wsp & "for"; Is_Cmnt : Pattern := wsp & "--"; Typ_Nod : Pattern := wsp * A & "type Node_Kind is"; @@ -120,7 +115,6 @@ procedure XSinfo is begin Set_Exit_Status (1); Anchored_Mode := True; - Match ("$Revision: 1.19 $", "$Rev" & "ision: " & Break (' ') * XSinforev); if Argument_Count > 0 then Create (Ofile, Out_File, Argument (1)); @@ -130,31 +124,21 @@ begin Open (InS, In_File, "sinfo.ads"); - -- Get Sinfo rev and write header to output file + -- Write header to output file loop Line := Get_Line (InS); exit when Line = ""; - if Match (Line, Get_Vsn) then - Put_Line - (Ofile, "/* Generated by xsinfo revision " - & XSinforev & " using */"); - Put_Line - (Ofile, "/* sinfo.ads revision " - & Sinforev & " */"); + Match + (Line, + "-- S p e c ", + "-- C Header File "); - else - Match - (Line, - "-- S p e c ", - "-- C Header File "); - - Match (Line, "--", "/*"); - Match (Line, Rtab (2) * A & "--", M); - Replace (M, A & "*/"); - Put_Line (Ofile, Line); - end if; + Match (Line, "--", "/*"); + Match (Line, Rtab (2) * A & "--", M); + Replace (M, A & "*/"); + Put_Line (Ofile, Line); end loop; -- Skip to package line |