/*
"_____FullBackupDC_080924"
"d:\___Work\"
"c"
_Zip.Exec execstr
*/
!Zip.Iter

!Zip.Srcer

!Zip.Loc

_Zip.Loc "\" "$" replall
_Zip.Srcer 1 left ^
^_Zip.Iter
"zipock" log)(
!Zip.Pocket

%%% "fd___ZipRecent\___Fire.txt"

"Robot"
"*zipfnflw"

%
% stack: ziptext inflow-search filter-exec
%

!Zip.Filter

*zipinifo

"" textwild
_Zip.Pocket ^_Zip.Source folder
"zipsrc" log)(
empty
{
%
% stack: ziptext
%
 nextfile ?

dup !Zip.Text
dup pathonly -1 right filename !Zip.Ref

%%% ^_Zip.Source
filing
"gather" log)(
read
%
% stack: ziptext
%
% folder example - |___Final/|0|1/23/2024 7:30:00 PM|
% last character of zip filename is / indicates this is a folder name
% the folder parent is Zip.Fdir
%
1 line

%
% stack: ziptext posn firstlinetext
%
"ofzip" log)(
"|" 1 4 1 parse
!Zip.Fdir
!Zip.Dtime
!Zip.Zsize
!Zip.Fname

%
% cycle through zip file folders/items in zip text
%
% stack: ziptext posn
%
{
 line isnull ?
%
% stack: ziptext posn linetext
%
% |___FinalVm.zip|1296861583|3/21/2024 5:57:46 PM|e:\_____FullBackup\|
% ...
%
% extract file stats from line
%
 *zipliner
%
% stack: ziptext posn is-zip-item
%
 {
%
% perform supplied filter exec
%
  _Zip.Filter execstr
%
% stack: ziptext posn filtered
%
/**************************************************************
*****  _Zip.FileName _Zip.Inflow found)?
**************************************************************/
  {
%
% zip text file entry, turn file name into directory
% create under Zip.Inflow name folder
%
   *zipitmfo
%
% insure the next global index ordinal
%
   *finsures !Zip.Ordinal
%
% create an entry in focused directory with YYYYMMDDhhmmss_00000000001_nn..nn.txt
% date_filesize_ordinal
% construct fire code text to impart summarized info
%
   *zipmkfoc
  } if

 } if
} loop
pop3

} loop
filing)