diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/h/local/incr.awk

   1 BEGIN {IFS="    "; OFS=IFS; FS=IFS}
   2 #234567890123456789012345678901234567890
   3 #define FT_LS_822ADDR   51      /* set "str" to 822 format addr */
   4 {
   5         if (substr($0,25,2) ~ /[0-9][0-9]/) {
   6             a = substr($0,25,2) + 1;
   7         print substr($0,1,24) sprintf ("%02.2d", a) substr($0,27);
   8         }
   9         else print;
  10 }