mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-06-26 14:28:30 +00:00
added zip from Info-ZIP
This commit is contained in:
ahgamut
Justine Tunney
parent
98c53ae526
commit
4ce5664c4b
363 changed files with 119113 additions and 0 deletions
442
third_party/infozip/zip/macos/source/recurse.c
vendored
Normal file
442
third_party/infozip/zip/macos/source/recurse.c
vendored
Normal file
|
|
@ -0,0 +1,442 @@
|
|||
/*
|
||||
These functions are based on Jim Luther's IterateDirectory() found in MoreFiles
|
||||
However, it's heavily modified by Dirk Haase
|
||||
*/
|
||||
|
||||
/*
|
||||
** IterateDirectory: File Manager directory iterator routines.
|
||||
**
|
||||
** by Jim Luther
|
||||
**
|
||||
** File: IterateDirectory.c
|
||||
**
|
||||
** Copyright (c) 1995-1998 Jim Luther and Apple Computer, Inc.
|
||||
** All rights reserved.
|
||||
**
|
||||
** You may incorporate this sample code into your applications without
|
||||
** restriction, though the sample code has been provided "AS IS" and the
|
||||
** responsibility for its operation is 100% yours.
|
||||
**
|
||||
** IterateDirectory is designed to drop into the MoreFiles sample code
|
||||
** library I wrote while in Apple Developer Technical Support
|
||||
*/
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Includes */
|
||||
/*****************************************************************************/
|
||||
|
||||
#include <Types.h>
|
||||
#include <Errors.h>
|
||||
#include <Files.h>
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
|
||||
|
||||
#include "zip.h"
|
||||
#include "macstuff.h"
|
||||
#include "helpers.h"
|
||||
#include "recurse.h"
|
||||
#include "macglob.h"
|
||||
#include "pathname.h"
|
||||
|
||||
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Macros, typedefs */
|
||||
/*****************************************************************************/
|
||||
|
||||
/* The RecurseGlobals structure is used to minimize the amount of
|
||||
** stack space used when recursively calling RecurseDirectoryLevel
|
||||
** and to hold global information that might be needed at any time.
|
||||
*/
|
||||
struct RecurseGlobals
|
||||
{
|
||||
short vRefNum;
|
||||
CInfoPBRec cPB; /* the parameter block used for
|
||||
PBGetCatInfo calls */
|
||||
unsigned char *itemName; /* the name of the current item */
|
||||
char *FullPath;
|
||||
short FullPathLen;
|
||||
OSErr result; /* temporary holder of results -
|
||||
saves 2 bytes of stack each level */
|
||||
Boolean quitFlag; /* set to true if filter wants to
|
||||
kill interation */
|
||||
unsigned short maxLevels; /* Maximum levels to
|
||||
iterate through */
|
||||
unsigned short currentLevel; /* The current level
|
||||
IterateLevel is on */
|
||||
};
|
||||
|
||||
typedef struct RecurseGlobals RecurseGlobals;
|
||||
typedef RecurseGlobals *RecurseGlobalsPtr;
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Global Vars */
|
||||
/*****************************************************************************/
|
||||
|
||||
extern MacZipGlobals MacZip;
|
||||
extern const char ResourceMark[13]; /* "XtraStuf.mac:" var is initialized in file pathname.c */
|
||||
extern int extra_fields; /* do not create extra fields if false */
|
||||
|
||||
static RecurseGlobals theGlobals;
|
||||
|
||||
static unsigned long DirLevels = 0;
|
||||
static char *buffer;
|
||||
extern int verbose; /* 1=report oddities in zip file structure */
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Prototypes */
|
||||
/*****************************************************************************/
|
||||
|
||||
int procname(char *filename, int caseflag);
|
||||
int MatchWild( char *pPat, char *pStr, int case_sens);
|
||||
Boolean IsZipFile(char *name);
|
||||
|
||||
static void RecurseDirectoryLevel(long DirID, RecurseGlobals *Globals);
|
||||
static Boolean isRegularItem( RecurseGlobals *Globals);
|
||||
static void ProcessFiles(RecurseGlobals *Globals,
|
||||
Boolean hasDataFork, Boolean hasResourceFork);
|
||||
static void ProcessDirectory(RecurseGlobals *Globals,
|
||||
Boolean IncludeItem, long DirID);
|
||||
static void ProcessItem(RecurseGlobals *Globals, long DirID);
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Functions */
|
||||
/*****************************************************************************/
|
||||
|
||||
static void RecurseDirectoryLevel(long DirID, RecurseGlobals *Globals)
|
||||
{
|
||||
char buffer2[23];
|
||||
|
||||
/* if maxLevels is zero, we aren't checking levels */
|
||||
if ( (Globals->maxLevels == 0) ||
|
||||
/* if currentLevel < maxLevels, look at this level */
|
||||
(Globals->currentLevel < Globals->maxLevels) )
|
||||
{
|
||||
short index = 1;
|
||||
|
||||
++Globals->currentLevel; /* go to next level */
|
||||
if (DirLevels < Globals->currentLevel) DirLevels = Globals->currentLevel;
|
||||
sprintf(buffer2,"Globals->currentLevel: %d",Globals->currentLevel);
|
||||
|
||||
do
|
||||
{ /* Isn't C great... What I'd give for a "WITH
|
||||
theGlobals DO" about now... */
|
||||
|
||||
/* Get next source item at the current directory level */
|
||||
Globals->cPB.dirInfo.ioFDirIndex = index;
|
||||
Globals->cPB.dirInfo.ioDrDirID = DirID;
|
||||
Globals->result = PBGetCatInfoSync((CInfoPBPtr)&Globals->cPB);
|
||||
|
||||
ShowCounter(false);
|
||||
|
||||
if ( Globals->result == noErr )
|
||||
{
|
||||
ProcessItem(Globals, DirID);
|
||||
} /* if ( Globals->result == noErr ) */
|
||||
|
||||
++index; /* prepare to get next item */
|
||||
/* time to fall back a level? */
|
||||
} while ( (Globals->result == noErr) && (!Globals->quitFlag) );
|
||||
|
||||
if ( (Globals->result == fnfErr) || /* fnfErr is OK -
|
||||
it only means we hit
|
||||
the end of this level */
|
||||
(Globals->result == afpAccessDenied) ) /* afpAccessDenied is OK,
|
||||
too - it only means we cannot see inside a directory */
|
||||
{
|
||||
Globals->result = noErr;
|
||||
}
|
||||
|
||||
--Globals->currentLevel; /* return to previous level as we leave */
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
pascal OSErr RecurseDirectory(short vRefNum,
|
||||
long thedirID,
|
||||
ConstStr255Param name,
|
||||
unsigned short maxLevels)
|
||||
{
|
||||
OSErr result;
|
||||
short theVRefNum;
|
||||
Boolean isDirectory;
|
||||
long DirID;
|
||||
|
||||
/* Get the real directory ID and make sure it is a directory */
|
||||
result = GetDirectoryID(vRefNum, thedirID, name, &DirID, &isDirectory);
|
||||
if ( result == noErr )
|
||||
{
|
||||
if ( isDirectory == true )
|
||||
{
|
||||
/* Get the real vRefNum */
|
||||
result = DetermineVRefNum(name, vRefNum, &theVRefNum);
|
||||
if ( result == noErr )
|
||||
{
|
||||
/* Set up the globals we need to access from
|
||||
the recursive routine. */
|
||||
theGlobals.cPB.hFileInfo.ioNamePtr = theGlobals.itemName;
|
||||
theGlobals.cPB.hFileInfo.ioVRefNum = theVRefNum;
|
||||
theGlobals.itemName[0] = 0;
|
||||
theGlobals.result = noErr;
|
||||
theGlobals.quitFlag = false;
|
||||
theGlobals.maxLevels = maxLevels;
|
||||
theGlobals.currentLevel = 0; /* start at level 0 */
|
||||
|
||||
/* Here we go into recursion land... */
|
||||
RecurseDirectoryLevel(DirID, &theGlobals);
|
||||
|
||||
result = theGlobals.result; /* set the result */
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
result = dirNFErr; /* a file was passed instead
|
||||
of a directory */
|
||||
}
|
||||
}
|
||||
|
||||
return ( result );
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
pascal OSErr FSpRecurseDirectory(const FSSpec *spec,
|
||||
unsigned short maxLevels)
|
||||
{
|
||||
OSErr rc;
|
||||
|
||||
theGlobals.vRefNum = spec->vRefNum;
|
||||
|
||||
/* make room for pathnames */
|
||||
theGlobals.itemName = (unsigned char *) StrCalloc(NAME_MAX);
|
||||
theGlobals.FullPath = StrCalloc(NAME_MAX);
|
||||
buffer = StrCalloc(NAME_MAX);
|
||||
|
||||
|
||||
if ((noisy) && (MacZip.DataForkOnly))
|
||||
printf("\n Warning: Datafork only \n");
|
||||
|
||||
/* reset the count to zero */
|
||||
ShowCounter(true);
|
||||
|
||||
if (noisy) leftStatusString("Build File List; Items done:");
|
||||
if (noisy) printf("\n Collecting Filenames ...");
|
||||
rc = RecurseDirectory(spec->vRefNum, spec->parID, spec->name,maxLevels);
|
||||
printerr("RecurseDirectory:",rc,rc,__LINE__,__FILE__,"");
|
||||
|
||||
if (noisy) printf("\n... done \n\n %6d matched files found \n",
|
||||
MacZip.FoundFiles);
|
||||
if (noisy) printf(" %6d folders found in %d Levels \n",
|
||||
MacZip.FoundDirectories,DirLevels);
|
||||
|
||||
if (MacZip.BytesOfData > (1024*1024))
|
||||
if (noisy) printf(" %4.3f MBytes unzipped size\n\n",
|
||||
(float) MacZip.BytesOfData/(1024*1024));
|
||||
else
|
||||
if (noisy) printf(" %4.3f KBytes unzipped size\n\n",
|
||||
(float) MacZip.BytesOfData/1024);
|
||||
|
||||
/* free all memory of pathnames */
|
||||
theGlobals.itemName = (unsigned char *) StrFree((char *)theGlobals.itemName);
|
||||
theGlobals.FullPath = StrFree(theGlobals.FullPath);
|
||||
buffer = StrFree(buffer);
|
||||
|
||||
return rc;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
/*
|
||||
* Return true if filename == zipfile
|
||||
* After the first match no further check will be done !
|
||||
*
|
||||
*/
|
||||
Boolean IsZipFile(char *filen)
|
||||
{
|
||||
static firstMatch = false;
|
||||
|
||||
if (filen == NULL)
|
||||
firstMatch = false;
|
||||
|
||||
if (!firstMatch)
|
||||
{
|
||||
if (stricmp(filen, MacZip.ZipFullPath) == 0)
|
||||
{
|
||||
firstMatch = true;
|
||||
return true;
|
||||
}
|
||||
}
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
|
||||
|
||||
static Boolean isRegularItem( RecurseGlobals *Globals)
|
||||
{
|
||||
Boolean isInvisible = false,
|
||||
isAlias = false,
|
||||
isSystem = false;
|
||||
|
||||
isSystem = !((Globals->cPB.hFileInfo.ioFlFndrInfo.fdFlags &
|
||||
(1 << 12)) == 0 );
|
||||
isInvisible = !((Globals->cPB.hFileInfo.ioFlFndrInfo.fdFlags &
|
||||
(1 << 14)) == 0 );
|
||||
isAlias = !((Globals->cPB.hFileInfo.ioFlFndrInfo.fdFlags &
|
||||
(1 << 15)) == 0);
|
||||
|
||||
if (isAlias == true)
|
||||
{
|
||||
return false;
|
||||
}
|
||||
|
||||
if (MacZip.IncludeInvisible == true)
|
||||
{
|
||||
return true;
|
||||
}
|
||||
|
||||
if ((isSystem == true) ||
|
||||
(isInvisible == true))
|
||||
{
|
||||
return false;
|
||||
}
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
static void ProcessFiles(RecurseGlobals *Globals,
|
||||
Boolean hasDataFork, Boolean hasResourceFork)
|
||||
{
|
||||
/* some file statistics */
|
||||
MacZip.FoundFiles++;
|
||||
|
||||
if (hasDataFork == true)
|
||||
{
|
||||
MacZip.BytesOfData =
|
||||
Globals->cPB.hFileInfo.ioFlLgLen +
|
||||
MacZip.BytesOfData;
|
||||
MacZip.CurrentFork = DataFork;
|
||||
MacZip.RawCountOfItems++;
|
||||
|
||||
if (MacZip.DataForkOnly == true)
|
||||
{
|
||||
procname(Globals->FullPath, false);
|
||||
hasResourceFork = false;
|
||||
}
|
||||
else
|
||||
{
|
||||
procname(Real2RfDfFilen(buffer,Globals->FullPath,
|
||||
DataFork, MacZip.MacZipMode,
|
||||
MacZip.DataForkOnly), false);
|
||||
}
|
||||
}
|
||||
|
||||
if (hasResourceFork == true)
|
||||
{
|
||||
MacZip.BytesOfData =
|
||||
Globals->cPB.hFileInfo.ioFlRLgLen +
|
||||
MacZip.BytesOfData;
|
||||
MacZip.CurrentFork = ResourceFork;
|
||||
MacZip.RawCountOfItems++;
|
||||
|
||||
procname(Real2RfDfFilen(buffer, Globals->FullPath,
|
||||
ResourceFork, MacZip.MacZipMode,
|
||||
MacZip.DataForkOnly), false);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
static void ProcessDirectory(RecurseGlobals *Globals,
|
||||
Boolean IncludeItem, long DirID)
|
||||
{
|
||||
OSErr rc;
|
||||
|
||||
MacZip.isDirectory = true;
|
||||
|
||||
GetFullPathFromID(Globals->FullPath,Globals->vRefNum, DirID,
|
||||
Globals->itemName, &rc);
|
||||
|
||||
MacZip.RawCountOfItems++;
|
||||
MacZip.FoundDirectories++;
|
||||
|
||||
if (MacZip.StoreFoldersAlso)
|
||||
{
|
||||
procname(Globals->FullPath, false);
|
||||
}
|
||||
|
||||
/* We have a directory */
|
||||
if ( !Globals->quitFlag && IncludeItem)
|
||||
{
|
||||
/* Dive again if the IterateFilterProc didn't say "quit" and dir is
|
||||
not an alias */
|
||||
RecurseDirectoryLevel(Globals->cPB.dirInfo.ioDrDirID,
|
||||
Globals);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
static void ProcessItem(RecurseGlobals *Globals, long DirID)
|
||||
{
|
||||
OSErr rc;
|
||||
Boolean IncludeItem = false, hasDataFork = false;
|
||||
Boolean hasResourceFork = false;
|
||||
|
||||
IncludeItem = isRegularItem(Globals);
|
||||
|
||||
/* Is it a File? */
|
||||
if ( (Globals->cPB.hFileInfo.ioFlAttrib & ioDirMask) == 0 )
|
||||
{
|
||||
PToCCpy(Globals->itemName,MacZip.FileName);
|
||||
MacZip.isDirectory = false;
|
||||
|
||||
hasDataFork = (Globals->cPB.hFileInfo.ioFlLgLen != 0);
|
||||
hasResourceFork = (Globals->cPB.hFileInfo.ioFlRLgLen != 0);
|
||||
|
||||
/* include also files with zero recource- and data-fork */
|
||||
if ((hasDataFork == 0) && (hasResourceFork == 0))
|
||||
hasDataFork = true;
|
||||
|
||||
if ((hasDataFork == 0) &&
|
||||
(hasResourceFork != 0) &&
|
||||
(extra_fields == false))
|
||||
{
|
||||
IncludeItem = false;
|
||||
}
|
||||
|
||||
GetFullPathFromID(Globals->FullPath,Globals->vRefNum,
|
||||
DirID, Globals->itemName, &rc);
|
||||
printerr("GetFullPathFromID:",rc,rc,__LINE__,
|
||||
__FILE__,MacZip.FileName);
|
||||
|
||||
if (IncludeItem && /* don't include the zipfile itself */
|
||||
(!IsZipFile(Globals->FullPath)) )
|
||||
{
|
||||
if (MATCH(MacZip.Pattern, MacZip.FileName, false) == true)
|
||||
{
|
||||
ProcessFiles(Globals, hasDataFork, hasResourceFork);
|
||||
} /* if (MatchWild( MacZip.FileName,MacZip.Pattern ) ==
|
||||
true) */
|
||||
} /* if (!IsZipFile(Globals->FullPath)) */
|
||||
} /* Is it a File? */
|
||||
|
||||
/* Is it a directory? */
|
||||
if ( (Globals->cPB.hFileInfo.ioFlAttrib & ioDirMask) != 0 )
|
||||
{
|
||||
ProcessDirectory(Globals,IncludeItem, DirID);
|
||||
} /* Is it a directory? */
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue