implicit_quoting_recursion.pl 3.2 KB

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