Check-in [7dd45a3fcb]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Added ConvertCharset, a command-line utility that translates a text file from one character set to another.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:7dd45a3fcb361bd612d8214410ec3dc30e4cc61a
User & Date: MCO 2014-02-26 14:51:38
Context
2014-02-26
17:32
Added a readme so it can be used as the project's home page. check-in: d21ade6fe2 user: MCO tags: trunk
14:51
Added ConvertCharset, a command-line utility that translates a text file from one character set to another. check-in: 7dd45a3fcb user: MCO tags: trunk
2014-01-03
09:09
Pulled help text of IsWorkstationLocked to external file, to be included as resource and loaded from there. This also allows direct inclusion in the Fossil project website. check-in: d93ac4d237 user: Martijn tags: trunk
Changes

Added src/ConvertCharset.dpr.









































































































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
program ConvertCharset;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  Winapi.Windows;

{ ------------------------------------------------------------------------------------------------ }
procedure ShowUsage(const ErrorMessage: string = '');
begin
  if Length(ErrorMEssage) > 0 then
    Writeln(ErrOutput, ErrorMessage);
  Writeln('Converts a text file from one code page to another');
  Writeln(ChangeFileExt(ExtractFileName(ParamStr(0)), ''), ' [/r=<codepage>] infile /w=<codepage> [outfile] [/b]');
  Writeln('');
  Writeln('infile         The file containing the text to convert. Use a hyphen to read from stdin.');
  WriteLn('outfile        The file to write the converted text to. If omitted, the output is');
  Writeln('               written to infile. Use a hyphen to write to stdout.');
  WriteLn('/r=<codepage>  The character set or code page of infile. If omitted, the system''s');
  Writeln('               default (ANSI) character set is assumed.');
  WriteLn('/w=<codepage>  The character set or code page to convert the text to.');
  Writeln('');
  Writeln('For <codepage>, you can either use a code page number, or a charset name, as supported');
  Writeln('by the system.');
end {ShowUsage};

{ ------------------------------------------------------------------------------------------------ }
procedure ReadParams(var Opts, Args: TStringList);
var
  i: Integer;
  PS: string;
begin
  if not Assigned(Opts) then
    Opts := TStringList.Create;
  if not Assigned(Args) then
    Args := TStringList.Create;

  for i := 1 to ParamCount do begin
    PS := ParamStr(i);
    if PS.StartsWith('/') then begin
      PS := PS.Remove(0, 1);

      if PS.Equals('?') then begin
        ShowUsage;
        Halt(0);
      end;

      Opts.Add(PS);
    end else begin
      Args.Add(PS);
    end;
  end;
end {ReadParams};

{ ------------------------------------------------------------------------------------------------ }
procedure ConvertStream(const StreamIn: TStream; const EncIn: TEncoding;
                        const StreamOut: TStream; const EncOut: TEncoding);
var
  SR: TStreamReader;
  SW: TStreamWriter;
begin
  SR := TStreamReader.Create(StreamIn, EncIn);
  try
    SW := TStreamWriter.Create(StreamOut, EncOut);
    try
      SW.Write(SR.ReadToEnd);
    finally
      SW.Free;
    end;
  finally
    SR.Free;
  end;
end {ConvertStream};



////////////////////////////////////////////////////////////////////////////////////////////////////
var
  Opts, Args: TStringList;
  StreamIn, StreamOut: TStream;
  CharsetIn, CharsetOut: string;
  CPIn, CPOut: Integer;
  EncIn, EncOut: TEncoding;
  FileIn, FileOut: TFileName;
