Return to extract.pl.in CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / quagga / vtysh

Initial revision

    1: #! @PERL@
    2: ##
    3: ## @configure_input@
    4: ##
    5: ## Virtual terminal interface shell command extractor.
    6: ## Copyright (C) 2000 Kunihiro Ishiguro
    7: ## 
    8: ## This file is part of GNU Zebra.
    9: ## 
   10: ## GNU Zebra is free software; you can redistribute it and/or modify it
   11: ## under the terms of the GNU General Public License as published by the
   12: ## Free Software Foundation; either version 2, or (at your option) any
   13: ## later version.
   14: ## 
   15: ## GNU Zebra is distributed in the hope that it will be useful, but
   16: ## WITHOUT ANY WARRANTY; without even the implied warranty of
   17: ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   18: ## General Public License for more details.
   19: ## 
   20: ## You should have received a copy of the GNU General Public License
   21: ## along with GNU Zebra; see the file COPYING.  If not, write to the Free
   22: ## Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
   23: ## 02111-1307, USA.  
   24: ##
   25: 
   26: print <<EOF;
   27: #include <zebra.h>
   28: #include "command.h"
   29: #include "vtysh.h"
   30: 
   31: EOF
   32: 
   33: $ignore{'"interface IFNAME"'} = "ignore";
   34: $ignore{'"ip vrf NAME"'} = "ignore";
   35: $ignore{'"router rip"'} = "ignore";
   36: $ignore{'"router ripng"'} = "ignore";
   37: $ignore{'"router ospf"'} = "ignore";
   38: $ignore{'"router ospf <0-65535>"'} = "ignore";
   39: $ignore{'"router ospf6"'} = "ignore";
   40: $ignore{'"router bgp " "<1-4294967295>"'} = "ignore";
   41: $ignore{'"router bgp " "<1-4294967295>" " view WORD"'} = "ignore";
   42: $ignore{'"router isis WORD"'} = "ignore";
   43: $ignore{'"router zebra"'} = "ignore";
   44: $ignore{'"address-family ipv4"'} = "ignore";
   45: $ignore{'"address-family ipv4 (unicast|multicast)"'} = "ignore";
   46: $ignore{'"address-family ipv6"'} = "ignore";
   47: $ignore{'"address-family ipv6 unicast"'} = "ignore";
   48: $ignore{'"address-family vpnv4"'} = "ignore";
   49: $ignore{'"address-family vpnv4 unicast"'} = "ignore";
   50: $ignore{'"address-family ipv4 vrf NAME"'} = "ignore";
   51: $ignore{'"exit-address-family"'} = "ignore";
   52: $ignore{'"key chain WORD"'} = "ignore";
   53: $ignore{'"key <0-2147483647>"'} = "ignore";
   54: $ignore{'"route-map WORD (deny|permit) <1-65535>"'} = "ignore";
   55: $ignore{'"show route-map"'} = "ignore";
   56: $ignore{'"line vty"'} = "ignore";
   57: $ignore{'"who"'} = "ignore";
   58: $ignore{'"terminal monitor"'} = "ignore";
   59: $ignore{'"terminal no monitor"'} = "ignore";
   60: $ignore{'"show history"'} = "ignore";
   61: 
   62: foreach (@ARGV) {
   63:     $file = $_;
   64: 
   65:     open (FH, "cpp -DHAVE_CONFIG_H -DVTYSH_EXTRACT_PL -DHAVE_IPV6 -I@top_builddir@ -I@srcdir@/ -I@srcdir@/.. -I@top_srcdir@/lib -I@top_srcdir@/isisd/topology @SNMP_INCLUDES@ $file |");
   66:     local $/; undef $/;
   67:     $line = <FH>;
   68:     close (FH);
   69: 
   70:     @defun = ($line =~ /(?:DEFUN|ALIAS)\s*\((.+?)\);?\s?\s?\n/sg);
   71:     @install = ($line =~ /install_element \(\s*[0-9A-Z_]+,\s*&[^;]*;\s*\n/sg);
   72: 
   73:     # DEFUN process
   74:     foreach (@defun) {
   75: 	my (@defun_array);
   76: 	@defun_array = split (/,/);
   77: 	$defun_array[0] = '';
   78: 
   79: 
   80: 	# Actual input command string.
   81: 	$str = "$defun_array[2]";
   82: 	$str =~ s/^\s+//g;
   83: 	$str =~ s/\s+$//g;
   84: 
   85: 	# Get VTY command structure.  This is needed for searching
   86: 	# install_element() command.
   87: 	$cmd = "$defun_array[1]";
   88: 	$cmd =~ s/^\s+//g;
   89: 	$cmd =~ s/\s+$//g;
   90: 
   91:         # $protocol is VTYSH_PROTO format for redirection of user input
   92:     	if ($file =~ /lib/) {
   93:            if ($file =~ /keychain.c/) {
   94:               $protocol = "VTYSH_RIPD";
   95:            }
   96:            if ($file =~ /routemap.c/) {
   97:               $protocol = "VTYSH_RIPD|VTYSH_RIPNGD|VTYSH_OSPFD|VTYSH_OSPF6D|VTYSH_BGPD|VTYSH_ZEBRA";
   98:            }
   99:            if ($file =~ /filter.c/) {
  100:               $protocol = "VTYSH_ALL";
  101:            }
  102:            if ($file =~ /plist.c/) {
  103: 	      if ($defun_array[1] =~ m/ipv6/) {
  104:                  $protocol = "VTYSH_RIPNGD|VTYSH_OSPF6D|VTYSH_BGPD|VTYSH_ZEBRA";
  105:               } else {
  106:                  $protocol = "VTYSH_RIPD|VTYSH_OSPFD|VTYSH_BGPD|VTYSH_ZEBRA";
  107:               }
  108:            }
  109:            if ($file =~ /distribute.c/) {
  110:               if ($defun_array[1] =~ m/ipv6/) {
  111:                  $protocol = "VTYSH_RIPNGD";
  112:               } else {
  113:                  $protocol = "VTYSH_RIPD";
  114:               }
  115:            }
  116:            if ($file =~ /if_rmap.c/) {
  117:               if ($defun_array[1] =~ m/ipv6/) {
  118:                  $protocol = "VTYSH_RIPNGD";
  119:               } else {
  120:                  $protocol = "VTYSH_RIPD";
  121:               }
  122:            }
  123: 	   if ($file =~ /vty.c/) {
  124: 	      $protocol = "VTYSH_ALL";
  125: 	   }
  126:         } else {
  127:            ($protocol) = ($file =~ /^.*\/([a-z0-9]+)\/[a-zA-Z0-9_\-]+\.c$/);
  128:            $protocol = "VTYSH_" . uc $protocol;
  129:         }
  130: 
  131: 	# Append _vtysh to structure then build DEFUN again
  132: 	$defun_array[1] = $cmd . "_vtysh";
  133: 	$defun_body = join (", ", @defun_array);
  134: 
  135: 	# $cmd -> $str hash for lookup
  136: 	$cmd2str{$cmd} = $str;
  137: 	$cmd2defun{$cmd} = $defun_body;
  138: 	$cmd2proto{$cmd} = $protocol;
  139:     }
  140: 
  141:     # install_element() process
  142:     foreach (@install) {
  143: 	my (@element_array);
  144: 	@element_array = split (/,/);
  145: 
  146: 	# Install node
  147: 	$enode = $element_array[0];
  148: 	$enode =~ s/^\s+//g;
  149: 	$enode =~ s/\s+$//g;
  150: 	($enode) = ($enode =~ /([0-9A-Z_]+)$/);
  151: 
  152: 	# VTY command structure.
  153: 	($ecmd) = ($element_array[1] =~ /&([^\)]+)/);
  154: 	$ecmd =~ s/^\s+//g;
  155: 	$ecmd =~ s/\s+$//g;
  156: 
  157: 	# Register $ecmd
  158: 	if (defined ($cmd2str{$ecmd})
  159: 	    && ! defined ($ignore{$cmd2str{$ecmd}})) {
  160: 	    my ($key);
  161: 	    $key = $enode . "," . $cmd2str{$ecmd};
  162: 	    $ocmd{$key} = $ecmd;
  163: 	    $odefun{$key} = $cmd2defun{$ecmd};
  164: 	    push (@{$oproto{$key}}, $cmd2proto{$ecmd});
  165: 	}
  166:     }
  167: }
  168: 
  169: # Check finaly alive $cmd;
  170: foreach (keys %odefun) {
  171:     my ($node, $str) = (split (/,/));
  172:     my ($cmd) = $ocmd{$_};
  173:     $live{$cmd} = $_;
  174: }
  175: 
  176: # Output DEFSH
  177: foreach (keys %live) {
  178:     my ($proto);
  179:     my ($key);
  180:     $key = $live{$_};
  181:     $proto = join ("|", @{$oproto{$key}});
  182:     printf "DEFSH ($proto$odefun{$key})\n\n";
  183: }
  184: 
  185: # Output install_element
  186: print <<EOF;
  187: void
  188: vtysh_init_cmd ()
  189: {
  190: EOF
  191: 
  192: foreach (keys %odefun) {
  193:     my ($node, $str) = (split (/,/));
  194:     $cmd = $ocmd{$_};
  195:     $cmd =~ s/_cmd/_cmd_vtysh/;
  196:     printf "  install_element ($node, &$cmd);\n";
  197: }
  198: 
  199: print <<EOF
  200: }
  201: EOF