/* * Copyright 1993-2002 Christopher Seiwald and Perforce Software, Inc. * * This file is part of Jam - see jam.c for Copyright information. */ /* * fileunix.c - manipulate file names and scan directories on UNIX/AmigaOS * * 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(). * * 04/08/94 (seiwald) - Coherent/386 support added. * 12/19/94 (mikem) - solaris string table insanity support * 02/14/95 (seiwald) - parse and build /xxx properly * 05/03/96 (seiwald) - split into pathunix.c * 11/21/96 (peterk) - BEOS does not have Unix-style archives * 01/08/01 (seiwald) - closure param for file_dirscan/file_archscan * 04/03/01 (seiwald) - AIX uses SARMAG * 07/16/02 (seiwald) - Support BSD style long filename in archives. * 11/04/02 (seiwald) - const-ing for string literals * 12/27/02 (seiwald) - support for AIX big archives * 12/30/02 (seiwald) - terminate ar_hdr for solaris sscanf() * 12/30/02 (seiwald) - skip solaris' empty archive member names (/, //xxx) * 09/02/04 (tony) - Zeta porting (sic. BeOS 5.2) */ # include "jam.h" # include "filesys.h" # include "pathsys.h" # ifdef USE_FILEUNIX # if defined( OS_SEQUENT ) || \ defined( OS_DGUX ) || \ defined( OS_SCO ) || \ defined( OS_ISC ) # define PORTAR 1 # endif # if defined( OS_RHAPSODY ) || \ defined( OS_MACOSX ) || \ defined( OS_NEXT ) /* need unistd for rhapsody's proper lseek */ # include <sys/dir.h> # include <unistd.h> # define STRUCT_DIRENT struct direct # else # include <dirent.h> # define STRUCT_DIRENT struct dirent # endif # ifdef OS_COHERENT # include <arcoff.h> # define HAVE_AR # endif # if defined( OS_MVS ) || \ defined( OS_INTERIX ) #define ARMAG "!<arch>\n" #define SARMAG 8 #define ARFMAG "`\n" struct ar_hdr /* archive file member header - printable ascii */ { char ar_name[16]; /* file member name - `/' terminated */ char ar_date[12]; /* file member date - decimal */ char ar_uid[6]; /* file member user id - decimal */ char ar_gid[6]; /* file member group id - decimal */ char ar_mode[8]; /* file member mode - octal */ char ar_size[10]; /* file member size - decimal */ char ar_fmag[2]; /* ARFMAG - string to end header */ }; # define HAVE_AR # endif # if defined( OS_QNX ) || \ defined( OS_BEOS ) || \ defined( OS_ZETA ) || \ defined( OS_MPEIX ) # define NO_AR # define HAVE_AR # endif # ifndef HAVE_AR # ifdef _AIX43 /* AIX 43 ar SUPPORTs only __AR_BIG__ */ # define __AR_BIG__ # endif # include <ar.h> # endif /* * file_dirscan() - scan a directory for files */ void file_dirscan( const char *dir, scanback func, void *closure ) { PATHNAME f; DIR *d; STRUCT_DIRENT *dirent; char filename[ MAXJPATH ]; /* 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 / : enter it */ if( f.f_dir.len == 1 && f.f_dir.ptr[0] == '/' ) (*func)( closure, dir, 0 /* not stat()'ed */, (time_t)0 ); /* Now enter contents of directory */ if( !( d = opendir( dir ) ) ) return; if( DEBUG_BINDSCAN ) printf( "scan directory %s\n", dir ); while( dirent = readdir( d ) ) { # ifdef old_sinix /* Broken structure definition on sinix. */ f.f_base.ptr = dirent->d_name - 2; # else f.f_base.ptr = dirent->d_name; # endif f.f_base.len = strlen( f.f_base.ptr ); path_build( &f, filename, 0 ); (*func)( closure, filename, 0 /* not stat()'ed */, (time_t)0 ); } closedir( d ); } /* * file_time() - get timestamp of file, if not done by file_dirscan() */ int file_time( const char *filename, time_t *time ) { struct stat statbuf; if( stat( filename, &statbuf ) < 0 ) return -1; *time = statbuf.st_mtime; return 0; } /* * file_archscan() - scan an archive for files */ # ifndef AIAMAG /* God-fearing UNIX */ # define SARFMAG 2 # define SARHDR sizeof( struct ar_hdr ) void file_archscan( const char *archive, scanback func, void *closure ) { # ifndef NO_AR struct ar_hdr ar_hdr; char buf[ MAXJPATH ]; long offset; char *string_table = 0; int fd; if( ( fd = open( archive, O_RDONLY, 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 lar_name[256]; char *dst = lar_name; /* solaris sscanf() does strlen first, so terminate somewhere */ ar_hdr.ar_fmag[0] = 0; /* Get date & size */ sscanf( ar_hdr.ar_date, "%ld", &lar_date ); sscanf( ar_hdr.ar_size, "%ld", &lar_size ); /* Handle solaris string table. ** The entry under the name // is the table, ** and entries with the name /nnnn refer to the table. */ if( ar_hdr.ar_name[0] != '/' ) { /* traditional archive entry names: ** ends at the first space, /, or null. */ char *src = ar_hdr.ar_name; const char *e = src + sizeof( ar_hdr.ar_name ); while( src < e && *src && *src != ' ' && *src != '/' ) *dst++ = *src++; } else if( 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 = (char *)malloc(lar_size); lseek(fd, offset + SARHDR, 0); if( read(fd, string_table, lar_size) != lar_size ) printf( "error reading string table\n" ); } else if( string_table && 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. */ char *src = string_table + atoi( ar_hdr.ar_name + 1 ); while( *src != '/' ) *dst++ = *src++; } /* Terminate lar_name */ *dst = 0; /* Modern (BSD4.4) long names: if the name is "#1/nnnn", ** then the actual name is the nnnn bytes after the header. */ if( !strcmp( lar_name, "#1" ) ) { int len = atoi( ar_hdr.ar_name + 3 ); if( read( fd, lar_name, len ) != len ) printf("error reading archive entry\n"); lar_name[len] = 0; } /* Build name and pass it on. */ if( lar_name[0] ) { if( DEBUG_BINDSCAN ) printf( "archive name %s found\n", lar_name ); sprintf( buf, "%s(%s)", archive, lar_name ); (*func)( closure, buf, 1 /* time valid */, (time_t)lar_date ); } /* Position at next member */ offset += SARHDR + ( ( lar_size + 1 ) & ~1 ); lseek( fd, offset, 0 ); } if (string_table) free(string_table); close( fd ); # endif /* NO_AR */ } # else /* AIAMAG - RS6000 AIX */ void file_archscan( const char *archive, scanback func, void *closure ) { struct fl_hdr fl_hdr; struct { struct ar_hdr hdr; char pad[ 256 ]; } ar_hdr ; char buf[ MAXJPATH ]; long offset; int fd; if( ( fd = open( archive, O_RDONLY, 0 ) ) < 0 ) return; # ifdef __AR_BIG__ if( read( fd, (char *)&fl_hdr, FL_HSZ ) != FL_HSZ || strncmp( AIAMAGBIG, fl_hdr.fl_magic, SAIAMAG ) ) { if( strncmp( AIAMAG, fl_hdr.fl_magic, SAIAMAG ) ) printf( "Can't read new archive %s before AIX 4.3.\n" ); close( fd ); return; } # else if( read( fd, (char *)&fl_hdr, FL_HSZ ) != FL_HSZ || strncmp( AIAMAG, fl_hdr.fl_magic, SAIAMAG ) ) { close( fd ); return; } # endif sscanf( fl_hdr.fl_fstmoff, "%ld", &offset ); if( DEBUG_BINDSCAN ) printf( "scan archive %s\n", archive ); while( offset > 0 && lseek( fd, offset, 0 ) >= 0 && read( fd, &ar_hdr, sizeof( ar_hdr ) ) >= sizeof( ar_hdr.hdr ) ) { long lar_date; int lar_namlen; sscanf( ar_hdr.hdr.ar_namlen, "%d", &lar_namlen ); sscanf( ar_hdr.hdr.ar_date, "%ld", &lar_date ); sscanf( ar_hdr.hdr.ar_nxtmem, "%ld", &offset ); if( !lar_namlen ) continue; ar_hdr.hdr._ar_name.ar_name[ lar_namlen ] = '\0'; sprintf( buf, "%s(%s)", archive, ar_hdr.hdr._ar_name.ar_name ); (*func)( closure, buf, 1 /* time valid */, (time_t)lar_date ); } close( fd ); } # endif /* AIAMAG - RS6000 AIX */ # endif /* USE_FILEUNIX */
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#15 | 9916 | brett |
Build rules for jam on Darwin 9.0. p4transfer.py: Transferred from production |
||
#14 | 9913 | Perforce staff |
Use off_t instead of long for lseek(), as cygwin seems to get confused if you use a long. Bug fix documented in RELNOTES. p4transfer.py: Transferred from production |
||
#13 | 9912 | tony |
jam and 2004.2 p4 client for AS/400. Built on AS/400 V5R2 with native ILE C/C++ compiler. Note, this build reports itself as P4/AS400/2004.2/76944 but this change contains porting changes that were required to make the build work so the changelist number is incorrect. This can be resolved with a clean build for 2005.1 at a later date. p4.sav and jam.sav are AS/400 "Save Files" that can be used to install the software on an AS/400 machine. The p4.sav file includes the p4.cmd and p4sync.cmd files we distributed with our older AS/400 builds. These files define a forms-type interface for supplying the parameters to the commands when you run them. Porting change only. No functional change. p4transfer.py: Transferred from production |
||
#12 | 9910 | tony |
Port Jam to Zeta. Zeta is a fork of BeOS so this port is broadly the same as the BeOS port. p4transfer.py: Transferred from production |
||
#11 | 2612 | rmg |
Fix three uninitialized memory reads: 1. var_expand() wasn't checking its input length when testing for the "$(<)" shortcut. 2. Solaris does a strlen() of its sscanf() input, and ar_hdr wasn't terminated. 3. Solaris archive entries / and //xxx (the string table) generated calls to time_enter() with an uninitialized file name. Bug fixes documented in RELNOTES. === computer:1666: Change 39713 by seiwald@play-seiwald on 2003/01/02 14:46:07 |
||
#10 | 2563 | rmg |
Big AIX archive support. Untested. Bug fix documented in RELNOTES. === computer:1666: Change 39590 by seiwald@play-seiwald on 2002/12/27 16:40:07 |
||
#9 | 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 |
||
#8 | 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 |
||
#7 | 2483 | rmg |
Jam macosx changes: use 'ar' instead of libtool, as ar can do incremental updates. New support for the BSD style long filenames in archives. Porting change. === computer:1666: Change 34993 by seiwald@oswald-seiwald on 2002/07/16 12:01:32 Fix archive scan (solaris and FreeBSD style) broken by change #34993. I _think_ all three forms of archive entries now work again (traditional, solaris string table, and macosx #1/xxxx ). === computer:1666: Change 35027 by seiwald@play-seiwald on 2002/07/17 11:31:20 Fix archive scan supposedly fixed in 35027 (which was to fix 34993). Now it works on MacOSX again. === computer:1666: Change 35057 by perforce@cardtrick on 2002/07/17 16:11:01 |
||
#6 | 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 |
||
#5 | 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. |
||
#4 | 67 | Laura Wingerd |
Integrate Perforce's jam changes & project page update (change 59, change 60, change 61, change 62, change 63, change 64, change 66) |
||
#3 | 5 | Perforce maintenance | Jam/MR 2.2.4 (HDRPATTERN, JAMUNAME, JAMSHELL, plus misc tweaks) | ||
#2 | 4 | Perforce maintenance | Jam/MR 2.2.2 (AmigaOS support) | ||
#1 | 2 | laura | Add Jam/MR 2.2 source |