begin

  try
    ReadParams(Opts, Args);
    try
      if (Args.Count < 1) or (Args.Count > 2) then begin
        ShowUsage('Unexpected number of parameters.');
        ExitCode := 1;
        Exit;
      end;

      if Args.Count < 2 then
        Args.Add(Args[0]);

      CharsetIn := Opts.Values['r'];
      if CharsetIn = '' then begin
        if Args[0] = '-' then
          EncIn := TEncoding.GetEncoding(CP_OEMCP)
        else
          EncIn := TEncoding.Default;
      end else if TryStrToInt(CharsetIn, CPIn) then begin
        EncIn := TEncoding.GetEncoding(CPIn);
      end else begin
        EncIn := TEncoding.GetEncoding(CharsetIn);
      end;

      CharsetOut := Opts.Values['w'];
      if TryStrToInt(CharsetOut, CPOut) then begin
        EncOut := TEncoding.GetEncoding(CPOut);
      end else begin
        EncOut := TEncoding.GetEncoding(CharsetOut);
      end;

      // TODO: if fileout exists (but is not '-'), we need to do ReplaceFile

      FileIn := Args[0];
      if FileIn = '-' then begin
        StreamIn := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
      end else begin
        StreamIn := TFileStream.Create(FileIn, fmOpenRead or fmShareDenyNone);
      end;
      try

        FileOut := Args[1];
        if FileOut = '-' then begin
          StreamOut := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE));
        end else begin
          if DirectoryExists(FileOut) then begin
            if FileIn = '-' then
              raise Exception.Create('Cannot copy from stdin to a directory!')
            else
              FileOut := IncludeTrailingPathDelimiter(FileOut) + ExtractFileName(FileIn);
          end;
          StreamOut := TFileStream.Create(FileOut, fmCreate or fmShareDenyWrite);
        end;
        try

          ConvertStream(StreamIn, EncIn, StreamOut, EncOut);

        finally
          StreamOut.Free;
        end;
      finally
        StreamIn.Free;
      end;
    finally
      Opts.Free;
      Args.Free;
    end;
  except
    on E: Exception do begin
      Writeln(ErrOutput, E.ClassName, ': ', E.Message);
      ExitCode := -1;
    end;
  end;
end.

