netconf-parser: cisco.grammar@c170b1da9b6e (annotated)

10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	1	# Grammar for Cisco devices
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	2	# Configuration is expected to be preprocessed via following command:
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	3	# perl -ne '/(^\s)(\S.)$/; print length($1)." $2\n"'
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	4
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	5	#<autotree>
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	6	{ # perl code follows
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	7
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	8	$::res = {};
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	9
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	10	# Returns pointer to context hasref as specified by ctx stack.
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	11	# @param ctx_path array of ctx stack.
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	12	sub ctx {
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	13	my @ctx_path = @_;
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	14	my $ptr = $::res;
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	15	foreach my $part (@ctx_path) {
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	16	$ptr->{$part} = {} unless exists ($ptr->{$part});
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	17	$ptr = $ptr->{$part};
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	18	}
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	19	return $ptr;
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	20	}
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	21
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	22	} # end of perl code
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	23
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	24	file: <skip: qr/[^\S\n]*/> # Ignore non-newline whitespace
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	25	line(s) eofile
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	26
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	27	line: s_controller
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	28	\| s_interface
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	29	\| indent comment
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	30	\| indent cmdline
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	31	\| indent emptyline
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	32	\| <error>
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	33
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	34	emptyline: eol
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	35
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	36	comment: /!.*/ eol
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	37
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	38	cmdline: l_hostname eol
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	39	\| l_hash eol
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	40	\| word(s) eol
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	41
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	42	word: /[0-9a-zA-Z:\/_\#\"\.,+<>()&{}-]+/
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	43	{ $item[1] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	44
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	45	type: /\w+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	46	{ $item[1] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	47
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	48	num: /\d+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	49	{ $item[1] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	50
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	51	indent: /\d+/
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	52	{ $item[1] }
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	53
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	54	range: /\d+/"-"/\d+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	55	{ { from => $item[1], to => $item[3] } }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	56
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	57	keyword: /[\w-]+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	58	{ $item[1] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	59
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	60	identifier: /[0-9a-zA-Z:_-]+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	61	{ $item[1] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	62
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	63	quoted_text: <perl_quotelike>
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	64	{ $item[1][2] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	65	\| /[0-9a-zA-Z:\/_\#\"\.,-]+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	66	{ $item[1] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	67
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	68	value: /[0-9a-zA-Z:\/_\#\"\.,-]+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	69	{ $item[1] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	70
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	71	eofile: /^\Z/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	72
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	73	eol: /\n/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	74
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	75	rest_of_line: word(s)
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	76	\| eol
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	77
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	78	# section
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	79	section: cmdline(s) "!"
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	80	{ print "section\n"; }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	81
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	82	l_section: /[1-9]/ word(s) eol
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	83	\| /[1-9]/ "!" eol
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	84	\| /[1-9]/ eol
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	85	\| <error>
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	86
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	87	# Lines w/ hash (passwd, secret etc)
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	88	l_hash: word(s) /\S+/ word(s)
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	89	\| word(s) /\S+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	90
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	91	# Hostname
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	92	l_hostname: "hostname" identifier
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	93	{ $::res->{hostname} = $item{identifier} }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	94
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	95	# Description
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	96	l_description: "description" /[^\n]+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	97	{ $arg{ctx}->{description} = $item[2] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	98
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	99	# controller section
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	100	controller_num: /\d+\/\d+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	101	{ $item[1] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	102
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	103	s_controller: "0" "controller" type controller_num eol s_controller_l[ctx => ctx('controller', $item{controller_num}) ](s) "0" "!" eol
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	104	{ $::res->{controller}->{$item{controller_num}}->{type} = $item{type} }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	105
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	106	s_controller_l: "1" s_controller_content[ctx => $arg{ctx}] eol
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	107	\| l_section
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	108
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	109	s_controller_content: l_description[ctx => $arg{ctx}]
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	110	\| "channel-group" num "timeslots" range
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	111	{ $arg{ctx}->{"channel-group"}->{$item{num}}->{ts} = $item{range} }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	112	\| "channel-group" num "unframed"
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	113	{ $arg{ctx}->{"channel-group"}->{$item{num}}->{unframed} = 1 }
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	114	\| "framing" keyword
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	115	{ $arg{ctx}->{framing} = $item{keyword} }
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	116
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	117	# Vlan range
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	118	vlan_s_range: /\d+/"-"/\d+/
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	119	{
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	120	for (my $i = $item[1]; $i <= $item[3]; $i++) {
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	121	$arg{ctx}->{$arg{key}}->{$i} = 1; }
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	122	}
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	123	\| /\d+/
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	124	{ $arg{ctx}->{$arg{key}}->{$item[1]} = 1 }
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	125	vlan_range: vlan_s_range","vlan_range
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	126	\| vlan_s_range
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	127
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	128	# interface section
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	129	iface_name: /\w+\d+[0-9\/\.:]*/
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	130	{ $item[1] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	131
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	132	s_interface: "0" "interface" iface_name /\S*/ eol s_interface_l[ctx => ctx("interface", $item{iface_name}) ](s) "0" "!" eol
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	133	{
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	134	$::res->{interface}->{$item{iface_name}}->{type} = $item[4]
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	135	if length($item[4]) > 0
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	136	}
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	137
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	138	ip: /\d+\.\d+\.\d+\.\d+/
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	139	{ $item[1] }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	140
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	141	s_interface_l: "1" s_interface_content[ctx => $arg{ctx}] eol
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	142	\| l_section
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	143
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	144	s_interface_content: l_description[ctx => $arg{ctx}]
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	145	\| /(no)?/ "shutdown"
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	146	{ $arg{ctx}->{shutdown} = ($item[1] eq 'no') ? 0 : 1 }
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	147	\| "ip" "address" ip ip
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	148	{ $arg{ctx}->{ip} = $item[3]; $arg{ctx}->{mask} = $item[3] }
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	149	\| "encapsulation" keyword /\S*/
10 91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	150	{
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	151	$arg{ctx}->{encap} = $item[2];
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	152	$arg{ctx}->{encap_param} = $item[3] if length($item[3]) > 0
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	153	}
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	154	\| "frame-relay" keyword keyword
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	155	{ $arg{ctx}->{"frame-relay"} = {type => $item[2], value => $item[3]} }
91148603fd70 added cisco.grammar: parse hostname, controllers, interfaces "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	156	\| "bandwidth" num
11 c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	157	{ $arg{ctx}->{bandwidth} = $item{num} }
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	158	\| "ip" "vrf" "forwarding" word
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	159	{ $arg{ctx}->{"ip-vrf-fwd"} = $item{word} }
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	160	\| "switchport" "mode" /access\|trunk/
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	161	{ $arg{ctx}->{"switchport-mode"} = $item[3] }
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	162	\| "switchport" "access" "vlan" num
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	163	{ $arg{ctx}->{vlan} = $item{num} }
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	164	\| "switchport" "trunk" "encapsulation" keyword
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	165	{ $arg{ctx}->{"trunk-encap"} = $item{keyword} }
c170b1da9b6e cisco.grammar: refactored to use indentation markers fro proper in-section parsing; more controller, interface properties "Tomas Zeman <tzeman@volny.cz>" parents: 10 diff changeset	166	\| "switchport" "trunk" "allowed" "vlan" vlan_range[ctx => $arg{ctx}, key => "vlan"]

author	"Tomas Zeman <tzeman@volny.cz>"
	Sun, 15 Nov 2009 22:52:18 +0100
changeset 11	c170b1da9b6e
parent 10	91148603fd70
child 12	0b509f26f4d3
permissions	-rw-r--r--