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