mirror of
https://review.haiku-os.org/buildtools
synced 2024-11-23 07:18:49 +01:00
ecc89c9a6a
git-svn-id: file:///srv/svn/repos/haiku/buildtools/trunk@15729 a95241bf-73f2-0310-859d-f6bbb57e9c96
135 lines
3.0 KiB
C
135 lines
3.0 KiB
C
/*
|
|
* Copyright 1993-2002 Christopher Seiwald and Perforce Software, Inc.
|
|
*
|
|
* This file is part of Jam - see jam.c for Copyright information.
|
|
*/
|
|
|
|
/*
|
|
* fileos2.c - scan directories and archives on NT
|
|
*
|
|
* External routines:
|
|
*
|
|
* file_dirscan() - scan a directory for files
|
|
* file_time() - get timestamp of file, if not done by file_dirscan()
|
|
* file_archscan() - scan an archive for files
|
|
*
|
|
* File_dirscan() and file_archscan() call back a caller provided function
|
|
* for each file found. A flag to this callback function lets file_dirscan()
|
|
* and file_archscan() indicate that a timestamp is being provided with the
|
|
* file. If file_dirscan() or file_archscan() do not provide the file's
|
|
* timestamp, interested parties may later call file_time().
|
|
*
|
|
* 07/10/95 (taylor) Findfirst() returns the first file on NT.
|
|
* 05/03/96 (seiwald) split apart into pathnt.c
|
|
* 01/20/00 (seiwald) - Upgraded from K&R to ANSI C
|
|
* 09/22/00 (seiwald) handle \ and c:\ specially: don't add extra /
|
|
* 01/08/01 (seiwald) - closure param for file_dirscan/file_archscan
|
|
* 11/04/02 (seiwald) - const-ing for string literals
|
|
*/
|
|
|
|
# include "jam.h"
|
|
# include "filesys.h"
|
|
# include "pathsys.h"
|
|
|
|
# ifdef OS_OS2
|
|
|
|
# include <io.h>
|
|
# include <dos.h>
|
|
|
|
/*
|
|
* file_dirscan() - scan a directory for files
|
|
*/
|
|
|
|
void
|
|
file_dirscan(
|
|
const char *dir,
|
|
scanback func,
|
|
void *closure )
|
|
{
|
|
PATHNAME f;
|
|
char filespec[ MAXJPATH ];
|
|
char filename[ MAXJPATH ];
|
|
long handle;
|
|
int ret;
|
|
struct _find_t finfo[1];
|
|
|
|
/* First enter directory itself */
|
|
|
|
memset( (char *)&f, '\0', sizeof( f ) );
|
|
|
|
f.f_dir.ptr = dir;
|
|
f.f_dir.len = strlen(dir);
|
|
|
|
dir = *dir ? dir : ".";
|
|
|
|
/* Special case \ or d:\ : enter it */
|
|
|
|
strcpy( filespec, dir );
|
|
|
|
if( f.f_dir.len == 1 && f.f_dir.ptr[0] == '\\' )
|
|
(*func)( closure, dir, 0 /* not stat()'ed */, (time_t)0 );
|
|
else if( f.f_dir.len == 3 && f.f_dir.ptr[1] == ':' )
|
|
(*func)( closure, dir, 0 /* not stat()'ed */, (time_t)0 );
|
|
else
|
|
strcat( filespec, "/" );
|
|
|
|
strcat( filespec, "*" );
|
|
|
|
/* Now enter contents of directory */
|
|
|
|
if( DEBUG_BINDSCAN )
|
|
printf( "scan directory %s\n", filespec );
|
|
|
|
/* Time info in dos find_t is not very useful. It consists */
|
|
/* of a separate date and time, and putting them together is */
|
|
/* not easy. So we leave that to a later stat() call. */
|
|
|
|
if( !_dos_findfirst( filespec, _A_NORMAL|_A_RDONLY|_A_SUBDIR, finfo ) )
|
|
{
|
|
do
|
|
{
|
|
f.f_base.ptr = finfo->name;
|
|
f.f_base.len = strlen( finfo->name );
|
|
|
|
path_build( &f, filename, 0 );
|
|
|
|
(*func)( closure, filename, 0 /* not stat()'ed */, (time_t)0 );
|
|
}
|
|
while( !_dos_findnext( finfo ) );
|
|
}
|
|
|
|
}
|
|
|
|
/*
|
|
* file_time() - get timestamp of file, if not done by file_dirscan()
|
|
*/
|
|
|
|
int
|
|
file_time(
|
|
const char *filename,
|
|
time_t *time )
|
|
{
|
|
/* This is called on OS2, not NT. */
|
|
/* NT fills in the time in the dirscan. */
|
|
|
|
struct stat statbuf;
|
|
|
|
if( stat( filename, &statbuf ) < 0 )
|
|
return -1;
|
|
|
|
*time = statbuf.st_mtime;
|
|
|
|
return 0;
|
|
}
|
|
|
|
void
|
|
file_archscan(
|
|
const char *archive,
|
|
scanback func,
|
|
void *closure )
|
|
{
|
|
}
|
|
|
|
# endif /* OS2 */
|
|
|