1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
type
trtabrec=record
name : string[12];
idx : longint;
end;
const
trtab : array[0..10] of trtabrec=(
(name:'general';idx:1000),
(name:'scan';idx:2000),
(name:'parser';idx:3000),
(name:'type';idx:4000),
(name:'sym';idx:5000),
(name:'cg';idx:6000),
(name:'asmr';idx:7000),
(name:'asmw';idx:8000),
(name:'exec';idx:9000),
(name:'unit';idx:10000),
(name:'option';idx:11000)
);
var
t,f : text;
s,hs : string;
i,j,k : longint;
begin
assign(t,paramstr(1));
reset(t);
assign(f,'New.msg');
rewrite(f);
while not eof(t) do
begin
readln(t,s);
if (s<>'') and not(s[1] in ['#','%']) then
begin
for i:=0 to 10 do
if Copy(s,1,length(trtab[i].name))=trtab[i].name then
begin
j:=pos('=',s);
if j>0 then
begin
inc(j);
if s[j] in ['0'..'9'] then
begin
k:=j;
while (s[k] in ['0'..'9']) do
inc(k);
if s[k]='_' then
inc(k);
delete(s,j,k-j);
end;
str(trtab[i].idx,hs);
while length(hs)<5 do
hs:='0'+hs;
hs:=hs+'_';
inc(trtab[i].idx);
insert(hs,s,j);
end;
break;
end;
end;
writeln(f,s);
end;
close(f);
close(t);
end.
|
