diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2003-07-20 20:35:35 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2003-07-20 20:35:35 +0000 |
| commit | ca5d88c36856b004f72c1eeb5a3d18e0b6f4236e (patch) | |
| tree | 79f6e211accdc1247c5c04b3b42bb64953273da5 /src/xml.erl | |
| parent | * src/ejabberd_s2s_out.erl: Close connection after key (diff) | |
* (all): Reorganized supervision tree
SVN Revision: 125
Diffstat (limited to 'src/xml.erl')
| -rw-r--r-- | src/xml.erl | 63 |
1 files changed, 31 insertions, 32 deletions
diff --git a/src/xml.erl b/src/xml.erl index 88b00e7b..9f047c82 100644 --- a/src/xml.erl +++ b/src/xml.erl @@ -65,23 +65,23 @@ attr_to_string({Name, Value}) -> -%crypt(S) -> -% lists:reverse(crypt(S, "")). -% -%crypt([$& | S], R) -> -% crypt(S, [$;, $p, $m, $a, $& | R]); -%crypt([$< | S], R) -> -% crypt(S, [$;, $t, $l, $& | R]); -%crypt([$> | S], R) -> -% crypt(S, [$;, $t, $g, $& | R]); -%crypt([$" | S], R) -> -% crypt(S, [$;, $t, $o, $u, $q, $& | R]); -%crypt([$' | S], R) -> -% crypt(S, [$;, $s, $o, $p, $a, $& | R]); -%crypt([C | S], R) -> -% crypt(S, [C | R]); -%crypt([], R) -> -% R. +crypt(S) -> + lists:reverse(crypt(S, "")). + +crypt([$& | S], R) -> + crypt(S, [$;, $p, $m, $a, $& | R]); +crypt([$< | S], R) -> + crypt(S, [$;, $t, $l, $& | R]); +crypt([$> | S], R) -> + crypt(S, [$;, $t, $g, $& | R]); +crypt([$" | S], R) -> + crypt(S, [$;, $t, $o, $u, $q, $& | R]); +crypt([$' | S], R) -> + crypt(S, [$;, $s, $o, $p, $a, $& | R]); +crypt([C | S], R) -> + crypt(S, [C | R]); +crypt([], R) -> + R. %crypt1(S) -> % lists:flatten([case C of @@ -93,21 +93,20 @@ attr_to_string({Name, Value}) -> % _ -> C % end || C <- S]). -% Not tail-recursive but it seems works faster than variants above -crypt([$& | S]) -> - [$&, $a, $m, $p, $; | crypt(S)]; -crypt([$< | S]) -> - [$&, $l, $t, $; | crypt(S)]; -crypt([$> | S]) -> - [$&, $g, $t, $; | crypt(S)]; -crypt([$" | S]) -> - [$&, $q, $u, $o, $t, $; | crypt(S)]; -crypt([$' | S]) -> - [$&, $a, $p, $o, $s, $; | crypt(S)]; -crypt([C | S]) -> - [C | crypt(S)]; -crypt([]) -> - []. +%crypt([$& | S]) -> +% [$&, $a, $m, $p, $; | crypt(S)]; +%crypt([$< | S]) -> +% [$&, $l, $t, $; | crypt(S)]; +%crypt([$> | S]) -> +% [$&, $g, $t, $; | crypt(S)]; +%crypt([$" | S]) -> +% [$&, $q, $u, $o, $t, $; | crypt(S)]; +%crypt([$' | S]) -> +% [$&, $a, $p, $o, $s, $; | crypt(S)]; +%crypt([C | S]) -> +% [C | crypt(S)]; +%crypt([]) -> +% []. |