1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License (the "License"). 6 * You may not use this file except in compliance with the License. 7 * 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9 * or http://www.opensolaris.org/os/licensing. 10 * See the License for the specific language governing permissions 11 * and limitations under the License. 12 * 13 * When distributing Covered Code, include this CDDL HEADER in each 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15 * If applicable, add the following below this CDDL HEADER, with the 16 * fields enclosed by brackets "[]" replaced with your own identifying 17 * information: Portions Copyright [yyyy] [name of copyright owner] 18 * 19 * CDDL HEADER END 20 */ 21 /* 22 * Copyright 2004 Sun Microsystems, Inc. All rights reserved. 23 * Use is subject to license terms. 24 */ 25 26 #include <stdio.h> 27 #include <stdlib.h> 28 #include <string.h> 29 #include <sys/param.h> 30 #include <sys/wait.h> 31 #include <unistd.h> 32 33 #include <vroot/report.h> 34 #include <vroot/vroot.h> 35 #include <mksdmsi18n/mksdmsi18n.h> 36 #include <avo/intl.h> /* for NOCATGETS */ 37 #include <mk/defs.h> /* for tmpdir */ 38 39 static FILE *report_file; 40 static FILE *command_output_fp; 41 static char *target_being_reported_for; 42 static char *search_dir; 43 static char command_output_tmpfile[30]; 44 static int is_path = 0; 45 static char sfile[MAXPATHLEN]; 46 extern "C" { 47 static void (*warning_ptr) (char *, ...) = (void (*) (char *, ...)) NULL; 48 } 49 50 FILE * 51 get_report_file(void) 52 { 53 return(report_file); 54 } 55 56 char * 57 get_target_being_reported_for(void) 58 { 59 return(target_being_reported_for); 60 } 61 62 #if defined(SUN5_0) || defined(HP_UX) || defined(linux) 63 extern "C" { 64 static void 65 close_report_file(void) 66 { 67 (void)fputs("\n", report_file); 68 (void)fclose(report_file); 69 } 70 } // extern "C" 71 #else 72 static void 73 close_report_file(int, ...) 74 { 75 (void)fputs("\n", report_file); 76 (void)fclose(report_file); 77 } 78 #endif 79 80 static void 81 clean_up(FILE *nse_depinfo_fp, FILE *merge_fp, char *nse_depinfo_file, char *merge_file, int unlinkf) 82 { 83 fclose(nse_depinfo_fp); 84 fclose(merge_fp); 85 fclose(command_output_fp); 86 unlink(command_output_tmpfile); 87 if (unlinkf) 88 unlink(merge_file); 89 else 90 rename(merge_file, nse_depinfo_file); 91 } 92 93 94 /* 95 * Update the file, if necessary. We don't want to rewrite 96 * the file if we don't have to because we don't want the time of the file 97 * to change in that case. 98 */ 99 100 #if defined(SUN5_0) || defined(HP_UX) || defined(linux) 101 extern "C" { 102 static void 103 close_file(void) 104 #else 105 static void 106 close_file(int, ...) 107 #endif 108 { 109 char line[MAXPATHLEN+2]; 110 char buf[MAXPATHLEN+2]; 111 FILE *nse_depinfo_fp; 112 FILE *merge_fp; 113 char nse_depinfo_file[MAXPATHLEN]; 114 char merge_file[MAXPATHLEN]; 115 char lock_file[MAXPATHLEN]; 116 int err; 117 int len; 118 int changed = 0; 119 int file_locked; 120 121 fprintf(command_output_fp, "\n"); 122 fclose(command_output_fp); 123 if ((command_output_fp = fopen(command_output_tmpfile, "r")) == NULL) { 124 return; 125 } 126 sprintf(nse_depinfo_file, "%s/%s", search_dir, NSE_DEPINFO); 127 sprintf(merge_file, NOCATGETS("%s/.tmp%s.%d"), search_dir, NSE_DEPINFO, getpid()); 128 sprintf(lock_file, "%s/%s", search_dir, NSE_DEPINFO_LOCK); 129 err = file_lock(nse_depinfo_file, lock_file, &file_locked, 0); 130 if (err) { 131 if (warning_ptr != (void (*) (char *, ...)) NULL) { 132 (*warning_ptr)(catgets(libmksdmsi18n_catd, 1, 147, "Couldn't write to %s"), nse_depinfo_file); 133 } 134 unlink(command_output_tmpfile); 135 return; 136 } 137 /* If .nse_depinfo file doesn't exist */ 138 if ((nse_depinfo_fp = fopen(nse_depinfo_file, "r+")) == NULL) { 139 if (is_path) { 140 if ((nse_depinfo_fp = 141 fopen(nse_depinfo_file, "w")) == NULL) { 142 fprintf(stderr, catgets(libmksdmsi18n_catd, 1, 148, "Cannot open `%s' for writing\n"), 143 nse_depinfo_file); 144 unlink(command_output_tmpfile); 145 146 unlink(lock_file); 147 return; 148 } 149 while (fgets(line, MAXPATHLEN+2, command_output_fp) 150 != NULL) { 151 fprintf(nse_depinfo_fp, "%s", line); 152 } 153 fclose(command_output_fp); 154 } 155 fclose(nse_depinfo_fp); 156 if (file_locked) { 157 unlink(lock_file); 158 } 159 unlink(command_output_tmpfile); 160 return; 161 } 162 if ((merge_fp = fopen(merge_file, "w")) == NULL) { 163 fprintf(stderr, catgets(libmksdmsi18n_catd, 1, 149, "Cannot open %s for writing\n"), merge_file); 164 if (file_locked) { 165 unlink(lock_file); 166 } 167 unlink(command_output_tmpfile); 168 return; 169 } 170 len = strlen(sfile); 171 while (fgets(line, MAXPATHLEN+2, nse_depinfo_fp) != NULL) { 172 if (strncmp(line, sfile, len) == 0 && line[len] == ':') { 173 while (fgets(buf, MAXPATHLEN+2, command_output_fp) 174 != NULL) { 175 if (is_path) { 176 fprintf(merge_fp, "%s", buf); 177 if (strcmp(line, buf)) { 178 /* changed */ 179 changed = 1; 180 } 181 } 182 if (buf[strlen(buf)-1] == '\n') { 183 break; 184 } 185 } 186 if (changed || !is_path) { 187 while (fgets(line, MAXPATHLEN, nse_depinfo_fp) 188 != NULL) { 189 fputs(line, merge_fp); 190 } 191 clean_up(nse_depinfo_fp, merge_fp, 192 nse_depinfo_file, merge_file, 0); 193 } else { 194 clean_up(nse_depinfo_fp, merge_fp, 195 nse_depinfo_file, merge_file, 1); 196 } 197 if (file_locked) { 198 unlink(lock_file); 199 } 200 unlink(command_output_tmpfile); 201 return; 202 } /* entry found */ 203 fputs(line, merge_fp); 204 } 205 /* Entry never found. Add it if there is a search path */ 206 if (is_path) { 207 while (fgets(line, MAXPATHLEN+2, command_output_fp) != NULL) { 208 fprintf(nse_depinfo_fp, "%s", line); 209 } 210 } 211 clean_up(nse_depinfo_fp, merge_fp, nse_depinfo_file, merge_file, 1); 212 if (file_locked) { 213 unlink(lock_file); 214 } 215 } 216 217 #if defined(SUN5_0) || defined(HP_UX) || defined(linux) 218 } // extern "C" 219 #endif 220 221 static void 222 report_dep(char *iflag, char *filename) 223 { 224 225 if (command_output_fp == NULL) { 226 sprintf(command_output_tmpfile, 227 NOCATGETS("%s/%s.%d.XXXXXX"), tmpdir, NSE_DEPINFO, getpid()); 228 int fd = mkstemp(command_output_tmpfile); 229 if ((fd < 0) || (command_output_fp = fdopen(fd, "w")) == NULL) { 230 return; 231 } 232 if ((search_dir = getenv(NOCATGETS("NSE_DEP"))) == NULL) { 233 return; 234 } 235 #if defined(SUN5_0) || defined(HP_UX) || defined(linux) 236 atexit(close_file); 237 #else 238 on_exit(close_file, 0); 239 #endif 240 strcpy(sfile, filename); 241 if (iflag == NULL || *iflag == '\0') { 242 return; 243 } 244 fprintf(command_output_fp, "%s:", sfile); 245 } 246 fprintf(command_output_fp, " "); 247 fprintf(command_output_fp, iflag); 248 if (iflag != NULL) { 249 is_path = 1; 250 } 251 } 252 253 void 254 report_libdep(char *lib, char *flag) 255 { 256 char *ptr; 257 char filename[MAXPATHLEN]; 258 char *p; 259 260 if ((p= getenv(SUNPRO_DEPENDENCIES)) == NULL) { 261 return; 262 } 263 ptr = strchr(p, ' '); 264 if(ptr) { 265 sprintf(filename, "%s-%s", ptr+1, flag); 266 is_path = 1; 267 report_dep(lib, filename); 268 } 269 } 270 271 void 272 report_search_path(char *iflag) 273 { 274 char curdir[MAXPATHLEN]; 275 char *sdir; 276 char *newiflag; 277 char filename[MAXPATHLEN]; 278 char *p, *ptr; 279 280 if ((sdir = getenv(NOCATGETS("NSE_DEP"))) == NULL) { 281 return; 282 } 283 if ((p= getenv(SUNPRO_DEPENDENCIES)) == NULL) { 284 return; 285 } 286 ptr = strchr(p, ' '); 287 if( ! ptr ) { 288 return; 289 } 290 sprintf(filename, NOCATGETS("%s-CPP"), ptr+1); 291 #if defined(SUN5_0) || defined(HP_UX) || defined(linux) 292 getcwd(curdir, sizeof(curdir)); 293 #else 294 getwd(curdir); 295 #endif 296 if (strcmp(curdir, sdir) != 0 && strlen(iflag) > 2 && 297 iflag[2] != '/') { 298 /* Makefile must have had an "cd xx; cc ..." */ 299 /* Modify the -I path to be relative to the cd */ 300 newiflag = (char *)malloc(strlen(iflag) + strlen(curdir) + 2); 301 sprintf(newiflag, "-%c%s/%s", iflag[1], curdir, &iflag[2]); 302 report_dep(newiflag, filename); 303 } else { 304 report_dep(iflag, filename); 305 } 306 } 307 308 void 309 report_dependency(register char *name) 310 { 311 register char *filename; 312 char buffer[MAXPATHLEN+1]; 313 register char *p; 314 register char *p2; 315 char nse_depinfo_file[MAXPATHLEN]; 316 317 if (report_file == NULL) { 318 if ((filename= getenv(SUNPRO_DEPENDENCIES)) == NULL) { 319 report_file = (FILE *)-1; 320 return; 321 } 322 if (strlen(filename) == 0) { 323 report_file = (FILE *)-1; 324 return; 325 } 326 (void)strcpy(buffer, name); 327 name = buffer; 328 p = strchr(filename, ' '); 329 if(p) { 330 *p= 0; 331 } else { 332 report_file = (FILE *)-1; 333 return; 334 } 335 if ((report_file= fopen(filename, "a")) == NULL) { 336 if ((report_file= fopen(filename, "w")) == NULL) { 337 report_file= (FILE *)-1; 338 return; 339 } 340 } 341 #if defined(SUN5_0) || defined(HP_UX) || defined(linux) 342 atexit(close_report_file); 343 #else 344 (void)on_exit(close_report_file, (char *)report_file); 345 #endif 346 if ((p2= strchr(p+1, ' ')) != NULL) 347 *p2= 0; 348 target_being_reported_for= (char *)malloc((unsigned)(strlen(p+1)+1)); 349 (void)strcpy(target_being_reported_for, p+1); 350 (void)fputs(p+1, report_file); 351 (void)fputs(":", report_file); 352 *p= ' '; 353 if (p2 != NULL) 354 *p2= ' '; 355 } 356 if (report_file == (FILE *)-1) 357 return; 358 (void)fputs(name, report_file); 359 (void)fputs(" ", report_file); 360 } 361 362 #ifdef MAKE_IT 363 void 364 make_it(filename) 365 register char *filename; 366 { 367 register char *command; 368 register char *argv[6]; 369 register int pid; 370 union wait foo; 371 372 if (getenv(SUNPRO_DEPENDENCIES) == NULL) return; 373 command= alloca(strlen(filename)+32); 374 (void)sprintf(command, NOCATGETS("make %s\n"), filename); 375 switch (pid= fork()) { 376 case 0: /* child */ 377 argv[0]= NOCATGETS("csh"); 378 argv[1]= NOCATGETS("-c"); 379 argv[2]= command; 380 argv[3]= 0; 381 (void)dup2(2, 1); 382 execve(NOCATGETS("/bin/sh"), argv, environ); 383 perror(NOCATGETS("execve error")); 384 exit(1); 385 case -1: /* error */ 386 perror(NOCATGETS("fork error")); 387 default: /* parent */ 388 while (wait(&foo) != pid);}; 389 } 390 #endif 391