raw.pl 8.8 KB

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