Commit MetaInfo
Message de Log
(empty log message)
Change Summary
Modification
| | @@ -0,0 +1,587 @@ | | 1 | +unit u_PrepBuildMain;
| | 2 | +
| | 3 | +interface
| | 4 | +
| | 5 | +uses
| | 6 | + Windows,
| | 7 | + SysUtils,
| | 8 | + StrUtils,
| | 9 | + u_dzDefaultMain,
| | 10 | + u_dzGetOpt,
| | 11 | + u_VersionInfo,
| | 12 | + i_VersionInfoAccess;
| | 13 | +
| | 14 | +type
| | 15 | + TPrepBuildMain = class(TDefaultMain)
| | 16 | + private
| | 17 | + function HandleExecOption(const _Command: string; _VersionInfo: TVersionInfo; const _Project: string): Integer;
| | 18 | + procedure WriteRcFile(const _Project: string; _VersionInfo: TVersionInfo; const _Icon: string);
| | 19 | + procedure DumpCmd;
| | 20 | + procedure WriteMainfestRcFile(const _Project: string; const _ManifestFile: string);
| | 21 | + function FileMaskOptionsToStr(const _IsPrivateBuild, _IsSpecialBuild: Boolean): string;
| | 22 | + protected
| | 23 | + procedure InitCmdLineParser; override;
| | 24 | + function doExecute: Integer; override;
| | 25 | + public
| | 26 | +
| | 27 | + end;
| | 28 | +
| | 29 | +implementation
| | 30 | +
| | 31 | +uses
| | 32 | + Dialogs,
| | 33 | + u_dzTranslator,
| | 34 | + u_dzExecutor,
| | 35 | + u_dzJclUtils,
| | 36 | + u_dzShellApiUtils,
| | 37 | + u_DofVersionInfo,
| | 38 | + d_BdsProjVersionInfo,
| | 39 | + u_CentralIniVersionInfo,
| | 40 | + d_DProjVersionInfo,
| | 41 | + d_ManifestVersionInfo;
| | 42 | +
| | 43 | +{ TPrepBuildMain }
| | 44 | +
| | 45 | +function DateTimeToString(const _Format: string; _dt: TDateTime): string;
| | 46 | +begin
| | 47 | + SysUtils.DateTimeToString(Result, _Format, _dt);
| | 48 | +end;
| | 49 | +
| | 50 | +function TPrepBuildMain.FileMaskOptionsToStr(const _IsPrivateBuild, _IsSpecialBuild: Boolean): string;
| | 51 | +
| | 52 | + procedure AddParam(var _Output: string; const _Param: string);
| | 53 | + begin
| | 54 | + if (_Output <> '') then begin
| | 55 | + _Output := _Output + '|';
| | 56 | + end;
| | 57 | + _Output := _Output + _Param;
| | 58 | + end;
| | 59 | +
| | 60 | +begin
| | 61 | + Result := '';
| | 62 | +
| | 63 | + if _IsPrivateBuild then begin
| | 64 | + AddParam(Result, 'VS_FF_PRIVATEBUILD');
| | 65 | + end;
| | 66 | +
| | 67 | + if _IsSpecialBuild then begin
| | 68 | + AddParam(Result, 'VS_FF_SPECIALBUILD');
| | 69 | + end;
| | 70 | +
| | 71 | + if (Result = '') then begin
| | 72 | + Result := '0';
| | 73 | + end;
| | 74 | +end;
| | 75 | +
| | 76 | +procedure TPrepBuildMain.WriteRcFile(const _Project: string; _VersionInfo: TVersionInfo; const _Icon: string);
| | 77 | +var
| | 78 | + fn: string;
| | 79 | + FileFlags: string;
| | 80 | + CommentText: string;
| | 81 | + t: TextFile;
| | 82 | +begin
| | 83 | + fn := ChangeFileExt(_Project, '_Version.rc');
| | 84 | + WriteLn('Writing rc file ', fn);
| | 85 | + Assignfile(t, fn);
| | 86 | + Rewrite(t);
| | 87 | + try
| | 88 | + FileFlags := FileMaskOptionsToStr(_VersionInfo.IsPrivateBuild, _VersionInfo.IsSpecialBuild);
| | 89 | + WriteLn(t, { } 'LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US');
| | 90 | + WriteLn(t);
| | 91 | + WriteLn(t, { } '1 VERSIONINFO LOADONCALL MOVEABLE DISCARDABLE IMPURE');
| | 92 | + WriteLn(t, Format('FILEVERSION %d, %d, %d, %d', [_VersionInfo.MajorVer, _VersionInfo.MinorVer, _VersionInfo.Release, _VersionInfo.Build]));
| | 93 | + WriteLn(t, Format('PRODUCTVERSION %d, %d, %d, %d',
| | 94 | + [_VersionInfo.MajorVer, _VersionInfo.MinorVer, _VersionInfo.Release, _VersionInfo.Build]));
| | 95 | + WriteLn(t, { } 'FILEFLAGSMASK VS_FFI_FILEFLAGSMASK');
| | 96 | + if FileFlags <> '0' then begin
| | 97 | + WriteLn(t, Format('FILEFLAGS %s', [FileFlags]));
| | 98 | + end;
| | 99 | + WriteLn(t, { } 'FILEOS VOS__WINDOWS32');
| | 100 | + WriteLn(t, { } 'FILETYPE VFT_APP');
| | 101 | + WriteLn(t, { } '{');
| | 102 | + WriteLn(t, { } ' BLOCK "StringFileInfo"');
| | 103 | + WriteLn(t, { } ' {');
| | 104 | + WriteLn(t, { } ' BLOCK "040904E4"');
| | 105 | + WriteLn(t, { } ' {');
| | 106 | + WriteLn(t, Format(' VALUE "CompanyName", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.CompanyName)]));
| | 107 | + WriteLn(t, Format(' VALUE "FileDescription", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.FileDescription)]));
| | 108 | + WriteLn(t, Format(' VALUE "FileVersion", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.FileVersion)]));
| | 109 | + WriteLn(t, Format(' VALUE "InternalName", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.InternalName)]));
| | 110 | + WriteLn(t, Format(' VALUE "LegalCopyright", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.LegalCopyRight)]));
| | 111 | + WriteLn(t, Format(' VALUE "LegalTrademarks", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.LegalTrademarks)]));
| | 112 | + WriteLn(t, Format(' VALUE "OriginalFilename", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.OriginalFilename)]));
| | 113 | + WriteLn(t, Format(' VALUE "ProductName", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.ProductName)]));
| | 114 | + WriteLn(t, Format(' VALUE "ProductVersion", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.ProductVersion)]));
| | 115 | + WriteLn(t, Format(' VALUE "Comments", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.Comments)]));
| | 116 | + WriteLn(t, Format(' VALUE "Revision", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.SCMRevision)]));
| | 117 | + WriteLn(t, Format(' VALUE "BuildDateTime", "%s\000"', [_VersionInfo.ResolveVariables(_VersionInfo.BuildDateTime)]));
| | 118 | + CommentText := _VersionInfo.ResolveVariables(_VersionInfo.PrivateBuildComments);
| | 119 | + if _VersionInfo.IsPrivateBuild or (CommentText <> '') then begin
| | 120 | + WriteLn(t, Format(' VALUE "PrivateBuild", "%s\000"', [CommentText]));
| | 121 | + end;
| | 122 | + CommentText := _VersionInfo.ResolveVariables(_VersionInfo.SpecialBuildComments);
| | 123 | + if _VersionInfo.IsSpecialBuild or (CommentText <> '') then begin
| | 124 | + WriteLn(t, Format(' VALUE "SpecialBuild", "%s\000"', [CommentText]));
| | 125 | + end;
| | 126 | + WriteLn(t, { } ' }');
| | 127 | + WriteLn(t, { } ' }');
| | 128 | + WriteLn(t, { } ' BLOCK "VarFileInfo"');
| | 129 | + WriteLn(t, { } ' {');
| | 130 | + WriteLn(t, { } ' VALUE "Translation", 1033, 1252');
| | 131 | + WriteLn(t, { } ' }');
| | 132 | + WriteLn(t, { } '}');
| | 133 | + if _Icon <> '' then begin
| | 134 | + WriteLn(t);
| | 135 | + WriteLn(t, Format('MAINICON ICON LOADONCALL MOVEABLE DISCARDABLE IMPURE "%s"', [ChangeFileExt(_Icon, '.ico')]));
| | 136 | + end;
| | 137 | + finally
| | 138 | + Close(t);
| | 139 | + end;
| | 140 | +end;
| | 141 | +
| | 142 | +procedure TPrepBuildMain.WriteMainfestRcFile(const _Project: string; const _ManifestFile: string);
| | 143 | +var
| | 144 | + fn: string;
| | 145 | + t: TextFile;
| | 146 | +begin
| | 147 | + fn := ChangeFileExt(_Project, '_Manifest.rc');
| | 148 | + WriteLn('Writing mainfest rc file ', fn);
| | 149 | + Assignfile(t, fn);
| | 150 | + Rewrite(t);
| | 151 | + try
| | 152 | + WriteLn(t, '#define MANIFEST_RESOURCE_ID 1');
| | 153 | + WriteLn(t, '#define RT_MANIFEST 24');
| | 154 | + WriteLn(t, Format('MANIFEST_RESOURCE_ID RT_MANIFEST "%s"', [ChangeFileExt(_ManifestFile, '.manifest')]));
| | 155 | + finally
| | 156 | + Close(t);
| | 157 | + end;
| | 158 | +end;
| | 159 | +
| | 160 | +function TPrepBuildMain.HandleExecOption(const _Command: string; _VersionInfo: TVersionInfo; const _Project: string): Integer;
| | 161 | +const
| | 162 | + DZ_MY_DOCUMENTS = 'dzMyDocuments';
| | 163 | + DZ_DATE = 'dzDate';
| | 164 | + DZ_TIME = 'dzTime';
| | 165 | + DZ_DATE_TIME = 'dzDateTime';
| | 166 | + DZ_VERSION = 'dzVersion.';
| | 167 | + DZ_PROJECT = 'dzProject';
| | 168 | + DZ_PREPBUILD = 'dzPrepBuild';
| | 169 | +var
| | 170 | + MyDoc: string;
| | 171 | + Executor: TExecutor;
| | 172 | + dt: TDateTime;
| | 173 | +begin
| | 174 | + MyDoc := TWindowsShell.GetMyDocumentsDir();
| | 175 | + Executor := TExecutor.Create;
| | 176 | + try
| | 177 | + Executor.ExeName := GetEnvironmentVariable('ComSpec');
| | 178 | + Executor.Commandline := '/c ' + _Command;
| | 179 | + Executor.Environment.Values[DZ_MY_DOCUMENTS] := MyDoc;
| | 180 | +
| | 181 | + dt := Now;
| | 182 | + Executor.Environment.Values[DZ_DATE] := DateTimeToString('yyyy-mm-dd', dt);
| | 183 | + Executor.Environment.Values[DZ_TIME] := DateTimeToString('hh-nn-ss', dt);
| | 184 | + Executor.Environment.Values[DZ_DATE_TIME] := DateTimeToString('yyyy-mm-dd_hh-nn-ss', dt);
| | 185 | + Executor.Environment.Values[DZ_PREPBUILD] := ExeName;
| | 186 | +
| | 187 | + if _Project <> '' then
| | 188 | + Executor.Environment.Values[DZ_PROJECT] := ChangeFileExt(_Project, '');
| | 189 | +
| | 190 | + if Assigned(_VersionInfo) then begin
| | 191 | + Executor.Environment.Values[DZ_VERSION + 'MajorVer'] := IntToStr(_VersionInfo.MajorVer);
| | 192 | + Executor.Environment.Values[DZ_VERSION + 'MinorVer'] := IntToStr(_VersionInfo.MinorVer);
| | 193 | + Executor.Environment.Values[DZ_VERSION + 'Release'] := IntToStr(_VersionInfo.Release);
| | 194 | + Executor.Environment.Values[DZ_VERSION + 'Build'] := IntToStr(_VersionInfo.Build);
| | 195 | + Executor.Environment.Values[DZ_VERSION + 'FileDesc'] := _VersionInfo.FileDescription;
| | 196 | + Executor.Environment.Values[DZ_VERSION + 'InternalName'] := _VersionInfo.InternalName;
| | 197 | + Executor.Environment.Values[DZ_VERSION + 'OriginalName'] := _VersionInfo.OriginalFilename;
| | 198 | + Executor.Environment.Values[DZ_VERSION + 'Product'] := _VersionInfo.ProductName;
| | 199 | + Executor.Environment.Values[DZ_VERSION + 'ProductVersion'] := _VersionInfo.ProductVersion;
| | 200 | + Executor.Environment.Values[DZ_VERSION + 'Company'] := _VersionInfo.CompanyName;
| | 201 | + Executor.Environment.Values[DZ_VERSION + 'Copyright'] := _VersionInfo.LegalCopyRight;
| | 202 | + Executor.Environment.Values[DZ_VERSION + 'Trademark'] := _VersionInfo.LegalTrademarks;
| | 203 | + Executor.Environment.Values[DZ_VERSION + 'Comments'] := _VersionInfo.Comments;
| | 204 | + Executor.Environment.Values[DZ_VERSION + 'Revision'] := _VersionInfo.SCMRevision;
| | 205 | + Executor.Environment.Values[DZ_VERSION + 'BuildDateTime'] := _VersionInfo.BuildDateTime;
| | 206 | + Executor.Environment.Values[DZ_VERSION + 'IsPrivateBuild'] := BoolToStr(_VersionInfo.IsPrivateBuild, True);
| | 207 | + Executor.Environment.Values[DZ_VERSION + 'IsSpecialBuild'] := BoolToStr(_VersionInfo.IsSpecialBuild, True);
| | 208 | + Executor.Environment.Values[DZ_VERSION + 'PrivateBuild'] := _VersionInfo.PrivateBuildComments;
| | 209 | + Executor.Environment.Values[DZ_VERSION + 'SpecialBuild'] := _VersionInfo.SpecialBuildComments;
| | 210 | + end;
| | 211 | +
| | 212 | + Executor.doExecute;
| | 213 | + Executor.Wait(INFINITE);
| | 214 | + Result := Executor.ExitCode;
| | 215 | + finally
| | 216 | + Executor.Free;
| | 217 | + end;
| | 218 | +end;
| | 219 | +
| | 220 | +procedure TPrepBuildMain.DumpCmd;
| | 221 | +var
| | 222 | + i: Integer;
| | 223 | + s: string;
| | 224 | +begin
| | 225 | + s := GetCurrentDir + #13#10 + ParamStr(0) + #13#10;
| | 226 | + for i := 0 to FGetOpt.OptionsFoundList.Count - 1 do begin
| | 227 | + s := s + FGetOpt.OptionsFoundList.Items[i].Name + '=' + FGetOpt.OptionsFoundList.Items[i].Value + #13#10;
| | 228 | + end;
| | 229 | + MessageDlg(s, mtInformation, [mbOK], 0);
| | 230 | + SysUtils.Abort;
| | 231 | +end;
| | 232 | +
| | 233 | +function UnquoteStr(const _s: string): string;
| | 234 | +begin
| | 235 | + Result := AnsiDequotedStr(_s, '"');
| | 236 | +end;
| | 237 | +
| | 238 | +function TPrepBuildMain.doExecute: Integer;
| | 239 | +var
| | 240 | + Param: string;
| | 241 | + VerInfoAccess: IVersionInfoAccess;
| | 242 | + VersionInfo: TVersionInfo;
| | 243 | + IntValue: Integer;
| | 244 | + IconFile: string;
| | 245 | + ProjectFn: string;
| | 246 | + InputManifest: string;
| | 247 | + Manifest: string;
| | 248 | + IgnoreManifestErrors: Boolean;
| | 249 | + s: string;
| | 250 | + Theming: string;
| | 251 | + ThemingAccess: IThemingAccess;
| | 252 | +begin
| | 253 | + try
| | 254 | + WriteLn('dzPrepBuild version ' + TApplication_GetFileVersion + ' built ' + TApplication_GetProductVersion);
| | 255 | +
| | 256 | + if FGetOpt.OptionsFoundList.Count = 0 then
| | 257 | + Usage(_('You must supply some options.'));
| | 258 | +
| | 259 | + if FGetOpt.OptionPassed('dumpcmd') then
| | 260 | + DumpCmd;
| | 261 | +
| | 262 | + ProjectFn := '';
| | 263 | + if FGetOpt.OptionPassed('ReadDof', ProjectFn) then begin
| | 264 | + ProjectFn := UnquoteStr(ProjectFn);
| | 265 | + VerInfoAccess := TDofVersionInfo.Create(ProjectFn);
| | 266 | + end;
| | 267 | +
| | 268 | + if FGetOpt.OptionPassed('ReadBdsProj', ProjectFn) then begin
| | 269 | + if Assigned(VerInfoAccess) then
| | 270 | + raise Exception.Create(_('You can only pass one of --ReadDof, --ReadBdsproj, --ReadDproj or --ReadIni'));
| | 271 | + ProjectFn := UnquoteStr(ProjectFn);
| | 272 | + VerInfoAccess := Tdm_BdsProjVersionInfo.Create(ProjectFn);
| | 273 | + end;
| | 274 | +
| | 275 | + if FGetOpt.OptionPassed('ReadIni', ProjectFn) then begin
| | 276 | + if Assigned(VerInfoAccess) then
| | 277 | + raise Exception.Create(_('You can only pass one of --ReadDof, --ReadBdsproj, --ReadDproj or --ReadIni'));
| | 278 | + ProjectFn := UnquoteStr(ProjectFn);
| | 279 | + VerInfoAccess := TCentralIniVersionInfo.Create(ProjectFn);
| | 280 | + end;
| | 281 | +
| | 282 | + if FGetOpt.OptionPassed('ReadDproj', ProjectFn) then begin
| | 283 | + if Assigned(VerInfoAccess) then
| | 284 | + raise Exception.Create(_('You can only pass one of --ReadDof, --ReadBdsproj, --ReadDproj or --ReadIni'));
| | 285 | + ProjectFn := UnquoteStr(ProjectFn);
| | 286 | + VerInfoAccess := Tdm_DProjVersionInfo.Create(ProjectFn);
| | 287 | + end;
| | 288 | +
| | 289 | + VersionInfo := TVersionInfo.Create;
| | 290 | + try
| | 291 | + if Assigned(VerInfoAccess) then begin
| | 292 | + WriteLn('Reading ' + VerInfoAccess.VerInfoFilename);
| | 293 | + VerInfoAccess.ReadFromFile(VersionInfo);
| | 294 | + VerInfoAccess := nil;
| | 295 | + end;
| | 296 | +
| | 297 | + if FGetOpt.OptionPassed('MajorVer', Param) then begin
| | 298 | + if not TryStrToInt(Param, IntValue) then
| | 299 | + raise Exception.Create(_('Parameter for MajorVer must be a number'));
| | 300 | + WriteLn('Setting MajorVer to ', IntValue);
| | 301 | + VersionInfo.MajorVer := IntValue;
| | 302 | + end;
| | 303 | +
| | 304 | + if FGetOpt.OptionPassed('MinorVer', Param) then begin
| | 305 | + if not TryStrToInt(Param, IntValue) then
| | 306 | + raise Exception.Create(_('Parameter for MinorVer must be a number'));
| | 307 | + WriteLn('Setting MinorVer to ', IntValue);
| | 308 | + VersionInfo.MinorVer := IntValue;
| | 309 | + end;
| | 310 | +
| | 311 | + if FGetOpt.OptionPassed('Release', Param) then begin
| | 312 | + if not TryStrToInt(Param, IntValue) then
| | 313 | + raise Exception.Create(_('Parameter for Release must be a number'));
| | 314 | + WriteLn('Setting Release to ', IntValue);
| | 315 | + VersionInfo.Release := IntValue;
| | 316 | + end;
| | 317 | +
| | 318 | + if FGetOpt.OptionPassed('Build', Param) then begin
| | 319 | + if not TryStrToInt(Param, IntValue) then
| | 320 | + raise Exception.Create(_('Parameter for Build must be a number'));
| | 321 | + WriteLn('Setting Build to ', IntValue);
| | 322 | + VersionInfo.Build := IntValue;
| | 323 | + end;
| | 324 | +
| | 325 | + if FGetOpt.OptionPassed('FileDesc', Param) then begin
| | 326 | + VersionInfo.FileDescription := UnquoteStr(Param);
| | 327 | + WriteLn('Setting FileDescription to ', VersionInfo.FileDescription);
| | 328 | + end;
| | 329 | +
| | 330 | + if FGetOpt.OptionPassed('InternalName', Param) then begin
| | 331 | + VersionInfo.InternalName := UnquoteStr(Param);
| | 332 | + WriteLn('Setting InternalName to ', VersionInfo.InternalName);
| | 333 | + end;
| | 334 | +
| | 335 | + if FGetOpt.OptionPassed('OriginalName', Param) then begin
| | 336 | + VersionInfo.OriginalFilename := UnquoteStr(Param);
| | 337 | + WriteLn('Setting OriginalFilename to ', VersionInfo.OriginalFilename);
| | 338 | + end;
| | 339 | +
| | 340 | + if FGetOpt.OptionPassed('Product', Param) then begin
| | 341 | + VersionInfo.ProductName := UnquoteStr(Param);
| | 342 | + WriteLn('Setting ProductName to ', VersionInfo.ProductName);
| | 343 | + end;
| | 344 | +
| | 345 | + if FGetOpt.OptionPassed('ProductVersion', Param) then begin
| | 346 | + VersionInfo.ProductVersion := UnquoteStr(Param);
| | 347 | + WriteLn('Setting ProductVersion to ', VersionInfo.ProductVersion);
| | 348 | + end;
| | 349 | +
| | 350 | + if FGetOpt.OptionPassed('Company', Param) then begin
| | 351 | + VersionInfo.CompanyName := UnquoteStr(Param);
| | 352 | + WriteLn('Setting CompanyName to ', VersionInfo.CompanyName);
| | 353 | + end;
| | 354 | +
| | 355 | + if FGetOpt.OptionPassed('Copyright', Param) then begin
| | 356 | + VersionInfo.LegalCopyRight := UnquoteStr(Param);
| | 357 | + WriteLn('Setting LegalCopyright to ', VersionInfo.LegalCopyRight);
| | 358 | + end;
| | 359 | +
| | 360 | + if FGetOpt.OptionPassed('Trademark', Param) then begin
| | 361 | + VersionInfo.LegalTrademarks := UnquoteStr(Param);
| | 362 | + WriteLn('Setting LegalTrademarks to ', VersionInfo.LegalTrademarks);
| | 363 | + end;
| | 364 | +
| | 365 | + if FGetOpt.OptionPassed('Comments', Param) then begin
| | 366 | + VersionInfo.Comments := UnquoteStr(Param);
| | 367 | + WriteLn('Setting Comments to ', VersionInfo.Comments);
| | 368 | + end;
| | 369 | +
| | 370 | + if FGetOpt.OptionPassed('SvnRevision', Param) then begin
| | 371 | + //*** add a svn revision as integer ("0" if not a number)
| | 372 | + VersionInfo.SCMRevision := IntToStr(StrToIntDef(UnquoteStr(Param), 0));
| | 373 | + WriteLn('Setting SCMRevision to ', VersionInfo.SCMRevision);
| | 374 | + end;
| | 375 | +
| | 376 | + if FGetOpt.OptionPassed('GitRevision', Param) then begin
| | 377 | + //*** gitRevision overwrites the svn revision
| | 378 | + VersionInfo.SCMRevision := UnquoteStr(Param);
| | 379 | + WriteLn('Setting SCMRevision to ', VersionInfo.SCMRevision);
| | 380 | + end;
| | 381 | +
| | 382 | + if FGetOpt.OptionPassed('BuildDateTime', Param) then begin
| | 383 | + VersionInfo.BuildDateTime := UnquoteStr(Param);
| | 384 | + WriteLn('Setting BuildDateTime to ', VersionInfo.BuildDateTime);
| | 385 | + end;
| | 386 | +
| | 387 | + if FGetOpt.OptionPassed('IsPrivateBuild', Param) then begin
| | 388 | + VersionInfo.IsPrivateBuild := StrToBool(UnquoteStr(Param));
| | 389 | + WriteLn('Setting IsPrivateBuild to ', VersionInfo.IsPrivateBuild);
| | 390 | + end;
| | 391 | +
| | 392 | + if FGetOpt.OptionPassed('IsSpecialBuild', Param) then begin
| | 393 | + VersionInfo.IsSpecialBuild := StrToBool(UnquoteStr(Param));
| | 394 | + WriteLn('Setting IsSpecialBuild to ', VersionInfo.IsSpecialBuild);
| | 395 | + end;
| | 396 | +
| | 397 | + if FGetOpt.OptionPassed('PrivateBuild', Param) then begin
| | 398 | + VersionInfo.PrivateBuildComments := UnquoteStr(Param);
| | 399 | + WriteLn('Setting PrivateBuildComments to ', VersionInfo.PrivateBuildComments);
| | 400 | + end;
| | 401 | +
| | 402 | + if FGetOpt.OptionPassed('SpecialBuild', Param) then begin
| | 403 | + VersionInfo.SpecialBuildComments := UnquoteStr(Param);
| | 404 | + WriteLn('Setting SpecialBuildComments to ', VersionInfo.SpecialBuildComments);
| | 405 | + end;
| | 406 | +
| | 407 | + if FGetOpt.OptionPassed('IncBuild') then begin
| | 408 | + VersionInfo.Build := VersionInfo.Build + 1;
| | 409 | + WriteLn('Incrementing build number to ', VersionInfo.Build);
| | 410 | + end;
| | 411 | +
| | 412 | + VersionInfo.UpdateFileVersion;
| | 413 | + WriteLn('FileVersion is now ', VersionInfo.FileVersion);
| | 414 | +
| | 415 | + if FGetOpt.OptionPassed('UpdateDof', Param) then begin
| | 416 | + VerInfoAccess := TDofVersionInfo.Create(Param);
| | 417 | + WriteLn('Updating ', VerInfoAccess.VerInfoFilename);
| | 418 | + VerInfoAccess.WriteToFile(VersionInfo);
| | 419 | + end;
| | 420 | +
| | 421 | + if FGetOpt.OptionPassed('UpdateBdsproj', Param) then begin
| | 422 | + VerInfoAccess := Tdm_BdsProjVersionInfo.Create(Param);
| | 423 | + WriteLn('Updating ', VerInfoAccess.VerInfoFilename);
| | 424 | + VerInfoAccess.WriteToFile(VersionInfo);
| | 425 | + end;
| | 426 | +
| | 427 | + if FGetOpt.OptionPassed('UpdateIni', Param) then begin
| | 428 | + VerInfoAccess := TCentralIniVersionInfo.Create(Param);
| | 429 | + WriteLn('Updating ', VerInfoAccess.VerInfoFilename);
| | 430 | + VerInfoAccess.WriteToFile(VersionInfo);
| | 431 | + end;
| | 432 | +
| | 433 | + if FGetOpt.OptionPassed('UpdateDproj', Param) then begin
| | 434 | + VerInfoAccess := Tdm_DProjVersionInfo.Create(Param);
| | 435 | + WriteLn('Updating ', VerInfoAccess.VerInfoFilename);
| | 436 | + VerInfoAccess.WriteToFile(VersionInfo);
| | 437 | + end;
| | 438 | +
| | 439 | + if FGetOpt.OptionPassed('InputManifest', Param) then begin
| | 440 | + InputManifest := UnquoteStr(Param);
| | 441 | + end else
| | 442 | + InputManifest := '';
| | 443 | +
| | 444 | + if FGetOpt.OptionPassed('Manifest', Param) then begin
| | 445 | + Manifest := Param;
| | 446 | + end else
| | 447 | + Manifest := '';
| | 448 | +
| | 449 | + if FGetOpt.OptionPassed('IgnoreManifestErrors') then
| | 450 | + IgnoreManifestErrors := True
| | 451 | + else
| | 452 | + IgnoreManifestErrors := False;
| | 453 | +
| | 454 | + if FGetOpt.OptionPassed('Theming', Param) then begin
| | 455 | + if SameText(Param, 'ON') then
| | 456 | + Theming := 'ON'
| | 457 | + else if SameText(Param, 'OFF') then
| | 458 | + Theming := 'OFF'
| | 459 | + else
| | 460 | + raise Exception.CreateFmt(_('Parameter for Theming ("%s") must be ON or OFF'), [Param]);
| | 461 | + end else
| | 462 | + Theming := '';
| | 463 | +
| | 464 | + if FGetOpt.OptionPassed('UpdateManifest') then begin
| | 465 | + try
| | 466 | + if InputManifest <> '' then
| | 467 | + WriteLn('Reading manifest from ', InputManifest);
| | 468 | + VerInfoAccess := Tdm_ManifestVersionInfo.Create(Manifest, InputManifest);
| | 469 | + WriteLn('Updating ', VerInfoAccess.VerInfoFilename);
| | 470 | + if Theming <> '' then begin
| | 471 | + ThemingAccess := VerInfoAccess as IThemingAccess;
| | 472 | + if Theming = 'ON' then begin
| | 473 | + WriteLn('Enableing theme support');
| | 474 | + ThemingAccess.EnableTheming;
| | 475 | + end else begin
| | 476 | + WriteLn('Disableing theme support');
| | 477 | + ThemingAccess.DisableTheming;
| | 478 | + end;
| | 479 | + end;
| | 480 | + VerInfoAccess.WriteToFile(VersionInfo);
| | 481 | + except
| | 482 | + on e: Exception do begin
| | 483 | + if IgnoreManifestErrors then
| | 484 | + WriteLn('Warning: Ignoring manifest error: ', e.Message, '(', e.ClassName, ')')
| | 485 | + else
| | 486 | + raise;
| | 487 | + end;
| | 488 | + end;
| | 489 | + end;
| | 490 | +
| | 491 | + if FGetOpt.OptionPassed('WriteManifestRc', Param) then begin
| | 492 | + WriteMainfestRcFile(Param, Manifest);
| | 493 | + end;
| | 494 | +
| | 495 | + if FGetOpt.OptionPassed('Icon', IconFile) then begin
| | 496 | + IconFile := UnquoteStr(IconFile);
| | 497 | + WriteLn('Adding icon to rcfile from ', IconFile);
| | 498 | + end else
| | 499 | + IconFile := '';
| | 500 | +
| | 501 | + if FGetOpt.OptionPassed('WriteRc', Param) then begin
| | 502 | + Param := UnquoteStr(Param);
| | 503 | + WriteRcFile(Param, VersionInfo, IconFile);
| | 504 | + end;
| | 505 | +
| | 506 | + if FGetOpt.OptionPassed('Exec', Param) then begin
| | 507 | + Param := UnquoteStr(Param);
| | 508 | + WriteLn('Executing ', Param);
| | 509 | + Flush(Output);
| | 510 | + HandleExecOption(Param, VersionInfo, ProjectFn);
| | 511 | + end;
| | 512 | +
| | 513 | + finally
| | 514 | + FreeAndNil(VersionInfo);
| | 515 | + end;
| | 516 | + Result := 0;
| | 517 | + except
| | 518 | + on e: EAbort do begin
| | 519 | + raise;
| | 520 | + end;
| | 521 | + on e: Exception do begin
| | 522 | + s := 'Error: ' + e.Message + ' (' + e.ClassName + ')';
| | 523 | + WriteLn(s);
| | 524 | + Result := 1;
| | 525 | + end;
| | 526 | + end;
| | 527 | +end;
| | 528 | +
| | 529 | +procedure TPrepBuildMain.InitCmdLineParser;
| | 530 | +begin
| | 531 | + inherited;
| | 532 | + FGetOpt.RegisterOption('dumpcmd', _('dump the commandline and exit (for debug purposes)'), False);
| | 533 | +
| | 534 | + FGetOpt.RegisterOption('ReadDof', _('read a .dof file to get the version information'), True);
| | 535 | + FGetOpt.RegisterOption('ReadBdsproj', _('read a .bdsproj file to get the version information'), True);
| | 536 | + FGetOpt.RegisterOption('ReadIni', _('read a .ini file to get the version information'), True);
| | 537 | + FGetOpt.RegisterOption('ReadDproj', _('Read a .dproj file to get the version information'), True);
| | 538 | +
| | 539 | + FGetOpt.RegisterOption('MajorVer', _('set the major version number (overwrites value from -ReadXxx option)'), True);
| | 540 | + FGetOpt.RegisterOption('MinorVer', _('set the minor version number (overwrites value from -ReadXxx option)'), True);
| | 541 | + FGetOpt.RegisterOption('Release', _('set the release number (overwrites value from -ReadXxx option)'), True);
| | 542 | + FGetOpt.RegisterOption('Build', _('set the build number (overwrites value from -ReadXxx option)'), True);
| | 543 | +
| | 544 | + FGetOpt.RegisterOption('FileDesc', _('set the file description (overwrites value from -ReadXxx option)'), True);
| | 545 | + FGetOpt.RegisterOption('InternalName', _('set the internal name (overwrites value from -ReadXxx option)'), True);
| | 546 | + FGetOpt.RegisterOption('OriginalName', _('set the original file name (overwrites value from -ReadXxx option)'), True);
| | 547 | + FGetOpt.RegisterOption('Product', _('set the product name (overwrites value from -ReadXxx option)'), True);
| | 548 | + FGetOpt.RegisterOption('ProductVersion', _('set the product version (overwrites value from -ReadXxx option)'), True);
| | 549 | + FGetOpt.RegisterOption('Company', _('set the company name (overwrites value from -ReadXxx option)'), True);
| | 550 | + FGetOpt.RegisterOption('Copyright', _('set the legal copyright (overwrites value from -ReadXxx option)'), True);
| | 551 | + FGetOpt.RegisterOption('Trademark', _('set the legal trademark (overwrites value from -ReadXxx option)'), True);
| | 552 | + FGetOpt.RegisterOption('Comments', _('set the comments (overwrites value from -ReadXxx option)'), True);
| | 553 | +
| | 554 | + FGetOpt.RegisterOption('SvnRevision', _('set the Revision (overwrites value from -ReadXxx option)'), True);
| | 555 | + FGetOpt.RegisterOption('GitRevision', _('set the Revision (overwrites value from SvnRevision and -ReadXxx option)'), True);
| | 556 | + FGetOpt.RegisterOption('BuildDateTime', _('set the BuildDateTime (overwrites value from -ReadXxx option)'), True);
| | 557 | +
| | 558 | + FGetOpt.RegisterOption('IsPrivateBuild', _('set the private build flag (overwrites value from -ReadXxx option)'), True);
| | 559 | + FGetOpt.RegisterOption('IsSpecialBuild', _('set the special build flag (overwrites value from -ReadXxx option)'), True);
| | 560 | + FGetOpt.RegisterOption('PrivateBuild', _('set the private build comments (overwrites value from -ReadXxx option)'), True);
| | 561 | + FGetOpt.RegisterOption('SpecialBuild', _('set the special build comments (overwrites value from -ReadXxx option)'), True);
| | 562 | +
| | 563 | + FGetOpt.RegisterOption('IncBuild', _('increment the build number'), False);
| | 564 | +
| | 565 | + FGetOpt.RegisterOption('UpdateDof', _('update a .dof file with the version information'), True);
| | 566 | + FGetOpt.RegisterOption('UpdateBdsproj', _('update a .bdsproj file with the version information'), True);
| | 567 | + FGetOpt.RegisterOption('UpdateIni', _('update a .ini file with the version information'), True);
| | 568 | + FGetOpt.RegisterOption('UpdateDproj', _('update a .dproj file with the version information'), True);
| | 569 | +
| | 570 | + FGetOpt.RegisterOption('InputManifest', _('read the contents for the .manifest for the UpdateManifest option from this file'), True);
| | 571 | + FGetOpt.RegisterOption('Manifest', _('Name of the .manifest file for the UpdateManifest and WriteManifestRc options'), True);
| | 572 | + FGetOpt.RegisterOption('UpdateManifest', _('update the .manifest file (given with the Manifest option) with the version information'));
| | 573 | + FGetOpt.RegisterOption('IgnoreManifestErrors', _('ignore any errors caused by the UpdateManifest option'));
| | 574 | + FGetOpt.RegisterOption('Theming', _('Set theming support: Value must be ON or OFF'), True);
| | 575 | + FGetOpt.RegisterOption('WriteManifestRc', _('Write an .rc file for embedding the .manifest file given with the Manifest option'), True);
| | 576 | +
| | 577 | + FGetOpt.RegisterOption('Icon', _('Assign an icon file to add to the .rc file'), True);
| | 578 | +
| | 579 | + FGetOpt.RegisterOption('WriteRc', _('write version info to a .rc file'), True);
| | 580 | +
| | 581 | + FGetOpt.RegisterOption('Exec', _('execute the given program or script with extended environment'), True);
| | 582 | +end;
| | 583 | +
| | 584 | +initialization
| | 585 | + MainClass := TPrepBuildMain;
| | 586 | +end.
| | 587 | +
|
Afficher sur ancien navigateur de dépôt.
|
dummzeuch
tags/1.3.3/Debug/Win32/dcu
tags/1.3.3/src/PrepBuild.dpr
tags/1.3.3/src/d_BdsProjVersionInfo.pas
tags/1.3.3/!ReadMe.txt