1 /* $Id: wr_arhdr.c,v 1.8 1994/06/24 11:19:17 ceriel Exp $ */
3 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
4 * See the copyright notice in the ACK home directory, in the file "Copyright".
10 register struct ar_hdr *arhdr;
13 register char *c = buf;
14 register char *p = arhdr->ar_name;
20 put2((int)(arhdr->ar_date>>16),c); c += 2;
21 put2((int)(arhdr->ar_date),c); c += 2;
24 put2(arhdr->ar_mode,c); c += 2;
25 put2((int)(arhdr->ar_size>>16),c); c += 2;
26 put2((int)(arhdr->ar_size),c);
27 wr_bytes(fd, buf, (long) AR_TOTAL);