eessppeelllloo/processing4
1
0
Fork 0
mirror of https://github.com/processing/processing4.git synced 2026-02-03 05:39:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixes by Ben to make things build on Casey's machina

Browse Source
This commit is contained in:
REAS
2002-07-01 12:22:32 +00:00
parent 09c3a5364e
commit 267f4ec257
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
processing/app/buzz.pl
View File

@@ -20,7 +20,8 @@ if ($ENV{'WINDIR'} ne '') {
$path_separator = ';';
# need path to mkdir for win32, because 'mkdir' defaults to the
# crappy dos version.. need to use cygwin instead
$mkdir_path = 'd:\\cygwin\\bin\\mkdir';
#$mkdir_path = 'd:\\cygwin\\bin\\mkdir';
$mkdir_path = 'mkdir';
$platform = 'windows';
} else {
$separator = '/';
@@ -152,7 +153,7 @@ foreach $file (@file_list) {
&read_positive;
#printf "try to make $temp_dir$separator$file\n";
open(OUTPUT, ">$temp_dir$separator$file") || die $!;
open(OUTPUT, ">$temp_dir$separator$file") || die "$! ($temp_dir$separator$file)";
print OUTPUT reverse(@new_contents);
close(OUTPUT);
unshift(@new_file_list, "$temp_dir$separator$file");
@@ -255,7 +256,12 @@ sub read_negative {
sub mkdirs {
my $d = @_[0];
#print "making dir $d\n";
$d =~ s/\\/\//g; # make backslashes into fwd slashes
my $result = `$mkdir_path -p $d`;
if ($platform ne 'windows') {
$d =~ s/\\/\//g; # make backslashes into fwd slashes
my $result = `$mkdir_path -p $d`;
} else {
print $result = `$mkdir_path $d`;
}
return 1;
}