#!/usr/local/bin/perl -w
#
# Create Makefile.defs from a given Makefile
#
# contact: m.a.hermanns@fz-juelich.de
#
####################################################################

use strict;

my ($line,$n);

open(IN,$ARGV[0]);

while(<IN>)
{
    $line = $_;
    $n = $line =~ s/^([A-Z0-9a-z_]+)\s*=\s*([a-zA-Z0-9_\-].*[a-zA-Z0-9_\-])[\ ]*/$1 = \#$1\#/m;
    if ($n) { print $line; }
}

close(IN);
