form_feeds.pl 6.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243
  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{'form_feeds'} = {
  7. 'contents' => [
  8. {
  9. 'args' => [
  10. {
  11. 'parent' => {},
  12. 'text' => 'mymacro',
  13. 'type' => 'macro_name'
  14. },
  15. {
  16. 'parent' => {},
  17. 'text' => 'a',
  18. 'type' => 'macro_arg'
  19. },
  20. {
  21. 'parent' => {},
  22. 'text' => 'b',
  23. 'type' => 'macro_arg'
  24. }
  25. ],
  26. 'cmdname' => 'macro',
  27. 'contents' => [
  28. {
  29. 'parent' => {},
  30. 'text' => 'f \\a\\ n \\b\\',
  31. 'type' => 'raw'
  32. },
  33. {
  34. 'parent' => {},
  35. 'text' => '
  36. ',
  37. 'type' => 'last_raw_newline'
  38. }
  39. ],
  40. 'extra' => {
  41. 'arg_line' => ' mymacro{a, b}
  42. '
  43. },
  44. 'line_nr' => {
  45. 'file_name' => '',
  46. 'line_nr' => 1,
  47. 'macro' => ''
  48. },
  49. 'parent' => {}
  50. },
  51. {
  52. 'extra' => {
  53. 'command' => {}
  54. },
  55. 'parent' => {},
  56. 'text' => '
  57. ',
  58. 'type' => 'empty_line_after_command'
  59. },
  60. {
  61. 'parent' => {},
  62. 'text' => '
  63. ',
  64. 'type' => 'empty_line'
  65. },
  66. {
  67. 'args' => [
  68. {
  69. 'parent' => {},
  70. 'text' => 'oneargmacro',
  71. 'type' => 'macro_name'
  72. },
  73. {
  74. 'parent' => {},
  75. 'text' => 'c',
  76. 'type' => 'macro_arg'
  77. }
  78. ],
  79. 'cmdname' => 'macro',
  80. 'contents' => [
  81. {
  82. 'parent' => {},
  83. 'text' => 'g \\c\\ v',
  84. 'type' => 'raw'
  85. },
  86. {
  87. 'parent' => {},
  88. 'text' => '
  89. ',
  90. 'type' => 'last_raw_newline'
  91. }
  92. ],
  93. 'extra' => {
  94. 'arg_line' => ' oneargmacro{c}
  95. '
  96. },
  97. 'line_nr' => {
  98. 'file_name' => '',
  99. 'line_nr' => 5,
  100. 'macro' => ''
  101. },
  102. 'parent' => {}
  103. },
  104. {
  105. 'extra' => {
  106. 'command' => {}
  107. },
  108. 'parent' => {},
  109. 'text' => '
  110. ',
  111. 'type' => 'empty_line_after_command'
  112. },
  113. {
  114. 'parent' => {},
  115. 'text' => '
  116. ',
  117. 'type' => 'empty_line'
  118. },
  119. {
  120. 'contents' => [
  121. {
  122. 'parent' => {},
  123. 'text' => 'f arg1'
  124. }
  125. ],
  126. 'parent' => {},
  127. 'type' => 'paragraph'
  128. },
  129. {
  130. 'parent' => {},
  131. 'text' => ' ',
  132. 'type' => 'empty_line'
  133. },
  134. {
  135. 'parent' => {},
  136. 'text' => ' ',
  137. 'type' => 'empty_spaces_before_paragraph'
  138. },
  139. {
  140. 'contents' => [
  141. {
  142. 'parent' => {},
  143. 'text' => 'n arg2
  144. '
  145. }
  146. ],
  147. 'parent' => {},
  148. 'type' => 'paragraph'
  149. },
  150. {
  151. 'parent' => {},
  152. 'text' => '
  153. ',
  154. 'type' => 'empty_line'
  155. },
  156. {
  157. 'contents' => [
  158. {
  159. 'parent' => {},
  160. 'text' => 'g a'
  161. },
  162. {
  163. 'cmdname' => '{',
  164. 'parent' => {}
  165. },
  166. {
  167. 'parent' => {},
  168. 'text' => 'rgline v
  169. '
  170. }
  171. ],
  172. 'parent' => {},
  173. 'type' => 'paragraph'
  174. },
  175. {
  176. 'parent' => {},
  177. 'text' => '
  178. ',
  179. 'type' => 'empty_line'
  180. }
  181. ],
  182. 'type' => 'text_root'
  183. };
  184. $result_trees{'form_feeds'}{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'form_feeds'}{'contents'}[0];
  185. $result_trees{'form_feeds'}{'contents'}[0]{'args'}[1]{'parent'} = $result_trees{'form_feeds'}{'contents'}[0];
  186. $result_trees{'form_feeds'}{'contents'}[0]{'args'}[2]{'parent'} = $result_trees{'form_feeds'}{'contents'}[0];
  187. $result_trees{'form_feeds'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'form_feeds'}{'contents'}[0];
  188. $result_trees{'form_feeds'}{'contents'}[0]{'contents'}[1]{'parent'} = $result_trees{'form_feeds'}{'contents'}[0];
  189. $result_trees{'form_feeds'}{'contents'}[0]{'parent'} = $result_trees{'form_feeds'};
  190. $result_trees{'form_feeds'}{'contents'}[1]{'extra'}{'command'} = $result_trees{'form_feeds'}{'contents'}[0];
  191. $result_trees{'form_feeds'}{'contents'}[1]{'parent'} = $result_trees{'form_feeds'};
  192. $result_trees{'form_feeds'}{'contents'}[2]{'parent'} = $result_trees{'form_feeds'};
  193. $result_trees{'form_feeds'}{'contents'}[3]{'args'}[0]{'parent'} = $result_trees{'form_feeds'}{'contents'}[3];
  194. $result_trees{'form_feeds'}{'contents'}[3]{'args'}[1]{'parent'} = $result_trees{'form_feeds'}{'contents'}[3];
  195. $result_trees{'form_feeds'}{'contents'}[3]{'contents'}[0]{'parent'} = $result_trees{'form_feeds'}{'contents'}[3];
  196. $result_trees{'form_feeds'}{'contents'}[3]{'contents'}[1]{'parent'} = $result_trees{'form_feeds'}{'contents'}[3];
  197. $result_trees{'form_feeds'}{'contents'}[3]{'parent'} = $result_trees{'form_feeds'};
  198. $result_trees{'form_feeds'}{'contents'}[4]{'extra'}{'command'} = $result_trees{'form_feeds'}{'contents'}[3];
  199. $result_trees{'form_feeds'}{'contents'}[4]{'parent'} = $result_trees{'form_feeds'};
  200. $result_trees{'form_feeds'}{'contents'}[5]{'parent'} = $result_trees{'form_feeds'};
  201. $result_trees{'form_feeds'}{'contents'}[6]{'contents'}[0]{'parent'} = $result_trees{'form_feeds'}{'contents'}[6];
  202. $result_trees{'form_feeds'}{'contents'}[6]{'parent'} = $result_trees{'form_feeds'};
  203. $result_trees{'form_feeds'}{'contents'}[7]{'parent'} = $result_trees{'form_feeds'};
  204. $result_trees{'form_feeds'}{'contents'}[8]{'parent'} = $result_trees{'form_feeds'};
  205. $result_trees{'form_feeds'}{'contents'}[9]{'contents'}[0]{'parent'} = $result_trees{'form_feeds'}{'contents'}[9];
  206. $result_trees{'form_feeds'}{'contents'}[9]{'parent'} = $result_trees{'form_feeds'};
  207. $result_trees{'form_feeds'}{'contents'}[10]{'parent'} = $result_trees{'form_feeds'};
  208. $result_trees{'form_feeds'}{'contents'}[11]{'contents'}[0]{'parent'} = $result_trees{'form_feeds'}{'contents'}[11];
  209. $result_trees{'form_feeds'}{'contents'}[11]{'contents'}[1]{'parent'} = $result_trees{'form_feeds'}{'contents'}[11];
  210. $result_trees{'form_feeds'}{'contents'}[11]{'contents'}[2]{'parent'} = $result_trees{'form_feeds'}{'contents'}[11];
  211. $result_trees{'form_feeds'}{'contents'}[11]{'parent'} = $result_trees{'form_feeds'};
  212. $result_trees{'form_feeds'}{'contents'}[12]{'parent'} = $result_trees{'form_feeds'};
  213. $result_texis{'form_feeds'} = '@macro mymacro{a, b}
  214. f \\a\\ n \\b\\
  215. @end macro
  216. @macro oneargmacro{c}
  217. g \\c\\ v
  218. @end macro
  219. f arg1 n arg2
  220. g a@{rgline v
  221. ';
  222. $result_texts{'form_feeds'} = '
  223. f arg1 n arg2
  224. g a{rgline v
  225. ';
  226. $result_errors{'form_feeds'} = [];
  227. 1;