diff options
| author | Alexey Kulakov <panda75@bk.ru> | 2012-07-04 13:17:29 +0000 |
|---|---|---|
| committer | Alexey Kulakov <panda75@bk.ru> | 2012-07-04 13:17:29 +0000 |
| commit | a5a3db4393d85407ff4c5668d88860e06158abd0 (patch) | |
| tree | bcc8f716833034e33984a539ab7d1debfdd6a7d3 /plugins/HistoryPlusPlus/hpp_puny.pas | |
| parent | 88ec2ae53ddc811d08763b2fb3a0073b571a321c (diff) | |
History++ sources upload (all files, no project)
git-svn-id: http://svn.miranda-ng.org/main/trunk@756 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/HistoryPlusPlus/hpp_puny.pas')
| -rw-r--r-- | plugins/HistoryPlusPlus/hpp_puny.pas | 339 |
1 files changed, 339 insertions, 0 deletions
diff --git a/plugins/HistoryPlusPlus/hpp_puny.pas b/plugins/HistoryPlusPlus/hpp_puny.pas new file mode 100644 index 0000000000..228d38df42 --- /dev/null +++ b/plugins/HistoryPlusPlus/hpp_puny.pas @@ -0,0 +1,339 @@ +// Punycode Kovertierung
+//
+// Punycode: A Bootstring encoding of Unicode for Internationalized Domain Names in Applications (IDNA)
+// http://www.rfc-editor.org/rfc/rfc3492.txt
+//
+// Delphi-Unit von Daniel Mitte (2005)
+// Original-Code von http://www.activevb.de
+//
+// Beispiel:
+// pc := TPunyClass.Create;
+// e := pc.Encode('müller'); // Verschlüsselt 'müller' zu 'mller-kva'
+// d := pc.Decode(e); // Entschlüsselt 'mller-kva' zu 'müller'
+// pc.Free;
+
+unit hpp_puny;
+
+interface
+
+const
+ BASE: Longint = 36;
+ TMIN: Longint = 1;
+ TMAX: Longint = 26;
+ SKEW: Longint = 38;
+ DAMP: Longint = 700;
+ INITIAL_BIAS: Longint = 72;
+ INITIAL_N: Longint = 128;
+ Delimiter: String = '-';
+ MAX_INT: Longint = 2147483647;
+
+type
+ TPunyClass = class
+ private
+ function GetMinCodePoint(const n: Longint; const data: String): Longint;
+ function IsBasic(const c: String; const n: Longint): Boolean;
+ function Adapt(const delta, numpoints: Longint; const firsttime: Boolean): Longint;
+ function Digit2Codepoint(const d: Longint): Longint;
+ function Codepoint2Digit(const c: Longint): Longint;
+ function UInt(i: Longint): Longint;
+ function Asc(const s: String): Longint;
+ function AscW(const s: String): Longint;
+ function PosRev(const sub, text: String): Longint;
+ public
+ function Encode(const input: String): String;
+ function Decode(const input: String): String;
+ end;
+
+implementation
+
+function TPunyClass.Encode(const input: String): String;
+var
+ n, delta, bias, b, l, h, q, m, k, t: Longint;
+ text, output, c: String;
+ first: Boolean;
+
+begin
+ text := input;
+ output := '';
+
+ try
+ n := INITIAL_N;
+ bias := INITIAL_BIAS;
+ b := 0;
+
+ for l := 1 to Length(text) do
+ begin
+ c := Copy(text, l, 1);
+
+ if IsBasic(c, INITIAL_N) then
+ begin
+ output := output + c;
+ b := b + 1;
+ end;
+ end;
+
+ if Length(output) < Length(text) then
+ if Length(output) > 0 then output := output + Delimiter;
+
+ h := b;
+ delta := 0;
+
+ while h < Length(text) do
+ begin
+ m := GetMinCodePoint(n, text);
+ delta := delta + UInt(m - n) * (h + 1);
+
+ n := m;
+
+ for l := 1 to Length(text) do
+ begin
+ c := Copy(text, l, 1);
+ if IsBasic(c, n) then delta := delta + 1
+ else if UInt(AscW(c)) = n then
+ begin
+ q := delta;
+
+ k := BASE;
+ while k <= MAX_INT do
+ begin
+ if k <= (bias + TMIN) then t := TMIN
+ else if k >= (bias + TMAX) then t := TMAX
+ else t := k - bias;
+
+ if q < t then break;
+
+ output := output + Chr(Digit2Codepoint(t + ((q - t) Mod (BASE - t))));
+ q := (q - t) div (BASE - t);
+
+ k := k + BASE;
+ end;
+
+ output := output + Chr(Digit2Codepoint(q));
+ first := False;
+ if h = b then first := True;
+ bias := Adapt(delta, h + 1, first);
+ delta := 0;
+ h := h + 1;
+ end;
+ end;
+
+ delta := delta + 1;
+ n := n + 1;
+ end;
+ except
+ output := input;
+ end;
+
+ Result := output;
+end;
+
+function TPunyClass.Decode(const input: String): String;
+var
+ n, i, bias, l, ps, oldi, w, k, t: Longint;
+ digit: Byte;
+ text, output, c: String;
+ first: Boolean;
+
+begin
+ text := input;
+ output := '';
+
+ try
+ n := INITIAL_N;
+ bias := INITIAL_BIAS;
+ i := 0;
+
+ ps := PosRev(Delimiter, text);
+
+ if ps > 0 then
+ begin
+ for l := 1 to (ps - 1) do
+ begin
+ c := Copy(text, l, 1);
+
+ if IsBasic(c, INITIAL_N) then output := output + c
+ else
+ begin
+ Result := '';
+ Exit;
+ end;
+ end;
+ end;
+
+ ps := ps + 1;
+
+ while ps <= Length(text) do
+ begin
+ oldi := i;
+ w := 1;
+
+ k := BASE;
+ while ((k <= MAX_INT) and (ps <= Length(text))) do
+ begin
+ c := Copy(text, ps, 1);
+ ps := ps + 1;
+
+ digit := Codepoint2Digit(Asc(c));
+ if ((digit >= BASE) or (digit > ((MAX_INT - i) / w))) then
+ begin
+ Result := '';
+ Exit;
+ end;
+
+ i := i + digit * w;
+
+ if k <= bias then t := TMIN
+ else if k >= (bias + TMAX) then t := TMAX
+ else t := k - bias;
+
+ if digit < t then break;
+
+ if w > (maxint / (BASE - t)) then
+ begin
+ Result := '';
+ Exit;
+ end;
+
+ w := w * (BASE - t);
+
+ k := k + BASE;
+ end;
+
+ first := False;
+ if oldi = 0 then first := True;
+ bias := Adapt(i - oldi, Length(output) + 1, first);
+
+ if (i / (Length(output) + 1)) > (MAX_INT - n) then
+ begin
+ Result := '';
+ Exit;
+ end;
+
+ n := n + i div (Length(output) + 1);
+ i := i mod (Length(output) + 1);
+
+ if IsBasic(Char(n), INITIAL_N) then
+ begin
+ Result := '';
+ Exit;
+ end;
+
+ output := Copy(output, 1, i) + Char(n) + Copy(output, i + 1, Length(output) - (i + 1) + 1);
+ i := i + 1;
+ end;
+ except
+ output := input;
+ end;
+
+ Result := output;
+end;
+
+function TPunyClass.GetMinCodePoint(const n: Longint; const data: String): Longint;
+var
+ t, a, res: Longint;
+
+begin
+ res := 2147483647;
+
+ for t := 1 to Length(data) do
+ begin
+ a := UInt(AscW(Copy(data, t, 1)));
+ if ((a >= n) and (a < res)) then res := a;
+ end;
+
+ Result := res;
+end;
+
+function TPunyClass.IsBasic(const c: String; const n: Longint): Boolean;
+begin
+ Result := False;
+ if UInt(AscW(c)) < n then Result := True;
+end;
+
+function TPunyClass.Adapt(const delta, numpoints: Longint; const firsttime: Boolean): Longint;
+var
+ k, dt: Longint;
+
+begin
+ dt := delta;
+
+ if firsttime then dt := dt div DAMP
+ else dt := dt div 2;
+
+ dt := dt + (dt div numpoints);
+ k := 0;
+
+ while dt > (((BASE - TMIN) * TMAX) div 2) do
+ begin
+ dt := dt div (BASE - TMIN);
+ k := k + BASE;
+ end;
+
+ Result := k + (((BASE - TMIN + 1) * dt) div (dt + SKEW));
+end;
+
+function TPunyClass.Digit2Codepoint(const d: Longint): Longint;
+begin
+ Result := 0;
+
+ if d < 26 then Result := d + 97
+ else if d < 36 then Result := d - 26 + 48;
+end;
+
+function TPunyClass.Codepoint2Digit(const c: Longint): Longint;
+begin
+ Result := BASE;
+
+ if (c - 48) < 10 then Result := c - 22
+ else if (c - 65) < 26 then Result := c - 65
+ else if (c - 97) < 26 then Result := c - 97;
+end;
+
+function TPunyClass.UInt(i: Longint): Longint;
+begin
+ Result := i;
+ if i < 0 then Result := 65536 + i;
+end;
+
+function TPunyClass.Asc(const s: String): Longint;
+var
+ c: Char;
+begin
+ Result := 0;
+
+ if Length(s) > 0 then
+ begin
+ c := s[1];
+ Result := Word(c);
+ end;
+end;
+
+function TPunyClass.AscW(const s: String): Longint;
+var
+ c: Char;
+begin
+ Result := 0;
+
+ if Length(s) > 0 then
+ begin
+ c := s[1];
+ Result := Longint(c);
+ end;
+end;
+
+function TPunyClass.PosRev(const sub, text: String): Longint;
+var
+ p: Longint;
+ s: String;
+
+begin
+ Result := 0;
+
+ s := '';
+ for p := 1 to Length(text) do s := s + Copy(text, Length(text) - p + 1, 1);
+
+ p := Pos(sub, s);
+ if p > 0 then Result := Length(s) - p + 1;
+end;
+
+end.
|