From 94527665c27e664f480924dfdc2ace65ceec1a4b Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Fri, 17 Jan 1992 08:30:31 +0000 Subject: Initial revision --- ar.c | 172 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 172 insertions(+) create mode 100644 ar.c diff --git a/ar.c b/ar.c new file mode 100644 index 0000000..82e2e52 --- /dev/null +++ b/ar.c @@ -0,0 +1,172 @@ +/* Copyright (C) 1988, 1989, 1990, 1991 Free Software Foundation, Inc. +This file is part of GNU Make. + +GNU Make is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GNU Make is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty 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 GNU Make; see the file COPYING. If not, write to +the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ + +#include "make.h" +#include "file.h" + + +/* Defined in arscan.c. */ +extern long int ar_scan (); +extern int ar_member_touch (); +extern int ar_name_equal (); + + +/* Return nonzero if NAME is an archive-member reference, zero if not. + An archive-member reference is a name like `lib(member)'. + If a name like `lib((entry))' is used, a fatal error is signaled at + the attempt to use this unsupported feature. */ + +int +ar_name (name) + char *name; +{ + char *p = index (name, '('), *end = name + strlen (name) - 1; + + if (p == 0 || p == name || *end != ')') + return 0; + + if (p[1] == '(' && end[-1] == ')') + fatal ("attempt to use unsupported feature: `%s'", name); + + return 1; +} + + +/* Parse the archive-member reference NAME into the archive and member names. + Put the malloc'd archive name in *ARNAME_P if ARNAME_P is non-nil; + put the malloc'd member name in *MEMNAME_P if MEMNAME_P is non-nil. */ + +void +ar_parse_name (name, arname_p, memname_p) + char *name, **arname_p, **memname_p; +{ + char *p = index (name, '('), *end = name + strlen (name) - 1; + + if (arname_p != 0) + *arname_p = savestring (name, p - name); + + if (memname_p != 0) + *memname_p = savestring (p + 1, end - (p + 1)); +} + +static long int ar_member_date_1 (); + +/* Return the modtime of NAME. */ + +time_t +ar_member_date (name) + char *name; +{ + char *arname; + int arname_used = 0; + char *memname; + long int val; + + ar_parse_name (name, &arname, &memname); + + /* Make sure we know the modtime of the archive itself because + we are likely to be called just before commands to remake a + member are run, and they will change the archive itself. */ + { + struct file *arfile; + arfile = lookup_file (arname); + if (arfile == 0) + { + arfile = enter_file (arname); + arname_used = 1; + } + + (void) f_mtime (arfile, 0); + } + + val = ar_scan (arname, ar_member_date_1, (long int) memname); + + if (!arname_used) + free (arname); + free (memname); + + return (val <= 0 ? (time_t) -1 : (time_t) val); +} + +/* This function is called by `ar_scan' to find which member to look at. */ + +/* ARGSUSED */ +static long int +ar_member_date_1 (desc, mem, hdrpos, datapos, size, date, uid, gid, mode, name) + int desc; + char *mem; + long int hdrpos, datapos, size, date; + int uid, gid, mode; + char *name; +{ + return ar_name_equal (name, mem) ? date : 0; +} + +/* Set the archive-member NAME's modtime to now. */ + +int +ar_touch (name) + char *name; +{ + char *arname, *memname; + int arname_used = 0; + register int val; + + ar_parse_name (name, &arname, &memname); + + /* Make sure we know the modtime of the archive itself before we + touch the member, since this will change the archive itself. */ + { + struct file *arfile; + arfile = lookup_file (arname); + if (arfile == 0) + { + arfile = enter_file (arname); + arname_used = 1; + } + + (void) f_mtime (arfile, 0); + } + + val = 1; + switch (ar_member_touch (arname, memname)) + { + case -1: + error ("touch: Archive `%s' does not exist", arname); + break; + case -2: + error ("touch: `%s' is not a valid archive", arname); + break; + case -3: + perror_with_name ("touch: ", arname); + break; + case 1: + error ("touch: Member `%s' does not exist in `%s'", memname, arname); + break; + case 0: + val = 0; + break; + default: + error ("touch: Bad return code from ar_member_touch on `%s'", name); + } + + if (!arname_used) + free (arname); + free (memname); + + return val; +} -- cgit v1.2.3