1#!/usr/bin/perl
2
3use strict;
4
5my $os = shift;
6
7# get target listings
8opendir(MAKE_TARGETS,'./makefiles');
9my @targets = grep { /Makefile/ && -f './makefiles/'.$_ && s/^Makefile-// } readdir(MAKE_TARGETS);
10closedir(MAKE_TARGETS);
11
12# display usage
13unless ($os && grep{/$os/}@targets) {print<<EOF;exit(0)}
14usage: $0 {@targets}
15EOF
16
17# link appropriate target
18symlink './makefiles/Makefile-'.$os, 'Makefile';
19print "type make.\n";
20