From a44098add7650489526bfb614f4fc0d902fade1b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 8 Mar 2008 23:23:02 +0000
Subject: [PATCH] added tool to create UTF-8 conversion tables

git-svn-id: trunk@14479 -
---
 .gitattributes       |   1 +
 tools/iconvtable.pas | 119 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 120 insertions(+)
 create mode 100644 tools/iconvtable.pas

diff --git a/.gitattributes b/.gitattributes
index 03b6c1b6ed..560a4bd9b0 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -3545,6 +3545,7 @@ tools/convert_po_file_to_utf-8.sh svneol=native#text/plain
 tools/copy_po_files_to_lazarus_sources.sh -text svneol=native#application/x-sh
 tools/delete_non_svn_files.pl svneol=native#text/plain
 tools/getallpofiles.sh -text svneol=native#application/x-sh
+tools/iconvtable.pas svneol=native#text/plain
 tools/install/README.txt svneol=native#text/plain
 tools/install/build_fpc_snaphot_rpm.sh svneol=native#text/plain
 tools/install/check_fpc_dependencies.sh svneol=native#text/plain
diff --git a/tools/iconvtable.pas b/tools/iconvtable.pas
new file mode 100644
index 0000000000..c3dbc1190d
--- /dev/null
+++ b/tools/iconvtable.pas
@@ -0,0 +1,119 @@
+{ Copyright (C) 2008 Mattias Gaertner
+
+  This library is free software; you can redistribute it and/or modify it
+  under the terms of the GNU Library General Public License as published by
+  the Free Software Foundation; either version 2 of the License, or (at your
+  option) any later version.
+
+  This program is distributed in the hope that it will be useful, but WITHOUT
+  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+  FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
+  for more details.
+
+  You should have received a copy of the GNU Library General Public License
+  along with this library; if not, write to the Free Software Foundation,
+  Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+  
+  Example:
+  ppc386 -gl -Fu../lcl/units/i386-linux/ iconvtable.pas && ./iconvtable CP1250 UTF-8
+}
+program iconvtable;
+
+{$mode objfpc}{$H+}
+
+uses
+  Classes, SysUtils, Unix, LCLProc;
+
+function ToStringConstant(const s: string): string;
+var
+  i: Integer;
+  RangeIsString: Boolean;
+begin
+  Result:='';
+  if s='' then begin
+    Result:='''''';
+    exit;
+  end;
+  
+  RangeIsString:=false;
+  for i:=1 to length(s) do begin
+    if s[i] in [#32..#126] then begin
+      if not RangeIsString then
+        Result:=Result+'''';
+      Result:=Result+s[i];
+      if s[i]='''' then
+        Result:=Result+'''';
+    end else begin
+      if RangeIsString then
+        Result:=Result+'''';
+      Result:=Result+'#'+IntToStr(ord(s[i]));
+    end;
+  end;
+  if RangeIsString then
+    Result:=Result+'''';
+end;
+
+var
+  i: Integer;
+  Filename1, Filename2: String;
+  SL: TStringList;
+  FromEncoding: String;
+  ToEncoding: String;
+  Table: array[0..255] of shortstring;
+  s: String;
+  UniCode: LongWord;
+  CharLen: integer;
+begin
+  // single byte to UTF-8
+
+  FromEncoding:=ParamStr(1);
+  ToEncoding:='UTF-8';
+
+  SL:=TStringList.Create;
+  for i:=0 to 255 do begin
+    Table[i]:=chr(i);
+    if i<32 then continue;
+    Filename1:='test1.txt';
+    Filename2:='test2.txt';
+    DeleteFile(Filename1);
+    DeleteFile(Filename2);
+    SL.Clear;
+    SL.Add(chr(i));
+    SL.SaveToFile(Filename1);
+    if fpSystem('iconv -f '+FromEncoding+' -t '+ToEncoding+' '+Filename1+' >'+Filename2)=0
+    then begin
+      SL.LoadFromFile(Filename2);
+      Table[i]:=SL[0];
+      //writeln(i,'=',length(Table[i]));
+    end else begin
+      Table[i]:='';
+    end;
+  end;
+  SL.Free;
+  
+  // write table char to shortstring
+  writeln('  EncodingToUTF8: array[char] of shortstring = (');
+  for i:=0 to 255 do begin
+    s:=ToStringConstant(Table[i]);
+    if i<255 then s:=s+',';
+    s:=s+StringOfChar(' ',20-length(s))+'// '+ToStringConstant(chr(i));
+    writeln('    '+s);
+  end;
+  writeln('  );');
+
+  // write table unicode to character
+  writeln('  case Unicode of');
+  writeln('  0..127: Result:=chr(Unicode);');
+  for i:=0 to 255 do begin
+    s:=Table[i];
+    if (length(s)=1) and (ord(s[1])<=127) then begin
+      continue;
+    end else if s<>'' then begin
+      UniCode:=UTF8CharacterToUnicode(@s[1],CharLen);
+      writeln('  '+IntToStr(UniCode)+': Result:='+ToStringConstant(chr(i))+';');
+    end;
+  end;
+  writeln('  else Result:='''';');
+  writeln('  end;');
+end.
+