File: makelibrary.pl

package info (click to toggle)
therion 6.3.4-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 15,544 kB
  • sloc: cpp: 195,273; tcl: 19,779; ansic: 8,434; perl: 1,895; makefile: 1,281; python: 255; asm: 219; sh: 104
file content (14 lines) | stat: -rw-r--r-- 128 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
$a = 0;
open(INP,$ARGV[0]);
while(<INP>) {
  
  if (/\/\*\*/) {
    $a = 1;
  } 
  
  if ($a) {
    print;
  }
  
}
close(INP);