scripts/copyright.awk

   1 BEGIN {
   2     for (arg=1; arg<ARGC; arg++)
   3     {
   4         copyright="        Copyright © 1995-2001, The AROS Development Team. All rights reserved.";
   5         id="    $Id$";
   6         logtxt="    $Log$
   7         logtxt="    Revision 1.3  2001/10/30 20:28:20  chodorowski
   8         logtxt="    Fixed copyright notice.
   9         logtxt="
  10         logtxt="    Revision 1.2  1998/10/20 16:46:36  hkiel
  11         logtxt="    Amiga Research OS
  12         logtxt="
  13         logtxt="    Revision 1.1  1996/08/12 09:59:05  digulla
  14         logtxt="    Some scripts
  15         logtxt="";
  16         desc="    Desc:";
  17         lang="    Lang:";
  18
  19         filename=ARGV[arg];
  20         out=filename ".new";
  21
  22         print "Processing " filename "..."
  23
  24         getline line < filename
  25
  26         if (match (line, /^[ \t]*\/\*[ \t]*$/))
  27         {
  28 #print "#1"
  29             done=0
  30             while (!done && (getline line < filename) > 0)
  31             {
  32 #print "#2 |" line "|"
  33                 again=1;
  34                 while (again)
  35                 {
  36 #print "#3 again=" again
  37                     again=0;
  38                     if (match (line, /^[ \t]*[(]C[)]/))
  39                     {
  40 #print "#4"
  41                         ;
  42                     }
  43                     else if (match (line, /^[ \t]*\$Id/))
  44                     {
  45 #print "#5"
  46                         ;
  47                     }
  48                     else if (match (line, /^[ \t]*\$Log/))
  49                     {
  50 #print "#6"
  51                         ;
  52                     }
  53                     else if (match (line, /^[ \t]*Desc:/))
  54                     {
  55 #print "#7"
  56                         desc=line;
  57                         while ((getline line < filename) > 0)
  58                         {
  59                             if (match (line, /^[ \t]*([(]C[)]|\$Id|\$Log|Desc:|Lang:)/))
  60                                 break;
  61                             else if (match(line,/^[ \t]*\*\/[ \t]*$/))
  62                             {
  63                                 done = 1;
  64                                 break;
  65                             }
  66
  67                             desc=desc "\n" line;
  68                         }
  69
  70                         again=1;
  71                     }
  72                     else if (match (line, /^[ \t]*Lang:/))
  73                     {
  74 #print "#8"
  75                         lang=line;
  76                         while ((getline line < filename) > 0)
  77                         {
  78                             if (match (line, /^[ \t]*([(]C[)]|\$Id|\$Log|Desc:|Lang:)/))
  79                                 break;
  80                             else if (match(line,/^[ \t]*\*\/[ \t]*$/))
  81                             {
  82                                 done = 1;
  83                                 break;
  84                             }
  85
  86                             lang=lang "\n" line;
  87                         }
  88
  89                         again=1;
  90                     }
  91                     else if (match(line,/^[ \t]*\*\/[ \t]*$/))
  92                     {
  93 #print "#done" line
  94                         done=1;
  95                     }
  96                 }
  97             }
  98
  99             if (!done)
 100             {
 101                 print "Error: done is not set"
 102             }
 103
 104             firstline="";
 105         }
 106         else
 107             firstline=line;
 108 #print "#9" line
 109
 110         print "/*" > out
 111         print copyright >> out
 112         print id >> out
 113         print logtxt >> out
 114         print desc >> out
 115         print lang >> out
 116         print "*/" >> out
 117         if (firstline!="")
 118             print firstline >> out
 119
 120         while ((getline line < filename) > 0)
 121         {
 122 #print "#10" line
 123             print line >> out
 124         }
 125
 126         close (out);
 127
 128 #print "#11" line
 129         system ("mv " out " " filename);
 130     }
 131 }