contents.pl 8.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301
  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{'contents'} = {
  7. 'contents' => [
  8. {
  9. 'parent' => {},
  10. 'text' => '
  11. ',
  12. 'type' => 'empty_line'
  13. },
  14. {
  15. 'contents' => [
  16. {
  17. 'parent' => {},
  18. 'text' => 'first '
  19. },
  20. {
  21. 'cmdname' => '@',
  22. 'parent' => {}
  23. },
  24. {
  25. 'parent' => {},
  26. 'text' => 'contents '
  27. }
  28. ],
  29. 'parent' => {},
  30. 'type' => 'paragraph'
  31. },
  32. {
  33. 'args' => [
  34. {
  35. 'parent' => {},
  36. 'text' => ' line following first content
  37. ',
  38. 'type' => 'misc_arg'
  39. }
  40. ],
  41. 'cmdname' => 'contents',
  42. 'line_nr' => {
  43. 'file_name' => '',
  44. 'line_nr' => 2,
  45. 'macro' => ''
  46. },
  47. 'parent' => {}
  48. },
  49. {
  50. 'contents' => [
  51. {
  52. 'parent' => {},
  53. 'text' => 'second '
  54. },
  55. {
  56. 'cmdname' => '@',
  57. 'parent' => {}
  58. },
  59. {
  60. 'parent' => {},
  61. 'text' => 'contents '
  62. }
  63. ],
  64. 'parent' => {},
  65. 'type' => 'paragraph'
  66. },
  67. {
  68. 'args' => [
  69. {
  70. 'parent' => {},
  71. 'text' => ' line following second content
  72. ',
  73. 'type' => 'misc_arg'
  74. }
  75. ],
  76. 'cmdname' => 'contents',
  77. 'line_nr' => {
  78. 'file_name' => '',
  79. 'line_nr' => 3,
  80. 'macro' => ''
  81. },
  82. 'parent' => {}
  83. },
  84. {
  85. 'contents' => [
  86. {
  87. 'parent' => {},
  88. 'text' => 'Third content on the following line on his own
  89. '
  90. }
  91. ],
  92. 'parent' => {},
  93. 'type' => 'paragraph'
  94. },
  95. {
  96. 'args' => [
  97. {
  98. 'parent' => {},
  99. 'text' => '
  100. ',
  101. 'type' => 'misc_arg'
  102. }
  103. ],
  104. 'cmdname' => 'contents',
  105. 'line_nr' => {
  106. 'file_name' => '',
  107. 'line_nr' => 5,
  108. 'macro' => ''
  109. },
  110. 'parent' => {}
  111. },
  112. {
  113. 'contents' => [
  114. {
  115. 'parent' => {},
  116. 'text' => 'Line following contents
  117. '
  118. },
  119. {
  120. 'parent' => {},
  121. 'text' => 'shortcontents '
  122. }
  123. ],
  124. 'parent' => {},
  125. 'type' => 'paragraph'
  126. },
  127. {
  128. 'args' => [
  129. {
  130. 'parent' => {},
  131. 'text' => ' eol
  132. ',
  133. 'type' => 'misc_arg'
  134. }
  135. ],
  136. 'cmdname' => 'shortcontents',
  137. 'line_nr' => {
  138. 'file_name' => '',
  139. 'line_nr' => 7,
  140. 'macro' => ''
  141. },
  142. 'parent' => {}
  143. },
  144. {
  145. 'contents' => [
  146. {
  147. 'parent' => {},
  148. 'text' => 'shortcontents '
  149. }
  150. ],
  151. 'parent' => {},
  152. 'type' => 'paragraph'
  153. },
  154. {
  155. 'args' => [
  156. {
  157. 'parent' => {},
  158. 'text' => ' eol
  159. ',
  160. 'type' => 'misc_arg'
  161. }
  162. ],
  163. 'cmdname' => 'shortcontents',
  164. 'line_nr' => {
  165. 'file_name' => '',
  166. 'line_nr' => 8,
  167. 'macro' => ''
  168. },
  169. 'parent' => {}
  170. },
  171. {
  172. 'contents' => [
  173. {
  174. 'parent' => {},
  175. 'text' => 'summarycontents '
  176. }
  177. ],
  178. 'parent' => {},
  179. 'type' => 'paragraph'
  180. },
  181. {
  182. 'args' => [
  183. {
  184. 'parent' => {},
  185. 'text' => ' line following summarycontents
  186. ',
  187. 'type' => 'misc_arg'
  188. }
  189. ],
  190. 'cmdname' => 'summarycontents',
  191. 'line_nr' => {
  192. 'file_name' => '',
  193. 'line_nr' => 9,
  194. 'macro' => ''
  195. },
  196. 'parent' => {}
  197. }
  198. ],
  199. 'type' => 'text_root'
  200. };
  201. $result_trees{'contents'}{'contents'}[0]{'parent'} = $result_trees{'contents'};
  202. $result_trees{'contents'}{'contents'}[1]{'contents'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[1];
  203. $result_trees{'contents'}{'contents'}[1]{'contents'}[1]{'parent'} = $result_trees{'contents'}{'contents'}[1];
  204. $result_trees{'contents'}{'contents'}[1]{'contents'}[2]{'parent'} = $result_trees{'contents'}{'contents'}[1];
  205. $result_trees{'contents'}{'contents'}[1]{'parent'} = $result_trees{'contents'};
  206. $result_trees{'contents'}{'contents'}[2]{'args'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[2];
  207. $result_trees{'contents'}{'contents'}[2]{'parent'} = $result_trees{'contents'};
  208. $result_trees{'contents'}{'contents'}[3]{'contents'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[3];
  209. $result_trees{'contents'}{'contents'}[3]{'contents'}[1]{'parent'} = $result_trees{'contents'}{'contents'}[3];
  210. $result_trees{'contents'}{'contents'}[3]{'contents'}[2]{'parent'} = $result_trees{'contents'}{'contents'}[3];
  211. $result_trees{'contents'}{'contents'}[3]{'parent'} = $result_trees{'contents'};
  212. $result_trees{'contents'}{'contents'}[4]{'args'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[4];
  213. $result_trees{'contents'}{'contents'}[4]{'parent'} = $result_trees{'contents'};
  214. $result_trees{'contents'}{'contents'}[5]{'contents'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[5];
  215. $result_trees{'contents'}{'contents'}[5]{'parent'} = $result_trees{'contents'};
  216. $result_trees{'contents'}{'contents'}[6]{'args'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[6];
  217. $result_trees{'contents'}{'contents'}[6]{'parent'} = $result_trees{'contents'};
  218. $result_trees{'contents'}{'contents'}[7]{'contents'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[7];
  219. $result_trees{'contents'}{'contents'}[7]{'contents'}[1]{'parent'} = $result_trees{'contents'}{'contents'}[7];
  220. $result_trees{'contents'}{'contents'}[7]{'parent'} = $result_trees{'contents'};
  221. $result_trees{'contents'}{'contents'}[8]{'args'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[8];
  222. $result_trees{'contents'}{'contents'}[8]{'parent'} = $result_trees{'contents'};
  223. $result_trees{'contents'}{'contents'}[9]{'contents'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[9];
  224. $result_trees{'contents'}{'contents'}[9]{'parent'} = $result_trees{'contents'};
  225. $result_trees{'contents'}{'contents'}[10]{'args'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[10];
  226. $result_trees{'contents'}{'contents'}[10]{'parent'} = $result_trees{'contents'};
  227. $result_trees{'contents'}{'contents'}[11]{'contents'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[11];
  228. $result_trees{'contents'}{'contents'}[11]{'parent'} = $result_trees{'contents'};
  229. $result_trees{'contents'}{'contents'}[12]{'args'}[0]{'parent'} = $result_trees{'contents'}{'contents'}[12];
  230. $result_trees{'contents'}{'contents'}[12]{'parent'} = $result_trees{'contents'};
  231. $result_texis{'contents'} = '
  232. first @@contents @contents line following first content
  233. second @@contents @contents line following second content
  234. Third content on the following line on his own
  235. @contents
  236. Line following contents
  237. shortcontents @shortcontents eol
  238. shortcontents @shortcontents eol
  239. summarycontents @summarycontents line following summarycontents
  240. ';
  241. $result_texts{'contents'} = '
  242. first @contents second @contents Third content on the following line on his own
  243. Line following contents
  244. shortcontents shortcontents summarycontents ';
  245. $result_errors{'contents'} = [
  246. {
  247. 'error_line' => ':2: warning: @contents should only appear at the beginning of a line
  248. ',
  249. 'file_name' => '',
  250. 'line_nr' => 2,
  251. 'macro' => '',
  252. 'text' => '@contents should only appear at the beginning of a line',
  253. 'type' => 'warning'
  254. },
  255. {
  256. 'error_line' => ':3: warning: @contents should only appear at the beginning of a line
  257. ',
  258. 'file_name' => '',
  259. 'line_nr' => 3,
  260. 'macro' => '',
  261. 'text' => '@contents should only appear at the beginning of a line',
  262. 'type' => 'warning'
  263. },
  264. {
  265. 'error_line' => ':7: warning: @shortcontents should only appear at the beginning of a line
  266. ',
  267. 'file_name' => '',
  268. 'line_nr' => 7,
  269. 'macro' => '',
  270. 'text' => '@shortcontents should only appear at the beginning of a line',
  271. 'type' => 'warning'
  272. },
  273. {
  274. 'error_line' => ':8: warning: @shortcontents should only appear at the beginning of a line
  275. ',
  276. 'file_name' => '',
  277. 'line_nr' => 8,
  278. 'macro' => '',
  279. 'text' => '@shortcontents should only appear at the beginning of a line',
  280. 'type' => 'warning'
  281. },
  282. {
  283. 'error_line' => ':9: warning: @summarycontents should only appear at the beginning of a line
  284. ',
  285. 'file_name' => '',
  286. 'line_nr' => 9,
  287. 'macro' => '',
  288. 'text' => '@summarycontents should only appear at the beginning of a line',
  289. 'type' => 'warning'
  290. }
  291. ];
  292. 1;