File: fix-cpp-indent.pl

package info (click to toggle)
clisp 1%3A2.44.1-4.1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 40,080 kB
  • ctags: 12,945
  • sloc: lisp: 77,546; ansic: 32,166; xml: 25,161; sh: 11,568; fortran: 7,094; cpp: 2,636; makefile: 1,234; perl: 164
file content (13 lines) | stat: -rw-r--r-- 129 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl -w

use strict;

while (<>) {
  if (/^(\s*)\#(.*)$/) {
    print "#$1$2\n";
  } else {
    print;
  }
}

__END__