File: fix-var-global-local.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 (20 lines) | stat: -rw-r--r-- 466 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl -w

use strict;

while (<>) {
  /\s*\#\s*(define|undef)\s+(var|local|global)\b/ and next;
  s/\bvar\s+local\b/static/g;
  s/\blocal\s+var\b/static/g;
  s/\binline\s+local\b/inline static/g;
  s/\bvar\s+(\w+)\b/$1/g;
  s/^(\s*)(global|var) /$1/;
  s/^(\s*)local\b/$1static/;
  s/({\s*)var /$1/;
  s/nonreturning_function\s*\(global,/nonreturning_function(,/g;
  s/nonreturning_function\s*\(local,/nonreturning_function(static,/g;
  print;
}

__END__