nested.pl 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384
  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{'nested'} = {
  7. 'contents' => [
  8. {
  9. 'contents' => [
  10. {
  11. 'args' => [
  12. {
  13. 'contents' => [
  14. {
  15. 'parent' => {},
  16. 'text' => 'in b '
  17. },
  18. {
  19. 'args' => [
  20. {
  21. 'contents' => [
  22. {
  23. 'parent' => {},
  24. 'text' => ' in verb { } ',
  25. 'type' => 'raw'
  26. }
  27. ],
  28. 'parent' => {},
  29. 'type' => 'brace_command_arg'
  30. }
  31. ],
  32. 'cmdname' => 'verb',
  33. 'contents' => [],
  34. 'line_nr' => {
  35. 'file_name' => '',
  36. 'line_nr' => 1,
  37. 'macro' => ''
  38. },
  39. 'parent' => {},
  40. 'type' => '/'
  41. },
  42. {
  43. 'parent' => {},
  44. 'text' => ' in b end'
  45. }
  46. ],
  47. 'parent' => {},
  48. 'type' => 'brace_command_arg'
  49. }
  50. ],
  51. 'cmdname' => 'b',
  52. 'contents' => [],
  53. 'line_nr' => {},
  54. 'parent' => {}
  55. }
  56. ],
  57. 'parent' => {},
  58. 'type' => 'paragraph'
  59. }
  60. ],
  61. 'type' => 'text_root'
  62. };
  63. $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  64. $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0];
  65. $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1];
  66. $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  67. $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  68. $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'nested'}{'contents'}[0]{'contents'}[0];
  69. $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'line_nr'} = $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'line_nr'};
  70. $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'nested'}{'contents'}[0];
  71. $result_trees{'nested'}{'contents'}[0]{'parent'} = $result_trees{'nested'};
  72. $result_texis{'nested'} = '@b{in b @verb{/ in verb { } /} in b end}';
  73. $result_texts{'nested'} = 'in b in verb { } in b end';
  74. $result_errors{'nested'} = [];
  75. 1;