bad_formal_arg.pl 8.3 KB

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