equal
deleted
inserted
replaced
22 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, |
22 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, |
23 # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING |
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 |
24 # IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
25 # POSSIBILITY OF SUCH DAMAGE. |
25 # POSSIBILITY OF SUCH DAMAGE. |
26 # |
26 # |
27 <autotree> |
27 #<autotree> |
28 { # perl code follows |
28 { # perl code follows |
29 |
29 |
30 $::res = {}; |
30 $::res = {}; |
31 $::res->{port} ={}; |
31 $::res->{port} ={}; |
32 $::res->{"sub-port"} ={}; |
32 $::res->{"sub-port"} ={}; |
89 | cmdline |
89 | cmdline |
90 | <error> |
90 | <error> |
91 |
91 |
92 emptyline: eol |
92 emptyline: eol |
93 |
93 |
94 comment: /^\!.*/ eol |
94 comment: /^\!.*/ #eol |
95 |
95 |
96 cmdline: l_hostname |
96 cmdline: l_hostname |
97 | l_port |
97 | l_port |
98 | l_sub_port |
98 | l_sub_port |
99 | l_pm |
99 | l_pm |
102 | l_tunnel |
102 | l_tunnel |
103 | l_cfm_service |
103 | l_cfm_service |
104 | l_vc |
104 | l_vc |
105 | l_vs |
105 | l_vs |
106 | l_vlan |
106 | l_vlan |
107 | word(s) eol |
107 | word(s) #eol |
108 |
108 |
109 word: /[0-9a-zA-Z:\/_\#\"\.,-]+/ |
109 word: /[0-9a-zA-Z:\/_\#\"\.\$,+<>=-]+/ |
110 { $item[1] } |
110 { $item[1] } |
111 |
111 |
112 identifier: /[0-9a-zA-Z:_-]+/ |
112 identifier: /[0-9a-zA-Z:_-]+/ |
113 { $item[1] } |
113 { $item[1] } |
114 |
114 |