code_not_closed.pl 1.8 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  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{'code_not_closed'} = {
  7. 'contents' => [
  8. {
  9. 'contents' => [
  10. {
  11. 'args' => [
  12. {
  13. 'contents' => [
  14. {
  15. 'parent' => {},
  16. 'text' => 'in code'
  17. }
  18. ],
  19. 'parent' => {},
  20. 'type' => 'brace_command_arg'
  21. }
  22. ],
  23. 'cmdname' => 'code',
  24. 'contents' => [],
  25. 'line_nr' => {
  26. 'file_name' => '',
  27. 'line_nr' => 1,
  28. 'macro' => ''
  29. },
  30. 'parent' => {}
  31. }
  32. ],
  33. 'parent' => {},
  34. 'type' => 'paragraph'
  35. }
  36. ],
  37. 'type' => 'text_root'
  38. };
  39. $result_trees{'code_not_closed'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'code_not_closed'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  40. $result_trees{'code_not_closed'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'code_not_closed'}{'contents'}[0]{'contents'}[0];
  41. $result_trees{'code_not_closed'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'code_not_closed'}{'contents'}[0];
  42. $result_trees{'code_not_closed'}{'contents'}[0]{'parent'} = $result_trees{'code_not_closed'};
  43. $result_texis{'code_not_closed'} = '@code{in code}';
  44. $result_texts{'code_not_closed'} = 'in code';
  45. $result_errors{'code_not_closed'} = [
  46. {
  47. 'error_line' => ':1: @code missing closing brace
  48. ',
  49. 'file_name' => '',
  50. 'line_nr' => 1,
  51. 'macro' => '',
  52. 'text' => '@code missing closing brace',
  53. 'type' => 'error'
  54. }
  55. ];
  56. 1;