File: makelibrary.pl

package info (click to toggle)
therion 5.4.3ds1-6
  • links: PTS
  • area: main
  • in suites: buster
  • size: 13,664 kB
  • sloc: ansic: 116,223; cpp: 67,781; tcl: 19,295; perl: 2,002; makefile: 1,107; asm: 219; python: 210; sh: 17
file content (14 lines) | stat: -rw-r--r-- 128 bytes parent folder | download | duplicates (5) 
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);