]>
Commit | Line | Data |
---|---|---|
fc9d0745 | 1 | #! @PERL@ |
718e3744 | 2 | ## |
b63dc1f3 | 3 | ## @configure_input@ |
4 | ## | |
718e3744 | 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"; | |
feb6c53e | 40 | $ignore{'"router babel"'} = "ignore"; |
10895fd6 PJ |
41 | $ignore{'"router bgp " "<1-4294967295>"'} = "ignore"; |
42 | $ignore{'"router bgp " "<1-4294967295>" " view WORD"'} = "ignore"; | |
c25e458a | 43 | $ignore{'"router isis WORD"'} = "ignore"; |
528bed4a | 44 | $ignore{'"router zebra"'} = "ignore"; |
718e3744 | 45 | $ignore{'"address-family ipv4"'} = "ignore"; |
46 | $ignore{'"address-family ipv4 (unicast|multicast)"'} = "ignore"; | |
47 | $ignore{'"address-family ipv6"'} = "ignore"; | |
48 | $ignore{'"address-family ipv6 unicast"'} = "ignore"; | |
49 | $ignore{'"address-family vpnv4"'} = "ignore"; | |
50 | $ignore{'"address-family vpnv4 unicast"'} = "ignore"; | |
51 | $ignore{'"address-family ipv4 vrf NAME"'} = "ignore"; | |
52 | $ignore{'"exit-address-family"'} = "ignore"; | |
53 | $ignore{'"key chain WORD"'} = "ignore"; | |
54 | $ignore{'"key <0-2147483647>"'} = "ignore"; | |
55 | $ignore{'"route-map WORD (deny|permit) <1-65535>"'} = "ignore"; | |
56 | $ignore{'"show route-map"'} = "ignore"; | |
e7168df4 | 57 | $ignore{'"line vty"'} = "ignore"; |
58 | $ignore{'"who"'} = "ignore"; | |
59 | $ignore{'"terminal monitor"'} = "ignore"; | |
60 | $ignore{'"terminal no monitor"'} = "ignore"; | |
61 | $ignore{'"show history"'} = "ignore"; | |
718e3744 | 62 | |
63 | foreach (@ARGV) { | |
64 | $file = $_; | |
65 | ||
ed6e2979 | 66 | open (FH, "@CPP@ -DHAVE_CONFIG_H -DVTYSH_EXTRACT_PL -DHAVE_IPV6 -I@top_builddir@ -I@srcdir@/ -I@srcdir@/.. -I@top_srcdir@/lib -I@top_builddir@/lib -I@top_srcdir@/isisd/topology @CPPFLAGS@ $file |"); |
718e3744 | 67 | local $/; undef $/; |
68 | $line = <FH>; | |
69 | close (FH); | |
70 | ||
71 | @defun = ($line =~ /(?:DEFUN|ALIAS)\s*\((.+?)\);?\s?\s?\n/sg); | |
0b42c708 | 72 | @install = ($line =~ /install_element\s*\(\s*[0-9A-Z_]+,\s*&[^;]*;\s*\n/sg); |
718e3744 | 73 | |
718e3744 | 74 | # DEFUN process |
75 | foreach (@defun) { | |
76 | my (@defun_array); | |
77 | @defun_array = split (/,/); | |
78 | $defun_array[0] = ''; | |
79 | ||
80 | ||
81 | # Actual input command string. | |
82 | $str = "$defun_array[2]"; | |
83 | $str =~ s/^\s+//g; | |
84 | $str =~ s/\s+$//g; | |
85 | ||
86 | # Get VTY command structure. This is needed for searching | |
87 | # install_element() command. | |
88 | $cmd = "$defun_array[1]"; | |
89 | $cmd =~ s/^\s+//g; | |
90 | $cmd =~ s/\s+$//g; | |
91 | ||
68980084 | 92 | # $protocol is VTYSH_PROTO format for redirection of user input |
93 | if ($file =~ /lib/) { | |
94 | if ($file =~ /keychain.c/) { | |
95 | $protocol = "VTYSH_RIPD"; | |
96 | } | |
97 | if ($file =~ /routemap.c/) { | |
7514fb77 | 98 | $protocol = "VTYSH_RIPD|VTYSH_RIPNGD|VTYSH_OSPFD|VTYSH_OSPF6D|VTYSH_BGPD|VTYSH_ZEBRA"; |
68980084 | 99 | } |
100 | if ($file =~ /filter.c/) { | |
43fb1352 | 101 | $protocol = "VTYSH_ALL"; |
68980084 | 102 | } |
103 | if ($file =~ /plist.c/) { | |
104 | if ($defun_array[1] =~ m/ipv6/) { | |
7514fb77 | 105 | $protocol = "VTYSH_RIPNGD|VTYSH_OSPF6D|VTYSH_BGPD|VTYSH_ZEBRA"; |
68980084 | 106 | } else { |
7514fb77 | 107 | $protocol = "VTYSH_RIPD|VTYSH_OSPFD|VTYSH_BGPD|VTYSH_ZEBRA"; |
68980084 | 108 | } |
109 | } | |
ba23a691 | 110 | if ($file =~ /distribute.c/) { |
111 | if ($defun_array[1] =~ m/ipv6/) { | |
112 | $protocol = "VTYSH_RIPNGD"; | |
113 | } else { | |
114 | $protocol = "VTYSH_RIPD"; | |
115 | } | |
116 | } | |
0750d21f | 117 | if ($file =~ /if_rmap.c/) { |
4f849479 | 118 | if ($defun_array[1] =~ m/ipv6/) { |
119 | $protocol = "VTYSH_RIPNGD"; | |
120 | } else { | |
121 | $protocol = "VTYSH_RIPD"; | |
122 | } | |
0750d21f | 123 | } |
e7168df4 | 124 | if ($file =~ /vty.c/) { |
125 | $protocol = "VTYSH_ALL"; | |
126 | } | |
68980084 | 127 | } else { |
0e82d0e1 | 128 | ($protocol) = ($file =~ /^.*\/([a-z0-9]+)\/[a-zA-Z0-9_\-]+\.c$/); |
68980084 | 129 | $protocol = "VTYSH_" . uc $protocol; |
130 | } | |
131 | ||
718e3744 | 132 | # Append _vtysh to structure then build DEFUN again |
133 | $defun_array[1] = $cmd . "_vtysh"; | |
134 | $defun_body = join (", ", @defun_array); | |
135 | ||
136 | # $cmd -> $str hash for lookup | |
137 | $cmd2str{$cmd} = $str; | |
138 | $cmd2defun{$cmd} = $defun_body; | |
139 | $cmd2proto{$cmd} = $protocol; | |
140 | } | |
141 | ||
142 | # install_element() process | |
143 | foreach (@install) { | |
144 | my (@element_array); | |
145 | @element_array = split (/,/); | |
146 | ||
147 | # Install node | |
148 | $enode = $element_array[0]; | |
149 | $enode =~ s/^\s+//g; | |
150 | $enode =~ s/\s+$//g; | |
151 | ($enode) = ($enode =~ /([0-9A-Z_]+)$/); | |
152 | ||
153 | # VTY command structure. | |
154 | ($ecmd) = ($element_array[1] =~ /&([^\)]+)/); | |
155 | $ecmd =~ s/^\s+//g; | |
156 | $ecmd =~ s/\s+$//g; | |
157 | ||
158 | # Register $ecmd | |
159 | if (defined ($cmd2str{$ecmd}) | |
160 | && ! defined ($ignore{$cmd2str{$ecmd}})) { | |
161 | my ($key); | |
162 | $key = $enode . "," . $cmd2str{$ecmd}; | |
163 | $ocmd{$key} = $ecmd; | |
164 | $odefun{$key} = $cmd2defun{$ecmd}; | |
165 | push (@{$oproto{$key}}, $cmd2proto{$ecmd}); | |
166 | } | |
167 | } | |
168 | } | |
169 | ||
170 | # Check finaly alive $cmd; | |
171 | foreach (keys %odefun) { | |
172 | my ($node, $str) = (split (/,/)); | |
173 | my ($cmd) = $ocmd{$_}; | |
174 | $live{$cmd} = $_; | |
175 | } | |
176 | ||
177 | # Output DEFSH | |
178 | foreach (keys %live) { | |
179 | my ($proto); | |
180 | my ($key); | |
181 | $key = $live{$_}; | |
182 | $proto = join ("|", @{$oproto{$key}}); | |
183 | printf "DEFSH ($proto$odefun{$key})\n\n"; | |
184 | } | |
185 | ||
186 | # Output install_element | |
187 | print <<EOF; | |
188 | void | |
189 | vtysh_init_cmd () | |
190 | { | |
191 | EOF | |
192 | ||
193 | foreach (keys %odefun) { | |
194 | my ($node, $str) = (split (/,/)); | |
195 | $cmd = $ocmd{$_}; | |
196 | $cmd =~ s/_cmd/_cmd_vtysh/; | |
197 | printf " install_element ($node, &$cmd);\n"; | |
198 | } | |
199 | ||
200 | print <<EOF | |
201 | } | |
202 | EOF |