ciena.grammar
changeset 8 7d6516dd0b3e
parent 7 a7936f72831c
child 24 d6c31cf412a7
equal deleted inserted replaced
7:a7936f72831c 8:7d6516dd0b3e
     3 <autotree>
     3 <autotree>
     4 { # perl code follows
     4 { # perl code follows
     5 
     5 
     6 $::res = {};
     6 $::res = {};
     7 $::res->{port} ={};
     7 $::res->{port} ={};
     8 $::res->{sub_port} ={};
     8 $::res->{"sub-port"} ={};
     9 $::res->{pm} = {
     9 $::res->{pm} = {
    10 	instance => {},
    10 	instance => {},
    11 	service => {},
    11 	service => {},
    12 	'sub-port' => {},
    12 	'sub-port' => {},
    13 };
    13 };
   126 		{ $avl->{$item{word}} = $item{value}; }
   126 		{ $avl->{$item{word}} = $item{value}; }
   127 # Sub-port
   127 # Sub-port
   128 l_sub_port:	"sub-port" /add|create/ "sub-port" identifier avls
   128 l_sub_port:	"sub-port" /add|create/ "sub-port" identifier avls
   129 		{
   129 		{
   130 		$avl->{action} = $item[2];
   130 		$avl->{action} = $item[2];
   131 		consume_avl("sub_port", $item{identifier}); 
   131 		consume_avl("sub-port", $item{identifier}); 
   132 		}
   132 		}
   133 
   133 
   134 # PM
   134 # PM
   135 l_pm:		"pm" "enable" "pm-instance" identifier
   135 l_pm:		"pm" "enable" "pm-instance" identifier
   136 		{ $::res->{pm}->{instance}->{$item{identifier}} = "enabled" }
   136 		{ $::res->{pm}->{instance}->{$item{identifier}} = "enabled" }
   163 		| "pbt" /encap|decap/"-tunnel" /\w+/ /\S+/ identifier avls
   163 		| "pbt" /encap|decap/"-tunnel" /\w+/ /\S+/ identifier avls
   164 		{
   164 		{
   165 		$::res->{"pbt-tunnel"}->{$item{identifier}}->{type} = $item[2];
   165 		$::res->{"pbt-tunnel"}->{$item{identifier}}->{type} = $item[2];
   166 		consume_avl("pbt-tunnel", $item{identifier})
   166 		consume_avl("pbt-tunnel", $item{identifier})
   167 		}
   167 		}
   168 		| "pbt" "remote-bridge" "create" "bridge-name" identifier avls
   168 		| "pbt" "remote-bridge" "create" /bridge(-name)?/ identifier avls
   169 		{
   169 		{
   170 		$::res->{pbt}->{'remote-bridge'}->{$item{identifier}} = {};
   170 		$::res->{pbt}->{'remote-bridge'}->{$item{identifier}} = {};
   171 		consume_avl_ptr($::res->{pbt}->{'remote-bridge'}, $item{identifier})
   171 		consume_avl_ptr($::res->{pbt}->{'remote-bridge'}, $item{identifier})
   172 		}
   172 		}
   173 
   173