modules/FvwmCommand/findcmd.pl

   1 #!/usr/bin/perl
   2 # Find fvwm commands from functions.c struct functions
   3 # Written by Toshi Isogai
   4
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 2 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program; if not, write to the Free Software
  17 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18
  19 sub getcmd {
  20   $/ = "\n\n";
  21   while(<STDIN>) {
  22     #find "func_t func_config[] =" in various spacing
  23     if (s/func_t.*\[\]\s*=(\s|\n)*\{// ) {
  24       return listcmd();
  25     }
  26   }
  27   print stderr "Can't find func_t\n";
  28   exit 1;
  29 }
  30
  31 sub listcmd {
  32   my($cmd,@cmd);
  33
  34   while (/CMD_ENTRY/) {
  35     $old = $_;
  36     s/.*CMD_ENTRY[^,]*,\s*CMD_([^,]+).*/\1/s;
  37     s/\s*$//;
  38     if (!/^\+\s*$/) {
  39       push @cmd, $_;
  40     }
  41     $_ = $old;
  42     s/(.*)CMD_ENTRY.*/\1/s;
  43   }
  44   @cmd;
  45 }
  46
  47 sub create_pm {
  48   my( @cmd, $i, @ln );
  49   my( $fvwmdir ) = $ARGV[0];
  50   my( $pm ) = "FvwmCommand.pm";
  51
  52   @cmd = getcmd();
  53
  54   if ($ARGV[1] eq "-sh") {
  55     print "# FvwmCommand.sh\n";
  56     print "# Collection of fvwm builtin commands for FvwmCommand\n";
  57     print "#\n";
  58     print "alias FvwmCommand=\'$fvwmdir/FvwmCommand\'\n";
  59
  60     for( $i=0; $i<=$#cmd; $i++) {
  61       print  "$cmd[$i] () {\n";
  62       print  "\tFvwmCommand \"$cmd[$i] \$\*\"\n";
  63       print  "}\n";
  64     }
  65
  66     print "AM () { \n";
  67     print "     FvwmCommand \"+ \$\*\"\n";
  68     print "}\n";
  69   }
  70   else {
  71     print  "# $pm\n";
  72     print  "# Collection of fvwm builtin commands for FvwmCommand\n";
  73     print  "package FvwmCommand;\nuse Exporter;\n";
  74     print  "\@ISA=qw(Exporter);\n\@EXPORT=qw(";
  75     for( $i=0; $i<=$#cmd; $i++) {
  76       if( $i % 5 == 0 ) {
  77         print  "\n  $cmd[$i]";
  78       }else{
  79         print  " $cmd[$i]";
  80       }
  81     }
  82     print  "\n);\n";
  83     print  "\nsub FvwmCommand { system \"$fvwmdir/FvwmCommand '\@_'\"}\n\n";
  84     foreach $i (@cmd) {
  85       print  "sub $i { FvwmCommand \"$i \@_ \" }\n";
  86     }
  87     print  "sub AM { FvwmCommand \"+ \@_ \" }\n";
  88     print  "1;\n";
  89   }
  90 }
  91
  92 create_pm();