mirror of
https://github.com/Laex/Delphi-OpenCV.git
synced 2024-11-16 16:25:53 +01:00
37 lines
839 B
ObjectPascal
37 lines
839 B
ObjectPascal
unit cmdutils;
|
|
|
|
interface
|
|
|
|
implementation
|
|
|
|
procedure parse_loglevel(const options:pOptionDef);
|
|
Var
|
|
idx:Integer;
|
|
env:pAnsiChar;
|
|
i:Integer;
|
|
begin
|
|
idx := locate_option(options, 'loglevel');
|
|
if (idx=0) then
|
|
idx := locate_option(options, 'v');
|
|
if (idx<>0) and (ParamCount>idx) then
|
|
opt_loglevel(nil, 'loglevel', ParamStr(idx+1)));
|
|
idx = locate_option(options, 'report');
|
|
env := getenv('FFREPORT');
|
|
if Assigned(env) or (idx<>0) then
|
|
begin
|
|
init_report(env);
|
|
if Assigned(report_file) then
|
|
begin
|
|
|
|
fprintf(report_file, 'Command line:\n');
|
|
for (i = 0; i < argc; i++) {
|
|
dump_argument(argv[i]);
|
|
fputc(i < argc - 1 ? ' ' : '\n', report_file);
|
|
end;
|
|
fflush(report_file);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|