simple.pl 1.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
  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{'simple'} = {
  7. 'contents' => [
  8. {
  9. 'contents' => [
  10. {
  11. 'args' => [
  12. {
  13. 'contents' => [
  14. {
  15. 'parent' => {},
  16. 'text' => 'in b'
  17. }
  18. ],
  19. 'parent' => {},
  20. 'type' => 'brace_command_arg'
  21. }
  22. ],
  23. 'cmdname' => 'b',
  24. 'contents' => [],
  25. 'line_nr' => {
  26. 'file_name' => '',
  27. 'line_nr' => 1,
  28. 'macro' => ''
  29. },
  30. 'parent' => {}
  31. },
  32. {
  33. 'parent' => {},
  34. 'text' => '.'
  35. }
  36. ],
  37. 'parent' => {},
  38. 'type' => 'paragraph'
  39. }
  40. ],
  41. 'type' => 'text_root'
  42. };
  43. $result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  44. $result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'simple'}{'contents'}[0]{'contents'}[0];
  45. $result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'simple'}{'contents'}[0];
  46. $result_trees{'simple'}{'contents'}[0]{'contents'}[1]{'parent'} = $result_trees{'simple'}{'contents'}[0];
  47. $result_trees{'simple'}{'contents'}[0]{'parent'} = $result_trees{'simple'};
  48. $result_texis{'simple'} = '@b{in b}.';
  49. $result_texts{'simple'} = 'in b.';
  50. $result_errors{'simple'} = [];
  51. $result_converted{'plaintext'}->{'simple'} = 'in b.
  52. ';
  53. $result_converted{'html_text'}->{'simple'} = '<p><b>in b</b>.</p>';
  54. 1;