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: |
7dd45a3fcb361bd612d8214410ec3dc3 |
User & Date: | MCO 2014-02-26 14:51:38.708 |
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>"C:\MC\MM\Music\Main\Brier Bird.hml" /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 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> | | | | | | | | | > > > | | | | | | | | | | | | | | | | | | | | | | | | | | | | > > > > > > > > > | | | | | | | | | | | | 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> |