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
|
#!/usr/bin/perl
use warnings;
use strict;
use Cwd qw(cwd);
use File::Find;
my $src_dir = cwd;
my $location;
my @thread_arr;
sub find_thread_header {
my $F = $File::Find::name;
if($F =~ /.h$/){
print "$F\n";
push(@thread_arr, "$F");
}
}
if($#ARGV >= 1){
$src_dir = $ARGV[1];
}
open(my $libags_sym_fh, '>', "$src_dir/libags.sym.in");
# thread
$location = "$src_dir/ags/thread";
find({ wanted => \&find_thread_header, no_chdir=>1}, $location);
for(my $i=0; $i <= $#thread_arr; $i++){
open my $fh, "<", $thread_arr[$i];
do {
local $/;
my $str = <$fh>;
my @all_on_line = $str =~ /(?<!#define )(?<=\s)(ags_[a-z0-9_]+)(?=[\s]*\()/g;
if(@all_on_line){
for(my $j=0; $j <= $#all_on_line; $j++){
print "$all_on_line[$j]\n";
say $libags_sym_fh "$all_on_line[$j]\n";
}
}
}
}
close $libags_sym_fh;
|
