| Akron | b98e4cf | 2022-03-27 23:56:49 +0200 | [diff] [blame^] | 1 | ! Partially by Park, Barash, Fink & Cha (2013) |
| 2 | |
| 3 | define verticalemoticon [ |
| 4 | [ "ಠ" "_" "ಠ"]| |
| 5 | [ "T" ["_"|"."|"-"]+ "T"] | |
| 6 | [ "♥" ["_"|"."|"-"]+ "♥" ] | |
| 7 | [ "@" ["_"|"."|"-"]* "@" ] | |
| 8 | [ "*" ["_"|"."|"-"]+ "*" ] | |
| 9 | [ "x" ["_"|"."|"-"]+ "x" ] | |
| 10 | [ "X" ["_"|"."|"-"]+ "X" ] | |
| 11 | [ "-" ["_"|"."]+ "-" ] | |
| 12 | [ "." ["_"]+ "." ] | |
| 13 | [ "^" ["_"|"."|"-"]* "^" ] | |
| 14 | [ ">" ["_"|"."|"-"]* "<" ] | |
| 15 | [ ["o"|"O"] ["_"|"."|"-"]+ ["o"|"O"] ] |
| 16 | ]; |
| 17 | |
| 18 | read regex [ |
| 19 | ["<" ("/") "3"+] | |
| 20 | verticalemoticon (";"+|"^") | |
| 21 | ["(" verticalemoticon ")"] | |
| 22 | |
| 23 | ! May be end of brackets as well, like |
| 24 | ! Author (2018): |
| 25 | [ [")"|"("] ["'"|"-"|"o"]* [":"|"="|"x"] ] | |
| 26 | ! May be end of xml, like |
| 27 | ! <b class="emp">=</b> |
| 28 | [ ["<"*|">"*] ["B"|"X"|"8"|":"|";"|"="|"x"] ["'"|"-"|"o"]* ["/"|"<"|"C"|"["|")"|"("|"D"|"P"|"d"|"p"|"3"|">"|"o"|"O"|"*"]] | |
| 29 | [ ["D"|">"] ("'") ":"] | |
| 30 | |
| 31 | ! May be end of square bracket |
| 32 | ! Author [2018]: |
| 33 | ["]" ":"] | |
| 34 | [(">") [";"|":"] ["-"|"*"]* [ ")" | "(" | %] | %[ ]+ ] | |
| 35 | [(">") [";"|":"] ["-"]* ["*"|"P"|"p"|"o"|"O"|"D"]] | |
| 36 | ["x" "("] | |
| 37 | ["^" (".") "^"] | |
| 38 | [%\ ["{" "o" "}"|"o"|"m"] "/"] | |
| 39 | [":" ["a"|"b"|"c"|"d"|"e"|"f"|"g"|"h"|"i"|"j"|"k"|"l"|"m"|"n"|"o"|"p"|"q"|"r"|"s"|"t"|"u"|"v"|"w"|"x"|"y"|"z"|"_"|"-"]+ ":"] | |
| 40 | [">" "_" "<"] | |
| 41 | ["*" "<" ":" "-" ")"] |
| 42 | ]; |