← Back to branch summary

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

« back to all changes in this revision

Viewing changes to utils/rmcvsdir.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:
utils/rmcvsdir.pp
1
 
uses
2
 
   sysutils;
3
 
 
4
 
procedure deltree(const dirname : string);
5
 
 
6
 
  var
7
 
     rec : tsearchrec;
8
 
 
9
 
  begin
10
 
     writeln('Deleting ',dirname);
11
 
     if findfirst(dirname+'/*.*',faanyfile,rec)=0 then
12
 
       begin
13
 
          repeat
14
 
            if (rec.attr and fadirectory)<>0 then
15
 
              begin
16
 
                 if (rec.name<>'.') and (rec.name<>'..') then
17
 
                   deltree(dirname+'/'+rec.name)
18
 
              end
19
 
            else
20
 
              deletefile(dirname+'/'+rec.name);
21
 
          until findnext(rec)<>0;
22
 
          findclose(rec);
23
 
       end;
24
 
     rmdir(dirname);
25
 
  end;
26
 
 
27
 
procedure searchcvsdir(const dirname : string);
28
 
 
29
 
  var
30
 
     rec : tsearchrec;
31
 
 
32
 
  begin
33
 
     writeln('Searching ',dirname);
34
 
     if findfirst(dirname+'/*.*',faanyfile,rec)=0 then
35
 
       begin
36
 
          repeat
37
 
            if (rec.attr and fadirectory)<>0 then
38
 
              begin
39
 
                 if rec.name='CVS' then
40
 
                   deltree(dirname+'/CVS')
41
 
                 else
42
 
                   if (rec.name<>'.') and (rec.name<>'..') then
43
 
                     searchcvsdir(dirname+'/'+rec.name)
44
 
              end;
45
 
          until findnext(rec)<>0;
46
 
          findclose(rec);
47
 
       end;
48
 
  end;
49
 
 
50
 
begin
51
 
   searchcvsdir('.');
52
 
end.