#!/usr/bin/perl my $multicomment=0; while (<>) { chomp; if (!$multicomment) { s|//.*$| |g; s|/\*.*?\*/| |g; if (m|/\*|) { s|/\*.*$| |g; $multicomment=1; } } elsif (m|\*/|) { s|^.*?\*/| |g; $multicomment=0; } else { $_=''; } s|^\s+||g; s|\s+$||g; s|\s+| |g; s|^(\#define \w+) |\1\t|g; s|(\W) (.)|\1\2|g; s|(.) (\W)|\1\2|g; s:(?