anchor_not_closed.pl 1.7 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768
  1. use vars qw(%result_texis %result_texts %result_trees %result_errors
  2. %result_indices %result_sectioning %result_nodes %result_menus
  3. %result_floats %result_converted %result_converted_errors
  4. %result_elements %result_directions_text);
  5. use utf8;
  6. $result_trees{'anchor_not_closed'} = {
  7. 'contents' => [
  8. {
  9. 'args' => [
  10. {
  11. 'contents' => [
  12. {
  13. 'parent' => {},
  14. 'text' => 'my anchor
  15. '
  16. },
  17. {
  18. 'parent' => {},
  19. 'text' => '
  20. ',
  21. 'type' => 'empty_line'
  22. }
  23. ],
  24. 'parent' => {},
  25. 'type' => 'brace_command_arg'
  26. }
  27. ],
  28. 'cmdname' => 'anchor',
  29. 'contents' => [],
  30. 'line_nr' => {
  31. 'file_name' => '',
  32. 'line_nr' => 1,
  33. 'macro' => ''
  34. },
  35. 'parent' => {}
  36. }
  37. ],
  38. 'type' => 'text_root'
  39. };
  40. $result_trees{'anchor_not_closed'}{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'anchor_not_closed'}{'contents'}[0]{'args'}[0];
  41. $result_trees{'anchor_not_closed'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'anchor_not_closed'}{'contents'}[0]{'args'}[0];
  42. $result_trees{'anchor_not_closed'}{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'anchor_not_closed'}{'contents'}[0];
  43. $result_trees{'anchor_not_closed'}{'contents'}[0]{'parent'} = $result_trees{'anchor_not_closed'};
  44. $result_texis{'anchor_not_closed'} = '@anchor{my anchor
  45. }';
  46. $result_texts{'anchor_not_closed'} = '';
  47. $result_errors{'anchor_not_closed'} = [
  48. {
  49. 'error_line' => ':1: @anchor missing closing brace
  50. ',
  51. 'file_name' => '',
  52. 'line_nr' => 1,
  53. 'macro' => '',
  54. 'text' => '@anchor missing closing brace',
  55. 'type' => 'error'
  56. }
  57. ];
  58. 1;