--- a/oneaccess.gramar Tue Aug 21 13:34:19 2012 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,293 +0,0 @@
-# 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 <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_voice_port
- | s_dial_peer
- | l_vrf
- | l_sntp
- | l_syslog
- | 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
-
-# generic attribute/value pair, handles no ... and single-param switches
-avpair: identifier word
- {
- if ($item[1] eq 'no') {
- $arg{ctx}->{$item[2]} = 0;
- } else {
- $arg{ctx}->{$item[1]} = $item[2];
- }
- }
- | identifier
- { $arg{ctx}->{$item[1]} = 1 }
-
-# section
-section: cmdline(s) "!"
- { print "section\n"; }
-
-l_section: /[1-9]/ word(s) eol
- | /[1-9]/ "exit" 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+/
- { $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
- | s_isdn[ctx => $arg{ctx}]
- | s_vrrp[ctx => $arg{ctx}]
- | 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} }
- | "ip" "mtu" num
- { $arg{ctx}->{mtu} = $item{num} }
- | "service-policy" /input|output/ identifier
- { $arg{ctx}->{'service-policy'}->{$item[2]} = $item{identifier} }
- | "ip" "access-group" identifier /in|out/
- { $arg{ctx}->{'access-group'}->{$item[4]} = $item{identifier} }
-
-s_isdn: "1" "isdn" eol s_isdn_l[ctx => ctx_rel($arg{ctx}, 'isdn')](s) "1" "exit" eol
-
-s_isdn_l: "2" avpair[ctx => $arg{ctx}] eol
-
-s_vrrp: "1" "vrrp" num eol s_vrrp_l[ctx => ctx_rel($arg{ctx}, 'vrrp', $item{num})](s) "1" "exit" eol
-
-s_vrrp_l: "2" avpair[ctx => $arg{ctx}] eol
- | "2" "tracking-interface" iface_type iface_num eol
- {
- $arg{ctx}->{$item[2]} = {
- type => $item{iface_type},
- num => $item{iface_num}
- }
- }
- | "2" "address" ip ip eol
- {
- $arg{ctx}->{$item[2]} = {
- ip => $item[3],
- mask => $item[4]
- }
- }
-
-
-
-# vrf
-l_vrf: "0" "ip" "vrf" keyword eol
- { $::res->{"ip-vrf"} = $item{keyword} }
-
-via_iface: iface_type iface_num
- {
- $arg{ctx}->{interface} = {
- type => $item{iface_type},
- num => $item{iface_num}
- };
- }
- | ""
-
-# sntp
-l_sntp: "0" "sntp" "server" ip via_iface[ctx => ctx('sntp-server', $item{ip})] eol
-
-l_syslog: "0" "syslog" "server" ip num via_iface[ctx => ctx('syslog', 'server', $item{ip})] eol
- | "0" "logging" "syslog" /\w+/ eol
- { $::res->{syslog}->{level} = $item[4] }
-
-# voice ports
-s_voice_port: "0" "voice-port" /\d+\/\d+/ eol s_voice_port_l[ctx => ctx('voice-port', $item[3])](s) "0" "exit" eol
-
-s_voice_port_l: "1" s_voice_port_content[ctx => $arg{ctx}] eol
- | l_section
-
-s_voice_port_content: /clock-source|tone|caller-id/ identifier
- { $arg{ctx}->{$item[1]} = $item{identifier} }
- | /(no)?/ /sntp-time|power-source-one/
- { $arg{ctx}->{$item[2]} = ($item[1] eq 'no') ? 0 : 1 }
- | "modify-tone" identifier /\S+/
- { $arg{ctx}->{$item[1]}->{$item{identifier}} = $item[3] }
-
-# dial peers
-s_dial_peer: "0" "dial-peer" "voice" word num eol s_dial_peer_l[ctx => ctx('dial-peer', $item{word}.":".$item{num}), type => $item{word}, num => $item{num} ](s) "0" "exit" eol
-
-s_dial_peer_l: "1" avpair[ctx => $arg{ctx}] eol
- {
- $arg{ctx}->{type} = $arg{type};
- $arg{ctx}->{num} = $arg{num}
- }
- | l_section
-
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/oneaccess.grammar Thu Aug 23 10:16:19 2012 +0200
@@ -0,0 +1,293 @@
+# 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 <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_voice_port
+ | s_dial_peer
+ | l_vrf
+ | l_sntp
+ | l_syslog
+ | 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
+
+# generic attribute/value pair, handles no ... and single-param switches
+avpair: identifier word
+ {
+ if ($item[1] eq 'no') {
+ $arg{ctx}->{$item[2]} = 0;
+ } else {
+ $arg{ctx}->{$item[1]} = $item[2];
+ }
+ }
+ | identifier
+ { $arg{ctx}->{$item[1]} = 1 }
+
+# section
+section: cmdline(s) "!"
+ { print "section\n"; }
+
+l_section: /[1-9]/ word(s) eol
+ | /[1-9]/ "exit" 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+/
+ { $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
+ | s_isdn[ctx => $arg{ctx}]
+ | s_vrrp[ctx => $arg{ctx}]
+ | 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} }
+ | "ip" "mtu" num
+ { $arg{ctx}->{mtu} = $item{num} }
+ | "service-policy" /input|output/ identifier
+ { $arg{ctx}->{'service-policy'}->{$item[2]} = $item{identifier} }
+ | "ip" "access-group" identifier /in|out/
+ { $arg{ctx}->{'access-group'}->{$item[4]} = $item{identifier} }
+
+s_isdn: "1" "isdn" eol s_isdn_l[ctx => ctx_rel($arg{ctx}, 'isdn')](s) "1" "exit" eol
+
+s_isdn_l: "2" avpair[ctx => $arg{ctx}] eol
+
+s_vrrp: "1" "vrrp" num eol s_vrrp_l[ctx => ctx_rel($arg{ctx}, 'vrrp', $item{num})](s) "1" "exit" eol
+
+s_vrrp_l: "2" avpair[ctx => $arg{ctx}] eol
+ | "2" "tracking-interface" iface_type iface_num eol
+ {
+ $arg{ctx}->{$item[2]} = {
+ type => $item{iface_type},
+ num => $item{iface_num}
+ }
+ }
+ | "2" "address" ip ip eol
+ {
+ $arg{ctx}->{$item[2]} = {
+ ip => $item[3],
+ mask => $item[4]
+ }
+ }
+
+
+
+# vrf
+l_vrf: "0" "ip" "vrf" keyword eol
+ { $::res->{"ip-vrf"} = $item{keyword} }
+
+via_iface: iface_type iface_num
+ {
+ $arg{ctx}->{interface} = {
+ type => $item{iface_type},
+ num => $item{iface_num}
+ };
+ }
+ | ""
+
+# sntp
+l_sntp: "0" "sntp" "server" ip via_iface[ctx => ctx('sntp-server', $item{ip})] eol
+
+l_syslog: "0" "syslog" "server" ip num via_iface[ctx => ctx('syslog', 'server', $item{ip})] eol
+ | "0" "logging" "syslog" /\w+/ eol
+ { $::res->{syslog}->{level} = $item[4] }
+
+# voice ports
+s_voice_port: "0" "voice-port" /\d+\/\d+/ eol s_voice_port_l[ctx => ctx('voice-port', $item[3])](s) "0" "exit" eol
+
+s_voice_port_l: "1" s_voice_port_content[ctx => $arg{ctx}] eol
+ | l_section
+
+s_voice_port_content: /clock-source|tone|caller-id/ identifier
+ { $arg{ctx}->{$item[1]} = $item{identifier} }
+ | /(no)?/ /sntp-time|power-source-one/
+ { $arg{ctx}->{$item[2]} = ($item[1] eq 'no') ? 0 : 1 }
+ | "modify-tone" identifier /\S+/
+ { $arg{ctx}->{$item[1]}->{$item{identifier}} = $item[3] }
+
+# dial peers
+s_dial_peer: "0" "dial-peer" "voice" word num eol s_dial_peer_l[ctx => ctx('dial-peer', $item{word}.":".$item{num}), type => $item{word}, num => $item{num} ](s) "0" "exit" eol
+
+s_dial_peer_l: "1" avpair[ctx => $arg{ctx}] eol
+ {
+ $arg{ctx}->{type} = $arg{type};
+ $arg{ctx}->{num} = $arg{num}
+ }
+ | l_section
+