![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to process.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jerq / sgs / strip|
Return to process.c CVS log | Up to [Research Unix] / researchv9 / jerq / sgs / strip |
1.1 root 1: /* UNIX HEADER */
2: #include <stdio.h>
3: #include <ar.h>
4:
5: /* COMMON SGS HEADERS */
6: #include "filehdr.h"
7: #include "ldfcn.h"
8:
9: /* SGS SPECIFIC HEADER */
10:
11: #include "paths.h"
12: #include "sgs.h"
13: /* STRIP HEADER */
14: #include "defs.h"
15:
16: /* EXTERNAL VARIABLES DEFINED */
17: FILE *strp1;
18: FILE *strp2;
19: FILE *stripout;
20: FILHDR filehead;
21: #if AR16WR
22: FILE *tempfil, *readtmp;
23: #endif
24:
25:
26: /* process(filename)
27: *
28: * directs the stripping of the named object file
29: * checks the object file header to determine that it can be stripped
30: * opens a temporary file (tmpnam1) and then builds the stripped file in it
31: * copies the temporary stripped file back to its original place (filename)
32: *
33: * the flags in the file header are set to reflect the new state
34: * of the file:
35: * if all flags are OFF there will be no symbols or line numbers
36: * if lflag is ON then there will be no line numbers
37: * if sflag is ON then there will be no local symbols
38: * if rflag or xflag is ON then there will be no local symbols
39: * or line numbers
40: * if bflag is ON then there will be no local symbols except
41: * .bb, .eb, .bf, .ef
42: * if fflag if ON then there will be no local symbols or line numbers
43: * and no relocation except from a section of type COPY
44: *
45: * defines:
46: * - strp1 = fopen(tmpnam1, "w") for building temporary
47: * = fopen(tmpnam1, "r") for copying temporary to original
48: * - strp2 = fopen(tmpnam2, "w") for building temporary
49: * - stripout = fopen(filename "w") for copying temporary to original
50: *
51: * calls:
52: * - checkflags(filename, &filehead) to check object file flags
53: * - buildtmp(filename, &filehead) to build the temporary file
54: * - copytmp(filename, &filehead) to copy the temporary to the original
55: * - error(filename, message, level) when an error occurs; level
56: * indicates the severity of the error and the current strip state
57: *
58: * returns SUCCESS or FAILURE
59: */
60:
61:
62: int
63: process(filename)
64:
65: char *filename;
66:
67: {
68: /* UNIX FUNCTIONS CALLED */
69: extern FILE *fopen( );
70: extern fclose( ),
71: exit( );
72: extern int fseek( );
73: extern long ftell( );
74:
75: /* COMMON OBJECT FILE ACCESS ROUTINES CALLED */
76: extern int ldaclose( );
77:
78: /* STRIP FUNCTIONS CALLED */
79: extern int checkflags( ),
80: buildtmp( ),
81: copyarh( ),
82: copytmp( );
83: extern error( );
84:
85: /* EXTERNAL VARIABLES USED */
86: extern LDFILE *ldptr;
87: extern char tmpnam1[ ],
88: tmpnam2[ ],
89: tmpnam3[ ],
90: tmpnam4[ ];
91: extern FILE *strp1,
92: *strp2,
93: *stripout;
94: #if AR16WR
95: extern FILE *tempfil,
96: *readtmp,
97: #endif
98: extern FILHDR filehead;
99: extern int rflag,
100: sflag;
101: extern int fflag;
102: extern int lflag;
103: extern ARCHDR arhead;
104: extern int aflag;
105: extern long xmore;
106: extern int mag;
107: #if FLEXNAMES
108: extern long string_size;
109: #endif
110:
111:
112: if (ldfhread(ldptr, &filehead) != SUCCESS)
113: {
114: error(filename, "cannot read file header", 1);
115: return(FAILURE);
116: }
117: else
118: {
119: if ( ! ISMAGIC(filehead.f_magic) )
120: {
121: error(filename, "not the correct magic number", 1);
122: return(FAILURE);
123: }
124: }
125:
126:
127: if (checkflags(filename, &filehead) != SUCCESS)
128: return(FAILURE);
129:
130: if ((strp1 = fopen(tmpnam1, "w")) == NULL)
131: {
132: error(filename, "cannot open temporary file", 1);
133: exit(FATAL);
134: }
135: if ((strp2 = fopen(tmpnam2, "w")) == NULL)
136: {
137: error(filename, "cannot open temporary file", 1);
138: exit(FATAL);
139: }
140:
141: #if AR16WR
142: if ( rflag || sflag )
143: {
144: if ((tempfil = fopen(tmpnam3, "w")) == NULL)
145: {
146: error(filename, "cannot open temporary file", 1);
147: exit(FATAL);
148: }
149: if ((readtmp = fopen(tmpnam3, "r")) == NULL)
150: {
151: error(filename, "cannot open temporary file", 1);
152: exit(FATAL);
153: }
154: }
155: #endif
156:
157: if (buildtmp(filename, &filehead) == SUCCESS)
158: {
159: xmore = ldclose(ldptr);
160: fclose(strp1);
161: fclose(strp2);
162:
163: #if AR16WR
164: if ( rflag || sflag )
165: {
166: fclose(tempfil);
167: fclose(readtmp);
168: }
169: #else
170: freetempent( );
171: #endif
172:
173: if (aflag)
174: {
175: aflag = 0;
176: if ((stripout = fopen(tmpnam4, "w")) == NULL)
177: {
178: error(filename, "cannot write cannot strip", 0);
179: return(FAILURE);
180: }
181: }
182: else if (TYPE(ldptr) != ARTYPE)
183: if ((stripout = fopen( filename, "w" )) == NULL)
184: {
185: error(filename, "cannot write, cannot strip",5);
186: return( FAILURE );
187: }
188:
189:
190: if ((strp1 = fopen(tmpnam1, "r")) == NULL)
191: {
192: error(filename, "cannot open temporary file", 5);
193: exit(FATAL);
194: }
195: if ((strp2 = fopen(tmpnam2, "r")) == NULL)
196: {
197: error(filename, "cannot open temporary file", 5);
198: exit(FATAL);
199: }
200:
201: if (TYPE(ldptr) == ARTYPE)
202: {
203: fseek(strp1,0L,2);
204: fseek(strp2,0L,2);
205: arhead.ar_size = ftell(strp1) + ftell(strp2) + sizeof(FILHDR);
206: #if FLEXNAMES
207: if (string_size > 0L)
208: arhead.ar_size += string_size;
209: #endif
210: arhead.ar_size += (arhead.ar_size & 1);
211: fseek(strp1,0L,0);
212: fseek(strp2,0L,0);
213: if (copyarh(filename, &arhead) != SUCCESS)
214: {
215: fprintf(stderr, "can't copy archive header back");
216: }
217: }
218:
219: /* set the new file header flags appropriately */
220: if (!lflag)
221: filehead.f_flags |= F_LSYMS;
222: if (!sflag)
223: filehead.f_flags |= F_LNNO;
224: #if !UNIX
225: if (fflag)
226: filehead.f_flags |= F_RELFLG;
227: #endif
228:
229: if (copytmp(filename, &filehead) == SUCCESS)
230: {
231: if (xmore == SUCCESS )
232: fclose(stripout);
233: fclose(strp1);
234: fclose(strp2);
235: }
236: }
237:
238: return(SUCCESS);
239: }
240:
241:
242: int
243: copyarh(filename, arhead)
244:
245: char *filename;
246: ARCHDR *arhead;
247:
248:
249: {
250:
251: /* UNIX FUNCTIONS CALLED */
252:
253: extern int fwrite( );
254: extern sputl( );
255:
256: /* STRIP FUNCTIONS CALLED */
257:
258: extern resetsig( ),
259: error( );
260:
261: /* EXTERNAL VARIABLES USED */
262:
263: extern LDFILE *ldptr;
264:
265: extern FILE *stripout;
266:
267: #ifdef PORT5AR
268: /* LOCAL VARIABLES USED */
269:
270: struct arf_hdr arfbuf;
271:
272: strncpy(arfbuf.arf_name,arhead->ar_name,sizeof(arfbuf.arf_name));
273: sputl(arhead->ar_date,arfbuf.arf_date);
274: sputl((long)arhead->ar_uid,arfbuf.arf_uid);
275: sputl((long)arhead->ar_gid,arfbuf.arf_gid);
276: sputl(arhead->ar_mode,arfbuf.arf_mode);
277: sputl(arhead->ar_size,arfbuf.arf_size);
278: if (fwrite( &arfbuf, sizeof( struct arf_hdr ), 1, stripout ) != 1 )
279: #else
280: #ifdef PORTAR
281: struct ar_hdr arbuf;
282: char *p;
283:
284: sprintf( arbuf.ar_name, "%-16s", arhead->ar_name );
285: p = arbuf.ar_name + sizeof( arbuf.ar_name ) - 1;
286: while ( *--p == ' ' );
287: *++p = '/';
288:
289: sprintf( arbuf.ar_date, "%-12ld", arhead->ar_date );
290: sprintf( arbuf.ar_uid, "%-6u", arhead->ar_uid );
291: sprintf( arbuf.ar_gid, "%-6u", arhead->ar_gid );
292: sprintf( arbuf.ar_mode, "%-8o", arhead->ar_mode );
293: sprintf( arbuf.ar_size, "%-10ld", arhead->ar_size );
294: strncpy( arbuf.ar_fmag, ARFMAG, sizeof( arbuf.ar_fmag ) );
295: if (fwrite( &arbuf, sizeof( struct ar_hdr ), 1, stripout ) != 1)
296: #else
297: if (fwrite(&arhead, sizeof(ARCHDR), 1, stripout) != 1)
298: #endif
299: #endif
300: {
301: error(filename, "cannot recreate archive header", 5);
302: resetsig( );
303: return(FAILURE);
304: }
305: else
306: {
307: return(SUCCESS);
308: }
309: }
310: /*
311: * @(#)process.c 1.9 11/17/83;
312: */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.