/* * package.c * * Copyright (c) 2002-2005 by Judd Vinet <jvinet@zeroflux.org> * * This program 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 of the License, or * (at your option) any later version. * * This program 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 this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, * USA. */ #include "config.h" #include <stdio.h> #include <stdlib.h> #include <limits.h> #include <fcntl.h> #include <string.h> #include <libtar.h> #include <zlib.h> /* pacman */ #include "log.h" #include "util.h" #include "error.h" #include "list.h" #include "package.h" #include "alpm.h" pmpkg_t *pkg_new() { pmpkg_t* pkg = NULL; MALLOC(pkg, sizeof(pmpkg_t)); pkg->name[0] = '\0'; pkg->version[0] = '\0'; pkg->desc[0] = '\0'; pkg->url[0] = '\0'; pkg->license = NULL; pkg->builddate[0] = '\0'; pkg->installdate[0] = '\0'; pkg->packager[0] = '\0'; pkg->md5sum[0] = '\0'; pkg->arch[0] = '\0'; pkg->size = 0; pkg->scriptlet = 0; pkg->force = 0; pkg->reason = 0; pkg->requiredby = NULL; pkg->conflicts = NULL; pkg->files = NULL; pkg->backup = NULL; pkg->depends = NULL; pkg->groups = NULL; pkg->provides = NULL; pkg->replaces = NULL; /* internal */ pkg->origin = 0; pkg->data = NULL; pkg->infolevel = 0; return(pkg); } pmpkg_t *pkg_dup(pmpkg_t *pkg) { pmpkg_t* newpkg = NULL; newpkg = (pmpkg_t *)malloc(sizeof(pmpkg_t)); if(newpkg == NULL) { return(NULL); } STRNCPY(newpkg->name, pkg->name, PKG_NAME_LEN); STRNCPY(newpkg->version, pkg->version, PKG_VERSION_LEN); STRNCPY(newpkg->desc, pkg->desc, PKG_DESC_LEN); STRNCPY(newpkg->url, pkg->url, PKG_URL_LEN); STRNCPY(newpkg->builddate, pkg->builddate, PKG_DATE_LEN); STRNCPY(newpkg->installdate, pkg->installdate, PKG_DATE_LEN); STRNCPY(newpkg->packager, pkg->packager, PKG_PACKAGER_LEN); STRNCPY(newpkg->md5sum, pkg->md5sum, PKG_MD5SUM_LEN); STRNCPY(newpkg->arch, pkg->arch, PKG_ARCH_LEN); newpkg->size = pkg->size; newpkg->force = pkg->force; newpkg->scriptlet = pkg->scriptlet; newpkg->reason = pkg->reason; newpkg->license = _alpm_list_strdup(pkg->license); newpkg->requiredby = _alpm_list_strdup(pkg->requiredby); newpkg->conflicts = _alpm_list_strdup(pkg->conflicts); newpkg->files = _alpm_list_strdup(pkg->files); newpkg->backup = _alpm_list_strdup(pkg->backup); newpkg->depends = _alpm_list_strdup(pkg->depends); newpkg->groups = _alpm_list_strdup(pkg->groups); newpkg->provides = _alpm_list_strdup(pkg->provides); newpkg->replaces = _alpm_list_strdup(pkg->replaces); /* internal */ newpkg->origin = pkg->origin; newpkg->data = (newpkg->origin == PKG_FROM_FILE) ? strdup(pkg->data) : pkg->data; newpkg->infolevel = pkg->infolevel; return(newpkg); } void pkg_free(pmpkg_t *pkg) { if(pkg == NULL) { return; } FREELIST(pkg->files); FREELIST(pkg->backup); FREELIST(pkg->depends); FREELIST(pkg->conflicts); FREELIST(pkg->requiredby); FREELIST(pkg->groups); FREELIST(pkg->provides); FREELIST(pkg->replaces); if(pkg->origin == PKG_FROM_FILE) { FREE(pkg->data); } free(pkg); return; } /* Parses the package description file for the current package * * Returns: 0 on success, 1 on error * */ static int parse_descfile(char *descfile, pmpkg_t *info, int output) { FILE* fp = NULL; char line[PATH_MAX+1]; char* ptr = NULL; char* key = NULL; int linenum = 0; if((fp = fopen(descfile, "r")) == NULL) { _alpm_log(PM_LOG_ERROR, "could not open file %s", descfile); return(-1); } while(!feof(fp)) { fgets(line, PATH_MAX, fp); linenum++; _alpm_strtrim(line); if(strlen(line) == 0 || line[0] == '#') { continue; } if(output) { _alpm_log(PM_LOG_DEBUG, "%s", line); } ptr = line; key = strsep(&ptr, "="); if(key == NULL || ptr == NULL) { _alpm_log(PM_LOG_ERROR, "%s: syntax error in description file line %d", info->name[0] != '\0' ? info->name : "error", linenum); } else { _alpm_strtrim(key); key = _alpm_strtoupper(key); _alpm_strtrim(ptr); if(!strcmp(key, "PKGNAME")) { STRNCPY(info->name, ptr, sizeof(info->name)); } else if(!strcmp(key, "PKGVER")) { STRNCPY(info->version, ptr, sizeof(info->version)); } else if(!strcmp(key, "PKGDESC")) { STRNCPY(info->desc, ptr, sizeof(info->desc)); } else if(!strcmp(key, "GROUP")) { info->groups = pm_list_add(info->groups, strdup(ptr)); } else if(!strcmp(key, "URL")) { STRNCPY(info->url, ptr, sizeof(info->url)); } else if(!strcmp(key, "LICENSE")) { info->license = pm_list_add(info->license, strdup(ptr)); } else if(!strcmp(key, "BUILDDATE")) { STRNCPY(info->builddate, ptr, sizeof(info->builddate)); } else if(!strcmp(key, "INSTALLDATE")) { STRNCPY(info->installdate, ptr, sizeof(info->installdate)); } else if(!strcmp(key, "PACKAGER")) { STRNCPY(info->packager, ptr, sizeof(info->packager)); } else if(!strcmp(key, "ARCH")) { STRNCPY(info->arch, ptr, sizeof(info->arch)); } else if(!strcmp(key, "SIZE")) { char tmp[32]; STRNCPY(tmp, ptr, sizeof(tmp)); info->size = atol(tmp); } else if(!strcmp(key, "DEPEND")) { info->depends = pm_list_add(info->depends, strdup(ptr)); } else if(!strcmp(key, "CONFLICT")) { info->conflicts = pm_list_add(info->conflicts, strdup(ptr)); } else if(!strcmp(key, "REPLACES")) { info->replaces = pm_list_add(info->replaces, strdup(ptr)); } else if(!strcmp(key, "PROVIDES")) { info->provides = pm_list_add(info->provides, strdup(ptr)); } else if(!strcmp(key, "BACKUP")) { info->backup = pm_list_add(info->backup, strdup(ptr)); } else { _alpm_log(PM_LOG_ERROR, "%s: syntax error in description file line %d", info->name[0] != '\0' ? info->name : "error", linenum); } } line[0] = '\0'; } fclose(fp); unlink(descfile); return(0); } pmpkg_t *pkg_load(char *pkgfile) { char *expath; int i; int config = 0; int filelist = 0; int scriptcheck = 0; TAR *tar; pmpkg_t *info = NULL; tartype_t gztype = { (openfunc_t)_alpm_gzopen_frontend, (closefunc_t)gzclose, (readfunc_t)gzread, (writefunc_t)gzwrite }; if(pkgfile == NULL || strlen(pkgfile) == 0) { RET_ERR(PM_ERR_WRONG_ARGS, NULL); } if(tar_open(&tar, pkgfile, &gztype, O_RDONLY, 0, TAR_GNU) == -1) { RET_ERR(PM_ERR_NOT_A_FILE, NULL); } info = pkg_new(); if(info == NULL) { tar_close(tar); RET_ERR(PM_ERR_MEMORY, NULL); } for(i = 0; !th_read(tar); i++) { if(config && filelist && scriptcheck) { /* we have everything we need */ break; } if(!strcmp(th_get_pathname(tar), ".PKGINFO")) { char *descfile; /* extract this file into /tmp. it has info for us */ descfile = strdup("/tmp/alpm_XXXXXX"); mkstemp(descfile); tar_extract_file(tar, descfile); /* parse the info file */ if(parse_descfile(descfile, info, 0) == -1) { FREE(descfile); goto error; } if(!strlen(info->name)) { _alpm_log(PM_LOG_ERROR, "missing package name in %s", pkgfile); FREE(descfile); goto error; } if(!strlen(info->version)) { _alpm_log(PM_LOG_ERROR, "missing package version in %s", pkgfile); FREE(descfile); goto error; } config = 1; FREE(descfile); continue; } else if(!strcmp(th_get_pathname(tar), "._install") || !strcmp(th_get_pathname(tar), ".INSTALL")) { info->scriptlet = 1; scriptcheck = 1; } else if(!strcmp(th_get_pathname(tar), ".FILELIST")) { /* Build info->files from the filelist */ FILE *fp; char *fn; char *str; MALLOC(str, PATH_MAX); fn = strdup("/tmp/alpm_XXXXXX"); mkstemp(fn); tar_extract_file(tar, fn); fp = fopen(fn, "r"); while(!feof(fp)) { if(fgets(str, PATH_MAX, fp) == NULL) { continue; } _alpm_strtrim(str); info->files = pm_list_add(info->files, strdup(str)); } FREE(str); fclose(fp); if(unlink(fn)) { _alpm_log(PM_LOG_WARNING, "could not remove tempfile %s", fn); } FREE(fn); filelist = 1; continue; } else { scriptcheck = 1; if(!filelist) { /* no .FILELIST present in this package.. build the filelist the */ /* old-fashioned way, one at a time */ expath = strdup(th_get_pathname(tar)); info->files = pm_list_add(info->files, expath); } } if(TH_ISREG(tar) && tar_skip_regfile(tar)) { _alpm_log(PM_LOG_ERROR, "bad package file in %s", pkgfile); goto error; } expath = NULL; } tar_close(tar); if(!config) { _alpm_log(PM_LOG_ERROR, "missing package info file in %s", pkgfile); goto error; } /* internal */ info->origin = PKG_FROM_FILE; info->data = strdup(pkgfile); info->infolevel = 0xFF; return(info); error: FREEPKG(info); tar_close(tar); return(NULL); } /* Test for existence of a package in a PMList* * of pmpkg_t* * * returns: 0 for no match * 1 for identical match * -1 for name-only match (version mismatch) */ int pkg_isin(pmpkg_t *needle, PMList *haystack) { PMList *lp; if(needle == NULL || haystack == NULL) { return(0); } for(lp = haystack; lp; lp = lp->next) { pmpkg_t *info = lp->data; if(info && !strcmp(info->name, needle->name)) { if(!strcmp(info->version, needle->version)) { return(1); } return(-1); } } return(0); } int pkg_splitname(char *target, char *name, char *version) { char tmp[PKG_FULLNAME_LEN+7]; char *p, *q; if(target == NULL) { return(-1); } /* trim path name (if any) */ if((p = strrchr(target, '/')) == NULL) { p = target; } else { p++; } STRNCPY(tmp, p, PKG_FULLNAME_LEN+7); /* trim file extension (if any) */ if((p = strstr(tmp, PM_EXT_PKG))) { *p = 0; } p = tmp + strlen(tmp); for(q = --p; *q && *q != '-'; q--); if(*q != '-' || q == tmp) { return(-1); } for(p = --q; *p && *p != '-'; p--); if(*p != '-' || p == tmp) { return(-1); } if(version) { STRNCPY(version, p+1, PKG_VERSION_LEN); } *p = 0; if(name) { STRNCPY(name, tmp, PKG_NAME_LEN); } return(0); } /* vim: set ts=2 sw=2 noet: */