good_comment.pl 7.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166
  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{'good_comment'} = {
  7. 'contents' => [
  8. {
  9. 'args' => [
  10. {
  11. 'contents' => [
  12. {
  13. 'extra' => {
  14. 'command' => {}
  15. },
  16. 'parent' => {},
  17. 'text' => ' ',
  18. 'type' => 'empty_spaces_after_command'
  19. },
  20. {
  21. 'args' => [
  22. {
  23. 'contents' => [
  24. {
  25. 'extra' => {
  26. 'command' => {}
  27. },
  28. 'parent' => {},
  29. 'text' => ' ',
  30. 'type' => 'empty_spaces_after_command'
  31. },
  32. {
  33. 'parent' => {},
  34. 'text' => '0.4 .6 5.'
  35. },
  36. {
  37. 'args' => [
  38. {
  39. 'parent' => {},
  40. 'text' => ' comment
  41. ',
  42. 'type' => 'misc_arg'
  43. }
  44. ],
  45. 'cmdname' => 'c',
  46. 'extra' => {
  47. 'misc_args' => [
  48. ' comment
  49. '
  50. ]
  51. },
  52. 'parent' => {}
  53. }
  54. ],
  55. 'parent' => {},
  56. 'type' => 'misc_line_arg'
  57. }
  58. ],
  59. 'cmdname' => 'columnfractions',
  60. 'extra' => {
  61. 'misc_args' => [
  62. '0.4',
  63. '.6',
  64. '5.'
  65. ],
  66. 'spaces_after_command' => {}
  67. },
  68. 'line_nr' => {
  69. 'file_name' => '',
  70. 'line_nr' => 1,
  71. 'macro' => ''
  72. },
  73. 'parent' => {}
  74. }
  75. ],
  76. 'parent' => {},
  77. 'type' => 'block_line_arg'
  78. }
  79. ],
  80. 'cmdname' => 'multitable',
  81. 'contents' => [
  82. {
  83. 'args' => [
  84. {
  85. 'contents' => [
  86. {
  87. 'extra' => {
  88. 'command' => {}
  89. },
  90. 'parent' => {},
  91. 'text' => ' ',
  92. 'type' => 'empty_spaces_after_command'
  93. },
  94. {
  95. 'parent' => {},
  96. 'text' => 'multitable'
  97. }
  98. ],
  99. 'parent' => {},
  100. 'type' => 'misc_line_arg'
  101. }
  102. ],
  103. 'cmdname' => 'end',
  104. 'extra' => {
  105. 'command' => {},
  106. 'command_argument' => 'multitable',
  107. 'spaces_after_command' => {},
  108. 'text_arg' => 'multitable'
  109. },
  110. 'line_nr' => {
  111. 'file_name' => '',
  112. 'line_nr' => 2,
  113. 'macro' => ''
  114. },
  115. 'parent' => {}
  116. }
  117. ],
  118. 'extra' => {
  119. 'columnfractions' => [],
  120. 'end_command' => {},
  121. 'max_columns' => 3,
  122. 'spaces_after_command' => {}
  123. },
  124. 'line_nr' => {},
  125. 'parent' => {}
  126. }
  127. ],
  128. 'type' => 'text_root'
  129. };
  130. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'good_comment'}{'contents'}[0];
  131. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0];
  132. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1];
  133. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0];
  134. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0];
  135. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[2]{'args'}[0]{'parent'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[2];
  136. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0];
  137. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1];
  138. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'extra'}{'spaces_after_command'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0];
  139. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0];
  140. $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'good_comment'}{'contents'}[0];
  141. $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0];
  142. $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  143. $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  144. $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0];
  145. $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'good_comment'}{'contents'}[0];
  146. $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0]{'extra'}{'spaces_after_command'} = $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0];
  147. $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'good_comment'}{'contents'}[0];
  148. $result_trees{'good_comment'}{'contents'}[0]{'extra'}{'columnfractions'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'extra'}{'misc_args'};
  149. $result_trees{'good_comment'}{'contents'}[0]{'extra'}{'end_command'} = $result_trees{'good_comment'}{'contents'}[0]{'contents'}[0];
  150. $result_trees{'good_comment'}{'contents'}[0]{'extra'}{'spaces_after_command'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[0];
  151. $result_trees{'good_comment'}{'contents'}[0]{'line_nr'} = $result_trees{'good_comment'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'line_nr'};
  152. $result_trees{'good_comment'}{'contents'}[0]{'parent'} = $result_trees{'good_comment'};
  153. $result_texis{'good_comment'} = '@multitable @columnfractions 0.4 .6 5.@c comment
  154. @end multitable';
  155. $result_texts{'good_comment'} = '';
  156. $result_errors{'good_comment'} = [];
  157. 1;