cisco.grammar
changeset 24 d6c31cf412a7
parent 23 27a2afb406bf
equal deleted inserted replaced
23:27a2afb406bf 24:d6c31cf412a7
     1 # Grammar for Cisco devices
     1 # Grammar for Cisco devices
     2 # Configuration is expected to be preprocessed via following command:
     2 # Configuration is expected to be preprocessed via following command:
     3 # perl -ne '/(^\s*)(\S.*)$/; print length($1)." $2\n"'
     3 # perl -ne '/(^\s*)(\S.*)$/; print length($1)." $2\n"'
     4 
     4 #
     5 #<autotree>
     5 # Copyright (c) 2009, Tomas Zeman <tzeman@volny.cz>
       
     6 # All rights reserved.
       
     7 #
       
     8 # Redistribution and use in source and binary forms, with or without
       
     9 # modification, are permitted providing that the following conditions 
       
    10 # are met:
       
    11 # 1. Redistributions of source code must retain the above copyright
       
    12 #    notice, this list of conditions and the following disclaimer.
       
    13 # 2. Redistributions in binary form must reproduce the above copyright
       
    14 #    notice, this list of conditions and the following disclaimer in the
       
    15 #    documentation and/or other materials provided with the distribution.
       
    16 #
       
    17 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
       
    18 # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
       
    19 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
       
    20 # ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
       
    21 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
       
    22 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
       
    23 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
       
    24 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
       
    25 # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
       
    26 # IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
       
    27 # POSSIBILITY OF SUCH DAMAGE.
       
    28 #
       
    29 
     6 { # perl code follows
    30 { # perl code follows
     7 
    31 
     8 $::res = {};
    32 $::res = {};
     9 
    33 
    10 # Returns pointer to context hashref as specified by ctx stack.
    34 # Returns pointer to context hashref as specified by ctx stack.