no_brace.pl 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103
  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{'no_brace'} = {
  7. 'contents' => [
  8. {
  9. 'contents' => [
  10. {
  11. 'cmdname' => 'TeX',
  12. 'contents' => [],
  13. 'line_nr' => {
  14. 'file_name' => '',
  15. 'line_nr' => 1,
  16. 'macro' => ''
  17. },
  18. 'parent' => {}
  19. },
  20. {
  21. 'parent' => {},
  22. 'text' => 'and '
  23. },
  24. {
  25. 'cmdname' => 'code',
  26. 'contents' => [],
  27. 'line_nr' => {},
  28. 'parent' => {}
  29. },
  30. {
  31. 'parent' => {},
  32. 'text' => 'code and '
  33. },
  34. {
  35. 'cmdname' => 'footnote',
  36. 'contents' => [],
  37. 'line_nr' => {},
  38. 'parent' => {}
  39. },
  40. {
  41. 'parent' => {},
  42. 'text' => 'footnote '
  43. }
  44. ],
  45. 'parent' => {},
  46. 'type' => 'paragraph'
  47. }
  48. ],
  49. 'type' => 'text_root'
  50. };
  51. $result_trees{'no_brace'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'no_brace'}{'contents'}[0];
  52. $result_trees{'no_brace'}{'contents'}[0]{'contents'}[1]{'parent'} = $result_trees{'no_brace'}{'contents'}[0];
  53. $result_trees{'no_brace'}{'contents'}[0]{'contents'}[2]{'line_nr'} = $result_trees{'no_brace'}{'contents'}[0]{'contents'}[0]{'line_nr'};
  54. $result_trees{'no_brace'}{'contents'}[0]{'contents'}[2]{'parent'} = $result_trees{'no_brace'}{'contents'}[0];
  55. $result_trees{'no_brace'}{'contents'}[0]{'contents'}[3]{'parent'} = $result_trees{'no_brace'}{'contents'}[0];
  56. $result_trees{'no_brace'}{'contents'}[0]{'contents'}[4]{'line_nr'} = $result_trees{'no_brace'}{'contents'}[0]{'contents'}[0]{'line_nr'};
  57. $result_trees{'no_brace'}{'contents'}[0]{'contents'}[4]{'parent'} = $result_trees{'no_brace'}{'contents'}[0];
  58. $result_trees{'no_brace'}{'contents'}[0]{'contents'}[5]{'parent'} = $result_trees{'no_brace'}{'contents'}[0];
  59. $result_trees{'no_brace'}{'contents'}[0]{'parent'} = $result_trees{'no_brace'};
  60. $result_texis{'no_brace'} = '@TeXand @codecode and @footnotefootnote ';
  61. $result_texts{'no_brace'} = 'TeXand code and footnote ';
  62. $result_errors{'no_brace'} = [
  63. {
  64. 'error_line' => ':1: @TeX expected braces
  65. ',
  66. 'file_name' => '',
  67. 'line_nr' => 1,
  68. 'macro' => '',
  69. 'text' => '@TeX expected braces',
  70. 'type' => 'error'
  71. },
  72. {
  73. 'error_line' => ':1: @code expected braces
  74. ',
  75. 'file_name' => '',
  76. 'line_nr' => 1,
  77. 'macro' => '',
  78. 'text' => '@code expected braces',
  79. 'type' => 'error'
  80. },
  81. {
  82. 'error_line' => ':1: @footnote expected braces
  83. ',
  84. 'file_name' => '',
  85. 'line_nr' => 1,
  86. 'macro' => '',
  87. 'text' => '@footnote expected braces',
  88. 'type' => 'error'
  89. }
  90. ];
  91. $result_converted{'html_text'}->{'no_brace'} = '<p>TeXand code and footnote </p>';
  92. 1;