definfoenclose.pl 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484
  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{'definfoenclose'} = {
  7. 'contents' => [
  8. {
  9. 'parent' => {},
  10. 'text' => '
  11. ',
  12. 'type' => 'empty_line'
  13. },
  14. {
  15. 'contents' => [
  16. {
  17. 'parent' => {},
  18. 'text' => 'definfoenclose phoo,//,\\ '
  19. },
  20. {
  21. 'args' => [
  22. {
  23. 'contents' => [
  24. {
  25. 'extra' => {
  26. 'command' => {}
  27. },
  28. 'parent' => {},
  29. 'text' => ' ',
  30. 'type' => 'empty_spaces_after_command'
  31. },
  32. {
  33. 'parent' => {},
  34. 'text' => 'phoo,//,\\'
  35. },
  36. {
  37. 'parent' => {},
  38. 'text' => '
  39. ',
  40. 'type' => 'spaces_at_end'
  41. }
  42. ],
  43. 'parent' => {},
  44. 'type' => 'misc_line_arg'
  45. }
  46. ],
  47. 'cmdname' => 'definfoenclose',
  48. 'extra' => {
  49. 'misc_args' => [
  50. 'phoo',
  51. '//',
  52. '\\'
  53. ],
  54. 'spaces_after_command' => {}
  55. },
  56. 'line_nr' => {
  57. 'file_name' => '',
  58. 'line_nr' => 2,
  59. 'macro' => ''
  60. },
  61. 'parent' => {}
  62. }
  63. ],
  64. 'parent' => {},
  65. 'type' => 'paragraph'
  66. },
  67. {
  68. 'parent' => {},
  69. 'text' => '
  70. ',
  71. 'type' => 'empty_line'
  72. },
  73. {
  74. 'contents' => [
  75. {
  76. 'args' => [
  77. {
  78. 'contents' => [
  79. {
  80. 'parent' => {},
  81. 'text' => 'bar'
  82. }
  83. ],
  84. 'parent' => {},
  85. 'type' => 'brace_command_arg'
  86. }
  87. ],
  88. 'cmdname' => 'phoo',
  89. 'contents' => [],
  90. 'extra' => {
  91. 'begin' => '//',
  92. 'end' => '\\'
  93. },
  94. 'parent' => {},
  95. 'type' => 'definfoenclose_command'
  96. },
  97. {
  98. 'parent' => {},
  99. 'text' => '
  100. '
  101. }
  102. ],
  103. 'parent' => {},
  104. 'type' => 'paragraph'
  105. },
  106. {
  107. 'parent' => {},
  108. 'text' => '
  109. ',
  110. 'type' => 'empty_line'
  111. },
  112. {
  113. 'contents' => [
  114. {
  115. 'parent' => {},
  116. 'text' => 'definfoenclose phi,:,: '
  117. },
  118. {
  119. 'args' => [
  120. {
  121. 'contents' => [
  122. {
  123. 'extra' => {
  124. 'command' => {}
  125. },
  126. 'parent' => {},
  127. 'text' => ' ',
  128. 'type' => 'empty_spaces_after_command'
  129. },
  130. {
  131. 'parent' => {},
  132. 'text' => 'phi,:,:'
  133. },
  134. {
  135. 'parent' => {},
  136. 'text' => '
  137. ',
  138. 'type' => 'spaces_at_end'
  139. }
  140. ],
  141. 'parent' => {},
  142. 'type' => 'misc_line_arg'
  143. }
  144. ],
  145. 'cmdname' => 'definfoenclose',
  146. 'extra' => {
  147. 'misc_args' => [
  148. 'phi',
  149. ':',
  150. ':'
  151. ],
  152. 'spaces_after_command' => {}
  153. },
  154. 'line_nr' => {
  155. 'file_name' => '',
  156. 'line_nr' => 6,
  157. 'macro' => ''
  158. },
  159. 'parent' => {}
  160. }
  161. ],
  162. 'parent' => {},
  163. 'type' => 'paragraph'
  164. },
  165. {
  166. 'parent' => {},
  167. 'text' => '
  168. ',
  169. 'type' => 'empty_line'
  170. },
  171. {
  172. 'contents' => [
  173. {
  174. 'args' => [
  175. {
  176. 'contents' => [
  177. {
  178. 'parent' => {},
  179. 'text' => 'bar'
  180. }
  181. ],
  182. 'parent' => {},
  183. 'type' => 'brace_command_arg'
  184. }
  185. ],
  186. 'cmdname' => 'phi',
  187. 'contents' => [],
  188. 'extra' => {
  189. 'begin' => ':',
  190. 'end' => ':'
  191. },
  192. 'parent' => {},
  193. 'type' => 'definfoenclose_command'
  194. },
  195. {
  196. 'parent' => {},
  197. 'text' => '
  198. '
  199. }
  200. ],
  201. 'parent' => {},
  202. 'type' => 'paragraph'
  203. },
  204. {
  205. 'parent' => {},
  206. 'text' => '
  207. ',
  208. 'type' => 'empty_line'
  209. },
  210. {
  211. 'contents' => [
  212. {
  213. 'args' => [
  214. {
  215. 'contents' => [
  216. {
  217. 'parent' => {},
  218. 'text' => 'very strong'
  219. }
  220. ],
  221. 'parent' => {},
  222. 'type' => 'brace_command_arg'
  223. }
  224. ],
  225. 'cmdname' => 'strong',
  226. 'contents' => [],
  227. 'line_nr' => {
  228. 'file_name' => '',
  229. 'line_nr' => 10,
  230. 'macro' => ''
  231. },
  232. 'parent' => {}
  233. },
  234. {
  235. 'parent' => {},
  236. 'text' => '
  237. '
  238. }
  239. ],
  240. 'parent' => {},
  241. 'type' => 'paragraph'
  242. },
  243. {
  244. 'parent' => {},
  245. 'text' => '
  246. ',
  247. 'type' => 'empty_line'
  248. },
  249. {
  250. 'args' => [
  251. {
  252. 'contents' => [
  253. {
  254. 'extra' => {
  255. 'command' => {}
  256. },
  257. 'parent' => {},
  258. 'text' => ' ',
  259. 'type' => 'empty_spaces_after_command'
  260. },
  261. {
  262. 'parent' => {},
  263. 'text' => 'strong,(strong:,:)'
  264. },
  265. {
  266. 'parent' => {},
  267. 'text' => '
  268. ',
  269. 'type' => 'spaces_at_end'
  270. }
  271. ],
  272. 'parent' => {},
  273. 'type' => 'misc_line_arg'
  274. }
  275. ],
  276. 'cmdname' => 'definfoenclose',
  277. 'extra' => {
  278. 'misc_args' => [
  279. 'strong',
  280. '(strong:',
  281. ':)'
  282. ],
  283. 'spaces_after_command' => {}
  284. },
  285. 'line_nr' => {
  286. 'file_name' => '',
  287. 'line_nr' => 12,
  288. 'macro' => ''
  289. },
  290. 'parent' => {}
  291. },
  292. {
  293. 'parent' => {},
  294. 'text' => '
  295. ',
  296. 'type' => 'empty_line'
  297. },
  298. {
  299. 'contents' => [
  300. {
  301. 'args' => [
  302. {
  303. 'contents' => [
  304. {
  305. 'parent' => {},
  306. 'text' => ' is it really strong? '
  307. }
  308. ],
  309. 'parent' => {},
  310. 'type' => 'brace_command_arg'
  311. }
  312. ],
  313. 'cmdname' => 'strong',
  314. 'contents' => [],
  315. 'extra' => {
  316. 'begin' => '(strong:',
  317. 'end' => ':)'
  318. },
  319. 'parent' => {},
  320. 'type' => 'definfoenclose_command'
  321. },
  322. {
  323. 'parent' => {},
  324. 'text' => '
  325. '
  326. }
  327. ],
  328. 'parent' => {},
  329. 'type' => 'paragraph'
  330. }
  331. ],
  332. 'type' => 'text_root'
  333. };
  334. $result_trees{'definfoenclose'}{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'};
  335. $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[1];
  336. $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1];
  337. $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'args'}[0];
  338. $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'args'}[0];
  339. $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'args'}[0];
  340. $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1];
  341. $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'extra'}{'spaces_after_command'} = $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[0];
  342. $result_trees{'definfoenclose'}{'contents'}[1]{'contents'}[1]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[1];
  343. $result_trees{'definfoenclose'}{'contents'}[1]{'parent'} = $result_trees{'definfoenclose'};
  344. $result_trees{'definfoenclose'}{'contents'}[2]{'parent'} = $result_trees{'definfoenclose'};
  345. $result_trees{'definfoenclose'}{'contents'}[3]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[3]{'contents'}[0]{'args'}[0];
  346. $result_trees{'definfoenclose'}{'contents'}[3]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[3]{'contents'}[0];
  347. $result_trees{'definfoenclose'}{'contents'}[3]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[3];
  348. $result_trees{'definfoenclose'}{'contents'}[3]{'contents'}[1]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[3];
  349. $result_trees{'definfoenclose'}{'contents'}[3]{'parent'} = $result_trees{'definfoenclose'};
  350. $result_trees{'definfoenclose'}{'contents'}[4]{'parent'} = $result_trees{'definfoenclose'};
  351. $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[5];
  352. $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1];
  353. $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'args'}[0];
  354. $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'args'}[0];
  355. $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'args'}[0];
  356. $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1];
  357. $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'extra'}{'spaces_after_command'} = $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'args'}[0]{'contents'}[0];
  358. $result_trees{'definfoenclose'}{'contents'}[5]{'contents'}[1]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[5];
  359. $result_trees{'definfoenclose'}{'contents'}[5]{'parent'} = $result_trees{'definfoenclose'};
  360. $result_trees{'definfoenclose'}{'contents'}[6]{'parent'} = $result_trees{'definfoenclose'};
  361. $result_trees{'definfoenclose'}{'contents'}[7]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[7]{'contents'}[0]{'args'}[0];
  362. $result_trees{'definfoenclose'}{'contents'}[7]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[7]{'contents'}[0];
  363. $result_trees{'definfoenclose'}{'contents'}[7]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[7];
  364. $result_trees{'definfoenclose'}{'contents'}[7]{'contents'}[1]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[7];
  365. $result_trees{'definfoenclose'}{'contents'}[7]{'parent'} = $result_trees{'definfoenclose'};
  366. $result_trees{'definfoenclose'}{'contents'}[8]{'parent'} = $result_trees{'definfoenclose'};
  367. $result_trees{'definfoenclose'}{'contents'}[9]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[9]{'contents'}[0]{'args'}[0];
  368. $result_trees{'definfoenclose'}{'contents'}[9]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[9]{'contents'}[0];
  369. $result_trees{'definfoenclose'}{'contents'}[9]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[9];
  370. $result_trees{'definfoenclose'}{'contents'}[9]{'contents'}[1]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[9];
  371. $result_trees{'definfoenclose'}{'contents'}[9]{'parent'} = $result_trees{'definfoenclose'};
  372. $result_trees{'definfoenclose'}{'contents'}[10]{'parent'} = $result_trees{'definfoenclose'};
  373. $result_trees{'definfoenclose'}{'contents'}[11]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'definfoenclose'}{'contents'}[11];
  374. $result_trees{'definfoenclose'}{'contents'}[11]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[11]{'args'}[0];
  375. $result_trees{'definfoenclose'}{'contents'}[11]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[11]{'args'}[0];
  376. $result_trees{'definfoenclose'}{'contents'}[11]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[11]{'args'}[0];
  377. $result_trees{'definfoenclose'}{'contents'}[11]{'args'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[11];
  378. $result_trees{'definfoenclose'}{'contents'}[11]{'extra'}{'spaces_after_command'} = $result_trees{'definfoenclose'}{'contents'}[11]{'args'}[0]{'contents'}[0];
  379. $result_trees{'definfoenclose'}{'contents'}[11]{'parent'} = $result_trees{'definfoenclose'};
  380. $result_trees{'definfoenclose'}{'contents'}[12]{'parent'} = $result_trees{'definfoenclose'};
  381. $result_trees{'definfoenclose'}{'contents'}[13]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[13]{'contents'}[0]{'args'}[0];
  382. $result_trees{'definfoenclose'}{'contents'}[13]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[13]{'contents'}[0];
  383. $result_trees{'definfoenclose'}{'contents'}[13]{'contents'}[0]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[13];
  384. $result_trees{'definfoenclose'}{'contents'}[13]{'contents'}[1]{'parent'} = $result_trees{'definfoenclose'}{'contents'}[13];
  385. $result_trees{'definfoenclose'}{'contents'}[13]{'parent'} = $result_trees{'definfoenclose'};
  386. $result_texis{'definfoenclose'} = '
  387. definfoenclose phoo,//,\\ @definfoenclose phoo,//,\\
  388. @phoo{bar}
  389. definfoenclose phi,:,: @definfoenclose phi,:,:
  390. @phi{bar}
  391. @strong{very strong}
  392. @definfoenclose strong,(strong:,:)
  393. @strong{ is it really strong? }
  394. ';
  395. $result_texts{'definfoenclose'} = '
  396. definfoenclose phoo,//,\\
  397. bar
  398. definfoenclose phi,:,:
  399. bar
  400. very strong
  401. is it really strong?
  402. ';
  403. $result_errors{'definfoenclose'} = [
  404. {
  405. 'error_line' => ':2: warning: @definfoenclose should only appear at the beginning of a line
  406. ',
  407. 'file_name' => '',
  408. 'line_nr' => 2,
  409. 'macro' => '',
  410. 'text' => '@definfoenclose should only appear at the beginning of a line',
  411. 'type' => 'warning'
  412. },
  413. {
  414. 'error_line' => ':6: warning: @definfoenclose should only appear at the beginning of a line
  415. ',
  416. 'file_name' => '',
  417. 'line_nr' => 6,
  418. 'macro' => '',
  419. 'text' => '@definfoenclose should only appear at the beginning of a line',
  420. 'type' => 'warning'
  421. }
  422. ];
  423. $result_converted{'plaintext'}->{'definfoenclose'} = 'definfoenclose phoo,//,\\
  424. //bar\\
  425. definfoenclose phi,:,:
  426. :bar:
  427. *very strong*
  428. (strong: is it really strong? :)
  429. ';
  430. $result_converted{'html_text'}->{'definfoenclose'} = '
  431. <p>definfoenclose phoo,//,\\ </p>
  432. <p>//bar\\
  433. </p>
  434. <p>definfoenclose phi,:,: </p>
  435. <p>:bar:
  436. </p>
  437. <p><strong>very strong</strong>
  438. </p>
  439. <p>(strong: is it really strong? :)
  440. </p>';
  441. $result_converted{'docbook'}->{'definfoenclose'} = '
  442. <para>definfoenclose phoo,//,\\ </para>
  443. <para>//bar\\
  444. </para>
  445. <para>definfoenclose phi,:,: </para>
  446. <para>:bar:
  447. </para>
  448. <para><emphasis role="bold">very strong</emphasis>
  449. </para>
  450. <para>(strong: is it really strong? :)
  451. </para>';
  452. 1;