# Grammar for Cisco devices

# Configuration is expected to be preprocessed via following command:

# perl -ne '/(^\s*)(\S.*)$/; print length($1)." $2\n"'

#

# Copyright (c) 2009, Tomas Zeman <tzeman@volny.cz>

# All rights reserved.

#

# Redistribution and use in source and binary forms, with or without

# modification, are permitted providing that the following conditions 

# are met:

# 1. Redistributions of source code must retain the above copyright

#    notice, this list of conditions and the following disclaimer.

# 2. Redistributions in binary form must reproduce the above copyright

#    notice, this list of conditions and the following disclaimer in the

#    documentation and/or other materials provided with the distribution.

#

# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR

# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY

# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,

# STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING

# IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE

# POSSIBILITY OF SUCH DAMAGE.

#

{ # perl code follows

$::res = {};

# Returns pointer to context hashref as specified by ctx stack.

# @param ctx_path array of ctx stack.

sub ctx {

	return ctx_rel($::res, @_);

}

# Returns pointer to context hashref as specified by ctx stack,

# relative to the supplied ctx pointer.

# @param ptr current ctx pointer from which ctx build starts.

# @param ctx_path array of ctx stack.

sub ctx_rel {

	my $ptr = shift;

	my @ctx_path = @_;

	foreach my $part (@ctx_path) {

		$ptr->{$part} = {} unless exists ($ptr->{$part});

		$ptr = $ptr->{$part};

	}

	return $ptr;

}

} # end of perl code

file:		<skip: qr/[^\S\n]*/>	# Ignore non-newline whitespace

		line(s) eofile

line: 		s_controller

		| s_interface

		| s_vrf

		| s_vlan

		| vtp_line

		| indent comment

		| indent cmdline 

		| indent emptyline

		| <error>

emptyline:	eol

comment: 	/!.*/ eol

cmdline:	l_hostname eol

		| l_hash eol

		| word(s) eol

word:		/\S+/  # any non-space

		{ $item[1] }

type:		/\w+/

		{ $item[1] }

num:		/\d+/

		{ $item[1] }

indent:		/\d+/

		{ $item[1] }

range:		/\d+/"-"/\d+/

		{ { from => $item[1], to => $item[3] } } 

		| /\d+/

		{ { from => $item[1], to => $item[1] } } 

keyword:	/[\w-]+/

		{ $item[1] }

identifier:	/[0-9a-zA-Z:_-]+/

		{ $item[1] }

