paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 10:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* merged verbosity check

Browse Source
This commit is contained in:
peter 2002-11-15 01:13:42 +00:00
parent 37247e8cde
commit b716b77913
1 changed files with 27 additions and 5 deletions

32
compiler/utils/msgdif.pp
View File

@ -49,27 +49,46 @@ const
Is_interactive : boolean = false;
Auto_verbosity : boolean = false;
Procedure GetTranslation( p : PMsg);
var
s : string;
i,j : longint;
i,j,k : longint;
begin
i:=pos('_',p^.text);
if (i>0) and (i<=5) then
if i>0 then
for j:=i+1 to Length(p^.text) do
if p^.text[j]='_' then
begin
i:=j;
break;
end;
if (i>0) and (i<=15) then
Writeln(P^.Enum,' type "',copy(p^.text,1,i-1),'" "',copy(p^.text,i+1,255),'"')
else
Writeln(P^.enum,' "',p^.text,'"');
Writeln('Type translated error message in,');
Writeln('Press return to keep it unchanged, or "q" to finish interactive mode');
Readln(s);
if s='' then
exit;
if s='q' then
begin
Is_interactive:=false;
exit;
end;
j:=pos('_',s);
if (j>0) and (j<=5) then
if j>0 then
for k:=j+1 to Length(s) do
if s[j]='_' then
begin
j:=k;
break;
end;
if (j>0) then
begin
if copy(p^.text,1,i)<>copy(s,1,j) then
Writeln('Different verbosity !!');
Writeln('Warning : different verbosity !!');
p^.text:=s;
end
else
@ -511,7 +530,10 @@ begin
end.
{
$Log$
Revision 1.8 2002-05-18 13:34:27 peter
Revision 1.9 2002-11-15 01:13:42 peter
* merged verbosity check
Revision 1.8 2002/05/18 13:34:27 peter
* readded missing revisions
Revision 1.7 2002/05/16 19:46:53 carl