1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#!/usr/bin/perl -w
# $Id: //info.ravenbrook.com/project/mps/master/test/test/script/headconv#3 $
#
# convert to new-style test header format
#
foreach $file (@ARGV) {
 unless (open(IN, $file)) {die $file." not found";}
 open(OUT, ">new/$file");
 print $file." --> new/".$file."\n";
 
 print OUT "/* TEST_HEADER\n";

 $_ = <IN>;
 s+/\*\s*test + summary = +;
 print OUT $_;

 $_ = <IN>;
 s/\s*language\s*c/ language = c/;
 print OUT $_;

 $_ = <IN>;
 if (m/\s*link /) {
  s/\s*link / link = /;
  print OUT $_;
  $_ = <IN>;
 }

 if (m+\*/+) {
  print OUT "END_HEADER\n";
  print OUT "*/\n";
 } else {
  print OUT "OUTPUT_SPEC\n";
  print OUT $_;
  $_ = <IN>;
  while (!m+\*/+) {
   s/\s*/ /;
   print OUT $_;
   $_ = <IN>;
  }
  print OUT "END_HEADER\n";
  print OUT "*/\n";

 }

 while (<IN>) {
  print OUT $_;
 }

 close(OUT);
 close(IN);

}