end_of_line.pl 3.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104
  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{'end_of_line'} = {
  7. 'contents' => [
  8. {
  9. 'contents' => [
  10. {
  11. 'parent' => {},
  12. 'text' => 'verb at end of line '
  13. },
  14. {
  15. 'args' => [
  16. {
  17. 'contents' => [
  18. {
  19. 'parent' => {},
  20. 'text' => '
  21. ',
  22. 'type' => 'raw'
  23. },
  24. {
  25. 'parent' => {},
  26. 'text' => '
  27. ',
  28. 'type' => 'raw'
  29. },
  30. {
  31. 'parent' => {},
  32. 'text' => '@{ in verb at end of line @c comment
  33. ',
  34. 'type' => 'raw'
  35. },
  36. {
  37. 'parent' => {},
  38. 'text' => 'and now end',
  39. 'type' => 'raw'
  40. }
  41. ],
  42. 'parent' => {},
  43. 'type' => 'brace_command_arg'
  44. }
  45. ],
  46. 'cmdname' => 'verb',
  47. 'contents' => [],
  48. 'line_nr' => {
  49. 'file_name' => '',
  50. 'line_nr' => 1,
  51. 'macro' => ''
  52. },
  53. 'parent' => {},
  54. 'type' => ''
  55. },
  56. {
  57. 'parent' => {},
  58. 'text' => 'after end.'
  59. }
  60. ],
  61. 'parent' => {},
  62. 'type' => 'paragraph'
  63. }
  64. ],
  65. 'type' => 'text_root'
  66. };
  67. $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'end_of_line'}{'contents'}[0];
  68. $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0];
  69. $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0];
  70. $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0];
  71. $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[3]{'parent'} = $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0];
  72. $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1];
  73. $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'parent'} = $result_trees{'end_of_line'}{'contents'}[0];
  74. $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[2]{'parent'} = $result_trees{'end_of_line'}{'contents'}[0];
  75. $result_trees{'end_of_line'}{'contents'}[0]{'parent'} = $result_trees{'end_of_line'};
  76. $result_texis{'end_of_line'} = 'verb at end of line @verb{
  77. @{ in verb at end of line @c comment
  78. and now end}after end.';
  79. $result_texts{'end_of_line'} = 'verb at end of line
  80. @{ in verb at end of line @c comment
  81. and now endafter end.';
  82. $result_errors{'end_of_line'} = [
  83. {
  84. 'error_line' => ':1: @verb without associated character
  85. ',
  86. 'file_name' => '',
  87. 'line_nr' => 1,
  88. 'macro' => '',
  89. 'text' => '@verb without associated character',
  90. 'type' => 'error'
  91. }
  92. ];
  93. 1;