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
   6 $tg = $ARGV[0];
   7 if (!$ARGV[0]) {
   8     print "Usage: genmfs <project name>\n";
   9     exit;
  10 }
  11 open(OUT,">mmakefile.src");
  12 print OUT "# Copyright \© 2017 The AROS Development Team. All rights reserved.\n";
  13 print OUT "# \$Id\$\n\n";
  14 print OUT "# Makefile to make $tg.\n\n";
  15 print OUT "include \$(SRCDIR)/config/aros.cfg\n\n";
  16 print OUT "EXEDIR := \$(AROSDIR)\n\n";
  17 print OUT "FILES := ";
  18
  19 foreach $ln (`ls`) {
  20     next if $ln =~ m/mmakefile/;
  21     if ($ln =~ m/.c$/) {
  22         $ln =~ s/.c$//;
  23         $f = $ln;
  24         chomp($ln);
  25         print OUT "\\\n    $ln ";
  26     }
  27 }
  28 print OUT "\n\nNOWARN_FLAGS  :=";
  29 print OUT "\nUSER_CFLAGS   := \$(NOWARN_FLAGS)";
  30 print OUT "\nUSER_INCLUDES :=";
  31 print OUT "\nUSER_LDFLAGS  := ";
  32 print OUT "\n\n#MM $tg : includes linklibs\n\n";
  33 print OUT "%build_prog mmake=$tg \\\n";
  34 print OUT "    progname=$tg targetdir=\$(EXEDIR) \\\n";
  35 print OUT "    files=\$(FILES) uselibs=\"\"\n\n";
  36 print OUT "%common\n";
  37 close(OUT);
  38