blob: 3d5ef9ccad7d3c269efa3cfcc3af042502de23a0 (
plain)
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
53
54
55
56
57
58
59
60
61
|
#!/usr/bin/perl
# Find fvwm commands from function.c struct functions
# Written by Toshi Isogai
sub getcmd {
$/ = "\n\n";
while(<FF>) {
#find "struct functions func_config[] =" in various spacing
if (s/struct\s+functions.*\[\]\s+=(\s|\n)+\{// ) {
return listcmd();
}
}
print stderr "Can't find struct functions\n";
exit 1;
}
sub listcmd {
my($cmd,@cmd);
while( /"(.*)"/g ) {
$cmd = $1;
next if $cmd =~ /^\+?$/;
push @cmd, $cmd;
}
@cmd;
}
sub create_pm {
my(@cmd,$i,@ln);
my( $fvwmdir ) = $ARGV[0];
my( $fc);
my( $pm ) = "FvwmCommand.pm";
$fc = "../../fvwm/functions.c";
open(FF, $fc) || die "$fc $!";
@cmd = getcmd();
close(FF);
open(FPL,">$pm") || die "$pm: $!";
print FPL "# $pm\n";
print FPL "# Collection of fvwm2 builtin commands for FvwmCommand\n";
print FPL "package FvwmCommand;\nuse Exporter;\n";
print FPL "\@ISA=qw(Exporter);\n\@EXPORT=qw(";
for( $i=0; $i<=$#cmd; $i++) {
if( $i % 5 == 0 ) {
print FPL "\n $cmd[$i]";
}else{
print FPL " $cmd[$i]";
}
}
print FPL "\n);\n";
print FPL "\nsub FvwmCommand { system \"$fvwmdir/FvwmCommand '\@_'\"}\n\n";
foreach $i (@cmd) {
print FPL "sub $i { FvwmCommand \"$i \@_ \" }\n";
}
print FPL "sub AM { FvwmCommand \"+ \@_ \" }\n";
print FPL "1;\n";
print "$pm created\n";
}
create_pm();
|
