← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to utils/rmcvsdir.pp

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
utils/rmcvsdir.pp
17
17
                   deltree(dirname+'/'+rec.name)
18
18
              end
19
19
            else
20
 
              deletefile(dirname+'/'+rec.name);
 
20
              begin
 
21
                FileSetAttr(dirname+'/'+rec.name,faArchive);
 
22
                deletefile(dirname+'/'+rec.name);
 
23
              end;
21
24
          until findnext(rec)<>0;
22
25
          findclose(rec);
23
26
       end;
38
41
              begin
39
42
                 if rec.name='CVS' then
40
43
                   deltree(dirname+'/CVS')
 
44
                 else if rec.name='.svn' then
 
45
                   deltree(dirname+'/.svn')
41
46
                 else
42
47
                   if (rec.name<>'.') and (rec.name<>'..') then
43
48
                     searchcvsdir(dirname+'/'+rec.name)
47
52
       end;
48
53
  end;
49
54
 
 
55
var
 
56
  para : string;
50
57
begin
51
 
   searchcvsdir('.');
 
58
  if paramcount=0 then
 
59
    para:='.'
 
60
  else
 
61
    para:=paramstr(1);
 
62
  searchcvsdir(para);
52
63
end.