multiline.pl 2.4 KB

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