build/bin/noulf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

#!/usr/bin/perl -w

use strict;

# dummy 'ulfex' / transex3/source/lngex.cxx equivalent, cf unitools.mk

my ($in, $out);
my $ignored = '';
while (my $arg = shift @ARGV) {
    if ($arg eq '-i') {
	$in = shift @ARGV;
    } elsif ($arg eq '-o') {
	$out = shift @ARGV;
    } else {
	$ignored .= " $arg";
    }
}

print "noulf: in $in, out $out, ignored args: '$ignored'\n";

# copy it straight ...
my ($infile, $outfile);
open $infile, "$in" || die "can't open $in: $!";
open $outfile, ">$out" || die "can't open $out: $!";
while (<$infile>) {
    print $outfile $_;
}
close $outfile;
close ($infile);