diff options
| author | geoffk <geoffk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-03-14 11:00:22 +0000 |
|---|---|---|
| committer | geoffk <geoffk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-03-14 11:00:22 +0000 |
| commit | cd0ed284ac5b6f9a244d6f95386b2fd7302dd2f8 (patch) | |
| tree | 0df4aae3843760e99eb325f5ca186099a3db2566 /gcc/ada/xsinfo.adb | |
| parent | 8c9bf23a31dfff2a8a0747002961da3cced52d83 (diff) | |
| download | gcc-cd0ed284ac5b6f9a244d6f95386b2fd7302dd2f8.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@50768 138bc75d-0d04-0410-961f-82ee72b054a4
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 57d4b3e1580..3a6d1427761 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 |