use vars qw(%result_texis %result_texts %result_trees %result_errors %result_indices %result_sectioning %result_nodes %result_menus %result_floats %result_converted %result_converted_errors %result_elements %result_directions_text); use utf8; $result_trees{'setfilename'} = { 'contents' => [ { 'args' => [ { 'contents' => [ { 'parent' => {}, 'text' => 'file_comment' } ], 'extra' => { 'comment_at_end' => { 'args' => [ { 'parent' => {}, 'text' => ' comment ', 'type' => 'misc_arg' } ], 'cmdname' => 'c', 'extra' => { 'misc_args' => [ ' comment ' ] }, 'parent' => {} } }, 'parent' => {}, 'type' => 'line_arg' } ], 'cmdname' => 'setfilename', 'extra' => { 'spaces_before_argument' => ' ', 'text_arg' => 'file_comment' }, 'line_nr' => { 'file_name' => '', 'line_nr' => 1, 'macro' => '' }, 'parent' => {} }, { 'args' => [ { 'contents' => [ { 'parent' => {}, 'text' => 'file_and_spaces' } ], 'extra' => { 'spaces_after_argument' => ' ' }, 'parent' => {}, 'type' => 'line_arg' } ], 'cmdname' => 'setfilename', 'extra' => { 'spaces_before_argument' => ' ', 'text_arg' => 'file_and_spaces' }, 'line_nr' => { 'file_name' => '', 'line_nr' => 2, 'macro' => '' }, 'parent' => {} }, { 'args' => [ { 'contents' => [ { 'parent' => {}, 'text' => 'file_space_comment' } ], 'extra' => { 'comment_at_end' => { 'args' => [ { 'parent' => {}, 'text' => ' comment ', 'type' => 'misc_arg' } ], 'cmdname' => 'c', 'extra' => { 'misc_args' => [ ' comment ' ] }, 'parent' => {} }, 'spaces_after_argument' => ' ' }, 'parent' => {}, 'type' => 'line_arg' } ], 'cmdname' => 'setfilename', 'extra' => { 'spaces_before_argument' => ' ', 'text_arg' => 'file_space_comment' }, 'line_nr' => { 'file_name' => '', 'line_nr' => 3, 'macro' => '' }, 'parent' => {} }, { 'args' => [ { 'contents' => [ { 'cmdname' => ' ', 'parent' => {} }, { 'args' => [ { 'contents' => [ { 'parent' => {}, 'text' => ' name ', 'type' => 'raw' } ], 'parent' => {}, 'type' => 'brace_command_arg' } ], 'cmdname' => 'verb', 'contents' => [], 'extra' => { 'delimiter' => ':' }, 'line_nr' => { 'file_name' => '', 'line_nr' => 4, 'macro' => '' }, 'parent' => {} }, { 'cmdname' => ' ', 'parent' => {} } ], 'extra' => { 'spaces_after_argument' => ' ' }, 'parent' => {}, 'type' => 'line_arg' } ], 'cmdname' => 'setfilename', 'extra' => { 'missing_argument' => 1, 'spaces_before_argument' => ' ' }, 'line_nr' => { 'file_name' => '', 'line_nr' => 4, 'macro' => '' }, 'parent' => {} }, { 'parent' => {}, 'text' => ' ', 'type' => 'empty_line' } ], 'type' => 'text_root' }; $result_trees{'setfilename'}{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[0]{'args'}[0]; $result_trees{'setfilename'}{'contents'}[0]{'args'}[0]{'extra'}{'comment_at_end'}{'args'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[0]{'args'}[0]{'extra'}{'comment_at_end'}; $result_trees{'setfilename'}{'contents'}[0]{'args'}[0]{'extra'}{'comment_at_end'}{'parent'} = $result_trees{'setfilename'}{'contents'}[0]{'args'}[0]; $result_trees{'setfilename'}{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[0]; $result_trees{'setfilename'}{'contents'}[0]{'parent'} = $result_trees{'setfilename'}; $result_trees{'setfilename'}{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[1]{'args'}[0]; $result_trees{'setfilename'}{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[1]; $result_trees{'setfilename'}{'contents'}[1]{'parent'} = $result_trees{'setfilename'}; $result_trees{'setfilename'}{'contents'}[2]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[2]{'args'}[0]; $result_trees{'setfilename'}{'contents'}[2]{'args'}[0]{'extra'}{'comment_at_end'}{'args'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[2]{'args'}[0]{'extra'}{'comment_at_end'}; $result_trees{'setfilename'}{'contents'}[2]{'args'}[0]{'extra'}{'comment_at_end'}{'parent'} = $result_trees{'setfilename'}{'contents'}[2]{'args'}[0]; $result_trees{'setfilename'}{'contents'}[2]{'args'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[2]; $result_trees{'setfilename'}{'contents'}[2]{'parent'} = $result_trees{'setfilename'}; $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]; $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]{'contents'}[1]{'args'}[0]; $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]{'contents'}[1]; $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]; $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]; $result_trees{'setfilename'}{'contents'}[3]{'args'}[0]{'parent'} = $result_trees{'setfilename'}{'contents'}[3]; $result_trees{'setfilename'}{'contents'}[3]{'parent'} = $result_trees{'setfilename'}; $result_trees{'setfilename'}{'contents'}[4]{'parent'} = $result_trees{'setfilename'}; $result_texis{'setfilename'} = '@setfilename file_comment@c comment @setfilename file_and_spaces @setfilename file_space_comment @c comment @setfilename @ @verb{: name :}@ '; $result_texts{'setfilename'} = ' '; $result_errors{'setfilename'} = [ { 'error_line' => ':2: warning: multiple @setfilename ', 'file_name' => '', 'line_nr' => 2, 'macro' => '', 'text' => 'multiple @setfilename', 'type' => 'warning' }, { 'error_line' => ':3: warning: multiple @setfilename ', 'file_name' => '', 'line_nr' => 3, 'macro' => '', 'text' => 'multiple @setfilename', 'type' => 'warning' }, { 'error_line' => ':4: warning: multiple @setfilename ', 'file_name' => '', 'line_nr' => 4, 'macro' => '', 'text' => 'multiple @setfilename', 'type' => 'warning' }, { 'error_line' => ':4: warning: @verb should not appear in @setfilename ', 'file_name' => '', 'line_nr' => 4, 'macro' => '', 'text' => '@verb should not appear in @setfilename', 'type' => 'warning' }, { 'error_line' => ':4: bad argument to @setfilename: @ @verb{: name :}@ ', 'file_name' => '', 'line_nr' => 4, 'macro' => '', 'text' => 'bad argument to @setfilename: @ @verb{: name :}@', 'type' => 'error' } ]; $result_floats{'setfilename'} = {}; $result_converted{'plaintext'}->{'setfilename'} = ''; $result_converted{'html_text'}->{'setfilename'} = ' '; $result_converted{'docbook'}->{'setfilename'} = ' '; $result_converted{'info'}->{'setfilename'} = 'This is file_comment, produced from .  Tag Table:  End Tag Table  Local Variables: coding: utf-8 End: '; $result_converted_errors{'info'}->{'setfilename'} = [ { 'error_line' => 'warning: document without nodes ', 'text' => 'document without nodes', 'type' => 'warning' } ]; $result_converted{'xml'}->{'setfilename'} = 'file_comment file_and_spaces file_space_comment name '; 1;