ifset_in_macro.pl 2.8 KB

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