scripts/genreplace.gawk

   1 #   Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   2 #   $Id$
   3 #
   4 #   Desc: Create mf.inc files from the %add_objects,%exclude_files stuff
   5 #
   6 BEGIN {
   7         lastdir = "";
   8 }
   9 {
  10         match($2,/(.*\/)+/);
  11         funct = substr($2,RLENGTH + 1);
  12         path = substr($2,1,RLENGTH);
  13
  14         if((path != lastdir) && (lastdir != ""))
  15         {
  16                 file = GENDIR "/" lastdir "mf.inc";
  17                 printf "SUPPRESS_FILES = %s\n", suppress > file;
  18                 printf "ADDITIONAL_OBJS = %s\n", add_objs >> file;
  19                 close(file);
  20 #               printf "Adding information for %s\n", lastdir;
  21
  22                 suppress = "";
  23                 add_objs = "";
  24         }
  25
  26         lastdir = path;
  27
  28         if( $1 == "add" )
  29                 add_objs =  add_objs " " funct;
  30         if( $1 == "not" )
  31                 suppress = suppress " " funct;
  32 }
  33
  34 END {
  35                 file = GENDIR "/" lastdir "/mf.inc";
  36                 printf "SUPPRESS_FILES = %s\n", suppress > file;
  37                 printf "ADDITIONAL_OBJS = %s\n", add_objs >> file;
  38                 close(file);
  39 }