← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to compiler/utils/fixmsg.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

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