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/xnmake.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/xnmake.adb')
| -rw-r--r-- | gcc/ada/xnmake.adb | 83 |
1 files changed, 23 insertions, 60 deletions
diff --git a/gcc/ada/xnmake.adb b/gcc/ada/xnmake.adb index d57f681fd40..4a196938c7e 100644 --- a/gcc/ada/xnmake.adb +++ b/gcc/ada/xnmake.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.29 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -75,11 +74,8 @@ procedure XNmake is Node : VString := Nul; Op_Name : VString := Nul; Prevl : VString := Nul; - Sinfo_Rev : VString := Nul; Synonym : VString := Nul; - Temp_Rev : VString := Nul; X : VString := Nul; - XNmake_Rev : VString := Nul; Lineno : Natural; NWidth : Natural; @@ -99,12 +95,6 @@ procedure XNmake is -- Note: in following patterns, we break up the word revision to -- avoid RCS getting enthusiastic about updating the reference! - Get_SRev : Pattern := BreakX ('$') & "$Rev" & "ision: " & - Break (' ') * Sinfo_Rev; - - GetT_Rev : Pattern := BreakX ('$') & "$Rev" & "ision: " & - Break (' ') * Temp_Rev; - Body_Only : Pattern := BreakX (' ') * X & Span (' ') & "-- body only"; Spec_Only : Pattern := BreakX (' ') * X & Span (' ') & "-- spec only"; @@ -207,8 +197,6 @@ procedure XNmake is begin -- Capture our revision (following line updated by RCS) - Match ("$Revision: 1.29 $", "$Rev" & "ision: " & Break (' ') * XNmake_Rev); - Lineno := 0; NWidth := 28; Anchored_Mode := True; @@ -271,67 +259,42 @@ begin Anchored_Mode := True; - -- Get Sinfo revision number - - loop - Line := Get_Line (InS); - exit when Match (Line, Get_SRev); - end loop; - -- Copy initial part of template to spec and body loop Line := Get_Line (InT); - if Match (Line, GetT_Rev) then - WriteBS - ("-- Generated by xnmake revision " & - XNmake_Rev & " using" & - " --"); - - WriteBS - ("-- sinfo.ads revision " & - Sinfo_Rev & - " --"); - - WriteBS - ("-- nmake.adt revision " & - Temp_Rev & - " --"); - - else - -- Skip lines describing the template - - if Match (Line, "-- This file is a template") then - loop - Line := Get_Line (InT); - exit when Line = ""; - end loop; - end if; + -- Skip lines describing the template - exit when Match (Line, "package"); + if Match (Line, "-- This file is a template") then + loop + Line := Get_Line (InT); + exit when Line = ""; + end loop; + end if; - if Match (Line, Body_Only, M) then - Replace (M, X); - WriteB (Line); + exit when Match (Line, "package"); - elsif Match (Line, Spec_Only, M) then - Replace (M, X); - WriteS (Line); + if Match (Line, Body_Only, M) then + Replace (M, X); + WriteB (Line); - else - if Match (Line, Templ, M) then - Replace (M, A & " S p e c "); - end if; + elsif Match (Line, Spec_Only, M) then + Replace (M, X); + WriteS (Line); - WriteS (Line); + else + if Match (Line, Templ, M) then + Replace (M, A & " S p e c "); + end if; - if Match (Line, Spec, M) then - Replace (M, A & "B o d y"); - end if; + WriteS (Line); - WriteB (Line); + if Match (Line, Spec, M) then + Replace (M, A & "B o d y"); end if; + + WriteB (Line); end if; end loop; |