code-style-fix.pl

#!/usr/bin/perl -pi~

if(!/^\s+\*/) {
  # Skip lex <TOKEN> lines
  if(!/^</) {
    # Put spaces around assignment and comparitor ops
    s{([\w\)\]])([=<>]|==)([\w\(\[])}{$1 $2 $3}g;

    s{(\S)([-+*/~|=]=)(\S)}{$1 $2 $3}g;
  }

  s{(if|while|for) \(}{$1\(}g;

  s{if\(([^\)]+) == NULL\)}{if(!$1)};
}