include_with_setfilename.pl 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115
  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{'include_with_setfilename'} = {
  7. 'contents' => [
  8. {
  9. 'parent' => {},
  10. 'text' => '
  11. ',
  12. 'type' => 'empty_line'
  13. },
  14. {
  15. 'contents' => [
  16. {
  17. 'parent' => {},
  18. 'text' => 'In included file.
  19. '
  20. }
  21. ],
  22. 'parent' => {},
  23. 'type' => 'paragraph'
  24. },
  25. {
  26. 'args' => [
  27. {
  28. 'contents' => [
  29. {
  30. 'extra' => {
  31. 'command' => {}
  32. },
  33. 'parent' => {},
  34. 'text' => ' ',
  35. 'type' => 'empty_spaces_after_command'
  36. },
  37. {
  38. 'parent' => {},
  39. 'text' => 'main_file.info'
  40. },
  41. {
  42. 'parent' => {},
  43. 'text' => '
  44. ',
  45. 'type' => 'spaces_at_end'
  46. }
  47. ],
  48. 'parent' => {},
  49. 'type' => 'misc_line_arg'
  50. }
  51. ],
  52. 'cmdname' => 'setfilename',
  53. 'extra' => {
  54. 'spaces_after_command' => {},
  55. 'text_arg' => 'main_file.info'
  56. },
  57. 'line_nr' => {
  58. 'file_name' => '',
  59. 'line_nr' => 2,
  60. 'macro' => ''
  61. },
  62. 'parent' => {}
  63. }
  64. ],
  65. 'type' => 'text_root'
  66. };
  67. $result_trees{'include_with_setfilename'}{'contents'}[0]{'parent'} = $result_trees{'include_with_setfilename'};
  68. $result_trees{'include_with_setfilename'}{'contents'}[1]{'contents'}[0]{'parent'} = $result_trees{'include_with_setfilename'}{'contents'}[1];
  69. $result_trees{'include_with_setfilename'}{'contents'}[1]{'parent'} = $result_trees{'include_with_setfilename'};
  70. $result_trees{'include_with_setfilename'}{'contents'}[2]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'include_with_setfilename'}{'contents'}[2];
  71. $result_trees{'include_with_setfilename'}{'contents'}[2]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'include_with_setfilename'}{'contents'}[2]{'args'}[0];
  72. $result_trees{'include_with_setfilename'}{'contents'}[2]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'include_with_setfilename'}{'contents'}[2]{'args'}[0];
  73. $result_trees{'include_with_setfilename'}{'contents'}[2]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'include_with_setfilename'}{'contents'}[2]{'args'}[0];
  74. $result_trees{'include_with_setfilename'}{'contents'}[2]{'args'}[0]{'parent'} = $result_trees{'include_with_setfilename'}{'contents'}[2];
  75. $result_trees{'include_with_setfilename'}{'contents'}[2]{'extra'}{'spaces_after_command'} = $result_trees{'include_with_setfilename'}{'contents'}[2]{'args'}[0]{'contents'}[0];
  76. $result_trees{'include_with_setfilename'}{'contents'}[2]{'parent'} = $result_trees{'include_with_setfilename'};
  77. $result_texis{'include_with_setfilename'} = '
  78. In included file.
  79. @setfilename main_file.info
  80. ';
  81. $result_texts{'include_with_setfilename'} = '
  82. In included file.
  83. ';
  84. $result_errors{'include_with_setfilename'} = [];
  85. $result_converted{'info'}->{'include_with_setfilename'} = 'This is main_file.info, produced from .
  86. In included file.
  87. 
  88. Tag Table:
  89. 
  90. End Tag Table
  91. ';
  92. $result_converted_errors{'info'}->{'include_with_setfilename'} = [
  93. {
  94. 'error_line' => 'warning: document without nodes
  95. ',
  96. 'text' => 'document without nodes',
  97. 'type' => 'warning'
  98. }
  99. ];
  100. 1;