+++ /dev/null
-#! /usr/bin/perl -w
-
-use strict;
-
-my (@tests);
-
-open (TESTS, "<Make.tests") or die;
-while (<TESTS>) {
- chomp;
- /^#/ || /^\s+$/ and next;
- s/\s//g;
- push (@tests, $_);
-}
-close (TESTS);
-
-open (MAKEBASE, "<Make.base") or die;
-open (MAKEFILE, ">Makefile") or die;
-print MAKEFILE <<EOF;
-# This file is automatically generated from Make.base and Make.tests
-# by mkmf. Do not modify!
-
-EOF
-print MAKEFILE "TESTS =";
-my ($n) = 65;
-for my $test (@tests) {
- if ($n + 1 + length ($test) > 65) {
- print MAKEFILE " \\\n\t$test";
- $n = length ($test);
- } else {
- print MAKEFILE " $test";
- $n += 1 + length ($test);
- }
-}
-print MAKEFILE "\n";
-
-for my $test (@tests) {
- my ($test_id) = $test;
- $test_id =~ tr/-/_/;
-
- print MAKEFILE "${test_id}_SRC = ${test}.c\n";
-}
-print MAKEFILE "\n";
-
-while (<MAKEBASE>) {
- print MAKEFILE $_;
-}
-close (MAKEBASE);
-
-open (CVSIGNORE, ">.cvsignore");
-print CVSIGNORE <<EOF;
-# Automatically generated by mkmf - do not modify!
-*.d
-*.dsk
-*.o
-bochsrc.txt
-bochsout.txt
-child-arg
-child-bad
-child-close
-child-simple
-null
-EOF
-print CVSIGNORE join ("\n", @tests), "\n";
-close (CVSIGNORE);