unmatched_brace.pl 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107
  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{'unmatched_brace'} = {
  7. 'contents' => [
  8. {
  9. 'contents' => [
  10. {
  11. 'args' => [
  12. {
  13. 'contents' => [
  14. {
  15. 'parent' => {},
  16. 'text' => 'Closing'
  17. }
  18. ],
  19. 'parent' => {},
  20. 'type' => 'brace_command_arg'
  21. }
  22. ],
  23. 'cmdname' => 'samp',
  24. 'contents' => [],
  25. 'line_nr' => {
  26. 'file_name' => '',
  27. 'line_nr' => 1,
  28. 'macro' => ''
  29. },
  30. 'parent' => {}
  31. },
  32. {
  33. 'parent' => {},
  34. 'text' => ' '
  35. },
  36. {
  37. 'args' => [
  38. {
  39. 'contents' => [
  40. {
  41. 'parent' => {},
  42. 'text' => ' '
  43. },
  44. {
  45. 'cmdname' => '}',
  46. 'parent' => {}
  47. },
  48. {
  49. 'parent' => {},
  50. 'text' => ' without opening macro '
  51. }
  52. ],
  53. 'parent' => {},
  54. 'type' => 'brace_command_arg'
  55. }
  56. ],
  57. 'cmdname' => 'samp',
  58. 'contents' => [],
  59. 'line_nr' => {},
  60. 'parent' => {}
  61. },
  62. {
  63. 'parent' => {},
  64. 'text' => '.'
  65. }
  66. ],
  67. 'parent' => {},
  68. 'type' => 'paragraph'
  69. }
  70. ],
  71. 'type' => 'text_root'
  72. };
  73. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  74. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[0];
  75. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'unmatched_brace'}{'contents'}[0];
  76. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[1]{'parent'} = $result_trees{'unmatched_brace'}{'contents'}[0];
  77. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[2]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[2]{'args'}[0];
  78. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[2]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[2]{'args'}[0];
  79. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[2]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[2]{'args'}[0];
  80. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[2]{'args'}[0]{'parent'} = $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[2];
  81. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[2]{'line_nr'} = $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[0]{'line_nr'};
  82. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[2]{'parent'} = $result_trees{'unmatched_brace'}{'contents'}[0];
  83. $result_trees{'unmatched_brace'}{'contents'}[0]{'contents'}[3]{'parent'} = $result_trees{'unmatched_brace'}{'contents'}[0];
  84. $result_trees{'unmatched_brace'}{'contents'}[0]{'parent'} = $result_trees{'unmatched_brace'};
  85. $result_texis{'unmatched_brace'} = '@samp{Closing} @samp{ @} without opening macro }.';
  86. $result_texts{'unmatched_brace'} = 'Closing } without opening macro .';
  87. $result_errors{'unmatched_brace'} = [
  88. {
  89. 'error_line' => ':1: misplaced }
  90. ',
  91. 'file_name' => '',
  92. 'line_nr' => 1,
  93. 'macro' => '',
  94. 'text' => 'misplaced }',
  95. 'type' => 'error'
  96. }
  97. ];
  98. 1;