quoted_text:	<perl_quotelike>

		{ $item[1][2] }

		| /[0-9a-zA-Z:\/_\#\"\.,-]+/

		{ $item[1] }

value:		/[0-9a-zA-Z:\/_\#\"\.,-]+/

		{ $item[1] }

eofile:		/^\Z/

eol:		/\n/

rest_of_line:	word(s)

		| eol

# section

section:	cmdline(s) "!"

		{ print "section\n"; }

l_section:	/[1-9]/ word(s) eol

		| /[1-9]/ "!" eol

		| /[1-9]/ eol

		| <error>

# Lines w/ hash (passwd, secret etc)

l_hash:		word(s) /\S+/ word(s)

		| word(s) /\S+/

# Hostname

l_hostname:	"hostname" identifier

		{ $::res->{hostname} = $item{identifier} }

# Description

l_description:	"description" /[^\n]+/

		{ $arg{ctx}->{description} = $item[2] }

# controller section

controller_num:	/\d+\/\d+/

		{ $item[1] }

chan_grp_content: "channel-group" num "timeslots" range

		{ $arg{ctx}->{"channel-group"}->{$item{num}}->{ts} = $item{range} }

s_controller:	"0" "controller" type controller_num eol s_controller_l[ctx => ctx('controller', $item{controller_num}) ](s) "0" "!" eol

		{ $::res->{controller}->{$item{controller_num}}->{type} = $item{type} }

s_controller_l:	"1" s_controller_content[ctx => $arg{ctx}] eol

		| l_section

s_controller_content: l_description[ctx => $arg{ctx}]

		| chan_grp_content[ctx => $arg{ctx}]

		| "channel-group" num "unframed"

		{ $arg{ctx}->{"channel-group"}->{$item{num}}->{unframed} = 1 }

		| "framing" keyword

		{ $arg{ctx}->{framing} = $item{keyword} }

		| "au-4" num "tug-3" num eol s_tug_l[ctx => ctx_rel($arg{ctx}, 'au', $item[2], 'tug', $item[4]) ](s)

		| s_e3_l[ctx => $arg{ctx}]

# SONET controller specific

s_tug_l:	"2" "tug-2" num "e1" num tug_content[ctx => ctx_rel($arg{ctx}, $item[3].'/'.$item[5]) ] eol

tug_content:	l_description[ctx => $arg{ctx}]

		| "unframed"

		{ $arg{ctx}->{unframed} = 1 }

		| chan_grp_content[ctx => $arg{ctx}]

		| word(s)

# E3 controller specific

s_e3_l:		"e1" num chan_grp_content[ctx => ctx_rel($arg{ctx}, 'e1', $item{num})]

# Vlan range

vlan_s_range:	/\d+/"-"/\d+/

		{

		for (my $i = $item[1]; $i <= $item[3]; $i++) {

			$arg{ctx}->{$arg{key}}->{$i} = 1; }

		}

		| /\d+/

		{ $arg{ctx}->{$arg{key}}->{$item[1]} = 1 }

vlan_range: 	vlan_s_range","vlan_range

		| vlan_s_range

# vlan section

s_vlan:		"0" "vlan" num eol "1" "name" identifier eol

		{ $::res->{vlans}->{$item{num}}->{name} = $item{identifier} }

# interface section

iface_name:	/\w+(-\w+)?\d+[0-9\/\.:]*/

		{ $item[1] }

s_interface:	"0" "interface" iface_name /\S*/ eol s_interface_l[ctx => ctx("interface", $item{iface_name}) ](s) "0" "!" eol

		{

		$::res->{interface}->{$item{iface_name}}->{type} = $item[4]

			if length($item[4]) > 0

		}

ip:		/\d+\.\d+\.\d+\.\d+/

		{ $item[1] }

s_interface_l:  "1" s_interface_content[ctx => $arg{ctx}] eol

		| l_section

s_interface_content: l_description[ctx => $arg{ctx}]

		| /(no)?/ "shutdown"

		{ $arg{ctx}->{shutdown} = ($item[1] eq 'no') ? 0 : 1 }

		| "ip" "address" ip ip

		{ $arg{ctx}->{ip} = $item[3]; $arg{ctx}->{mask} = $item[4] }

		| "encapsulation" keyword /\S*/

		{

		$arg{ctx}->{encap} = $item[2];

		$arg{ctx}->{encap_param} = $item[3] if length($item[3]) > 0

		}

		| "frame-relay" keyword keyword

		{ $arg{ctx}->{"frame-relay"} = {type => $item[2], value => $item[3]} }

		| "bandwidth" num

		{ $arg{ctx}->{bandwidth} = $item{num} }

		| "speed" num

		{ $arg{ctx}->{speed} = $item{num} }

		| "ip" "vrf" "forwarding" word

		{ $arg{ctx}->{"ip-vrf-fwd"} = $item{word} }

		| "switchport" "mode" /access|trunk/

		{ $arg{ctx}->{"switchport-mode"} = $item[3] }

		| "switchport" "access" "vlan" num

		{ $arg{ctx}->{vlan}->{$item{num}} = 1 }

		| "switchport" "trunk" "encapsulation" keyword

		{ $arg{ctx}->{"trunk-encap"} = $item{keyword} }

		| "switchport" "trunk" "allowed" "vlan" vlan_range[ctx => $arg{ctx}, key => "vlan"]

		| "switchport" "trunk" "allowed" "vlan" "add" vlan_range[ctx => $arg{ctx}, key => "vlan"]

		| "channel-group" num

		{ $arg{ctx}->{"channel-group"} = $item{num} }

		| "channel-group" num "mode" keyword

		{ $arg{ctx}->{"channel-group"} = $item{num} }

		| "ip" "vrf" "forwarding" word

		{ $arg{ctx}->{"ip-vrf-fwd"} = $item{word} }

		| "bridge-group" num

		{ $arg{ctx}->{"bridge-group"} = $item{num} }

# vrf section

s_vrf:		"0" "ip" "vrf" keyword eol s_vrf_l[ctx => ctx("vrf", $item{keyword}) ](s) "0" "!" eol

s_vrf_l:	"1" s_vrf_content[ctx => $arg{ctx}] eol

		| l_section

rd_val:		/\d+:\d+/

		{ $item[1] }

s_vrf_content:	l_description[ctx => $arg{ctx}]

		| "rd" rd_val

		{ $arg{ctx}->{rd} = $item{rd_val} }

		| "export" "map" keyword

		{ $arg{ctx}->{"export-map"} = $item{keyword} }

		| "route-target" /export|import/ rd_val

		{

		$arg{ctx}->{"route-target"}->{$item[2]} = []

			unless exists $arg{ctx}->{"route-target"}->{$item[2]};

		push @{$arg{ctx}->{"route-target"}->{$item[2]}}, $item{rd_val};

		} 

# vtp

vtp_line:	"0" "vtp" /mode|domain/ identifier eol

		{ $::res->{vtp}->{$item[3]} = $item{identifier} }