freebsd-dev/sys/i386/conf/makeLINT.pl

#! /usr/bin/perl
# $FreeBSD$

$lno=0;
while (<>) {
	chop;
	s/#.*//;
	s/\f//g;
	s/^[ \t]+//;
	$line = $_;
	$lno++;
	($key, @rest) = split;
	next if ($key eq "");
	next if ($key =~ /^hint\./);
	if ($key eq "machine" || $key eq "ident" || $key eq "device" ||
	    $key eq "makeoptions" || $key eq "options" ||
	    $key eq "cpu" || $key eq "option" || $key eq "maxusers") {
		print "$line\n";
	} else {
		print STDERR "unrecognized line: line $lno: $line\n";
	}
}
Borrow phk's axe and apply the next stage of config(8)'s evolution. Use Warner Losh's "hint" driver to decode ascii strings to fill the resource table at boot time. config(8) no longer generates an ioconf.c table - ie: the configuration no longer has to be compiled into the kernel. You can reconfigure your isa devices with the likes of this at loader(8) time: set hint.ed.0.port=0x320 userconfig will be rewritten to use this style interface one day and will move to /boot/userconfig.4th or something like that. It is still possible to statically compile in a set of hints into a kernel if you do not wish to use loader(8). See the "hints" directive in GENERIC as an example. All device wiring has been moved out of config(8). There is a set of helper scripts (see i386/conf/gethints.pl, and the same for alpha and pc98) that extract the 'at isa? port foo irq bar' from the old files and produces a hints file. If you install this file as /boot/device.hints (and update /boot/defaults/loader.conf - You can do a build/install in sys/boot) then loader will load it automatically for you. You can also compile in the hints directly with: hints "device.hints" as well. There are a few things that I'm not too happy with yet. Under this scheme, things like LINT would no longer be useful as "documentation" of settings. I have renamed this file to 'NOTES' and stored the example hints strings in it. However... this is not something that config(8) understands, so there is a script that extracts the build-specific data from the documentation file (NOTES) to produce a LINT that can be config'ed and built. A stack of man4 pages will need updating. :-/ Also, since there is no longer a difference between 'device' and 'pseudo-device' I collapsed the two together, and the resulting 'device' takes a 'number of units' for devices that still have it statically allocated. eg: 'device fe 4' will compile the fe driver with NFE set to 4. You can then set hints for 4 units (0 - 3). Also note that 'device fe0' will be interpreted as "zero units of 'fe'" which would be bad, so there is a config warning for this. This is only needed for old drivers that still have static limits on numbers of units. All the statically limited drivers that I could find were marked. Please exercise EXTREME CAUTION when transitioning! Moral support by: phk, msmith, dfr, asmodai, imp, and others 2000-06-13 22:28:50 +00:00			`#! /usr/bin/perl`
			`# $FreeBSD$`

			`$lno=0;`
Use while (<>) instead of while(<STDIN>) so that perl will automagically deal with filename arguments. It is amazing how much you forget over time. Thanks to the people that reminded me this. I knew there was an easy way that didn't involve messing with $argv, filehandles, etc, but just could not remember - all of my books are on the opposite side of the planet.. 2000-06-17 19:06:13 +00:00			`while (<>) {`
Borrow phk's axe and apply the next stage of config(8)'s evolution. Use Warner Losh's "hint" driver to decode ascii strings to fill the resource table at boot time. config(8) no longer generates an ioconf.c table - ie: the configuration no longer has to be compiled into the kernel. You can reconfigure your isa devices with the likes of this at loader(8) time: set hint.ed.0.port=0x320 userconfig will be rewritten to use this style interface one day and will move to /boot/userconfig.4th or something like that. It is still possible to statically compile in a set of hints into a kernel if you do not wish to use loader(8). See the "hints" directive in GENERIC as an example. All device wiring has been moved out of config(8). There is a set of helper scripts (see i386/conf/gethints.pl, and the same for alpha and pc98) that extract the 'at isa? port foo irq bar' from the old files and produces a hints file. If you install this file as /boot/device.hints (and update /boot/defaults/loader.conf - You can do a build/install in sys/boot) then loader will load it automatically for you. You can also compile in the hints directly with: hints "device.hints" as well. There are a few things that I'm not too happy with yet. Under this scheme, things like LINT would no longer be useful as "documentation" of settings. I have renamed this file to 'NOTES' and stored the example hints strings in it. However... this is not something that config(8) understands, so there is a script that extracts the build-specific data from the documentation file (NOTES) to produce a LINT that can be config'ed and built. A stack of man4 pages will need updating. :-/ Also, since there is no longer a difference between 'device' and 'pseudo-device' I collapsed the two together, and the resulting 'device' takes a 'number of units' for devices that still have it statically allocated. eg: 'device fe 4' will compile the fe driver with NFE set to 4. You can then set hints for 4 units (0 - 3). Also note that 'device fe0' will be interpreted as "zero units of 'fe'" which would be bad, so there is a config warning for this. This is only needed for old drivers that still have static limits on numbers of units. All the statically limited drivers that I could find were marked. Please exercise EXTREME CAUTION when transitioning! Moral support by: phk, msmith, dfr, asmodai, imp, and others 2000-06-13 22:28:50 +00:00			`chop;`
			`s/#.*//;`
			`s/\f//g;`
			`s/^[ \t]+//;`
			`$line = $_;`
			`$lno++;`
			`($key, @rest) = split;`
			`next if ($key eq "");`
			`next if ($key =~ /^hint\./);`
			`if ($key eq "machine" \|\| $key eq "ident" \|\| $key eq "device" \|\|`
			`$key eq "makeoptions" \|\| $key eq "options" \|\|`
			`$key eq "cpu" \|\| $key eq "option" \|\| $key eq "maxusers") {`
			`print "$line\n";`
			`} else {`
			`print STDERR "unrecognized line: line $lno: $line\n";`
			`}`
			`}`