c46d792d58
fields, not lex/yacc grammar so it is not an exact match but should be close enough for most cases. Deal with 'port?', 'irq?' style specifications. These are parsed as seperate values in lex/yacc in config(8) but tripped up this helper tool.
93 lines
2.6 KiB
Perl
93 lines
2.6 KiB
Perl
#! /usr/bin/perl
|
|
#
|
|
# This is a transition aid. It extracts old-style configuration information
|
|
# from a config file and writes an equivalent device.hints file to stdout.
|
|
# You can use that with loader(8) or statically compile it in with the
|
|
# 'hints' directive. See how GENERIC and GENERIC.hints fit together for
|
|
# a static example. You should use loader(8) if at all possible.
|
|
#
|
|
# $FreeBSD$
|
|
|
|
while (<>) {
|
|
chop;
|
|
s/#.*//;
|
|
next unless /^device/;
|
|
s/"//g;
|
|
($dev, $nameunit, $at, $where, @rest) = split;
|
|
next unless $at eq "at" && $where ne "";
|
|
$name = $nameunit;
|
|
$name =~ s/[0-9]*$//g;
|
|
$unit = $nameunit;
|
|
$unit =~ s/.*[^0-9]//g;
|
|
$where =~ s/\?$//;
|
|
print "hint.$name.$unit.at=\"$where\"\n";
|
|
while ($key = shift(@rest)) {
|
|
if ($key eq "disable") {
|
|
print "hint.$name.$unit.disabled=\"1\"\n";
|
|
next;
|
|
}
|
|
if ($key eq "port") {
|
|
$val = shift(@rest);
|
|
$val =~ s/IO_A20CT/0x0F6/;
|
|
$val =~ s/IO_A2OEN/0x0F2/;
|
|
$val =~ s/IO_BEEPF/0x3FDB/;
|
|
$val =~ s/IO_BMS/0x7FD9/;
|
|
$val =~ s/IO_CGROM/0x0A1/;
|
|
$val =~ s/IO_COM1/0x030/;
|
|
$val =~ s/IO_COM2/0x0B1/;
|
|
$val =~ s/IO_COM3/0x0B9/;
|
|
$val =~ s/IO_DMA/0x001/;
|
|
$val =~ s/IO_DMAPG/0x021/;
|
|
$val =~ s/IO_EGC/0x4A0/;
|
|
$val =~ s/IO_FD1/0x090/;
|
|
$val =~ s/IO_FD2/0x0C8/;
|
|
$val =~ s/IO_FDPORT/0x0BE/;
|
|
$val =~ s/IO_GDC1/0x060/;
|
|
$val =~ s/IO_GDC2/0x0A0/;
|
|
$val =~ s/IO_ICU1/0x000/;
|
|
$val =~ s/IO_ICU2/0x008/;
|
|
$val =~ s/IO_KBD/0x041/;
|
|
$val =~ s/IO_LPT/0x040/;
|
|
$val =~ s/IO_MOUSE/0x7FD9/;
|
|
$val =~ s/IO_MOUSETM/0xDFBD/;
|
|
$val =~ s/IO_MSE/0x7FD9/;
|
|
$val =~ s/IO_NMI/0x050/;
|
|
$val =~ s/IO_NPX/0x0F8/;
|
|
$val =~ s/IO_PPI/0x035/;
|
|
$val =~ s/IO_REEST/0x0F0/;
|
|
$val =~ s/IO_RTC/0x020/;
|
|
$val =~ s/IO_SASI/0x080/;
|
|
$val =~ s/IO_SCSI/0xCC0/;
|
|
$val =~ s/IO_SIO1/0x0D0/;
|
|
$val =~ s/IO_SIO2/0x8D0/;
|
|
$val =~ s/IO_SOUND/0x188/;
|
|
$val =~ s/IO_SYSPORT/0x031/;
|
|
$val =~ s/IO_TIMER1/0x071/;
|
|
$val =~ s/IO_WAIT/0x05F/;
|
|
$val =~ s/IO_WD1/0x640/;
|
|
$val =~ s/IO_WD1_EPSON/0x80/;
|
|
$val =~ s/IO_WD1_NEC/0x640/;
|
|
if ($val ne "?") {
|
|
print "hint.$name.$unit.port=\"$val\"\n";
|
|
}
|
|
next;
|
|
}
|
|
if ($key eq "port?" || $key eq "drq?" || $key eq "irq?" ||
|
|
$key eq "iomem?" || $key eq "iosiz?") {
|
|
next;
|
|
}
|
|
if ($key eq "irq" || $key eq "drq" || $key eq "drive" ||
|
|
$key eq "iomem" || $key eq "iosiz" || $key eq "flags"||
|
|
$key eq "bus" || $key eq "target" || $key eq "unit") {
|
|
$key =~ s/iomem/maddr/;
|
|
$key =~ s/iosiz/msize/;
|
|
$val = shift(@rest);
|
|
if ($val ne "?") {
|
|
print "hint.$name.$unit.$key=\"$val\"\n";
|
|
}
|
|
next;
|
|
}
|
|
print STDERR "unrecognized config token $key\n";
|
|
}
|
|
}
|