1 /* $NetBSD: perform.c,v 1.1.1.5 2009/11/05 18:39:02 joerg Exp $ */ 2 3 #if HAVE_CONFIG_H 4 #include "config.h" 5 #endif 6 #include <nbcompat.h> 7 #if HAVE_SYS_CDEFS_H 8 #include <sys/cdefs.h> 9 #endif 10 __RCSID("$NetBSD: perform.c,v 1.1.1.5 2009/11/05 18:39:02 joerg Exp $"); 11 12 /* 13 * FreeBSD install - a package for the installation and maintainance 14 * of non-core utilities. 15 * 16 * Redistribution and use in source and binary forms, with or without 17 * modification, are permitted provided that the following conditions 18 * are met: 19 * 1. Redistributions of source code must retain the above copyright 20 * notice, this list of conditions and the following disclaimer. 21 * 2. Redistributions in binary form must reproduce the above copyright 22 * notice, this list of conditions and the following disclaimer in the 23 * documentation and/or other materials provided with the distribution. 24 * 25 * Jordan K. Hubbard 26 * 18 July 1993 27 * 28 * This is the main body of the create module. 29 * 30 */ 31 32 #include "lib.h" 33 #include "create.h" 34 35 #if HAVE_ERR_H 36 #include <err.h> 37 #endif 38 #if HAVE_FCNTL_H 39 #include <fcntl.h> 40 #endif 41 #if HAVE_UNISTD_H 42 #include <unistd.h> 43 #endif 44 45 static void 46 sanity_check(void) 47 { 48 if (!Comment) 49 errx(2, "required package comment string is missing (-c comment)"); 50 if (!Desc) 51 errx(2, "required package description string is missing (-d desc)"); 52 if (!Contents) 53 errx(2, "required package contents list is missing (-f [-]file)"); 54 } 55 56 static void 57 register_depends(package_t *plist, char *deps, int build_only) 58 { 59 char *cp; 60 61 if (Verbose && !PlistOnly) { 62 if (build_only) 63 printf("Registering build depends:"); 64 else 65 printf("Registering depends:"); 66 } 67 while (deps) { 68 cp = strsep(&deps, " \t\n"); 69 if (*cp) { 70 char *best_installed; 71 best_installed = find_best_matching_installed_pkg(cp); 72 if (best_installed != NULL) { 73 add_plist(plist, PLIST_BLDDEP, best_installed); 74 if (Verbose && !PlistOnly && build_only) 75 printf(" %s", cp); 76 } else 77 warnx("No matching package installed for %s", cp); 78 free(best_installed); 79 if (!build_only) { 80 add_plist(plist, PLIST_PKGDEP, cp); 81 if (Verbose && !PlistOnly) 82 printf(" %s", cp); 83 } 84 } 85 } 86 if (Verbose && !PlistOnly) 87 printf(".\n"); 88 } 89 90 /* 91 * Expect "fname" to point at a file, and read it into 92 * the buffer returned. 93 */ 94 static char * 95 fileGetContents(char *fname) 96 { 97 char *contents; 98 struct stat sb; 99 int fd; 100 101 if (stat(fname, &sb) == FAIL) { 102 errx(2, "can't stat '%s'", fname); 103 } 104 105 contents = xmalloc((size_t) (sb.st_size) + 1); 106 fd = open(fname, O_RDONLY, 0); 107 if (fd == FAIL) { 108 errx(2, "unable to open '%s' for reading", fname); 109 } 110 if (read(fd, contents, (size_t) sb.st_size) != (ssize_t) sb.st_size) { 111 errx(2, "short read on '%s' - did not get %lld bytes", 112 fname, (long long) sb.st_size); 113 } 114 close(fd); 115 contents[(size_t) sb.st_size] = '\0'; 116 return contents; 117 } 118 119 /* 120 * Get a string parameter as a file spec or as a "contents follow -" spec 121 */ 122 static void 123 get_dash_string(char **s) 124 { 125 if (**s == '-') 126 *s = xstrdup(*s + 1); 127 else 128 *s = fileGetContents(*s); 129 } 130 131 int 132 pkg_perform(const char *pkg) 133 { 134 char *cp; 135 FILE *pkg_in; 136 package_t plist; 137 const char *full_pkg, *suffix; 138 char *allocated_pkg; 139 int retval; 140 141 /* Break the package name into base and desired suffix (if any) */ 142 if ((cp = strrchr(pkg, '.')) != NULL) { 143 allocated_pkg = xmalloc(cp - pkg + 1); 144 memcpy(allocated_pkg, pkg, cp - pkg); 145 allocated_pkg[cp - pkg] = '\0'; 146 suffix = cp + 1; 147 full_pkg = pkg; 148 pkg = allocated_pkg; 149 } else { 150 allocated_pkg = NULL; 151 full_pkg = pkg; 152 suffix = "tgz"; 153 } 154 155 /* Preliminary setup */ 156 sanity_check(); 157 if (Verbose && !PlistOnly) 158 printf("Creating package %s\n", pkg); 159 get_dash_string(&Comment); 160 get_dash_string(&Desc); 161 if (IS_STDIN(Contents)) 162 pkg_in = stdin; 163 else { 164 pkg_in = fopen(Contents, "r"); 165 if (!pkg_in) 166 errx(2, "unable to open contents file '%s' for input", Contents); 167 } 168 169 plist.head = plist.tail = NULL; 170 171 /* Stick the dependencies, if any, at the top */ 172 if (Pkgdeps) 173 register_depends(&plist, Pkgdeps, 0); 174 175 /* 176 * Put the build dependencies after the dependencies. 177 * This works due to the evaluation order in pkg_add. 178 */ 179 if (BuildPkgdeps) 180 register_depends(&plist, BuildPkgdeps, 1); 181 182 /* Put the conflicts directly after the dependencies, if any */ 183 if (Pkgcfl) { 184 if (Verbose && !PlistOnly) 185 printf("Registering conflicts:"); 186 while (Pkgcfl) { 187 cp = strsep(&Pkgcfl, " \t\n"); 188 if (*cp) { 189 add_plist(&plist, PLIST_PKGCFL, cp); 190 if (Verbose && !PlistOnly) 191 printf(" %s", cp); 192 } 193 } 194 if (Verbose && !PlistOnly) 195 printf(".\n"); 196 } 197 198 /* Slurp in the packing list */ 199 append_plist(&plist, pkg_in); 200 201 if (pkg_in != stdin) 202 fclose(pkg_in); 203 204 /* Prefix should override the packing list */ 205 if (Prefix) { 206 delete_plist(&plist, FALSE, PLIST_CWD, NULL); 207 add_plist_top(&plist, PLIST_CWD, Prefix); 208 } 209 /* 210 * Run down the list and see if we've named it, if not stick in a name 211 * at the top. 212 */ 213 if (find_plist(&plist, PLIST_NAME) == NULL) { 214 add_plist_top(&plist, PLIST_NAME, basename_of(pkg)); 215 } 216 217 /* Make first "real contents" pass over it */ 218 check_list(&plist, basename_of(pkg)); 219 220 /* 221 * We're just here for to dump out a revised plist for the FreeBSD ports 222 * hack. It's not a real create in progress. 223 */ 224 if (PlistOnly) { 225 write_plist(&plist, stdout, realprefix); 226 retval = TRUE; 227 } else { 228 #ifdef BOOTSTRAP 229 warnx("Package building is not supported in bootstrap mode"); 230 retval = FALSE; 231 #else 232 retval = pkg_build(pkg, full_pkg, suffix, &plist); 233 #endif 234 } 235 236 /* Cleanup */ 237 free(Comment); 238 free(Desc); 239 free_plist(&plist); 240 241 free(allocated_pkg); 242 243 return retval; 244 } 245