version 1.1.1.1, 2012/02/21 17:26:12
|
version 1.1.1.2, 2012/10/09 09:22:29
|
Line 1
|
Line 1
|
#! | #! /usr/bin/perl |
## |
## |
## vtysh/extract.pl. Generated from extract.pl.in by configure. |
## vtysh/extract.pl. Generated from extract.pl.in by configure. |
## |
## |
Line 37 $ignore{'"router ripng"'} = "ignore";
|
Line 37 $ignore{'"router ripng"'} = "ignore";
|
$ignore{'"router ospf"'} = "ignore"; |
$ignore{'"router ospf"'} = "ignore"; |
$ignore{'"router ospf <0-65535>"'} = "ignore"; |
$ignore{'"router ospf <0-65535>"'} = "ignore"; |
$ignore{'"router ospf6"'} = "ignore"; |
$ignore{'"router ospf6"'} = "ignore"; |
|
$ignore{'"router babel"'} = "ignore"; |
$ignore{'"router bgp " "<1-4294967295>"'} = "ignore"; |
$ignore{'"router bgp " "<1-4294967295>"'} = "ignore"; |
$ignore{'"router bgp " "<1-4294967295>" " view WORD"'} = "ignore"; |
$ignore{'"router bgp " "<1-4294967295>" " view WORD"'} = "ignore"; |
$ignore{'"router isis WORD"'} = "ignore"; |
$ignore{'"router isis WORD"'} = "ignore"; |
Line 62 $ignore{'"show history"'} = "ignore";
|
Line 63 $ignore{'"show history"'} = "ignore";
|
foreach (@ARGV) { |
foreach (@ARGV) { |
$file = $_; |
$file = $_; |
|
|
open (FH, "cpp -DHAVE_CONFIG_H -DVTYSH_EXTRACT_PL -DHAVE_IPV6 -I.. -I./ -I./.. -I../lib -I../isisd/topology $file |"); | open (FH, "cpp -DHAVE_CONFIG_H -DVTYSH_EXTRACT_PL -DHAVE_IPV6 -I.. -I./ -I./.. -I../lib -I../isisd/topology $file |"); |
local $/; undef $/; |
local $/; undef $/; |
$line = <FH>; |
$line = <FH>; |
close (FH); |
close (FH); |
|
|
@defun = ($line =~ /(?:DEFUN|ALIAS)\s*\((.+?)\);?\s?\s?\n/sg); |
@defun = ($line =~ /(?:DEFUN|ALIAS)\s*\((.+?)\);?\s?\s?\n/sg); |
@install = ($line =~ /install_element \(\s*[0-9A-Z_]+,\s*&[^;]*;\s*\n/sg); | @install = ($line =~ /install_element\s*\(\s*[0-9A-Z_]+,\s*&[^;]*;\s*\n/sg); |
|
|
# DEFUN process |
# DEFUN process |
foreach (@defun) { |
foreach (@defun) { |