scripts/genmfs

   1 #!/usr/local/bin/perl
   2 # AROS mmakefile.src generator version 0.01a
   3 # Jack Patton 2/24/2004
   4 # Script to generate a mmakefile.src based upon the .c files in the current directory.
   5 # Please don't flame me for my lack of knowledge of mmake (too badly anyway ;) )!
   6
   7 $tg = $ARGV[0];
   8 if (!$ARGV[0]) {
   9 print "Usage: genmfs <project name>\n";
  10 exit;
  11 }
  12 open(OUT,">mmakefile.src");
  13 print OUT "#   $Id$\n#\n#   Makefile to make $tg.\n";
  14 print OUT "include \$(TOP)/config/make.cfg\n\n";
  15 print OUT "FILES := \\\n";
  16 foreach $ln (`ls`) {
  17 next if $ln =~ m/mmakefile/;
  18 if ($ln =~ m/.c$/) {
  19 $ln =~ s/.c$//;
  20 $f = $ln;
  21 chomp($ln);
  22 print OUT "\t$ln \\\n";
  23 }
  24 }
  25 print OUT "\n\n#MM $tg : includes linklibs\n";
  26 print OUT "     %build_prog mmake=$tg \\\n";
  27 print OUT "     progname=$tg targetdir=\$(EXEDIR) nix=yes \\\n";
  28 print OUT "     files=\$(FILES) uselibs=\"arossupport amiga arosc m\"\n\n";
  29 print OUT "%common\n";
  30 close(OUT);
  31