xref: /titanic_52/usr/src/cmd/isaexec/isaexec.c (revision fd845fc0cb4fbc8e85f974e2e4eaacca1cc26e81)
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, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 #pragma ident	"%Z%%M%	%I%	%E% SMI"
28 
29 #include <stdio.h>
30 #include <stdlib.h>
31 #include <unistd.h>
32 #include <string.h>
33 #include <limits.h>
34 #include <locale.h>
35 #include <sys/types.h>
36 #include <sys/systeminfo.h>
37 
38 /*ARGSUSED*/
39 int
40 main(int argc, char **argv, char **envp)
41 {
42 	const char *execname;
43 	const char *fname;
44 	char *isalist;
45 	ssize_t isalen;
46 	char *pathname;
47 	ssize_t len;
48 	char scratch[1];
49 	char *str;
50 
51 #if !defined(TEXT_DOMAIN)		/* Should be defined by cc -D */
52 #define	TEXT_DOMAIN	"SYS_TEST"	/* Use this only if it wasn't */
53 #endif
54 	(void) setlocale(LC_ALL, "");
55 	(void) textdomain(TEXT_DOMAIN);
56 
57 	/*
58 	 * Get the isa list.
59 	 */
60 	if ((isalen = sysinfo(SI_ISALIST, scratch, 1)) == -1 ||
61 	    (isalist = malloc(isalen)) == NULL ||
62 	    sysinfo(SI_ISALIST, isalist, isalen) == -1) {
63 		(void) fprintf(stderr,
64 		    gettext("%s: cannot find the ISA list\n"),
65 		    argv[0]);
66 		return (1);
67 	}
68 
69 	/*
70 	 * Get the exec name.
71 	 */
72 	if ((execname = getexecname()) == NULL) {
73 		(void) fprintf(stderr,
74 		    gettext("%s: getexecname() failed\n"),
75 		    argv[0]);
76 		return (1);
77 	}
78 
79 	/*
80 	 * Allocate a path name buffer.  The sum of the lengths of the
81 	 * execname and isalist strings is guaranteed to be big enough.
82 	 */
83 	len = strlen(execname) + isalen;
84 	if ((pathname = malloc(len)) == NULL) {
85 		(void) fprintf(stderr,
86 		    gettext("%s: malloc(%d) failed\n"),
87 		    argv[0], (int)len);
88 		return (1);
89 	}
90 
91 	/*
92 	 * Break the exec name into directory and file name components.
93 	 */
94 	(void) strcpy(pathname, execname);
95 	if ((str = strrchr(pathname, '/')) != NULL) {
96 		*++str = '\0';
97 		fname = execname + (str - pathname);
98 	} else {
99 		fname = execname;
100 		*pathname = '\0';
101 	}
102 	len = strlen(pathname);
103 
104 	/*
105 	 * For each name in the isa list, look for an executable file
106 	 * with the given file name in the corresponding subdirectory.
107 	 */
108 	str = strtok(isalist, " ");
109 	do {
110 		(void) strcpy(pathname+len, str);
111 		(void) strcat(pathname+len, "/");
112 		(void) strcat(pathname+len, fname);
113 		if (access(pathname, X_OK) == 0) {
114 			/*
115 			 * File exists and is marked executable.  Attempt
116 			 * to execute the file from the subdirectory,
117 			 * using the user-supplied argv and envp.
118 			 */
119 			(void) execve(pathname, argv, envp);
120 			(void) fprintf(stderr,
121 			    gettext("%s: execve(\"%s\") failed\n"),
122 			    argv[0], pathname);
123 		}
124 	} while ((str = strtok(NULL, " ")) != NULL);
125 
126 	(void) fprintf(stderr,
127 	    gettext("%s: cannot find/execute \"%s\" in ISA subdirectories\n"),
128 	    argv[0], fname);
129 
130 	return (1);
131 }
132