no_macrobody.pl 2.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107
  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{'no_macrobody'} = {
  7. 'contents' => [
  8. {
  9. 'args' => [
  10. {
  11. 'parent' => {},
  12. 'text' => 'nomacrobody',
  13. 'type' => 'macro_name'
  14. },
  15. {
  16. 'parent' => {},
  17. 'text' => 'arg',
  18. 'type' => 'macro_arg'
  19. }
  20. ],
  21. 'cmdname' => 'macro',
  22. 'contents' => [],
  23. 'extra' => {
  24. 'arg_line' => ' nomacrobody {arg}
  25. '
  26. },
  27. 'line_nr' => {
  28. 'file_name' => '',
  29. 'line_nr' => 1,
  30. 'macro' => ''
  31. },
  32. 'parent' => {}
  33. },
  34. {
  35. 'extra' => {
  36. 'command' => {}
  37. },
  38. 'parent' => {},
  39. 'text' => '
  40. ',
  41. 'type' => 'empty_line_after_command'
  42. },
  43. {
  44. 'parent' => {},
  45. 'text' => '
  46. ',
  47. 'type' => 'empty_line'
  48. },
  49. {
  50. 'parent' => {},
  51. 'text' => '
  52. ',
  53. 'type' => 'empty_line'
  54. },
  55. {
  56. 'parent' => {},
  57. 'text' => '
  58. ',
  59. 'type' => 'empty_line'
  60. },
  61. {
  62. 'contents' => [
  63. {
  64. 'parent' => {},
  65. 'text' => '.
  66. '
  67. }
  68. ],
  69. 'parent' => {},
  70. 'type' => 'paragraph'
  71. }
  72. ],
  73. 'type' => 'text_root'
  74. };
  75. $result_trees{'no_macrobody'}{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'no_macrobody'}{'contents'}[0];
  76. $result_trees{'no_macrobody'}{'contents'}[0]{'args'}[1]{'parent'} = $result_trees{'no_macrobody'}{'contents'}[0];
  77. $result_trees{'no_macrobody'}{'contents'}[0]{'parent'} = $result_trees{'no_macrobody'};
  78. $result_trees{'no_macrobody'}{'contents'}[1]{'extra'}{'command'} = $result_trees{'no_macrobody'}{'contents'}[0];
  79. $result_trees{'no_macrobody'}{'contents'}[1]{'parent'} = $result_trees{'no_macrobody'};
  80. $result_trees{'no_macrobody'}{'contents'}[2]{'parent'} = $result_trees{'no_macrobody'};
  81. $result_trees{'no_macrobody'}{'contents'}[3]{'parent'} = $result_trees{'no_macrobody'};
  82. $result_trees{'no_macrobody'}{'contents'}[4]{'parent'} = $result_trees{'no_macrobody'};
  83. $result_trees{'no_macrobody'}{'contents'}[5]{'contents'}[0]{'parent'} = $result_trees{'no_macrobody'}{'contents'}[5];
  84. $result_trees{'no_macrobody'}{'contents'}[5]{'parent'} = $result_trees{'no_macrobody'};
  85. $result_texis{'no_macrobody'} = '@macro nomacrobody {arg}
  86. @end macro
  87. .
  88. ';
  89. $result_texts{'no_macrobody'} = '
  90. .
  91. ';
  92. $result_errors{'no_macrobody'} = [];
  93. 1;