Added src/ConvertCharset.dproj.













































































































































































































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
        <ProjectGuid>{56429C4C-8362-45F9-B2D3-0A2FAF992B9C}</ProjectGuid>
        <ProjectVersion>15.3</ProjectVersion>
        <FrameworkType>None</FrameworkType>
        <MainSource>ConvertCharset.dpr</MainSource>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Debug</Config>
        <Platform Condition="'$(Platform)'==''">Win32</Platform>
        <TargetedPlatforms>1</TargetedPlatforms>
        <AppType>Console</AppType>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
        <Base_Android>true</Base_Android>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='iOSDevice' and '$(Base)'=='true') or '$(Base_iOSDevice)'!=''">
        <Base_iOSDevice>true</Base_iOSDevice>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Base)'=='true') or '$(Base_iOSSimulator)'!=''">
        <Base_iOSSimulator>true</Base_iOSSimulator>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
        <Base_OSX32>true</Base_OSX32>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
        <Base_Win32>true</Base_Win32>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
        <Base_Win64>true</Base_Win64>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
        <Cfg_1>true</Cfg_1>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
        <Cfg_1_Win32>true</Cfg_1_Win32>
        <CfgParent>Cfg_1</CfgParent>
        <Cfg_1>true</Cfg_1>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
        <Cfg_2>true</Cfg_2>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base)'!=''">
        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
        <DCC_E>false</DCC_E>
        <DCC_N>false</DCC_N>
        <DCC_S>false</DCC_S>
        <DCC_F>false</DCC_F>
        <DCC_K>false</DCC_K>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Android)'!=''">
        <Android_LauncherIcon96>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_96x96.png</Android_LauncherIcon96>
        <Android_LauncherIcon144>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_144x144.png</Android_LauncherIcon144>
        <Android_LauncherIcon36>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png</Android_LauncherIcon36>
        <Android_LauncherIcon48>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_48x48.png</Android_LauncherIcon48>
        <DCC_UsePackage>FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;FMX.Extensions.UX;DBXInterBaseDriver;DataSnapCommon;xmlrtl;DbxCommonDriver;IndyProtocols;dbxcds;FireDACCommonDriver;soaprtl;bindengine;bindcompdbx;FMXTee;fmxFireDAC;CustomIPTransport;FireDAC;dsnap;IndyCore;IndyIPCommon;CloudService;FireDACIBDriver;FmxTeeUI;inet;RESTComponents;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
        <Android_LauncherIcon72>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png</Android_LauncherIcon72>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_iOSDevice)'!=''">
        <DCC_UsePackage>FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;FMX.Extensions.UX;DBXInterBaseDriver;DataSnapCommon;xmlrtl;DbxCommonDriver;IndyProtocols;dbxcds;FireDACCommonDriver;soaprtl;bindengine;bindcompdbx;FMXTee;fmxFireDAC;CustomIPTransport;FireDAC;dsnap;fmxase;IndyCore;IndyIPCommon;CloudService;FireDACIBDriver;FmxTeeUI;inet;RESTComponents;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_iOSSimulator)'!=''">
        <DCC_UsePackage>FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;FMX.Extensions.UX;DBXInterBaseDriver;DataSnapCommon;xmlrtl;DbxCommonDriver;IndyProtocols;dbxcds;FireDACCommonDriver;soaprtl;bindengine;bindcompdbx;FMXTee;fmxFireDAC;CustomIPTransport;FireDAC;dsnap;fmxase;IndyCore;IndyIPCommon;CloudService;FireDACIBDriver;FmxTeeUI;inet;RESTComponents;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_OSX32)'!=''">
        <DCC_ConsoleTarget>true</DCC_ConsoleTarget>
        <DCC_UsePackage>FireDACASADriver;FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;FireDACPgDriver;FireDACODBCDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;DBXInterBaseDriver;DataSnapCommon;xmlrtl;DbxCommonDriver;IndyProtocols;dbxcds;DBXMySQLDriver;FireDACCommonDriver;soaprtl;bindengine;bindcompdbx;FMXTee;fmxFireDAC;FireDACADSDriver;CustomIPTransport;FireDAC;dsnap;IndyIPServer;fmxase;IndyCore;IndyIPCommon;CloudService;FireDACIBDriver;FmxTeeUI;inet;fmxobj;FireDACMySQLDriver;inetdbxpress;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Win32)'!=''">
        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
        <VerInfo_Locale>1033</VerInfo_Locale>
        <DCC_ConsoleTarget>true</DCC_ConsoleTarget>
        <DCC_UsePackage>frxDB19;FireDACASADriver;FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;vcldbx;FireDACPgDriver;FireDACODBCDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;TeeDB;frx19;FMX.Extensions.UX;inetdbbde;DBXInterBaseDriver;Tee;DataSnapCommon;vclFireDAC;xmlrtl;svnui;DbxCommonDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;FireDACCommonDriver;MetropolisUILiveTile;soaprtl;bindengine;vclactnband;vcldb;bindcompdbx;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;fmxFireDAC;FireDACADSDriver;vcltouch;CustomIPTransport;vclribbon;VclSmp;FireDAC;dsnap;IndyIPServer;Intraweb;fmxase;vcl;IndyCore;VCLRESTComponents;IndyIPCommon;CloudService;CodeSiteExpressPkg;dsnapcon;FireDACIBDriver;FmxTeeUI;inet;fmxobj;FireDACMySQLDriver;vclx;inetdbxpress;webdsnap;svn;fmxdae;frxe19;RESTComponents;bdertl;VirtualTreesR;FireDACMSAccDriver;adortl;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Win64)'!=''">
        <DCC_ConsoleTarget>true</DCC_ConsoleTarget>
        <DCC_UsePackage>FireDACASADriver;FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;FireDACPgDriver;FireDACODBCDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;TeeDB;DBXInterBaseDriver;Tee;DataSnapCommon;vclFireDAC;xmlrtl;DbxCommonDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;FireDACCommonDriver;MetropolisUILiveTile;soaprtl;bindengine;vclactnband;vcldb;bindcompdbx;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;fmxFireDAC;FireDACADSDriver;vcltouch;CustomIPTransport;vclribbon;VclSmp;FireDAC;dsnap;IndyIPServer;Intraweb;fmxase;vcl;IndyCore;VCLRESTComponents;IndyIPCommon;CloudService;dsnapcon;FireDACIBDriver;FmxTeeUI;inet;fmxobj;FireDACMySQLDriver;vclx;inetdbxpress;webdsnap;fmxdae;RESTComponents;VirtualTreesR;FireDACMSAccDriver;adortl;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1)'!=''">
        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
        <DCC_DebugDCUs>true</DCC_DebugDCUs>
        <DCC_Optimize>false</DCC_Optimize>
        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
        <DCC_RemoteDebug>true</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
        <Manifest_File>None</Manifest_File>
        <VerInfo_Locale>1033</VerInfo_Locale>
        <Debugger_RunParams>&quot;C:\MC\MM\Music\Main\Brier Bird.hml&quot; /r=949 C:\MC\Temp /w=utf-8</Debugger_RunParams>
        <DCC_RemoteDebug>false</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2)'!=''">
        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
        <DCC_DebugInformation>0</DCC_DebugInformation>
    </PropertyGroup>
    <ItemGroup>
        <DelphiCompile Include="$(MainSource)">
            <MainSource>MainSource</MainSource>
        </DelphiCompile>
        <BuildConfiguration Include="Release">
            <Key>Cfg_2</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
        <BuildConfiguration Include="Base">
            <Key>Base</Key>
        </BuildConfiguration>
        <BuildConfiguration Include="Debug">
            <Key>Cfg_1</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
    </ItemGroup>
    <ProjectExtensions>
        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
        <Borland.ProjectType/>
        <BorlandProject>
            <Delphi.Personality>
                <VersionInfo>
                    <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>
                    <VersionInfo Name="MajorVer">1</VersionInfo>
                    <VersionInfo Name="MinorVer">0</VersionInfo>
                    <VersionInfo Name="Release">0</VersionInfo>
                    <VersionInfo Name="Build">0</VersionInfo>
                    <VersionInfo Name="Debug">False</VersionInfo>
                    <VersionInfo Name="PreRelease">False</VersionInfo>
                    <VersionInfo Name="Special">False</VersionInfo>
                    <VersionInfo Name="Private">False</VersionInfo>
                    <VersionInfo Name="DLL">False</VersionInfo>
                    <VersionInfo Name="Locale">1043</VersionInfo>
                    <VersionInfo Name="CodePage">1252</VersionInfo>
                </VersionInfo>
                <VersionInfoKeys>
                    <VersionInfoKeys Name="CompanyName"/>
                    <VersionInfoKeys Name="FileDescription"/>
                    <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
                    <VersionInfoKeys Name="InternalName"/>
                    <VersionInfoKeys Name="LegalCopyright"/>
                    <VersionInfoKeys Name="LegalTrademarks"/>
                    <VersionInfoKeys Name="OriginalFilename"/>
                    <VersionInfoKeys Name="ProductName"/>
                    <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
                    <VersionInfoKeys Name="Comments"/>
                    <VersionInfoKeys Name="CFBundleName"/>
                    <VersionInfoKeys Name="CFBundleDisplayName"/>
                    <VersionInfoKeys Name="UIDeviceFamily"/>
                    <VersionInfoKeys Name="CFBundleIdentifier"/>
                    <VersionInfoKeys Name="CFBundleVersion"/>
                    <VersionInfoKeys Name="CFBundlePackageType"/>
                    <VersionInfoKeys Name="CFBundleSignature"/>
                    <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
                    <VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
                    <VersionInfoKeys Name="CFBundleExecutable"/>
                    <VersionInfoKeys Name="CFBundleResourceSpecification"/>
                    <VersionInfoKeys Name="LSRequiresIPhoneOS"/>
                    <VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
                    <VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
                    <VersionInfoKeys Name="package"/>
                    <VersionInfoKeys Name="label"/>
                    <VersionInfoKeys Name="versionCode"/>
                    <VersionInfoKeys Name="versionName"/>
                    <VersionInfoKeys Name="persistent"/>
                    <VersionInfoKeys Name="restoreAnyVersion"/>
                    <VersionInfoKeys Name="installLocation"/>
                    <VersionInfoKeys Name="largeHeap"/>
                    <VersionInfoKeys Name="theme"/>
                </VersionInfoKeys>
                <Source>
                    <Source Name="MainSource">ConvertCharset.dpr</Source>
                </Source>
                <Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k190.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp190.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
                </Excluded_Packages>
            </Delphi.Personality>
            <Deployment/>
            <Platforms>
                <Platform value="Android">False</Platform>
                <Platform value="iOSDevice">False</Platform>
                <Platform value="iOSSimulator">False</Platform>
                <Platform value="OSX32">False</Platform>
                <Platform value="Win32">True</Platform>
                <Platform value="Win64">False</Platform>
            </Platforms>
        </BorlandProject>
        <ProjectFileVersion>12</ProjectFileVersion>
    </ProjectExtensions>
    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>

