File: get-source-files.pl

package info (click to toggle)
giza 1.5.0-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 4,352 kB
  • sloc: ansic: 13,252; sh: 4,205; f90: 3,003; lex: 437; perl: 330; makefile: 99
file content (13 lines) | stat: -rwxr-xr-x 314 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl
#
# @(#) Perl script to get current source files for Makefile
#
# @(#) (c) Daniel Price, Jan 2011, daniel.price@monash.edu
#
use Text::Wrap;

$Text::Wrap::columns=80;
$Text::Wrap::separator=" \\\n";
#print wrap('PHEADERS= ','          ',@ARGV);
print wrap('SOURCE= ','        ',@ARGV);
print "\n";