55 lines
1.5 KiB
ObjectPascal
55 lines
1.5 KiB
ObjectPascal
{
|
|
* Class that emits BDiff's version information and help screen on standard
|
|
* output.
|
|
}
|
|
|
|
|
|
unit UBDiffInfoWriter;
|
|
|
|
interface
|
|
|
|
uses
|
|
UInfoWriter;
|
|
|
|
type
|
|
TBDiffInfoWriter = class(TInfoWriter)
|
|
protected
|
|
class function HelpText: string; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils,
|
|
UAppInfo;
|
|
|
|
{ TBDiffInfoWriter }
|
|
|
|
class function TBDiffInfoWriter.HelpText: string;
|
|
begin
|
|
Result := Format(
|
|
'%0:s: binary ''diff'' - compare two binary files'#13#10#13#10
|
|
+ 'Usage: %0:s [options] old-file new-file [>patch-file]'#13#10#13#10
|
|
+ 'Difference between old-file and new-file written to standard output'
|
|
+ #13#10#13#10
|
|
+ 'Valid options:'#13#10
|
|
+ ' -q Use QUOTED format'#13#10
|
|
+ ' -f Use FILTERED format'#13#10
|
|
+ ' -b Use BINARY format'#13#10
|
|
+ ' --format=FMT Use format FMT (''quoted'', ''filter[ed]'' '
|
|
+ 'or ''binary'')'#13#10
|
|
+ ' -m N --min-equal=N Minimum equal bytes to recognize an equal chunk'
|
|
+ #13#10
|
|
+ ' -o FN --output=FN Set output file name (instead of stdout)'#13#10
|
|
+ ' -V --verbose Show status messages'#13#10
|
|
+ ' -h --help Show this help screen'#13#10
|
|
+ ' -v --version Show version information'#13#10
|
|
+ #13#10
|
|
+ '(c) copyright 1999 Stefan Reuther <Streu@gmx.de>'#13#10
|
|
+ '(c) copyright 2003-2016 Peter Johnson (@delphidabbler)'#13#10,
|
|
[TAppInfo.ProgramFileName]
|
|
);
|
|
end;
|
|
|
|
end.
|