Changes to src/McTools.groupproj.

1
2
3
4
5
6
7
8
9
10
11



12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37









38
39
40
41
42
43
44
45
46
47
48
	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
		<PropertyGroup>
			<ProjectGuid>{E524DCBB-5D61-4724-94C8-4232A02D3276}</ProjectGuid>
		</PropertyGroup>
		<ItemGroup>
			<Projects Include="IsWorkstationLocked.dproj">
				<Dependencies/>
			</Projects>
			<Projects Include="FinalPathNameByHandle.dproj">
				<Dependencies/>
			</Projects>



		</ItemGroup>
		<ProjectExtensions>
			<Borland.Personality>Default.Personality.12</Borland.Personality>
			<Borland.ProjectType/>
			<BorlandProject>
				<Default.Personality/>
			</BorlandProject>
		</ProjectExtensions>
		<Target Name="IsWorkstationLocked">
			<MSBuild Projects="IsWorkstationLocked.dproj"/>
		</Target>
		<Target Name="IsWorkstationLocked:Clean">
			<MSBuild Projects="IsWorkstationLocked.dproj" Targets="Clean"/>
		</Target>
		<Target Name="IsWorkstationLocked:Make">
			<MSBuild Projects="IsWorkstationLocked.dproj" Targets="Make"/>
		</Target>
		<Target Name="FinalPathNameByHandle">
			<MSBuild Projects="FinalPathNameByHandle.dproj"/>
		</Target>
		<Target Name="FinalPathNameByHandle:Clean">
			<MSBuild Projects="FinalPathNameByHandle.dproj" Targets="Clean"/>
		</Target>
		<Target Name="FinalPathNameByHandle:Make">
			<MSBuild Projects="FinalPathNameByHandle.dproj" Targets="Make"/>
		</Target>









		<Target Name="Build">
			<CallTarget Targets="IsWorkstationLocked;FinalPathNameByHandle"/>
		</Target>
		<Target Name="Clean">
			<CallTarget Targets="IsWorkstationLocked:Clean;FinalPathNameByHandle:Clean"/>
		</Target>
		<Target Name="Make">
			<CallTarget Targets="IsWorkstationLocked:Make;FinalPathNameByHandle:Make"/>
		</Target>
		<Import Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')" Project="$(BDS)\Bin\CodeGear.Group.Targets"/>
	</Project>

