scripts/genmfs

   1 #!/usr/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\n";
  14 print OUT "include \$(TOP)/config/make.cfg\n\n";
  15 print OUT "EXEDIR := \$(AROSDIR)\n\n";
  16 print OUT "FILES := ";
  17 foreach $ln (`ls`) {
  18 next if $ln =~ m/mmakefile/;
  19 if ($ln =~ m/.c$/) {
  20 $ln =~ s/.c$//;
  21 $f = $ln;
  22 chomp($ln);
  23 print OUT "\\\n\t$ln ";
  24 }
  25 }
  26 print OUT "\n\n#MM $tg : includes linklibs\n\n";
  27 print OUT "%build_prog mmake=$tg \\\n";
  28 print OUT "     progname=$tg targetdir=\$(EXEDIR) \\\n";
  29 print OUT "     files=\$(FILES) uselibs=\"arossupport amiga arosc m\"\n\n";
  30 print OUT "%common\n";
  31 close(OUT);
  32