too_much_args.pl 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136
  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{'too_much_args'} = {
  7. 'contents' => [
  8. {
  9. 'args' => [
  10. {
  11. 'parent' => {},
  12. 'text' => 'twoargs',
  13. 'type' => 'macro_name'
  14. },
  15. {
  16. 'parent' => {},
  17. 'text' => 'first',
  18. 'type' => 'macro_arg'
  19. },
  20. {
  21. 'parent' => {},
  22. 'text' => 'second',
  23. 'type' => 'macro_arg'
  24. }
  25. ],
  26. 'cmdname' => 'macro',
  27. 'contents' => [
  28. {
  29. 'parent' => {},
  30. 'text' => 'first arg: \\first\\
  31. ',
  32. 'type' => 'raw'
  33. },
  34. {
  35. 'parent' => {},
  36. 'text' => 'second arg: \\second\\',
  37. 'type' => 'raw'
  38. },
  39. {
  40. 'parent' => {},
  41. 'text' => '
  42. ',
  43. 'type' => 'last_raw_newline'
  44. }
  45. ],
  46. 'extra' => {
  47. 'arg_line' => ' twoargs {first, second}
  48. '
  49. },
  50. 'line_nr' => {
  51. 'file_name' => '',
  52. 'line_nr' => 1,
  53. 'macro' => ''
  54. },
  55. 'parent' => {}
  56. },
  57. {
  58. 'extra' => {
  59. 'command' => {}
  60. },
  61. 'parent' => {},
  62. 'text' => '
  63. ',
  64. 'type' => 'empty_line_after_command'
  65. },
  66. {
  67. 'parent' => {},
  68. 'text' => '
  69. ',
  70. 'type' => 'empty_line'
  71. },
  72. {
  73. 'contents' => [
  74. {
  75. 'parent' => {},
  76. 'text' => 'first arg: one
  77. '
  78. },
  79. {
  80. 'parent' => {},
  81. 'text' => 'second arg: two, three.
  82. '
  83. }
  84. ],
  85. 'parent' => {},
  86. 'type' => 'paragraph'
  87. }
  88. ],
  89. 'type' => 'text_root'
  90. };
  91. $result_trees{'too_much_args'}{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'too_much_args'}{'contents'}[0];
  92. $result_trees{'too_much_args'}{'contents'}[0]{'args'}[1]{'parent'} = $result_trees{'too_much_args'}{'contents'}[0];
  93. $result_trees{'too_much_args'}{'contents'}[0]{'args'}[2]{'parent'} = $result_trees{'too_much_args'}{'contents'}[0];
  94. $result_trees{'too_much_args'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'too_much_args'}{'contents'}[0];
  95. $result_trees{'too_much_args'}{'contents'}[0]{'contents'}[1]{'parent'} = $result_trees{'too_much_args'}{'contents'}[0];
  96. $result_trees{'too_much_args'}{'contents'}[0]{'contents'}[2]{'parent'} = $result_trees{'too_much_args'}{'contents'}[0];
  97. $result_trees{'too_much_args'}{'contents'}[0]{'parent'} = $result_trees{'too_much_args'};
  98. $result_trees{'too_much_args'}{'contents'}[1]{'extra'}{'command'} = $result_trees{'too_much_args'}{'contents'}[0];
  99. $result_trees{'too_much_args'}{'contents'}[1]{'parent'} = $result_trees{'too_much_args'};
  100. $result_trees{'too_much_args'}{'contents'}[2]{'parent'} = $result_trees{'too_much_args'};
  101. $result_trees{'too_much_args'}{'contents'}[3]{'contents'}[0]{'parent'} = $result_trees{'too_much_args'}{'contents'}[3];
  102. $result_trees{'too_much_args'}{'contents'}[3]{'contents'}[1]{'parent'} = $result_trees{'too_much_args'}{'contents'}[3];
  103. $result_trees{'too_much_args'}{'contents'}[3]{'parent'} = $result_trees{'too_much_args'};
  104. $result_texis{'too_much_args'} = '@macro twoargs {first, second}
  105. first arg: \\first\\
  106. second arg: \\second\\
  107. @end macro
  108. first arg: one
  109. second arg: two, three.
  110. ';
  111. $result_texts{'too_much_args'} = '
  112. first arg: one
  113. second arg: two, three.
  114. ';
  115. $result_errors{'too_much_args'} = [
  116. {
  117. 'error_line' => ':6: macro `twoargs\' called with too many args
  118. ',
  119. 'file_name' => '',
  120. 'line_nr' => 6,
  121. 'macro' => '',
  122. 'text' => 'macro `twoargs\' called with too many args',
  123. 'type' => 'error'
  124. }
  125. ];
  126. 1;