![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to export.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / sml / src / runtime|
Return to export.c CVS log | Up to [Research Unix] / researchv10no / cmd / sml / src / runtime |
1.1 root 1: /* Copyright 1989 by AT&T Bell Laboratories */
2: #include "tags.h"
3: #ifdef NeXT
4: #include <sys/loader.h>
5: #else
6: #include <a.out.h>
7: #endif NeXT
8:
9: #define CEIL(x,quantum) ((((int)(x))+(quantum)-1)&~((quantum)-1))
10:
11: #ifdef NS32
12: #define N_DATADDR(x) 0x400000
13: #endif NS32
14:
15: #ifndef N_DATADDR
16: #define N_DATADDR(x) CEIL((x).a_text,getpagesize())
17: #endif
18:
19: #ifndef N_TXTADDR
20: #ifdef NeXT
21: #include <machine/vm_param.h>
22: #ifdef USRTEXT
23: #define N_TXTADDR(x) USRTEXT
24: #endif USRTEXT
25: #endif
26: #ifdef VAX
27: #define N_TXTADDR(x) 0
28: #endif
29: #ifdef NS32
30: #define N_TXTADDR(x) 0
31: #define exec aouthdr
32: #define a_magic magic
33: #define a_text tsize
34: #define a_data dsize
35: #define a_bss bsize
36: #define a_entry entry
37: #define a_trsize text_start
38: #define a_drsize data_start
39: #endif NS32
40: #ifndef sony_news
41: #ifdef M68
42: #define N_TXTADDR(x) getpagesize()
43: #endif
44: #else sony_news
45: #define N_TXTADDR(x) 0
46: #endif sony_news
47: #ifdef SPARC
48: #include <machine/vmparam.h>
49: #define N_TXTADDR(x) USRTEXT
50: #endif
51: #endif
52:
53:
54:
55: /* Garbage collection is already done.
56: * Data to be saved is:
57: * 0 -> ceil(etext) text
58: * ceil(etext) -> arenabase data
59: * arenabase -> old_high heap
60: *
61: * > set a_entry as address of start procedure
62: */
63:
64: extern int etext; /* &etext is just beyond the end of the text segment */
65: extern int old_high;
66:
67: static int textstart,datastart;
68:
69: extern int startptr;
70:
71: #ifdef V9
72: getpagesize(){return 1024;}
73: #endif
74:
75: #ifndef NeXT
76: export (filid)
77: int filid;
78: {
79: int bytcount;
80: static struct exec E; /* make it static so all fields=0 */
81:
82: #if SUN3 || SPARC
83: E.a_magic = NMAGIC;
84: #else
85: #ifdef NS32
86: E.a_magic = NS32GMAGIC;
87: #else
88: E.a_magic = ZMAGIC;
89: #endif
90: #endif
91: #ifdef M68
92: #ifndef sony_news
93: E.a_machtype = 2; /* M_68020 */
94: #endif sony_news
95: E.a_machtype = M_68020; /* M_68020 */
96: #endif
97: #ifdef SPARC
98: E.a_toolversion = 1;
99: E.a_machtype = M_SPARC;
100: #endif
101:
102: textstart = N_TXTADDR(E);
103: E.a_text = (int) CEIL(((int)&etext),getpagesize())-textstart;
104: datastart = N_DATADDR(E);
105: E.a_bss = 0;
106: #ifndef NS32
107: E.a_syms = 0;
108: #endif NS32
109: E.a_entry = startptr;
110: E.a_trsize = 0;
111: E.a_drsize = 0;
112: E.a_data = CEIL(old_high-datastart, getpagesize());
113:
114: filid >>= 1;
115: fchmod(filid,0755);
116: #ifdef NS32
117: coff_cough(filid,&bytcount,E.a_text,E.a_data,E.a_entry);
118: #else
119: bulletproofWrite(filid,&E,sizeof(E));
120: bytcount = sizeof(E);
121: #endif NS32
122: #if VAX || NS32
123: {int i, nzeros = getpagesize()-sizeof(E);
124: char zeros[1024];
125: for(i=0;i<nzeros;i++) zeros[i]=0;
126: bulletproofWrite(filid,zeros,nzeros);
127:
128: }
129: #endif
130: #ifdef sony_news
131: {int i, nzeros = getpagesize()-bytcount;
132: char zeros[4096];
133: for(i=0;i<nzeros;i++) zeros[i]=0;
134: bulletproofWrite(filid,zeros,nzeros);
135: }
136: #endif sony_news
137: bulletproofWrite(filid,textstart,E.a_text);
138: bulletproofWrite(filid,datastart,E.a_data);
139: }
140: #ifdef NS32
141: coff_cough(fd,countp,tsize,dsize,entry)
142: int fd, *countp, tsize, dsize, entry;
143: {
144: static struct filehdr fhdr;
145: static struct aouthdr ahdr;
146: static struct scnhdr thdr;
147: static struct scnhdr dhdr;
148: static struct scnhdr bhdr;
149: int allhdrsize = sizeof(fhdr) + sizeof(ahdr) + 3*sizeof(thdr);
150: int pagesize = getpagesize();
151:
152: fhdr.f_magic = NS32GMAGIC;
153: fhdr.f_nscns = 3;
154: fhdr.f_timdat = /* don't care */ 0;
155: fhdr.f_symptr = /* null? */ 0;
156: fhdr.f_nsyms = 0;
157: fhdr.f_opthdr = sizeof(struct aouthdr);
158: fhdr.f_flags = F_RELFLG|F_EXEC|F_LNNO|F_LSYMS|F_AR32WR;
159:
160: ahdr.magic = /* OOPS */ 0x010b;
161: ahdr.vstamp = /* don't care */ 0;
162: ahdr.tsize = tsize;
163: ahdr.dsize = dsize;
164: ahdr.bsize = 0;
165: ahdr.msize = /* OOPS */ 0x10;
166: ahdr.mod_start = /* OOPS */ 0x20;
167: ahdr.entry = entry;
168: ahdr.text_start = 0;
169: ahdr.data_start = 0x400000;
170: ahdr.entry_mod = /* unused? */ 0;
171: ahdr.flags = U_SYS_42|U_AL_4096;
172:
173: strncpy(thdr.s_name,_TEXT,8);
174: thdr.s_paddr = thdr.s_vaddr = ahdr.data_start;
175: thdr.s_size = ahdr.tsize;
176: thdr.s_scnptr = CEIL(allhdrsize,pagesize);
177: thdr.s_relptr = /* null? */ 0;
178: thdr.s_lnnoptr = /* null? */ 0;
179: thdr.s_nreloc = 0;
180: thdr.s_nlnno = 0;
181: thdr.s_flags = STYP_TEXT;
182: thdr.s_symptr = /* null? */ 0;
183: thdr.s_modno = /* OOPS */ 0;
184: thdr.s_pad = /* don't care */ 0;
185:
186: strncpy(dhdr.s_name,_DATA,8);
187: dhdr.s_paddr = dhdr.s_vaddr = ahdr.data_start;
188: dhdr.s_size = ahdr.dsize;
189: dhdr.s_scnptr = thdr.s_scnptr + CEIL(thdr.s_size,pagesize);
190: dhdr.s_relptr = /* null? */ 0;
191: dhdr.s_lnnoptr = /* null? */ 0;
192: dhdr.s_nreloc = 0;
193: dhdr.s_nlnno = 0;
194: dhdr.s_flags = STYP_DATA;
195: dhdr.s_symptr = /* null? */ 0;
196: dhdr.s_modno = /* OOPS */ 0;
197: dhdr.s_pad = /* don't care */ 0;
198:
199: strncpy(bhdr.s_name,_BSS,8);
200: bhdr.s_paddr = bhdr.s_vaddr = ahdr.data_start + ahdr.dsize;
201: bhdr.s_size = /* none */ 0;
202: bhdr.s_scnptr = /* null */ 0;
203: bhdr.s_relptr = /* null? */ 0;
204: bhdr.s_lnnoptr = /* null? */ 0;
205: bhdr.s_nreloc = 0;
206: bhdr.s_nlnno = 0;
207: bhdr.s_flags = STYP_BSS;
208: bhdr.s_symptr = /* null? */ 0;
209: bhdr.s_modno = /* OOPS */ 0;
210: bhdr.s_pad = /* don't care */ 0;
211: bulletproofWrite(fd,&fhdr,sizeof(fhdr));
212: bulletproofWrite(fd,&ahdr,sizeof(ahdr));
213: bulletproofWrite(fd,&thdr,sizeof(thdr));
214: bulletproofWrite(fd,&dhdr,sizeof(dhdr));
215: bulletproofWrite(fd,&bhdr,sizeof(bhdr));
216: *countp = allhdrsize;
217: }
218: #endif NS32
219: #else NeXT
220: extern int mach_maplimit;
221: export(filid) int filid;
222: {static struct mach_header E; /* make it static so all fields=0 */
223: static struct segment_command tcmd;
224: static struct section tsectn;
225: static struct segment_command dcmd;
226: static struct section dsectn;
227: static struct section bsectn;
228: static struct thread_command uthr;
229: static unsigned long thflavor;
230: static unsigned long thcount;
231: static struct NeXT_thread_state_regs ntregs;
232: static unsigned int hdrsize;
233: int datasize, bsssize;
234:
235: E.magic = MH_MAGIC;
236: E.cputype = CPU_TYPE_MC68030;
237: E.cpusubtype = CPU_SUBTYPE_NeXT;
238: E.filetype = MH_EXECUTE;
239: E.ncmds = 3;
240: E.sizeofcmds = sizeof(tcmd) + sizeof(tsectn)
241: + sizeof(dcmd) + sizeof(dsectn) + sizeof(bsectn)
242: + sizeof(uthr) + sizeof(thflavor) + sizeof(thcount) + sizeof(ntregs);
243: E.flags = MH_NOUNDEFS;
244:
245: hdrsize = E.sizeofcmds + sizeof(E);
246: textstart = N_TXTADDR(E);
247:
248:
249: tcmd.cmd = LC_SEGMENT;
250: tcmd.cmdsize = sizeof(tcmd) + sizeof(tsectn);
251: strcpy(tcmd.segname,SEG_TEXT);
252: tcmd.vmaddr = textstart;
253: tcmd.vmsize = (int) CEIL(((int)&etext),getpagesize())-textstart;
254: tcmd.fileoff = 0;
255: tcmd.filesize = tcmd.vmsize;
256: tcmd.maxprot = VM_PROT_ALL;
257: tcmd.initprot = VM_PROT_READ|VM_PROT_EXECUTE;
258: tcmd.nsects = 1;
259: tcmd.flags = 0;
260:
261: strcpy(tsectn.sectname,SECT_TEXT);
262: strcpy(tsectn.segname,tcmd.segname);
263: tsectn.addr = tcmd.vmaddr + hdrsize;
264: tsectn.size = tcmd.vmsize - hdrsize;
265: tsectn.offset = hdrsize;
266: tsectn.align = 2;
267: tsectn.reloff = 0;
268: tsectn.nreloc = 0;
269: tsectn.flags = 0;
270: tsectn.reserved1 = tsectn.reserved2 = 0;
271:
272:
273: dcmd.cmd = LC_SEGMENT;
274: dcmd.cmdsize = sizeof(dcmd) + sizeof(dsectn) + sizeof(bsectn);
275: strcpy(dcmd.segname,SEG_DATA);
276: dcmd.vmaddr = tcmd.vmaddr + tcmd.vmsize;
277: datasize = CEIL(old_high-dcmd.vmaddr, getpagesize());
278: bsssize = mach_maplimit-old_high;
279: dcmd.vmsize = bsssize+datasize;
280: dcmd.fileoff = tcmd.fileoff + tcmd.filesize;
281: dcmd.filesize = datasize;
282: dcmd.maxprot = VM_PROT_ALL;
283: dcmd.initprot = VM_PROT_ALL;
284: dcmd.nsects = 2;
285: dcmd.flags = 0;
286:
287: strcpy(dsectn.sectname,SECT_DATA);
288: strcpy(dsectn.segname,dcmd.segname);
289: dsectn.addr = dcmd.vmaddr;
290: dsectn.size = datasize;
291: dsectn.offset = dcmd.fileoff;
292: dsectn.align = 2;
293: dsectn.reloff = 0;
294: dsectn.nreloc = 0;
295: dsectn.flags = 0;
296: dsectn.reserved1 = dsectn.reserved2 = 0;
297:
298: strcpy(bsectn.sectname,SECT_BSS);
299: strcpy(bsectn.segname,dcmd.segname);
300: bsectn.addr = dsectn.addr + dsectn.size;
301: bsectn.size = bsssize;
302: bsectn.offset = 0;
303: bsectn.align = 2;
304: bsectn.reloff = 0;
305: bsectn.nreloc = 0;
306: bsectn.flags = S_ZEROFILL;
307: bsectn.reserved1 = bsectn.reserved2 = 0;
308:
309: uthr.cmd = LC_UNIXTHREAD;
310: uthr.cmdsize = sizeof(uthr) + sizeof(thflavor) + sizeof(thcount) + sizeof(ntregs);
311:
312: thflavor = NeXT_THREAD_STATE_REGS;
313:
314: thcount = NeXT_THREAD_STATE_REGS_COUNT;
315:
316: ntregs.areg[0] = 0xfeadface;
317: ntregs.pc = startptr;
318:
319: filid >>= 1;
320: fchmod(filid,0755);
321: bulletproofWrite(filid,&E,sizeof(E));
322: bulletproofWrite(filid,&tcmd,sizeof(tcmd));
323: bulletproofWrite(filid,&tsectn,sizeof(tsectn));
324: bulletproofWrite(filid,&dcmd,sizeof(dcmd));
325: bulletproofWrite(filid,&dsectn,sizeof(dsectn));
326: bulletproofWrite(filid,&bsectn,sizeof(bsectn));
327: bulletproofWrite(filid,&uthr,sizeof(uthr));
328: bulletproofWrite(filid,&thflavor,sizeof(thflavor));
329: bulletproofWrite(filid,&thcount,sizeof(thcount));
330: bulletproofWrite(filid,&ntregs,sizeof(ntregs));
331: bulletproofWrite(filid,tsectn.addr,tsectn.size);
332: bulletproofWrite(filid,dsectn.addr,dsectn.size);
333: }
334: #endif NeXT
335:
336:
337: /* NICK: A Bullet-proof write to retry on NFS systems */
338: /* JHR: Added retry for NFS timeout errors. */
339: #include <errno.h>
340: bulletproofWrite(fid, buf, total)
341: int fid;
342: char *buf;
343: int total;
344: {
345: int bytesWritten = 0;
346: #ifdef M68
347: int retries = 0;
348: #endif
349: int i;
350: do
351: { i = write(fid, buf, total-bytesWritten);
352: #ifdef M68
353: #ifndef sony_news
354: if (i < 0) {
355: if (errno == ETIMEDOUT) {
356: /* NFS timeout error, so try again. */
357: if (retries++ > 5)
358: die("export, NFS timeout");
359: chatting("[Write timeout, retrying]\n");
360: continue;
361: }
362: else die("export");
363: }
364: else retries = 0;
365: #else sony_news
366: if (i < 0) die("export");
367: #endif sony_news
368: #else
369: if (i < 0) die("export");
370: #endif
371: bytesWritten += i;
372: buf += i;
373: if (bytesWritten < total)
374: chatting("[Write incomplete (%d/%d), retrying]\n",
375: bytesWritten, total);
376: }
377: while (bytesWritten < total);
378: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.