source/script/mkproto.awk

   1 # generate prototypes for Samba C code
   2 # tridge, June 1996
   3
   4 BEGIN {
   5   inheader=0;
   6 }
   7
   8 {
   9   if (inheader) {
  10     if (match($0,"[)][ \t]*$")) {
  11       inheader = 0;
  12       printf "%s;\n",$0;
  13     } else {
  14       printf "%s\n",$0;
  15     }
  16     next;
  17   }
  18 }
  19
  20 /^static|^extern/ || !/^[a-zA-Z]/ || /[;]/ {
  21   next;
  22 }
  23
  24 !/^unsigned|^mode_t|^DIR|^user|^int|^char|^uint|^struct|^BOOL|^void|^time/ {
  25   next;
  26 }
  27
  28
  29 /[(].*[)][ \t]*$/ {
  30     printf "%s;\n",$0;
  31     next;
  32 }
  33
  34 /[(]/ {
  35   inheader=1;
  36   printf "%s\n",$0;
  37   next;
  38 }
  39