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
|
#! /usr/bin/env perl
# Get symbols exported by the PLplot library and output only those that are
# included in the public header file.
#
# Rafael Laboissiere <rafael@users.sf.net> on Sun May 23 16:24:02 CEST 2004
# This file is part of PLplot and released under the terms of the GNU GPL.
# No warranties.
die "Usage:\n $0 header.h\n"
if scalar @ARGV != 1;
my ($header) = @ARGV;
open (HEADER, "< $header")
or die "$0: cannot open file $header";
my $in_struct = 0;
my $buf = "";
while (<HEADER>) {
$in_struct = 1
if /^typedef struct/;
if ($in_struct) {
$buf .= $_;
if (/^}/) {
print "$buf\n";
$in_struct = 0;
$buf = "";
}
}
}
|
