expansion_order.pl 4.7 KB

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