simple.pl 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  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' => ' } . ',
  17. 'type' => 'raw'
  18. }
  19. ],
  20. 'parent' => {},
  21. 'type' => 'brace_command_arg'
  22. }
  23. ],
  24. 'cmdname' => 'verb',
  25. 'contents' => [],
  26. 'line_nr' => {
  27. 'file_name' => '',
  28. 'line_nr' => 1,
  29. 'macro' => ''
  30. },
  31. 'parent' => {},
  32. 'type' => '.'
  33. }
  34. ],
  35. 'parent' => {},
  36. 'type' => 'paragraph'
  37. }
  38. ],
  39. 'type' => 'text_root'
  40. };
  41. $result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  42. $result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'simple'}{'contents'}[0]{'contents'}[0];
  43. $result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'simple'}{'contents'}[0];
  44. $result_trees{'simple'}{'contents'}[0]{'parent'} = $result_trees{'simple'};
  45. $result_texis{'simple'} = '@verb{. } . .}';
  46. $result_texts{'simple'} = ' } . ';
  47. $result_errors{'simple'} = [];
  48. 1;