/* * Copyright 1993-2002 Christopher Seiwald and Perforce Software, Inc. * * This file is part of Jam - see jam.c for Copyright information. */ # include "jam.h" # include "filesys.h" # include "pathsys.h" # ifdef OS_NT # ifdef __BORLANDC__ # if __BORLANDC__ < 0x550 # include <dir.h> # include <dos.h> # endif # undef PATHNAME /* cpp namespace collision */ # define _finddata_t ffblk # endif # include <io.h> # include <sys/stat.h> /* * filent.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 */ /* * 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 _finddata_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 */ 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 ); /* Now enter contents of directory */ sprintf( filespec, "%s/*", dir ); if( DEBUG_BINDSCAN ) printf( "scan directory %s\n", dir ); # if defined(__BORLANDC__) && __BORLANDC__ < 0x550 if ( ret = findfirst( filespec, finfo, FA_NORMAL | FA_DIREC ) ) return; while( !ret ) { time_t time_write = finfo->ff_fdate; time_write = (time_write << 16) | finfo->ff_ftime; f.f_base.ptr = finfo->ff_name; f.f_base.len = strlen( finfo->ff_name ); path_build( &f, filename ); (*func)( closure, filename, 1 /* stat()'ed */, time_write ); ret = findnext( finfo ); } # else handle = _findfirst( filespec, finfo ); if( ret = ( handle < 0L ) ) return; while( !ret ) { f.f_base.ptr = finfo->name; f.f_base.len = strlen( finfo->name ); path_build( &f, filename, 0 ); (*func)( closure, filename, 1 /* stat()'ed */, finfo->time_write ); ret = _findnext( handle, finfo ); } _findclose( handle ); # endif } /* * file_time() - get timestamp of file, if not done by file_dirscan() */ int file_time( const char *filename, time_t *time ) { /* On NT this is called only for C:/ */ struct stat statbuf; if( stat( filename, &statbuf ) < 0 ) return -1; *time = statbuf.st_mtime; return 0; } /* * file_archscan() - scan an archive for files */ /* Straight from SunOS */ #define ARMAG "!<arch>\n" #define SARMAG 8 #define ARFMAG "`\n" struct ar_hdr { char ar_name[16]; char ar_date[12]; char ar_uid[6]; char ar_gid[6]; char ar_mode[8]; char ar_size[10]; char ar_fmag[2]; }; # define SARFMAG 2 # define SARHDR sizeof( struct ar_hdr ) void file_archscan( const char *archive, scanback func, void *closure ) { struct ar_hdr ar_hdr; char *string_table = 0; char buf[ MAXJPATH ]; long offset; int fd; if( ( fd = open( archive, O_RDONLY | O_BINARY, 0 ) ) < 0 ) return; if( read( fd, buf, SARMAG ) != SARMAG || strncmp( ARMAG, buf, SARMAG ) ) { close( fd ); return; } offset = SARMAG; if( DEBUG_BINDSCAN ) printf( "scan archive %s\n", archive ); while( read( fd, &ar_hdr, SARHDR ) == SARHDR && !memcmp( ar_hdr.ar_fmag, ARFMAG, SARFMAG ) ) { long lar_date; long lar_size; char *name = 0; char *endname; char *c; sscanf( ar_hdr.ar_date, "%ld", &lar_date ); sscanf( ar_hdr.ar_size, "%ld", &lar_size ); lar_size = ( lar_size + 1 ) & ~1; if (ar_hdr.ar_name[0] == '/' && ar_hdr.ar_name[1] == '/' ) { /* this is the "string table" entry of the symbol table, ** which holds strings of filenames that are longer than ** 15 characters (ie. don't fit into a ar_name */ string_table = malloc(lar_size); if (read(fd, string_table, lar_size) != lar_size) printf("error reading string table\n"); offset += SARHDR + lar_size; continue; } else if (ar_hdr.ar_name[0] == '/' && ar_hdr.ar_name[1] != ' ') { /* Long filenames are recognized by "/nnnn" where nnnn is ** the offset of the string in the string table represented ** in ASCII decimals. */ name = string_table + atoi( ar_hdr.ar_name + 1 ); endname = name + strlen( name ); } else { /* normal name */ name = ar_hdr.ar_name; endname = name + sizeof( ar_hdr.ar_name ); } /* strip trailing space, slashes, and backslashes */ while( endname-- > name ) if( *endname != ' ' && *endname != '\\' && *endname != '/' ) break; *++endname = 0; /* strip leading directory names, an NT specialty */ if( c = strrchr( name, '/' ) ) name = c + 1; if( c = strrchr( name, '\\' ) ) name = c + 1; sprintf( buf, "%s(%.*s)", archive, endname - name, name ); (*func)( closure, buf, 1 /* time valid */, (time_t)lar_date ); offset += SARHDR + lar_size; lseek( fd, offset, 0 ); } close( fd ); } # endif /* NT */
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#9 | 23298 | Nick Poole |
Updating Jam source The changes here include a simplified Windows build process: the makefile now has 2 MSVC sections, one 32-bit the other 64-bit. |
||
#8 | 9909 | Perforce staff |
Header path name generation uses PATH_DELIM and not / on NT now. From Craig Allsop. Bug fix documented in RELNOTES. p4transfer.py: Transferred from production |
||
#7 | 9908 | Perforce staff |
Better string table support in file_archscan (filent.c), to support GHS librarian. Porting change. p4transfer.py: Transferred from production |
||
#6 | 2849 | rmg |
WinXP IA64 porting: set MSVCNT to the root of the SDK and MSVCVer to Win64. Jam: change handle type to long long (too much to include windows.h?); bury IA64 in the library path in Jambase. timer.cc: use long long for timer. Also pulled over main's Jamsh.bat and extended it to handle the IA64 SDK environment when MSVCVer=Win64. Finally wrote a TarBall rule for NT that works (still uses tar and cp, but written in cmd syntax), so 'jam api' works. Porting changes, noted in RELNOTES. === computer:1666: Change 40867 by perforce@tridium on 2003/01/24 09:01:01 |
||
#5 | 2493 | rmg |
Rewrite the past: update all jam's source with comments to reflect changes since about 2.3, very early 2001. Whitespace only change. === computer:1666: Change 37660 by seiwald@play-seiwald on 2002/11/06 22:41:35 Note: I regenerated jamgram.c on my linux 7.3 system prior to the submit, since patch was so unhappy trying to lay down the changes from Christopher's change. Presumably this is just due to different yacc/bison/whatever particulars on the system where Christopher made the changes originally. - rmg |
||
#4 | 2491 | rmg |
Some consting in jam to make it more compilable by C++ compilers. No functional change. === computer:1666: Change 37433 by perforce@perforce on 2002/10/30 16:08:51 Recreational const-ing of jam, for compilers that don't allow "string" to be passed as a non-const char *. This included a few places where we were modifying what could possibly have been read-only storage, oddly enough. No functional change. === computer:1666: Change 37602 by seiwald@play-seiwald on 2002/11/04 17:25:40 |
||
#3 | 1319 | rmg |
Jam 2.3 + Perforce's internal changes. This change is a drop of the Perforce internal Jam changes since the 2.3 public release. The individual changes represented herein are preserved in the //guest/richard_geiger/intjam/ branch. The intent of this drop is to provide a base, from which other contributors' Jam branches may be integrated into. It is not intended to become a packaged release in this state. We will be integrating changes from other users prior to creating the next packaged release. Please refer to the src/RELNOTES file for an overview of the changes present in this integration. - Richard Geiger Open Source Engineer at Perforce |
||
#2 | 486 | Perforce staff |
Jam 2.3. See RELNOTES for a list of changes from 2.2.x. Just about every source file was touched when jam got ANSI-fied. |
||
#1 | 2 | laura | Add Jam/MR 2.2 source |