# HG changeset patch # User Tomas Zeman # Date 1345541588 -7200 # Node ID 149c2265de244f2f01fd5b93d55aa15feb49ae92 # Parent 5a18e00f9ba1b8c053960e50b7ed7ba1952f0ea9 oneaccess.gramar: base parsing diff -r 5a18e00f9ba1 -r 149c2265de24 oneaccess.gramar --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/oneaccess.gramar Tue Aug 21 11:33:08 2012 +0200 @@ -0,0 +1,205 @@ +# Grammar for OneAccess devices +# Configuration is expected to be preprocessed via following command: +# perl -ne '/(^\s*)(\S.*)$/; print length($1)." $2\n"' +# +# Copyright (c) 2012 Tomas Zeman +# 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: # Ignore non-newline whitespace + line(s) eofile + +line: s_controller + | s_interface + | l_vrf + | indent comment + | indent cmdline + | indent emptyline + | + +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: + { $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]/ "exit" eol + | /[1-9]/ eol + | + +# 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+/ + { $item[1] } + +s_controller: "0" "controller" type controller_num eol s_controller_l[ctx => ctx('controller', $item{controller_num}) ](s) "0" "exit" eol + { $::res->{controller}->{$item{controller_num}}->{type} = $item{type} } + +s_controller_l: "1" s_controller_content[ctx => $arg{ctx}] eol + | s_dsl_group[ctx => $arg{ctx}] + | l_section + +s_controller_content: l_description[ctx => $arg{ctx}] + | "framing" keyword + { $arg{ctx}->{framing} = $item{keyword} } + +s_dsl_group: "2" "dsl-group" num eol s_dsl_group_l[ctx => ctx_rel($arg{ctx}, 'dsl-group', $item{num})](s) "2" "exit" eol + +s_dsl_group_l: indent s_dsl_group_content[ctx => $arg{ctx}] eol + +s_dsl_group_content: "autoconfig" + { $arg{ctx}->{autoconfig} = 1 } + | "execute" + { $arg{ctx}->{execute} = 1 } + | "caplist" identifier + { $arg{ctx}->{caplist} = $item{identifier} } + | "vendorspecoctets" num + { $arg{ctx}->{vendorspecoctets} = $item{num} } + +# interface section +iface_type: /[0-9a-zA-Z:-]+/ + { $item[1] } + +iface_num: /\d+([\.\/]\d+)*/ + { $item[1] } + +s_interface: "0" "interface" iface_type iface_num /\S*/ eol s_interface_l[ctx => ctx("interface", $item{iface_type}.":".$item{iface_num}) ](s) "0" "exit" eol + { + my $id = $item{iface_type}.":".$item{iface_num}; + $::res->{interface}->{$id}->{type} = $item{iface_type}; + $::res->{interface}->{$id}->{num} = $item{iface_num} + } + +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 + } + | "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} } + | "bridge-group" num + { $arg{ctx}->{"bridge-group"} = $item{num} } + | "framing" keyword + { $arg{ctx}->{framing} = $item{keyword} } + +# vrf +l_vrf: "0" "ip" "vrf" keyword eol + { $::res->{"ip-vrf"} = $item{keyword} }