ACE/bin/indent_macros.pl

   1 eval '(exit $?0)' && eval 'exec perl -i -S $0 ${1+"$@"}'
   2     & eval 'exec perl -i -S $0 $argv:q'
   3     if 0;
   4
   5
   6 # This perl script re-arrange the macro indentation so it's easier to
   7 # see the layering relationship.
   8
   9 $lineno = 0;
  10 $indent = 0;
  11
  12 sub inc_indent
  13 {
  14     $indent += 2;
  15 }
  16
  17 sub dec_indent
  18 {
  19     $indent -= 2;
  20 }
  21
  22 sub get_indent
  23 {
  24     $retv = 0;
  25     print STDERR "$0 (", $lineno, "): Unbalanced macro pairs\n" if ($indent < 0);
  26     $retv = $indent - 1 if ($indent > 0);
  27     $retv;
  28 }
  29
  30 while (<>) {
  31     $lineno++;
  32     if (/^[ \t]*\#[ \t]*((if|el|en|).*)/)
  33     {
  34         $cont = $1;
  35         $temp = $2;
  36         if ($temp =~ /if/) {
  37             print "#", " " x &get_indent (), $cont,"\n";
  38             inc_indent ();
  39         }
  40         elsif ($temp =~ /el/) {
  41             dec_indent ();
  42             print "#", " " x &get_indent (), $cont,"\n";
  43             inc_indent ();
  44         }
  45         elsif ($temp =~ /en/) {
  46             dec_indent ();
  47             print "#", " " x &get_indent (), $cont,"\n";
  48         }
  49         else {
  50             print "#", " " x &get_indent (), $cont,"\n";
  51         }
  52     }
  53     else {
  54         print $_;
  55     }
  56 }
  57
  58 die ("$0 (EOF): Unbalanced macro pairs\n") if ($indent != 0);