fix diagnostics to report "our" vs "my" correctly
[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / Command.pm
1 package ExtUtils::Command;
2 use strict;
3 # use AutoLoader;
4 use Carp;
5 use File::Copy;
6 use File::Compare;
7 use File::Basename;
8 use File::Path qw(rmtree);
9 require Exporter;
10 use vars qw(@ISA @EXPORT $VERSION);
11 @ISA     = qw(Exporter);
12 @EXPORT  = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f);
13 $VERSION = '1.01';
14
15 =head1 NAME
16
17 ExtUtils::Command - utilities to replace common UNIX commands in Makefiles etc.
18
19 =head1 SYNOPSIS
20
21   perl -MExtUtils::Command -e cat files... > destination
22   perl -MExtUtils::Command -e mv source... destination
23   perl -MExtUtils::Command -e cp source... destination
24   perl -MExtUtils::Command -e touch files...
25   perl -MExtUtils::Command -e rm_f file...
26   perl -MExtUtils::Command -e rm_rf directories...
27   perl -MExtUtils::Command -e mkpath directories...
28   perl -MExtUtils::Command -e eqtime source destination
29   perl -MExtUtils::Command -e chmod mode files...
30   perl -MExtUtils::Command -e test_f file
31
32 =head1 DESCRIPTION
33
34 The module is used in the Win32 port to replace common UNIX commands.
35 Most commands are wrappers on generic modules File::Path and File::Basename.
36
37 =over 4
38
39 =cut
40
41 sub expand_wildcards
42 {
43  @ARGV = map(/[\*\?]/ ? glob($_) : $_,@ARGV);
44 }
45
46 =item cat 
47
48 Concatenates all files mentioned on command line to STDOUT.
49
50 =cut 
51
52 sub cat ()
53 {
54  expand_wildcards();
55  print while (<>);
56 }
57
58 =item eqtime src dst
59
60 Sets modified time of dst to that of src
61
62 =cut 
63
64 sub eqtime
65 {
66  my ($src,$dst) = @ARGV;
67  open(F,">$dst");
68  close(F);
69  utime((stat($src))[8,9],$dst);
70 }
71
72 =item rm_f files....
73
74 Removes directories - recursively (even if readonly)
75
76 =cut 
77
78 sub rm_rf
79 {
80  rmtree([grep -e $_,expand_wildcards()],0,0);
81 }
82
83 =item rm_f files....
84
85 Removes files (even if readonly)
86
87 =cut 
88
89 sub rm_f
90 {
91  foreach (expand_wildcards())
92   {
93    next unless -f $_;        
94    next if unlink($_);
95    chmod(0777,$_);           
96    next if unlink($_);
97    carp "Cannot delete $_:$!";
98   }
99 }
100
101 =item touch files ...
102
103 Makes files exist, with current timestamp 
104
105 =cut 
106
107 sub touch
108 {
109  expand_wildcards();
110  my $t    = time;
111  while (@ARGV)
112   {
113    my $file = shift(@ARGV);               
114    open(FILE,">>$file") || die "Cannot write $file:$!";
115    close(FILE);
116    utime($t,$t,$file);
117   }
118 }
119
120 =item mv source... destination
121
122 Moves source to destination.
123 Multiple sources are allowed if destination is an existing directory.
124
125 =cut 
126
127 sub mv
128 {
129  my $dst = pop(@ARGV);
130  expand_wildcards();
131  croak("Too many arguments") if (@ARGV > 1 && ! -d $dst);
132  while (@ARGV)
133   {
134    my $src = shift(@ARGV);               
135    move($src,$dst);
136   }
137 }
138
139 =item cp source... destination
140
141 Copies source to destination.
142 Multiple sources are allowed if destination is an existing directory.
143
144 =cut 
145
146 sub cp
147 {
148  my $dst = pop(@ARGV);
149  expand_wildcards();
150  croak("Too many arguments") if (@ARGV > 1 && ! -d $dst);
151  while (@ARGV)
152   {
153    my $src = shift(@ARGV);               
154    copy($src,$dst);
155   }
156 }
157
158 =item chmod mode files...
159
160 Sets UNIX like permissions 'mode' on all the files.
161
162 =cut 
163
164 sub chmod
165 {
166  my $mode = shift(@ARGV);
167  chmod($mode,expand_wildcards()) || die "Cannot chmod ".join(' ',$mode,@ARGV).":$!";
168 }
169
170 =item mkpath directory...
171
172 Creates directory, including any parent directories.
173
174 =cut 
175
176 sub mkpath
177 {
178  File::Path::mkpath([expand_wildcards()],1,0777);
179 }
180
181 =item test_f file
182
183 Tests if a file exists
184
185 =cut 
186
187 sub test_f
188 {
189  exit !-f shift(@ARGV);
190 }
191
192
193 1;
194 __END__ 
195
196 =back
197
198 =head1 BUGS
199
200 Should probably be Auto/Self loaded.
201
202 =head1 SEE ALSO 
203
204 ExtUtils::MakeMaker, ExtUtils::MM_Unix, ExtUtils::MM_Win32
205
206 =head1 AUTHOR
207
208 Nick Ing-Simmons <F<nick@ni-s.u-net.com>>.
209
210 =cut
211