macro_in_brace_command.pl 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349
  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{'macro_in_brace_command'} = {
  7. 'contents' => [
  8. {
  9. 'args' => [
  10. {
  11. 'parent' => {},
  12. 'text' => 'foo',
  13. 'type' => 'macro_name'
  14. }
  15. ],
  16. 'cmdname' => 'macro',
  17. 'contents' => [
  18. {
  19. 'parent' => {},
  20. 'text' => 'foo-expansion',
  21. 'type' => 'raw'
  22. },
  23. {
  24. 'parent' => {},
  25. 'text' => '
  26. ',
  27. 'type' => 'last_raw_newline'
  28. }
  29. ],
  30. 'extra' => {
  31. 'arg_line' => ' foo
  32. '
  33. },
  34. 'line_nr' => {
  35. 'file_name' => '',
  36. 'line_nr' => 1,
  37. 'macro' => ''
  38. },
  39. 'parent' => {}
  40. },
  41. {
  42. 'extra' => {
  43. 'command' => {}
  44. },
  45. 'parent' => {},
  46. 'text' => '
  47. ',
  48. 'type' => 'empty_line_after_command'
  49. },
  50. {
  51. 'parent' => {},
  52. 'text' => '
  53. ',
  54. 'type' => 'empty_line'
  55. },
  56. {
  57. 'args' => [
  58. {
  59. 'parent' => {},
  60. 'text' => 'abar',
  61. 'type' => 'macro_name'
  62. }
  63. ],
  64. 'cmdname' => 'macro',
  65. 'contents' => [
  66. {
  67. 'parent' => {},
  68. 'text' => 'bar-expansion',
  69. 'type' => 'raw'
  70. },
  71. {
  72. 'parent' => {},
  73. 'text' => '
  74. ',
  75. 'type' => 'last_raw_newline'
  76. }
  77. ],
  78. 'extra' => {
  79. 'arg_line' => ' abar
  80. '
  81. },
  82. 'line_nr' => {
  83. 'file_name' => '',
  84. 'line_nr' => 5,
  85. 'macro' => ''
  86. },
  87. 'parent' => {}
  88. },
  89. {
  90. 'extra' => {
  91. 'command' => {}
  92. },
  93. 'parent' => {},
  94. 'text' => '
  95. ',
  96. 'type' => 'empty_line_after_command'
  97. },
  98. {
  99. 'parent' => {},
  100. 'text' => '
  101. ',
  102. 'type' => 'empty_line'
  103. },
  104. {
  105. 'args' => [
  106. {
  107. 'contents' => [
  108. {
  109. 'extra' => {
  110. 'command' => {}
  111. },
  112. 'parent' => {},
  113. 'text' => ' ',
  114. 'type' => 'empty_spaces_after_command'
  115. },
  116. {
  117. 'cmdname' => 'bullet',
  118. 'contents' => [],
  119. 'line_nr' => {
  120. 'file_name' => '',
  121. 'line_nr' => 9,
  122. 'macro' => ''
  123. },
  124. 'parent' => {},
  125. 'type' => 'command_as_argument'
  126. },
  127. {
  128. 'parent' => {},
  129. 'text' => '
  130. ',
  131. 'type' => 'space_at_end_block_command'
  132. }
  133. ],
  134. 'parent' => {},
  135. 'type' => 'block_line_arg'
  136. }
  137. ],
  138. 'cmdname' => 'itemize',
  139. 'contents' => [
  140. {
  141. 'cmdname' => 'item',
  142. 'contents' => [
  143. {
  144. 'extra' => {
  145. 'command' => {}
  146. },
  147. 'parent' => {},
  148. 'text' => ' ',
  149. 'type' => 'empty_spaces_after_command'
  150. },
  151. {
  152. 'contents' => [
  153. {
  154. 'args' => [
  155. {
  156. 'contents' => [
  157. {
  158. 'parent' => {},
  159. 'text' => 'foo-expansion'
  160. },
  161. {
  162. 'cmdname' => '@',
  163. 'parent' => {}
  164. },
  165. {
  166. 'parent' => {},
  167. 'text' => 'bar-expansion'
  168. }
  169. ],
  170. 'parent' => {},
  171. 'type' => 'brace_command_arg'
  172. }
  173. ],
  174. 'cmdname' => 'email',
  175. 'contents' => [],
  176. 'extra' => {
  177. 'brace_command_contents' => [
  178. [
  179. {},
  180. {},
  181. {}
  182. ]
  183. ]
  184. },
  185. 'line_nr' => {
  186. 'file_name' => '',
  187. 'line_nr' => 10,
  188. 'macro' => ''
  189. },
  190. 'parent' => {}
  191. },
  192. {
  193. 'parent' => {},
  194. 'text' => ',
  195. '
  196. },
  197. {
  198. 'parent' => {},
  199. 'text' => ' also helped.
  200. '
  201. }
  202. ],
  203. 'parent' => {},
  204. 'type' => 'paragraph'
  205. }
  206. ],
  207. 'extra' => {
  208. 'item_number' => 1,
  209. 'spaces_after_command' => {}
  210. },
  211. 'line_nr' => {},
  212. 'parent' => {}
  213. },
  214. {
  215. 'args' => [
  216. {
  217. 'contents' => [
  218. {
  219. 'extra' => {
  220. 'command' => {}
  221. },
  222. 'parent' => {},
  223. 'text' => ' ',
  224. 'type' => 'empty_spaces_after_command'
  225. },
  226. {
  227. 'parent' => {},
  228. 'text' => 'itemize'
  229. },
  230. {
  231. 'parent' => {},
  232. 'text' => '
  233. ',
  234. 'type' => 'spaces_at_end'
  235. }
  236. ],
  237. 'parent' => {},
  238. 'type' => 'misc_line_arg'
  239. }
  240. ],
  241. 'cmdname' => 'end',
  242. 'extra' => {
  243. 'command' => {},
  244. 'command_argument' => 'itemize',
  245. 'spaces_after_command' => {},
  246. 'text_arg' => 'itemize'
  247. },
  248. 'line_nr' => {
  249. 'file_name' => '',
  250. 'line_nr' => 12,
  251. 'macro' => ''
  252. },
  253. 'parent' => {}
  254. }
  255. ],
  256. 'extra' => {
  257. 'block_command_line_contents' => [
  258. [
  259. {}
  260. ]
  261. ],
  262. 'command_as_argument' => {},
  263. 'end_command' => {},
  264. 'spaces_after_command' => {}
  265. },
  266. 'line_nr' => {},
  267. 'parent' => {}
  268. }
  269. ],
  270. 'type' => 'text_root'
  271. };
  272. $result_trees{'macro_in_brace_command'}{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[0];
  273. $result_trees{'macro_in_brace_command'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[0];
  274. $result_trees{'macro_in_brace_command'}{'contents'}[0]{'contents'}[1]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[0];
  275. $result_trees{'macro_in_brace_command'}{'contents'}[0]{'parent'} = $result_trees{'macro_in_brace_command'};
  276. $result_trees{'macro_in_brace_command'}{'contents'}[1]{'extra'}{'command'} = $result_trees{'macro_in_brace_command'}{'contents'}[0];
  277. $result_trees{'macro_in_brace_command'}{'contents'}[1]{'parent'} = $result_trees{'macro_in_brace_command'};
  278. $result_trees{'macro_in_brace_command'}{'contents'}[2]{'parent'} = $result_trees{'macro_in_brace_command'};
  279. $result_trees{'macro_in_brace_command'}{'contents'}[3]{'args'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[3];
  280. $result_trees{'macro_in_brace_command'}{'contents'}[3]{'contents'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[3];
  281. $result_trees{'macro_in_brace_command'}{'contents'}[3]{'contents'}[1]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[3];
  282. $result_trees{'macro_in_brace_command'}{'contents'}[3]{'parent'} = $result_trees{'macro_in_brace_command'};
  283. $result_trees{'macro_in_brace_command'}{'contents'}[4]{'extra'}{'command'} = $result_trees{'macro_in_brace_command'}{'contents'}[3];
  284. $result_trees{'macro_in_brace_command'}{'contents'}[4]{'parent'} = $result_trees{'macro_in_brace_command'};
  285. $result_trees{'macro_in_brace_command'}{'contents'}[5]{'parent'} = $result_trees{'macro_in_brace_command'};
  286. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'macro_in_brace_command'}{'contents'}[6];
  287. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0];
  288. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0];
  289. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0];
  290. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6];
  291. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0];
  292. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0];
  293. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'args'}[0];
  294. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'args'}[0];
  295. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'args'}[0];
  296. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0];
  297. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'extra'}{'brace_command_contents'}[0][0] = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'args'}[0]{'contents'}[0];
  298. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'extra'}{'brace_command_contents'}[0][1] = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'args'}[0]{'contents'}[1];
  299. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'extra'}{'brace_command_contents'}[0][2] = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'args'}[0]{'contents'}[2];
  300. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1];
  301. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[1]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1];
  302. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[2]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1];
  303. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0];
  304. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'extra'}{'spaces_after_command'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[0];
  305. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'line_nr'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'contents'}[1]{'contents'}[0]{'line_nr'};
  306. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6];
  307. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1];
  308. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'args'}[0];
  309. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'args'}[0];
  310. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'args'}[0];
  311. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1];
  312. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'extra'}{'command'} = $result_trees{'macro_in_brace_command'}{'contents'}[6];
  313. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'extra'}{'spaces_after_command'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'args'}[0]{'contents'}[0];
  314. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1]{'parent'} = $result_trees{'macro_in_brace_command'}{'contents'}[6];
  315. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'extra'}{'block_command_line_contents'}[0][0] = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0]{'contents'}[1];
  316. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'extra'}{'command_as_argument'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0]{'contents'}[1];
  317. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'extra'}{'end_command'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'contents'}[1];
  318. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'extra'}{'spaces_after_command'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0]{'contents'}[0];
  319. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'line_nr'} = $result_trees{'macro_in_brace_command'}{'contents'}[6]{'args'}[0]{'contents'}[1]{'line_nr'};
  320. $result_trees{'macro_in_brace_command'}{'contents'}[6]{'parent'} = $result_trees{'macro_in_brace_command'};
  321. $result_texis{'macro_in_brace_command'} = '@macro foo
  322. foo-expansion
  323. @end macro
  324. @macro abar
  325. bar-expansion
  326. @end macro
  327. @itemize @bullet
  328. @item @email{foo-expansion@@bar-expansion},
  329. also helped.
  330. @end itemize
  331. ';
  332. $result_texts{'macro_in_brace_command'} = '
  333. foo-expansion@bar-expansion,
  334. also helped.
  335. ';
  336. $result_errors{'macro_in_brace_command'} = [];
  337. 1;