Apple-2gs-SW
/
dmake
mirror of https://github.com/sheumann/dmake.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
dmake/dmake/unix/gno/arlib.c

541 lines
14 KiB
C
Raw Blame History

/* RCS -- $Header: /u/dvadura/src/generic/dmake/src/unix/RCS/arlib.c,v 1.2 1992/04/07 04:42:46 dvadura Exp $
-- SYNOPSIS -- Unix archive manipulation code.
--
-- DESCRIPTION
-- Originally this code was provided by Eric Gisin of MKS. I took
-- his code and completely rewrote it adding cacheing of lib members
-- and other various optimizations. I kept the overal functional
-- idea of the library routines as they are similar to those in GNU
-- make and felt it advantageous to maintain a similar interface.
--
-- AUTHOR
-- Dennis Vadura, dvadura@watdragon.uwaterloo.ca
-- CS DEPT, University of Waterloo, Waterloo, Ont., Canada
--
-- COPYRIGHT
-- Copyright (c) 1990 by Dennis Vadura. All rights reserved.
--
-- This program is free software; you can redistribute it and/or
-- modify it under the terms of the GNU General Public License
-- (version 1), as published by the Free Software Foundation, and
-- found in the file 'LICENSE' included with this distribution.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warrant of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
--
-- LOG
-- $Log: arlib.c,v $
* Revision 1.2 1992/04/07 04:42:46 dvadura
* Added definition of PORTAR for syn 386i boxen as they are a bit broken.
*
* Revision 1.1 1992/01/24 03:28:06 dvadura
* dmake Version 3.8, Initial revision
*
*/
/* Sun unix on 386i's has a broken ar.h that does not assume PORTAR format
* by default, so we fix it here. */
#ifdef i386
#define PORTAR 1
#endif
#include <ar.h>
#include "extern.h"
#include "sysintf.h"
/* By defining the defines below it is possible to configure the library
* code for library cacheing/non-cacheing, ASCII archive headers, and a full
* decode of the ar_hdr fields in the scan_ar function. */
#ifndef ASCARCH
#define ASCARCH 1 /* ASCII time stored in archive */
#endif
#ifndef LC
#define LC 1 /* Turn on library cacheing */
#endif
#ifndef DECODE_ALL_AR_FIELDS
#define DECODE_ALL_AR_FIELDS 0 /* decode only fields make needs*/
#endif
#if LC
# define FOUND_MEMBER FALSE
#else
# define FOUND_MEMBER TRUE
# define _cache_member(a, b, c)
# define _check_cache(a, b, c, d) FALSE
#endif
#define MAXFNAME 255 /* Max length of member name */
#define MAXMNAME 8 /* Max module name < MAXFNAME */
/* This struct is used to pass the library and member inrmation about the
* routines that perform the library seeking/cacheing */
struct ar_args {
char *lib;
char *member;
time_t time;
};
typedef struct AR {
char ar_name[MAXFNAME+1]; /* File name */
long ar_size; /* Size in bytes */
time_t ar_time; /* Modification time */
#ifdef DOS
char ar_modname[MAXMNAME+1]; /* DOS module name */
#endif
#if DECODE_ALL_AR_FIELDS
uint16 ar_mode; /* File mode */
uint16 ar_uid; /* File owner */
uint16 ar_gid; /* File group owner */
#endif
} AR, *ARPTR;
static int ar_scan ANSI((FILE *,
int (*) ANSI((FILE *, struct AR *, struct ar_args *)),
struct ar_args *));
static int ar_touch ANSI(( FILE *, time_t ));
static int time_function ANSI(( FILE *, struct AR *, struct ar_args * ));
static int touch_function ANSI(( FILE *, struct AR *, struct ar_args * ));
#if LC
static int _cache_member ANSI((char *, char *, time_t));
static int _check_cache ANSI((char *, char *, time_t *, int));
#endif
/* decoded archive header */
static AR _ar;
static off_t arhdroffset; /* member seek offset */
PUBLIC time_t
seek_arch( char *name, char *lib)/*
======================
Look for module 'name' inside 'lib'. If compiled with cacheing then first
check to see if the specified lib is cached. If so then return that time
stamp instead of looking into the library. */
{
FILE *f;
int rv;
time_t mtime;
struct ar_args args;
/* Check the cache first (if there is a cache) */
if( _check_cache(name, lib, &mtime, FALSE) ) return( mtime );
/* Open the lib file and perform the scan of the members, looking
* for our particular member. If cacheing is enabled it will be
* taken care of automatically during the scan. */
args.lib = lib;
args.member = name;
args.time = (time_t)0L;
if( (f = fopen(lib, "r")) == NIL(FILE) ) return( (time_t)0L );
rv = ar_scan(f, time_function, &args );
fclose( f );
if( rv < 0 ) Fatal("(%s): Invalid library format", lib);
return( args.time );
}
int
touch_arch(char *name, char *lib)/*
=======================
Look for module 'name' inside 'lib'. If compiled with cacheing then first
check to see if the specified lib is cached. If so then set that time
stamp and write it into the library. Returns 0 on success, non-zero
on failure. */
{
FILE *f;
int rv;
struct ar_args args;
/* Open the lib file and perform the scan of the members, looking
* for our particular member. If cacheing is enabled it will be
* taken care of automatically during the scan. */
args.lib = lib;
args.member = name;
args.time = (time_t)0L;
if( (f = fopen(lib, "r+")) == NIL(FILE) ) return( (time_t)1L );
rv = ar_scan(f, touch_function, &args );
fclose( f );
if( rv < 0 ) Fatal("(%s): Invalid library format", lib);
return( 0 );
}
static int
time_function(
/*
=============================
get library member's time, if it matches than return it in argp, if
cacheing is enabled than cache the library members also. */
FILE *f, /* library file */
struct AR *arp, /* library member header */
struct ar_args *argp)
{
int rv = _cache_member( arp->ar_name, argp->lib, arp->ar_time );
if( strcmp(argp->member, arp->ar_name) == 0 ) {
argp->time = arp->ar_time;
if( arp->ar_time == 0 && !(Glob_attr & A_SILENT) )
Warning( "(%s): Can't extract library member timestamp; using EPOCH",
argp->member);
return( rv ); /* 1 => no cacheing, 0 => cacheing */
}
return( FALSE ); /* continue scan */
}
extern time_t time ANSI(( time_t * ));
static int
touch_function(
/*
==============================
Update library member's time stamp, and write new time value into cache
if required. */
FILE *f, /* library file */
struct AR *arp, /* library member header */
struct ar_args *argp)
{
time_t now = time((time_t*) NULL); /* Current time. */
if( strcmp(argp->member, arp->ar_name) == 0 ) {
_check_cache( argp->member, argp->lib, &now, TRUE );
ar_touch(f, now );
return( TRUE );
}
return( FALSE ); /* continue scan */
}
static int
ar_scan(
/*
===========================
Scan the opened archive, and call the given function for each member found.
The function will be called with the file positioned at the beginning of
the member and it can read up to arp->ar_size bytes of the archive member.
If the function returns 1, we stop and return 1. We return 0 at the end
of the archive, or -1 if the archive has invalid format. This interface
is more general than required by "make", but it can be used by other
utilities. */
register FILE *f,
int (*function) ANSI((FILE *, struct AR *, struct ar_args *)),
struct ar_args *arg)
{
register char *p;
struct ar_hdr arhdr; /* archive member header */
int nsize; /* size of member name */
#if defined(_AIX)
struct fl_hdr flhdr; /* archive file header */
char magic[SAIAMAG]; /* size of magic string */
#else
#if ASCARCH
char magic[SARMAG];
#else
unsigned short word;
#endif
#endif
fseek( f, 0L, 0 ); /* Start at the beginning of the archive file */
#if ASCARCH
#if defined(_AIX)
fread( (char *)&flhdr, sizeof(flhdr), 1, f );
if( strncmp(flhdr.fl_magic,AIAMAG, SAIAMAG) != 0 ) return(-1);
fseek(f, atol(flhdr.fl_fstmoff), 0 ); /* postition to first member */
#else
fread( magic, sizeof(magic), 1, f );
if( strncmp(magic, ARMAG, SARMAG) != 0 ) return( -1 );
#endif
#else
fread( (char*)&word, sizeof(word), 1, f );
if( word != ARMAG ) return( -1 );
#endif
/* scan the library, calling `function' for each member
*/
while( 1 ) {
arhdroffset = ftell(f);
#if defined(_AIX)
if( fread((char*)&arhdr,sizeof(arhdr)-sizeof(arhdr._ar_name),1,f)!=1)
break;
nsize = atoi(arhdr.ar_namlen);
fseek(f, arhdroffset+(unsigned long)(((struct ar_hdr *)0)->_ar_name.ar_name), 0);
if( fread((char*)_ar.ar_name,nsize,1,f)!=1)
break;
_ar.ar_name[nsize]='\0';
#else
if( fread((char*) &arhdr, sizeof(arhdr), 1, f) != 1 ) break;
strncpy(_ar.ar_name, arhdr.ar_name, nsize = sizeof(arhdr.ar_name));
#endif
for( p = &_ar.ar_name[nsize];
--p >= _ar.ar_name && *p == ' ';);
p[1] = '\0';
if( *p == '/' ) *p = 0; /* SysV has trailing '/' */
#if !defined(_AIX)
#if ASCARCH
if( strncmp(arhdr.ar_fmag, ARFMAG, sizeof(arhdr.ar_fmag)) != 0 )
return( -1 );
_ar.ar_time = atol(arhdr.ar_date);
_ar.ar_size = atol(arhdr.ar_size);
#else
_ar.ar_time = arhdr.ar_date;
_ar.ar_size = arhdr.ar_size;
#endif
#else
#if ASCARCH
_ar.ar_time = atol(arhdr.ar_date);
_ar.ar_size = atol(arhdr.ar_nxtmem);
#else
_ar.ar_time = arhdr.ar_date;
_ar.ar_size = arhdr.ar_nxtmem;
#endif
#endif
#if DECODE_ALL_AR_FIELDS
#if ASCARCH
_ar.ar_mode = atoi(arhdr.ar_mode);
_ar.ar_uid = atoi(arhdr.ar_uid);
_ar.ar_gid = atoi(arhdr.ar_gid);
#else
_ar.ar_mode = arhdr.ar_mode;
_ar.ar_uid = arhdr.ar_uid;
_ar.ar_gid = arhdr.ar_gid;
#endif
#endif
if( (*function)(f, &_ar, arg) ) return( 1 );
#if defined(_AIX)
if( _ar.ar_size == 0L ) break;
fseek( f, (long) _ar.ar_size, 0 );
#else
fseek( f, arhdroffset + sizeof(arhdr) + ((_ar.ar_size+1) & ~1L), 0 );
#endif
}
#if !defined(_AIX)
if( !feof(f) ) return( -1 );
#endif
return 0;
}
static int
ar_touch( FILE *f, time_t now )/*
====================
touch module header timestamp. */
{
fseek(f, arhdroffset + (unsigned long)(((struct ar_hdr *)0)->ar_date), 0);
#if ASCARCH
fprintf(f, "%lu", now);
#else
fwrite((char *)now, sizeof(now), 1, f);
#endif
return( ferror(f) ? 0 : 1 );
}
#if LC
typedef struct mem {
time_t m_time; /* modify time of member*/
struct mem *m_next; /* next member in lib */
char m_valid; /* valid cache entry */
char m_name[1]; /* lib member name */
} MEM, *MEMPTR;
typedef struct lib {
struct lib *lb_next; /* next library in list */
struct mem *lb_members; /* list of lib members */
char lb_valid; /* valid cache entry */
char *lb_name; /* library name */
} LIB, *LIBPTR;
static LIBPTR _cache = NIL(LIB);
static MEMPTR _find_member ANSI(( LIBPTR, char * ));
static int
_check_cache( char *name, char *lib, time_t *pmtime, int touch )/*
==========================================
Check to see if we have cached member in lib, if so return time in pmtime
and return TRUE, otherwise return FALSE, if touch is TRUE then touch
the archive member instead. */
{
register MEMPTR mp;
register LIBPTR lp;
for( lp=_cache; lp != NIL(LIB) && lp->lb_name != lib; lp=lp->lb_next );
if( lp == NIL(LIB) ) return( FALSE );
mp = _find_member( lp, name );
if( mp == NIL(MEM) || !mp->m_valid ) return( FALSE );
if( touch == TRUE )
{
mp->m_time = *pmtime;
mp->m_valid = 1;
}
else
*pmtime = mp->m_time;
lp->lb_valid = 1;
lp->lb_members = mp;
return( TRUE );
}
static int
_cache_member( char *name, char *lib, time_t mtime )/*
===================================
Cache name in lib along with it's time */
{
register MEMPTR mp;
register LIBPTR lp;
for( lp=_cache;
lp != NIL(LIB) && lp->lb_name != NIL(char) && lp->lb_name != lib;
lp=lp->lb_next);
if( lp == NIL(LIB) )
{
lp = (LIBPTR) malloc(sizeof(LIB));
if( lp == NIL(LIB) ) No_ram();
lp->lb_name = lib;
lp->lb_members = NIL(MEM);
lp->lb_next = _cache;
lp->lb_valid = 0;
_cache = lp;
}
/* On UNIX ar does not allow multiple copies of the same .o file to live
* in the same AR file. If this is not TRUE then use the commented out
* version to set the value of mp. */
/*mp = _find_member(lp, name);*/
mp = NIL(MEM);
if( mp == NIL(MEM) )
{
mp = (MEMPTR) malloc(sizeof(char)*offsetof(MEM,m_name[strlen(name)+1]));
if( mp == NIL(MEM) ) No_ram();
strcpy( mp->m_name, name );
mp->m_time = mtime;
if( lp->lb_members == NIL(MEM) ) {
mp->m_next = mp;
lp->lb_members = mp;
}
else {
mp->m_next = lp->lb_members->m_next;
lp->lb_members->m_next = mp;
lp->lb_members = mp;
}
}
else
mp->m_time = mtime;
mp->m_valid = 1;
return( lp->lb_valid );
}
static MEMPTR
_find_member( LIBPTR lp, char *name )
{
register MEMPTR mp = lp->lb_members;
if( mp == NIL(MEM) ) return(mp);
do {
if( !strcmp(mp->m_name, name ) ) return( mp );
mp = mp->m_next;
}
while( mp != lp->lb_members );
return( NIL(MEM) );
}
#endif
void
void_lcache( char *lib, char *member )/*
============================
Void the library cache for lib. If member is NIL(char) then nuke all
of the members, if member is NOT NIL(char) then invalidate only that
member. */
{
#if LC
register LIBPTR lp;
register MEMPTR mp;
register MEMPTR tmp;
for( lp=_cache; lp != NIL(LIB) && lp->lb_name != lib; lp=lp->lb_next );
if( lp == NIL(LIB) ) return;
if( member == NIL(char) ) {
mp = lp->lb_members;
do {
tmp = mp->m_next;
(void) free( mp );
mp = tmp;
} while( mp != lp->lb_members );
lp->lb_valid = 0;
lp->lb_members = NIL(MEM);
lp->lb_name = NIL(char);
}
else {
mp=lp->lb_members;
do {
if( strcmp( member, mp->m_name) == 0 ) {
lp->lb_members = mp->m_next;
mp->m_valid = 0;
}
mp=mp->m_next;
} while( mp != lp->lb_members );
}
#endif
}
Reference in New Issue View Git Blame Copy Permalink