|
|
|
|
|
|
|
|
|
|
>
>
>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
>
>
>
>
>
>
>
>
>
|
|
|
|
|
|
|
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
	<PropertyGroup>
		<ProjectGuid>{E524DCBB-5D61-4724-94C8-4232A02D3276}</ProjectGuid>
	</PropertyGroup>
	<ItemGroup>
		<Projects Include="IsWorkstationLocked.dproj">
			<Dependencies/>
		</Projects>
		<Projects Include="FinalPathNameByHandle.dproj">
			<Dependencies/>
		</Projects>
		<Projects Include="ConvertCharset.dproj">
			<Dependencies/>
		</Projects>
	</ItemGroup>
	<ProjectExtensions>
		<Borland.Personality>Default.Personality.12</Borland.Personality>
		<Borland.ProjectType/>
		<BorlandProject>
			<Default.Personality/>
		</BorlandProject>
	</ProjectExtensions>
	<Target Name="IsWorkstationLocked">
		<MSBuild Projects="IsWorkstationLocked.dproj"/>
	</Target>
	<Target Name="IsWorkstationLocked:Clean">
		<MSBuild Projects="IsWorkstationLocked.dproj" Targets="Clean"/>
	</Target>
	<Target Name="IsWorkstationLocked:Make">
		<MSBuild Projects="IsWorkstationLocked.dproj" Targets="Make"/>
	</Target>
	<Target Name="FinalPathNameByHandle">
		<MSBuild Projects="FinalPathNameByHandle.dproj"/>
	</Target>
	<Target Name="FinalPathNameByHandle:Clean">
		<MSBuild Projects="FinalPathNameByHandle.dproj" Targets="Clean"/>
	</Target>
	<Target Name="FinalPathNameByHandle:Make">
		<MSBuild Projects="FinalPathNameByHandle.dproj" Targets="Make"/>
	</Target>
	<Target Name="ConvertCharset">
		<MSBuild Projects="ConvertCharset.dproj"/>
	</Target>
	<Target Name="ConvertCharset:Clean">
		<MSBuild Projects="ConvertCharset.dproj" Targets="Clean"/>
	</Target>
	<Target Name="ConvertCharset:Make">
		<MSBuild Projects="ConvertCharset.dproj" Targets="Make"/>
	</Target>
	<Target Name="Build">
		<CallTarget Targets="IsWorkstationLocked;FinalPathNameByHandle;ConvertCharset"/>
	</Target>
	<Target Name="Clean">
		<CallTarget Targets="IsWorkstationLocked:Clean;FinalPathNameByHandle:Clean;ConvertCharset:Clean"/>
	</Target>
	<Target Name="Make">
		<CallTarget Targets="IsWorkstationLocked:Make;FinalPathNameByHandle:Make;ConvertCharset:Make"/>
	</Target>
	<Import Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')" Project="$(BDS)\Bin\CodeGear.Group.Targets"/>
</Project>