bin/genheader

   1 #!/usr/bin/perl -w
   2
   3 die "arg needed\n" if (!($#ARGV+1));
   4 my $fn = $ARGV[0];
   5 my $hh_q = ($fn =~ /hh$/ );
   6 my $MAILADRESS=$ENV{MAILADRESS};
   7 my @pw=(getpwuid($<));
   8 my $username=$pw[6];
   9 my $what="implement ";
  10 $what = "declare " if ($hh_q);
  11 my ($PROJECT, $cwd);
  12 $PROJECT = "the LilyPond music typesetter";
  13 chop($cwd = `pwd`);
  14
  15 $PROJECT= "the Flower Library" if ($cwd =~ /flower/);
  16 my $headstr ="/*
  17   $fn -- $what
  18
  19   source file of $PROJECT
  20
  21   (c) 1997 $username <$MAILADRESS>
  22 */\n";
  23
  24 my $startdef= $fn;
  25 $startdef =~ s/[\.-]/_/g;
  26 $startdef =~ tr/a-z/A-Z/;
  27 my $terminatestr="\n";
  28 if ($hh_q) {
  29     $headstr .= "\n\n#ifndef $startdef\n#define $startdef\n";
  30     $terminatestr .= "#endif // $startdef\n"
  31 }
  32
  33 print $headstr, $terminatestr;
  34
  35
  36