/*
extract files from indicated zip items in the focus area
*/

 filing dup &"\" !Zip.Basex
 0 !Zip.Timex
 0 !Zip.Timey
%
% get the list of all zip text items in a folder
%
% stack: srch-dir prev-dir zip-item-dir
%
 "*.txt" exch "DescendF" false "Allz" File.DirOpen
 {
  "Allz" File.DirPrev isnull ?
dup ^"curitem " logs

/*
"___varwork.zip" !Zip.Fname
"aamgspug_engage conduit gear step.txt" !Zip.Filer
"7/25/2023 6:36:12 AM" !Zip.FileDtime
"556" !Zip.FileSize
"___/RobotDiff/Robot2/aamgspug_engage conduit gear step.txt" !Zip.FileName
"___\RobotDiff\Robot2\" !Zip.Focus
"" !Zip.Ref
"n:\___Work\ZipF\" !Zip.Fdir
"Robot" !Zip.Inflow
"c:\___Work\___Zipper\___Focus\Robot\" !Zip.Outflow
"___varwork.txt" !Zip.Text
"4075116" !Zip.Ordinal
*/

dup read
execstr

_Zip.Fdir 1 left "d" le$
{

/*
"d:\___Work\___ZipRecent\___Fire.zip"
"___Fire/Robot/"
"zipmkfoc_make focused zip filings.txt"
"c:\___Work\___Zipper\___Focus\Robot\zipmkfoc_make focused zip filings.txt\"
System.ZipX
*/



_Zip.Fname ^_Zip.Fdir
dup ^"a " logs
_Zip.Focus "\" "/" replall
%%% -1 right
dup ^"b " logs
_Zip.Filer
dup ^"c " logs

_Zip.Filer ^_Zip.Outflow folder
dup ^"d " logs
%%% 4 popoff
System.ZipX
dup ^"e " logs

!Zip.Extracted

true !Zip.Exiter
dup ^"f " logs

} if

  pop
 } loop
 pop
 "Allz" File.DirClose
"allz" log)(
 exch