1 files changed, 0 insertions, 93 deletions
diff --git a/sys/pc98/conf/gethints.pl b/sys/pc98/conf/gethints.pl
deleted file mode 100644
index 684d5b2d8cc0..000000000000
--- a/sys/pc98/conf/gethints.pl
+++ /dev/null
@@ -1,93 +0,0 @@
-#! /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 (<>) {
-	$line++;
-	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' on line $line\n";
-	}
-}