sys/src/cmd/upas/binscripts/tfmt.rc

   1 #!/bin/rc
   2 # anti-topposting defense
   3
   4 # sed '/^[      ]*>[    ]*>[    ]*>/q'
   5
   6 awk '
   7 {
   8         if(l[i] ~ /^[   ]*>[    ]*>[    ]*>/)
   9                 q = 1
  10         if(q == 0)
  11                 l[i = NR] = $0;
  12 }
  13 END{
  14         for(; i > 1; i--)
  15                 if(l[i] !~ /^([         ]*>)*[  ]*$/)
  16                         break;
  17         for(; i > 1; i--)
  18                 if(l[i] !~ /^[  ]*>[    ]*>/)
  19                         break;
  20         for(; i > 1; i--)
  21                 if(l[i] !~ /^([         ]*>)*[  ]*$/)
  22                         break;
  23         for(j = 1; j <= i; j++)
  24                 print l[j]
  25 }' |dd -conv block >[2=]