cow_inline.hrl 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420
  1. %% Copyright (c) 2014, Loïc Hoguin <essen@ninenines.eu>
  2. %%
  3. %% Permission to use, copy, modify, and/or distribute this software for any
  4. %% purpose with or without fee is hereby granted, provided that the above
  5. %% copyright notice and this permission notice appear in all copies.
  6. %%
  7. %% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  8. %% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  9. %% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  10. %% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  11. %% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  12. %% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  13. %% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  14. -ifndef(COW_INLINE_HRL).
  15. -define(COW_INLINE_HRL, 1).
  16. %% IS_DIGIT(Character)
  17. -define(IS_DIGIT(C),
  18. C >= $0, C =< $9
  19. ).
  20. %% IS_TOKEN(Character)
  21. -define(IS_TOKEN(C),
  22. C =:= $a; C =:= $b; C =:= $c; C =:= $d; C =:= $e;
  23. C =:= $f; C =:= $g; C =:= $h; C =:= $i; C =:= $j;
  24. C =:= $k; C =:= $l; C =:= $m; C =:= $n; C =:= $o;
  25. C =:= $p; C =:= $q; C =:= $r; C =:= $s; C =:= $t;
  26. C =:= $u; C =:= $v; C =:= $w; C =:= $x; C =:= $y;
  27. C =:= $z;
  28. C =:= $A; C =:= $B; C =:= $C; C =:= $D; C =:= $E;
  29. C =:= $F; C =:= $G; C =:= $H; C =:= $I; C =:= $J;
  30. C =:= $K; C =:= $L; C =:= $M; C =:= $N; C =:= $O;
  31. C =:= $P; C =:= $Q; C =:= $R; C =:= $S; C =:= $T;
  32. C =:= $U; C =:= $V; C =:= $W; C =:= $X; C =:= $Y;
  33. C =:= $2;
  34. C =:= $0; C =:= $1; C =:= $2; C =:= $3; C =:= $4;
  35. C =:= $5; C =:= $6; C =:= $7; C =:= $8; C =:= $9;
  36. C =:= $!; C =:= $#; C =:= $$; C =:= $%; C =:= $&;
  37. C =:= $'; C =:= $*; C =:= $+; C =:= $-; C =:= $.;
  38. C =:= $^; C =:= $_; C =:= $`; C =:= $|; C =:= $~
  39. ).
  40. %% IS_VCHAR(Character)
  41. -define(IS_VCHAR(C), C =:= $\t; C > 31, C =/= 127).
  42. %% INLINE_LOWERCASE(Function, Rest, Acc, ...)
  43. %%
  44. %% To be included at the end of a case block.
  45. %% Defined for up to 10 extra arguments.
  46. -define(INLINE_LOWERCASE(Function, Rest, Acc),
  47. $A -> Function(Rest, << Acc/binary, $a >>);
  48. $B -> Function(Rest, << Acc/binary, $b >>);
  49. $C -> Function(Rest, << Acc/binary, $c >>);
  50. $D -> Function(Rest, << Acc/binary, $d >>);
  51. $E -> Function(Rest, << Acc/binary, $e >>);
  52. $F -> Function(Rest, << Acc/binary, $f >>);
  53. $G -> Function(Rest, << Acc/binary, $g >>);
  54. $H -> Function(Rest, << Acc/binary, $h >>);
  55. $I -> Function(Rest, << Acc/binary, $i >>);
  56. $J -> Function(Rest, << Acc/binary, $j >>);
  57. $K -> Function(Rest, << Acc/binary, $k >>);
  58. $L -> Function(Rest, << Acc/binary, $l >>);
  59. $M -> Function(Rest, << Acc/binary, $m >>);
  60. $N -> Function(Rest, << Acc/binary, $n >>);
  61. $O -> Function(Rest, << Acc/binary, $o >>);
  62. $P -> Function(Rest, << Acc/binary, $p >>);
  63. $Q -> Function(Rest, << Acc/binary, $q >>);
  64. $R -> Function(Rest, << Acc/binary, $r >>);
  65. $S -> Function(Rest, << Acc/binary, $s >>);
  66. $T -> Function(Rest, << Acc/binary, $t >>);
  67. $U -> Function(Rest, << Acc/binary, $u >>);
  68. $V -> Function(Rest, << Acc/binary, $v >>);
  69. $W -> Function(Rest, << Acc/binary, $w >>);
  70. $X -> Function(Rest, << Acc/binary, $x >>);
  71. $Y -> Function(Rest, << Acc/binary, $y >>);
  72. $Z -> Function(Rest, << Acc/binary, $z >>);
  73. C -> Function(Rest, << Acc/binary, C >>)
  74. ).
  75. -define(INLINE_LOWERCASE(Function, Rest, A0, Acc),
  76. $A -> Function(Rest, A0, << Acc/binary, $a >>);
  77. $B -> Function(Rest, A0, << Acc/binary, $b >>);
  78. $C -> Function(Rest, A0, << Acc/binary, $c >>);
  79. $D -> Function(Rest, A0, << Acc/binary, $d >>);
  80. $E -> Function(Rest, A0, << Acc/binary, $e >>);
  81. $F -> Function(Rest, A0, << Acc/binary, $f >>);
  82. $G -> Function(Rest, A0, << Acc/binary, $g >>);
  83. $H -> Function(Rest, A0, << Acc/binary, $h >>);
  84. $I -> Function(Rest, A0, << Acc/binary, $i >>);
  85. $J -> Function(Rest, A0, << Acc/binary, $j >>);
  86. $K -> Function(Rest, A0, << Acc/binary, $k >>);
  87. $L -> Function(Rest, A0, << Acc/binary, $l >>);
  88. $M -> Function(Rest, A0, << Acc/binary, $m >>);
  89. $N -> Function(Rest, A0, << Acc/binary, $n >>);
  90. $O -> Function(Rest, A0, << Acc/binary, $o >>);
  91. $P -> Function(Rest, A0, << Acc/binary, $p >>);
  92. $Q -> Function(Rest, A0, << Acc/binary, $q >>);
  93. $R -> Function(Rest, A0, << Acc/binary, $r >>);
  94. $S -> Function(Rest, A0, << Acc/binary, $s >>);
  95. $T -> Function(Rest, A0, << Acc/binary, $t >>);
  96. $U -> Function(Rest, A0, << Acc/binary, $u >>);
  97. $V -> Function(Rest, A0, << Acc/binary, $v >>);
  98. $W -> Function(Rest, A0, << Acc/binary, $w >>);
  99. $X -> Function(Rest, A0, << Acc/binary, $x >>);
  100. $Y -> Function(Rest, A0, << Acc/binary, $y >>);
  101. $Z -> Function(Rest, A0, << Acc/binary, $z >>);
  102. C -> Function(Rest, A0, << Acc/binary, C >>)
  103. ).
  104. -define(INLINE_LOWERCASE(Function, Rest, A0, A1, Acc),
  105. $A -> Function(Rest, A0, A1, << Acc/binary, $a >>);
  106. $B -> Function(Rest, A0, A1, << Acc/binary, $b >>);
  107. $C -> Function(Rest, A0, A1, << Acc/binary, $c >>);
  108. $D -> Function(Rest, A0, A1, << Acc/binary, $d >>);
  109. $E -> Function(Rest, A0, A1, << Acc/binary, $e >>);
  110. $F -> Function(Rest, A0, A1, << Acc/binary, $f >>);
  111. $G -> Function(Rest, A0, A1, << Acc/binary, $g >>);
  112. $H -> Function(Rest, A0, A1, << Acc/binary, $h >>);
  113. $I -> Function(Rest, A0, A1, << Acc/binary, $i >>);
  114. $J -> Function(Rest, A0, A1, << Acc/binary, $j >>);
  115. $K -> Function(Rest, A0, A1, << Acc/binary, $k >>);
  116. $L -> Function(Rest, A0, A1, << Acc/binary, $l >>);
  117. $M -> Function(Rest, A0, A1, << Acc/binary, $m >>);
  118. $N -> Function(Rest, A0, A1, << Acc/binary, $n >>);
  119. $O -> Function(Rest, A0, A1, << Acc/binary, $o >>);
  120. $P -> Function(Rest, A0, A1, << Acc/binary, $p >>);
  121. $Q -> Function(Rest, A0, A1, << Acc/binary, $q >>);
  122. $R -> Function(Rest, A0, A1, << Acc/binary, $r >>);
  123. $S -> Function(Rest, A0, A1, << Acc/binary, $s >>);
  124. $T -> Function(Rest, A0, A1, << Acc/binary, $t >>);
  125. $U -> Function(Rest, A0, A1, << Acc/binary, $u >>);
  126. $V -> Function(Rest, A0, A1, << Acc/binary, $v >>);
  127. $W -> Function(Rest, A0, A1, << Acc/binary, $w >>);
  128. $X -> Function(Rest, A0, A1, << Acc/binary, $x >>);
  129. $Y -> Function(Rest, A0, A1, << Acc/binary, $y >>);
  130. $Z -> Function(Rest, A0, A1, << Acc/binary, $z >>);
  131. C -> Function(Rest, A0, A1, << Acc/binary, C >>)
  132. ).
  133. -define(INLINE_LOWERCASE(Function, Rest, A0, A1, A2, Acc),
  134. $A -> Function(Rest, A0, A1, A2, << Acc/binary, $a >>);
  135. $B -> Function(Rest, A0, A1, A2, << Acc/binary, $b >>);
  136. $C -> Function(Rest, A0, A1, A2, << Acc/binary, $c >>);
  137. $D -> Function(Rest, A0, A1, A2, << Acc/binary, $d >>);
  138. $E -> Function(Rest, A0, A1, A2, << Acc/binary, $e >>);
  139. $F -> Function(Rest, A0, A1, A2, << Acc/binary, $f >>);
  140. $G -> Function(Rest, A0, A1, A2, << Acc/binary, $g >>);
  141. $H -> Function(Rest, A0, A1, A2, << Acc/binary, $h >>);
  142. $I -> Function(Rest, A0, A1, A2, << Acc/binary, $i >>);
  143. $J -> Function(Rest, A0, A1, A2, << Acc/binary, $j >>);
  144. $K -> Function(Rest, A0, A1, A2, << Acc/binary, $k >>);
  145. $L -> Function(Rest, A0, A1, A2, << Acc/binary, $l >>);
  146. $M -> Function(Rest, A0, A1, A2, << Acc/binary, $m >>);
  147. $N -> Function(Rest, A0, A1, A2, << Acc/binary, $n >>);
  148. $O -> Function(Rest, A0, A1, A2, << Acc/binary, $o >>);
  149. $P -> Function(Rest, A0, A1, A2, << Acc/binary, $p >>);
  150. $Q -> Function(Rest, A0, A1, A2, << Acc/binary, $q >>);
  151. $R -> Function(Rest, A0, A1, A2, << Acc/binary, $r >>);
  152. $S -> Function(Rest, A0, A1, A2, << Acc/binary, $s >>);
  153. $T -> Function(Rest, A0, A1, A2, << Acc/binary, $t >>);
  154. $U -> Function(Rest, A0, A1, A2, << Acc/binary, $u >>);
  155. $V -> Function(Rest, A0, A1, A2, << Acc/binary, $v >>);
  156. $W -> Function(Rest, A0, A1, A2, << Acc/binary, $w >>);
  157. $X -> Function(Rest, A0, A1, A2, << Acc/binary, $x >>);
  158. $Y -> Function(Rest, A0, A1, A2, << Acc/binary, $y >>);
  159. $Z -> Function(Rest, A0, A1, A2, << Acc/binary, $z >>);
  160. C -> Function(Rest, A0, A1, A2, << Acc/binary, C >>)
  161. ).
  162. -define(INLINE_LOWERCASE(Function, Rest, A0, A1, A2, A3, Acc),
  163. $A -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $a >>);
  164. $B -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $b >>);
  165. $C -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $c >>);
  166. $D -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $d >>);
  167. $E -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $e >>);
  168. $F -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $f >>);
  169. $G -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $g >>);
  170. $H -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $h >>);
  171. $I -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $i >>);
  172. $J -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $j >>);
  173. $K -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $k >>);
  174. $L -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $l >>);
  175. $M -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $m >>);
  176. $N -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $n >>);
  177. $O -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $o >>);
  178. $P -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $p >>);
  179. $Q -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $q >>);
  180. $R -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $r >>);
  181. $S -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $s >>);
  182. $T -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $t >>);
  183. $U -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $u >>);
  184. $V -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $v >>);
  185. $W -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $w >>);
  186. $X -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $x >>);
  187. $Y -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $y >>);
  188. $Z -> Function(Rest, A0, A1, A2, A3, << Acc/binary, $z >>);
  189. C -> Function(Rest, A0, A1, A2, A3, << Acc/binary, C >>)
  190. ).
  191. -define(INLINE_LOWERCASE(Function, Rest, A0, A1, A2, A3, A4, Acc),
  192. $A -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $a >>);
  193. $B -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $b >>);
  194. $C -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $c >>);
  195. $D -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $d >>);
  196. $E -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $e >>);
  197. $F -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $f >>);
  198. $G -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $g >>);
  199. $H -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $h >>);
  200. $I -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $i >>);
  201. $J -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $j >>);
  202. $K -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $k >>);
  203. $L -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $l >>);
  204. $M -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $m >>);
  205. $N -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $n >>);
  206. $O -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $o >>);
  207. $P -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $p >>);
  208. $Q -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $q >>);
  209. $R -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $r >>);
  210. $S -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $s >>);
  211. $T -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $t >>);
  212. $U -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $u >>);
  213. $V -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $v >>);
  214. $W -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $w >>);
  215. $X -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $x >>);
  216. $Y -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $y >>);
  217. $Z -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, $z >>);
  218. C -> Function(Rest, A0, A1, A2, A3, A4, << Acc/binary, C >>)
  219. ).
  220. -define(INLINE_LOWERCASE(Function, Rest, A0, A1, A2, A3, A4, A5, Acc),
  221. $A -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $a >>);
  222. $B -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $b >>);
  223. $C -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $c >>);
  224. $D -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $d >>);
  225. $E -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $e >>);
  226. $F -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $f >>);
  227. $G -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $g >>);
  228. $H -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $h >>);
  229. $I -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $i >>);
  230. $J -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $j >>);
  231. $K -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $k >>);
  232. $L -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $l >>);
  233. $M -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $m >>);
  234. $N -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $n >>);
  235. $O -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $o >>);
  236. $P -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $p >>);
  237. $Q -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $q >>);
  238. $R -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $r >>);
  239. $S -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $s >>);
  240. $T -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $t >>);
  241. $U -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $u >>);
  242. $V -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $v >>);
  243. $W -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $w >>);
  244. $X -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $x >>);
  245. $Y -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $y >>);
  246. $Z -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, $z >>);
  247. C -> Function(Rest, A0, A1, A2, A3, A4, A5, << Acc/binary, C >>)
  248. ).
  249. -define(INLINE_LOWERCASE(Function, Rest, A0, A1, A2, A3, A4, A5, A6, Acc),
  250. $A -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $a >>);
  251. $B -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $b >>);
  252. $C -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $c >>);
  253. $D -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $d >>);
  254. $E -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $e >>);
  255. $F -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $f >>);
  256. $G -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $g >>);
  257. $H -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $h >>);
  258. $I -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $i >>);
  259. $J -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $j >>);
  260. $K -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $k >>);
  261. $L -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $l >>);
  262. $M -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $m >>);
  263. $N -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $n >>);
  264. $O -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $o >>);
  265. $P -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $p >>);
  266. $Q -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $q >>);
  267. $R -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $r >>);
  268. $S -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $s >>);
  269. $T -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $t >>);
  270. $U -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $u >>);
  271. $V -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $v >>);
  272. $W -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $w >>);
  273. $X -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $x >>);
  274. $Y -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $y >>);
  275. $Z -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, $z >>);
  276. C -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, << Acc/binary, C >>)
  277. ).
  278. -define(INLINE_LOWERCASE(Function, Rest, A0, A1, A2, A3, A4, A5, A6, A7, Acc),
  279. $A -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $a >>);
  280. $B -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $b >>);
  281. $C -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $c >>);
  282. $D -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $d >>);
  283. $E -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $e >>);
  284. $F -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $f >>);
  285. $G -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $g >>);
  286. $H -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $h >>);
  287. $I -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $i >>);
  288. $J -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $j >>);
  289. $K -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $k >>);
  290. $L -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $l >>);
  291. $M -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $m >>);
  292. $N -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $n >>);
  293. $O -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $o >>);
  294. $P -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $p >>);
  295. $Q -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $q >>);
  296. $R -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $r >>);
  297. $S -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $s >>);
  298. $T -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $t >>);
  299. $U -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $u >>);
  300. $V -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $v >>);
  301. $W -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $w >>);
  302. $X -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $x >>);
  303. $Y -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $y >>);
  304. $Z -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, $z >>);
  305. C -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, << Acc/binary, C >>)
  306. ).
  307. -define(INLINE_LOWERCASE(Function, Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, Acc),
  308. $A -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $a >>);
  309. $B -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $b >>);
  310. $C -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $c >>);
  311. $D -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $d >>);
  312. $E -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $e >>);
  313. $F -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $f >>);
  314. $G -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $g >>);
  315. $H -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $h >>);
  316. $I -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $i >>);
  317. $J -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $j >>);
  318. $K -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $k >>);
  319. $L -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $l >>);
  320. $M -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $m >>);
  321. $N -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $n >>);
  322. $O -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $o >>);
  323. $P -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $p >>);
  324. $Q -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $q >>);
  325. $R -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $r >>);
  326. $S -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $s >>);
  327. $T -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $t >>);
  328. $U -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $u >>);
  329. $V -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $v >>);
  330. $W -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $w >>);
  331. $X -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $x >>);
  332. $Y -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $y >>);
  333. $Z -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, $z >>);
  334. C -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, << Acc/binary, C >>)
  335. ).
  336. -define(INLINE_LOWERCASE(Function, Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, Acc),
  337. $A -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $a >>);
  338. $B -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $b >>);
  339. $C -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $c >>);
  340. $D -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $d >>);
  341. $E -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $e >>);
  342. $F -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $f >>);
  343. $G -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $g >>);
  344. $H -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $h >>);
  345. $I -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $i >>);
  346. $J -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $j >>);
  347. $K -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $k >>);
  348. $L -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $l >>);
  349. $M -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $m >>);
  350. $N -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $n >>);
  351. $O -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $o >>);
  352. $P -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $p >>);
  353. $Q -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $q >>);
  354. $R -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $r >>);
  355. $S -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $s >>);
  356. $T -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $t >>);
  357. $U -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $u >>);
  358. $V -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $v >>);
  359. $W -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $w >>);
  360. $X -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $x >>);
  361. $Y -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $y >>);
  362. $Z -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, $z >>);
  363. C -> Function(Rest, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, << Acc/binary, C >>)
  364. ).
  365. %% INLINE_LOWERCASE_BC(Bin)
  366. %%
  367. %% Lowercase the entire binary string in a binary comprehension.
  368. -define(INLINE_LOWERCASE_BC(Bin),
  369. << << case C of
  370. $A -> $a;
  371. $B -> $b;
  372. $C -> $c;
  373. $D -> $d;
  374. $E -> $e;
  375. $F -> $f;
  376. $G -> $g;
  377. $H -> $h;
  378. $I -> $i;
  379. $J -> $j;
  380. $K -> $k;
  381. $L -> $l;
  382. $M -> $m;
  383. $N -> $n;
  384. $O -> $o;
  385. $P -> $p;
  386. $Q -> $q;
  387. $R -> $r;
  388. $S -> $s;
  389. $T -> $t;
  390. $U -> $u;
  391. $V -> $v;
  392. $W -> $w;
  393. $X -> $x;
  394. $Y -> $y;
  395. $Z -> $z;
  396. C -> C
  397. end >> || << C >> <= Bin >>).
  398. -endif.