macro_no_arg_expansion.pl 2.6 KB

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