email_possibilities.pl 6.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186
  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{'email_possibilities'} = {
  7. 'contents' => [
  8. {
  9. 'contents' => [
  10. {
  11. 'args' => [
  12. {
  13. 'contents' => [
  14. {
  15. 'parent' => {},
  16. 'text' => '--a'
  17. }
  18. ],
  19. 'parent' => {},
  20. 'type' => 'brace_command_arg'
  21. },
  22. {
  23. 'contents' => [
  24. {
  25. 'parent' => {},
  26. 'text' => '--b'
  27. }
  28. ],
  29. 'parent' => {},
  30. 'type' => 'brace_command_arg'
  31. }
  32. ],
  33. 'cmdname' => 'email',
  34. 'contents' => [],
  35. 'extra' => {
  36. 'brace_command_contents' => [
  37. [
  38. {}
  39. ],
  40. [
  41. {}
  42. ]
  43. ]
  44. },
  45. 'line_nr' => {
  46. 'file_name' => '',
  47. 'line_nr' => 1,
  48. 'macro' => ''
  49. },
  50. 'parent' => {}
  51. },
  52. {
  53. 'parent' => {},
  54. 'text' => '
  55. '
  56. },
  57. {
  58. 'args' => [
  59. {
  60. 'contents' => [],
  61. 'parent' => {},
  62. 'type' => 'brace_command_arg'
  63. },
  64. {
  65. 'contents' => [
  66. {
  67. 'parent' => {},
  68. 'text' => '--b'
  69. }
  70. ],
  71. 'parent' => {},
  72. 'type' => 'brace_command_arg'
  73. }
  74. ],
  75. 'cmdname' => 'email',
  76. 'contents' => [],
  77. 'extra' => {
  78. 'brace_command_contents' => [
  79. undef,
  80. [
  81. {}
  82. ]
  83. ]
  84. },
  85. 'line_nr' => {
  86. 'file_name' => '',
  87. 'line_nr' => 2,
  88. 'macro' => ''
  89. },
  90. 'parent' => {}
  91. },
  92. {
  93. 'parent' => {},
  94. 'text' => '
  95. '
  96. },
  97. {
  98. 'args' => [
  99. {
  100. 'contents' => [
  101. {
  102. 'parent' => {},
  103. 'text' => '--a'
  104. }
  105. ],
  106. 'parent' => {},
  107. 'type' => 'brace_command_arg'
  108. }
  109. ],
  110. 'cmdname' => 'email',
  111. 'contents' => [],
  112. 'extra' => {
  113. 'brace_command_contents' => [
  114. [
  115. {}
  116. ]
  117. ]
  118. },
  119. 'line_nr' => {
  120. 'file_name' => '',
  121. 'line_nr' => 3,
  122. 'macro' => ''
  123. },
  124. 'parent' => {}
  125. },
  126. {
  127. 'parent' => {},
  128. 'text' => '
  129. '
  130. }
  131. ],
  132. 'parent' => {},
  133. 'type' => 'paragraph'
  134. }
  135. ],
  136. 'type' => 'text_root'
  137. };
  138. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  139. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0];
  140. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'contents'}[0]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'args'}[1];
  141. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0];
  142. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'extra'}{'brace_command_contents'}[0][0] = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0];
  143. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'extra'}{'brace_command_contents'}[1][0] = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'contents'}[0];
  144. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0];
  145. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[1]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0];
  146. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[2]{'args'}[0]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[2];
  147. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[2]{'args'}[1]{'contents'}[0]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[2]{'args'}[1];
  148. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[2]{'args'}[1]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[2];
  149. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[2]{'extra'}{'brace_command_contents'}[1][0] = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[2]{'args'}[1]{'contents'}[0];
  150. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[2]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0];
  151. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[3]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0];
  152. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[4]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[4]{'args'}[0];
  153. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[4]{'args'}[0]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[4];
  154. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[4]{'extra'}{'brace_command_contents'}[0][0] = $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[4]{'args'}[0]{'contents'}[0];
  155. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[4]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0];
  156. $result_trees{'email_possibilities'}{'contents'}[0]{'contents'}[5]{'parent'} = $result_trees{'email_possibilities'}{'contents'}[0];
  157. $result_trees{'email_possibilities'}{'contents'}[0]{'parent'} = $result_trees{'email_possibilities'};
  158. $result_texis{'email_possibilities'} = '@email{--a,--b}
  159. @email{,--b}
  160. @email{--a}
  161. ';
  162. $result_texts{'email_possibilities'} = '-b
  163. -b
  164. --a
  165. ';
  166. $result_errors{'email_possibilities'} = [];
  167. $result_converted{'plaintext'}->{'email_possibilities'} = '-b <--a> -b <--a>
  168. ';
  169. $result_converted{'html_text'}->{'email_possibilities'} = '<p><a href="mailto:--a">&ndash;b</a>
  170. &ndash;b
  171. <a href="mailto:--a">--a</a>
  172. </p>';
  173. 1;