image_file_search.pl 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347
  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{'image_file_search'} = {
  7. 'contents' => [
  8. {
  9. 'contents' => [],
  10. 'parent' => {},
  11. 'type' => 'text_root'
  12. },
  13. {
  14. 'args' => [
  15. {
  16. 'contents' => [
  17. {
  18. 'extra' => {
  19. 'command' => {}
  20. },
  21. 'parent' => {},
  22. 'text' => ' ',
  23. 'type' => 'empty_spaces_after_command'
  24. },
  25. {
  26. 'parent' => {},
  27. 'text' => 'Top'
  28. },
  29. {
  30. 'parent' => {},
  31. 'text' => '
  32. ',
  33. 'type' => 'spaces_at_end'
  34. }
  35. ],
  36. 'parent' => {},
  37. 'type' => 'misc_line_arg'
  38. }
  39. ],
  40. 'cmdname' => 'node',
  41. 'contents' => [
  42. {
  43. 'parent' => {},
  44. 'text' => '
  45. ',
  46. 'type' => 'empty_line'
  47. },
  48. {
  49. 'args' => [
  50. {
  51. 'parent' => {},
  52. 'text' => ' does not work in the standalone perl module
  53. ',
  54. 'type' => 'misc_arg'
  55. }
  56. ],
  57. 'cmdname' => 'c',
  58. 'extra' => {
  59. 'misc_args' => [
  60. ' does not work in the standalone perl module
  61. '
  62. ]
  63. },
  64. 'parent' => {}
  65. },
  66. {
  67. 'args' => [
  68. {
  69. 'parent' => {},
  70. 'text' => ' @image{tp/t/include_dir/f--ile}
  71. ',
  72. 'type' => 'misc_arg'
  73. }
  74. ],
  75. 'cmdname' => 'c',
  76. 'extra' => {
  77. 'misc_args' => [
  78. ' @image{tp/t/include_dir/f--ile}
  79. '
  80. ]
  81. },
  82. 'parent' => {}
  83. },
  84. {
  85. 'parent' => {},
  86. 'text' => '
  87. ',
  88. 'type' => 'empty_line'
  89. },
  90. {
  91. 'contents' => [
  92. {
  93. 'cmdname' => '@',
  94. 'parent' => {}
  95. },
  96. {
  97. 'parent' => {},
  98. 'text' => 'image dot.
  99. '
  100. },
  101. {
  102. 'args' => [
  103. {
  104. 'contents' => [
  105. {
  106. 'parent' => {},
  107. 'text' => './tp/t/include_dir/f--ile'
  108. }
  109. ],
  110. 'parent' => {},
  111. 'type' => 'brace_command_arg'
  112. }
  113. ],
  114. 'cmdname' => 'image',
  115. 'contents' => [],
  116. 'extra' => {
  117. 'brace_command_contents' => [
  118. [
  119. {}
  120. ]
  121. ]
  122. },
  123. 'line_nr' => {
  124. 'file_name' => '',
  125. 'line_nr' => 7,
  126. 'macro' => ''
  127. },
  128. 'parent' => {}
  129. },
  130. {
  131. 'parent' => {},
  132. 'text' => '
  133. '
  134. }
  135. ],
  136. 'parent' => {},
  137. 'type' => 'paragraph'
  138. },
  139. {
  140. 'parent' => {},
  141. 'text' => '
  142. ',
  143. 'type' => 'empty_line'
  144. },
  145. {
  146. 'contents' => [
  147. {
  148. 'cmdname' => '@',
  149. 'parent' => {}
  150. },
  151. {
  152. 'parent' => {},
  153. 'text' => 'image dot parent.
  154. '
  155. },
  156. {
  157. 'args' => [
  158. {
  159. 'contents' => [
  160. {
  161. 'parent' => {},
  162. 'text' => '../include_dir/f--ile'
  163. }
  164. ],
  165. 'parent' => {},
  166. 'type' => 'brace_command_arg'
  167. }
  168. ],
  169. 'cmdname' => 'image',
  170. 'contents' => [],
  171. 'extra' => {
  172. 'brace_command_contents' => [
  173. [
  174. {}
  175. ]
  176. ]
  177. },
  178. 'line_nr' => {
  179. 'file_name' => '',
  180. 'line_nr' => 10,
  181. 'macro' => ''
  182. },
  183. 'parent' => {}
  184. },
  185. {
  186. 'parent' => {},
  187. 'text' => '
  188. '
  189. }
  190. ],
  191. 'parent' => {},
  192. 'type' => 'paragraph'
  193. }
  194. ],
  195. 'extra' => {
  196. 'node_content' => [
  197. {}
  198. ],
  199. 'nodes_manuals' => [
  200. {
  201. 'node_content' => [],
  202. 'normalized' => 'Top'
  203. }
  204. ],
  205. 'normalized' => 'Top',
  206. 'spaces_after_command' => {}
  207. },
  208. 'line_nr' => {
  209. 'file_name' => '',
  210. 'line_nr' => 1,
  211. 'macro' => ''
  212. },
  213. 'parent' => {}
  214. }
  215. ],
  216. 'type' => 'document_root'
  217. };
  218. $result_trees{'image_file_search'}{'contents'}[0]{'parent'} = $result_trees{'image_file_search'};
  219. $result_trees{'image_file_search'}{'contents'}[1]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'image_file_search'}{'contents'}[1];
  220. $result_trees{'image_file_search'}{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'args'}[0];
  221. $result_trees{'image_file_search'}{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'args'}[0];
  222. $result_trees{'image_file_search'}{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'args'}[0];
  223. $result_trees{'image_file_search'}{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1];
  224. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1];
  225. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[1];
  226. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[1]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1];
  227. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[2]{'args'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[2];
  228. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[2]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1];
  229. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[3]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1];
  230. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'contents'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4];
  231. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'contents'}[1]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4];
  232. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'contents'}[2]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'contents'}[2]{'args'}[0];
  233. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'contents'}[2]{'args'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'contents'}[2];
  234. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'contents'}[2]{'extra'}{'brace_command_contents'}[0][0] = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'contents'}[2]{'args'}[0]{'contents'}[0];
  235. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'contents'}[2]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4];
  236. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'contents'}[3]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4];
  237. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[4]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1];
  238. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[5]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1];
  239. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'contents'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6];
  240. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'contents'}[1]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6];
  241. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'contents'}[2]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'contents'}[2]{'args'}[0];
  242. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'contents'}[2]{'args'}[0]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'contents'}[2];
  243. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'contents'}[2]{'extra'}{'brace_command_contents'}[0][0] = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'contents'}[2]{'args'}[0]{'contents'}[0];
  244. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'contents'}[2]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6];
  245. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'contents'}[3]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6];
  246. $result_trees{'image_file_search'}{'contents'}[1]{'contents'}[6]{'parent'} = $result_trees{'image_file_search'}{'contents'}[1];
  247. $result_trees{'image_file_search'}{'contents'}[1]{'extra'}{'node_content'}[0] = $result_trees{'image_file_search'}{'contents'}[1]{'args'}[0]{'contents'}[1];
  248. $result_trees{'image_file_search'}{'contents'}[1]{'extra'}{'nodes_manuals'}[0]{'node_content'} = $result_trees{'image_file_search'}{'contents'}[1]{'extra'}{'node_content'};
  249. $result_trees{'image_file_search'}{'contents'}[1]{'extra'}{'spaces_after_command'} = $result_trees{'image_file_search'}{'contents'}[1]{'args'}[0]{'contents'}[0];
  250. $result_trees{'image_file_search'}{'contents'}[1]{'parent'} = $result_trees{'image_file_search'};
  251. $result_texis{'image_file_search'} = '@node Top
  252. @c does not work in the standalone perl module
  253. @c @image{tp/t/include_dir/f--ile}
  254. @@image dot.
  255. @image{./tp/t/include_dir/f--ile}
  256. @@image dot parent.
  257. @image{../include_dir/f--ile}
  258. ';
  259. $result_texts{'image_file_search'} = '
  260. @image dot.
  261. ./tp/t/include_dir/f--ile
  262. @image dot parent.
  263. ../include_dir/f--ile
  264. ';
  265. $result_sectioning{'image_file_search'} = {};
  266. $result_nodes{'image_file_search'} = {
  267. 'cmdname' => 'node',
  268. 'extra' => {
  269. 'normalized' => 'Top'
  270. },
  271. 'node_up' => {
  272. 'extra' => {
  273. 'manual_content' => [
  274. {
  275. 'text' => 'dir'
  276. }
  277. ],
  278. 'top_node_up' => {}
  279. },
  280. 'type' => 'top_node_up'
  281. }
  282. };
  283. $result_nodes{'image_file_search'}{'node_up'}{'extra'}{'top_node_up'} = $result_nodes{'image_file_search'};
  284. $result_menus{'image_file_search'} = {
  285. 'cmdname' => 'node',
  286. 'extra' => {
  287. 'normalized' => 'Top'
  288. }
  289. };
  290. $result_errors{'image_file_search'} = [];
  291. $result_converted{'info'}->{'image_file_search'} = 'This is , produced from .
  292. 
  293. File: , Node: Top, Up: (dir)
  294. @image dot. [./tp/t/include_dir/f--ile]
  295. @image dot parent. [../include_dir/f--ile]
  296. 
  297. Tag Table:
  298. Node: Top27
  299. 
  300. End Tag Table
  301. ';
  302. $result_converted_errors{'info'}->{'image_file_search'} = [
  303. {
  304. 'error_line' => ':7: warning: could not find @image file `./tp/t/include_dir/f--ile.txt\' nor alternate text
  305. ',
  306. 'file_name' => '',
  307. 'line_nr' => 7,
  308. 'macro' => '',
  309. 'text' => 'could not find @image file `./tp/t/include_dir/f--ile.txt\' nor alternate text',
  310. 'type' => 'warning'
  311. },
  312. {
  313. 'error_line' => ':10: warning: could not find @image file `../include_dir/f--ile.txt\' nor alternate text
  314. ',
  315. 'file_name' => '',
  316. 'line_nr' => 10,
  317. 'macro' => '',
  318. 'text' => 'could not find @image file `../include_dir/f--ile.txt\' nor alternate text',
  319. 'type' => 'warning'
  320. }
  321. ];
  322. 1;