2006-08-26 11:35:28 +00:00
|
|
|
: # -*-Mode: perl;-*- use perl, wherever it is
|
|
|
|
|
eval 'exec perl -wS $0 ${1+"$@"}'
|
|
|
|
|
if 0;
|
|
|
|
|
# DESCRIPTION: Print include statements for each ARGV
|
|
|
|
|
#
|
2008-01-15 14:29:08 +00:00
|
|
|
# Copyright 2003-2008 by Wilson Snyder. This program is free software; you can
|
2006-08-26 11:35:28 +00:00
|
|
|
# redistribute it and/or modify it under the terms of either the GNU
|
|
|
|
|
# General Public License or the Perl Artistic License.
|
|
|
|
|
######################################################################
|
|
|
|
|
|
|
|
|
|
require 5.005;
|
|
|
|
|
use warnings;
|
|
|
|
|
foreach my $param (@ARGV) {
|
|
|
|
|
print "#include \"$param\"\n"
|
|
|
|
|
}
|
