ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add "Unix drives" /tmp and ${HOME}, and Device and Filesystem 

statements, to autogenerated wine.conf.
This commit is contained in:
Ove Kaaven 2000-06-02 20:20:27 +00:00 committed by Alexandre Julliard
parent e2f4aefb38
commit 9bd682d899
1 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tools/wineconf
View File

@ -78,10 +78,12 @@ sub ReadFSTAB {
my ($device, $mntpoint, $type, @rest) = split(' ', $_);
if ($device !~ m"^/dev/fd") {
if ($type eq "msdos" || $type eq "vfat") {
push(@::FatDrives, [$device, $mntpoint]);
push(@::FatDrives, [$device, $mntpoint, $type]);
}
elsif ($type eq "iso9660" || ($device eq '/dev/cdrom' && $type eq 'auto') ) {
push(@::CdromDrives, [$device, $mntpoint]);
elsif ($type eq "iso9660" ||
$mntpoint eq "/cdrom" ||
($device eq '/dev/cdrom' && $type eq 'auto') ) {
push(@::CdromDrives, [$device, $mntpoint, 'win95']);
}
}
}
@ -91,14 +93,18 @@ sub ReadFSTAB {
warn "cannot help you (yet)\n";
exit(1);
}
push(@::UnixDrives, ['', '/tmp', 'hd']);
push(@::UnixDrives, ['', '${HOME}', 'network']);
my $MagicDrive = 'C';
@::FatDrives = sort byDriveOrder @::FatDrives;
@::CdromDrives = sort byCdOrder @::CdromDrives;
foreach my $FatDrive (@::FatDrives) {
print "[Drive $MagicDrive]\n";
my $MntPoint = $FatDrive->[1];
my $FileSys = $FatDrive->[2];
print "Path=$MntPoint\n";
print "Type=hd\n";
print "Filesystem=$FileSys\n";
print "\n";
&RegisterDrive($MagicDrive, $FatDrive);
if(!&IsMounted($FatDrive->[0])) {
@ -109,13 +115,27 @@ sub ReadFSTAB {
}
foreach my $CdromDrive (@::CdromDrives) {
print "[Drive $MagicDrive]\n";
my $Device = $CdromDrive->[0];
my $MntPoint = $CdromDrive->[1];
my $FileSys = $CdromDrive->[2];
print "Path=$MntPoint\n";
print "Type=cdrom\n";
print "Device=$Device\n";
print "Filesystem=$FileSys\n";
print "\n";
&RegisterDrive($MagicDrive, $CdromDrive);
$MagicDrive++;
}
foreach my $UnixDrive (@::UnixDrives) {
print "[Drive $MagicDrive]\n";
my $MntPoint = $UnixDrive->[1];
my $Type = $UnixDrive->[2];
print "Path=$MntPoint\n";
print "Type=$Type\n";
print "Filesystem=win95\n";
print "\n";
$MagicDrive++;
}
}
sub FindWindowsDir {
@ -199,7 +219,7 @@ sub IsMounted {
}
sub RegisterDrive {
my($DOSdrive, $Drive) = @_;
my($DOSdrive, $Drive, $Type) = @_;
$::DOS2Unix{$DOSdrive} = $Drive;
$::Device2DOS{$Drive->[0]} = $DOSdrive;
$::MntPoint2DOS{$Drive->[1]} = $DOSdrive;