paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added parameter to skip filesizes etc, to easier compare chmls listings.

Browse Source 
git-svn-id: trunk@15648 -
This commit is contained in:
marco 2010-07-27 18:30:47 +00:00
parent c7de16cae1
commit b1f29d4473
1 changed files with 35 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
packages/chm/src/chmls.lpr
View File

@ -38,6 +38,7 @@ type
Section : Integer; Section : Integer;
count : integer; count : integer;
donotpage: boolean; donotpage: boolean;
nameonly : boolean;
procedure OnFileEntry(Name: String; Offset, UncompressedSize, ASection: Integer); procedure OnFileEntry(Name: String; Offset, UncompressedSize, ASection: Integer);
end; end;
@ -55,7 +56,7 @@ Const
CmdNames : array [TCmdEnum] of String = ('LIST','EXTRACT','EXTRACTALL','UNBLOCK',''); CmdNames : array [TCmdEnum] of String = ('LIST','EXTRACT','EXTRACTALL','UNBLOCK','');
var var
theopts : array[1..2] of TOption; theopts : array[1..4] of TOption;
Procedure Usage; Procedure Usage;
@ -64,8 +65,9 @@ begin
Writeln(StdErr,'Usage: chmls [switches] [command] [command specific parameters]'); Writeln(StdErr,'Usage: chmls [switches] [command] [command specific parameters]');
writeln(stderr); writeln(stderr);
writeln(stderr,'Switches : '); writeln(stderr,'Switches : ');
writeln(stderr,' -h, --help : this screen'); writeln(stderr,' -h, --help : this screen');
writeln(stderr,' -n : do not page list output'); writeln(stderr,' -p, --no-page : do not page list output');
writeln(stderr,' -n,--name-only : only show "name" column in list output');
writeln(stderr); writeln(stderr);
writeln(stderr,'Where command is one of the following or if omitted, equal to LIST.'); writeln(stderr,'Where command is one of the following or if omitted, equal to LIST.');
writeln(stderr,' list <filename> [section number] '); writeln(stderr,' list <filename> [section number] ');
@ -100,6 +102,18 @@ begin
value:=#0; value:=#0;
end; end;
with theopts[2] do with theopts[2] do
begin
name:='name-only';
has_arg:=0;
flag:=nil;
end;
with theopts[3] do
begin
name:='no-page';
has_arg:=0;
flag:=nil;
end;
with theopts[4] do
begin begin
name:=''; name:='';
has_arg:=0; has_arg:=0;
@ -154,13 +168,16 @@ begin
if (Section > -1) and (ASection <> Section) then Exit; if (Section > -1) and (ASection <> Section) then Exit;
if (Count = 1) or ((Count mod 40 = 0) and not donotpage) then if (Count = 1) or ((Count mod 40 = 0) and not donotpage) then
WriteLn(StdErr, '<Section> <Offset> <UnCompSize> <Name>'); WriteLn(StdErr, '<Section> <Offset> <UnCompSize> <Name>');
Write(' '); if not nameonly then
Write(ASection); begin
Write(' '); Write(' ');
WriteStrAdj(IntToStr(Offset), 10); Write(ASection);
Write(' '); Write(' ');
WriteStrAdj(IntToStr(UncompressedSize), 11); WriteStrAdj(IntToStr(Offset), 10);
Write(' '); Write(' ');
WriteStrAdj(IntToStr(UncompressedSize), 11);
Write(' ');
end;
WriteLn(Name); WriteLn(Name);
end; end;
@ -216,6 +233,7 @@ begin
end; end;
var donotpage:boolean=false; var donotpage:boolean=false;
name_only :boolean=false;
procedure ListChm(Const Name:string;Section:Integer); procedure ListChm(Const Name:string;Section:Integer);
var var
@ -235,6 +253,7 @@ begin
JunkObject.Section:=Section; JunkObject.Section:=Section;
JunkObject.Count:=0; JunkObject.Count:=0;
JunkObject.DoNotPage:=DoNotPage; JunkObject.DoNotPage:=DoNotPage;
JunkObject.NameOnly:=Name_Only;
ITS:= TITSFReader.Create(Stream, True); ITS:= TITSFReader.Create(Stream, True);
ITS.GetCompleteFileList(@JunkObject.OnFileEntry); ITS.GetCompleteFileList(@JunkObject.OnFileEntry);
@ -408,7 +427,7 @@ begin
Writeln(stderr,'chmls, a CHM utility. (c) 2010 Free Pascal core.'); Writeln(stderr,'chmls, a CHM utility. (c) 2010 Free Pascal core.');
Writeln(Stderr); Writeln(Stderr);
repeat repeat
c:=getlongopts('hn',@theopts[1],optionindex); c:=getlongopts('hnp',@theopts[1],optionindex);
case c of case c of
#0 : begin #0 : begin
case optionindex-1 of case optionindex-1 of
@ -416,9 +435,13 @@ begin
Usage; Usage;
Halt; Halt;
end; end;
1 : name_only:=true;
2 : donotpage:=true;
end; end;
end; end;
'n' : donotpage:=true; 'p' : donotpage:=true;
'n' : name_only:=true;
'?','h' : '?','h' :
begin begin
writeln('unknown option',optopt); writeln('unknown option',optopt);