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 (c) 1997-1999 by Sun Microsystems, Inc.
24 * All rights reserved.
25 */
26
27 #pragma ident "%Z%%M% %I% %E% SMI"
28
29
30 #include <stdio.h>
31 #include <string.h>
32 #include <errno.h>
33 #include <unistd.h>
34 #include <stdlib.h>
35 #include <sys/types.h>
36 #include <sys/param.h>
37 #include "parser.h"
38 #include "trace.h"
39 #include "db.h"
40 #include "util.h"
41 #include "errlog.h"
42
43 /* Types and Globals */
44 FILE *Bodyfp = NULL;
45 FILE *Headfp = NULL;
46 FILE *Mapfp = NULL;
47
48 static char headfile_name[MAXLINE]; /* Saved for later. */
49 static char mapfile_name[MAXLINE]; /* Saved for later. */
50
51 /* File globals. */
52 static int alt_code_file(void);
53 static void abort_code_file(void);
54
55 /*
56 * open_code_file - open the code file and the invisible temp file.
57 */
58 int
open_code_file(void)59 open_code_file(void)
60 {
61 char *dir = db_get_target_directory();
62 char *body_file_name;
63 int rc = YES;
64
65 errlog(BEGIN, "open_code_file() {");
66
67 /* Open the Head file, which gets the headers, includes and */
68 /* definitions, and eventually gets the body concatenated to it. */
69 (void) snprintf(headfile_name, sizeof (headfile_name), "%s.c",
70 db_get_output_file());
71 if ((Headfp = fopen(headfile_name, "w")) == NULL) {
72 errlog(FATAL, "%s: %s", headfile_name, strerror(errno));
73 }
74
75 (void) snprintf(mapfile_name, sizeof (mapfile_name), "%s-vers",
76 db_get_output_file());
77
78 if ((Mapfp = fopen(mapfile_name, "w")) == NULL) {
79 errlog(FATAL, "%s: %s", mapfile_name, strerror(errno));
80 }
81 (void) fputs("SUNWabi_1.1 {\n global:\n", Mapfp);
82
83 /* Now the Body file, which is an ephemeral temp-file. */
84 if ((body_file_name = tempnam(dir, NULL)) == NULL) {
85 errlog(FATAL, "out of memory creating a temp-file name");
86 }
87
88 if ((Bodyfp = fopen(body_file_name, "w+")) == NULL) {
89 errlog(FATAL, "%s: %s", body_file_name, strerror(errno));
90 }
91
92 if (unlink(body_file_name) != 0) {
93 errlog(FATAL, "unlink %s: %s", body_file_name, strerror(errno));
94 }
95
96 (void) free(body_file_name);
97 errlog(END, "}");
98 return (rc);
99 }
100
101 /*
102 * abort_code_file -- close and discard files.
103 * this function is also called from alt_code_file, so
104 * it is not cool to unlink the code file or the mapfile
105 */
106 static void
abort_code_file(void)107 abort_code_file(void)
108 {
109 errlog(BEGIN, "abort_code_file() {");
110 (void) fclose(Bodyfp);
111 (void) fclose(Headfp);
112 if (unlink(headfile_name) != 0) {
113 errlog(FATAL, "unlink %s: %s", headfile_name, strerror(errno));
114 }
115 errlog(END, "}");
116 }
117
118 int
alt_code_file(void)119 alt_code_file(void)
120 {
121 char hfn[MAXLINE];
122 FILE *hfp;
123
124 abort_code_file();
125 (void) snprintf(hfn, sizeof (hfn), "%s.c", db_get_output_file());
126 if ((hfp = fopen(hfn, "w")) == NULL) {
127 errlog(FATAL, "%s: %s", headfile_name, strerror(errno));
128 }
129
130 (void) fputs("static int __abi_place_holder;\n", hfp);
131 (void) fclose(hfp);
132
133 return (YES);
134 }
135
136 /*
137 * commit_code_file -- close and commit files that have advanced
138 * beyond byte position 0.
139 */
140 int
commit_code_file(void)141 commit_code_file(void)
142 {
143 char copy_buffer[BUFSIZ*8];
144 size_t n;
145
146 errlog(BEGIN, "commit_code_file() {");
147 /*
148 * We unconditionally want a .pf and a -vers file
149 */
150 (void) fputs(" local:\n\t*;\n};\n", Mapfp);
151 if (fclose(Mapfp) != 0) {
152 errlog(FATAL, "fclose %s: %s", mapfile_name, strerror(errno));
153 }
154 if (ftell(Bodyfp) == 0) {
155 /*
156 * special case, redo C file with place holder
157 * so that makefiles won't break...
158 */
159 errlog(END, "}");
160 return (alt_code_file());
161 } else {
162 /* Concatenate body file to head file, close both. */
163 rewind(Bodyfp);
164 while ((n = fread(copy_buffer, 1,
165 sizeof (copy_buffer), Bodyfp)) != 0) {
166 (void) fwrite(copy_buffer, 1, n, Headfp);
167 }
168 (void) fclose(Bodyfp);
169 if (fclose(Headfp) != 0) {
170 errlog(FATAL, "fclose <temp file>: %s",
171 strerror(errno));
172 }
173 }
174
175 errlog(END, "}");
176 return (YES);
177 }
178