Added rd_fd and wr_fd.

diff --git a/modules/src/object/object.3 b/modules/src/object/object.3
index c0c4c55..2124f82 100644 (file)
--- a/modules/src/object/object.3
+++ b/modules/src/object/object.3
@@ -1,10 +1,10 @@
 .TH OBJECT 3ACK "October 16, 1986"
 .SH NAME
 wr_open, wr_close, wr_ohead, wr_sect, wr_outsect, wr_emit, wr_putc, wr_relo,
-wr_name, wr_string, wr_arhdr, wr_ranlib, wr_int2, wr_long,
+wr_name, wr_string, wr_arhdr, wr_ranlib, wr_int2, wr_long, wr_bytes, wr_fd,
 rd_open, rd_fdopen, rd_close, rd_ohead, rd_sect, rd_outsect,
 rd_emit, rd_relo, rd_rew_relo, rd_name, rd_string, rd_arhdr, rd_ranlib,
-rd_int2, rd_unsigned2, rd_long\ \-\ routines to read
+rd_int2, rd_unsigned2, rd_long, rd_bytes, rd_fd\ \-\ routines to read
 and write ACK-object files and libraries
 .SH SYNOPSIS
 .B #include <out.h>
@@ -75,6 +75,14 @@ and write ACK-object files and libraries
 .br
 .B long l;
 .PP
+.B wr_bytes(fd, buf, l)
+.br
+.B char *buf;
+.br
+.B long l;
+.PP
+.B int wr_fd()
+.PP
 .B int rd_open(filename)
 .br
 .B char *filename;
@@ -140,6 +148,14 @@ and write ACK-object files and libraries
 .B unsigned int rd_unsigned2(fd)
 .PP
 .B long rd_long(fd)
+.PP
+.B rd_bytes(fd, buf, l)
+.br
+.B char *buf;
+.br
+.B long l;
+.PP
+.B rd_fd()
 .SH DESCRIPTION
 These routines come in handy when reading or writing ACK-object files
 or libraries. No checking is performed.
@@ -236,6 +252,17 @@ to file descriptor
 .IB fd ,
 low order word first, low order byte first.
 .PP
+.I Wr_bytes
+writes
+.I l
+bytes from
+.I buf
+to file descriptor
+.IB fd .
+.PP
+.I Wr_fd
+returns the current output file descriptor.
+.PP
 Most of the
 .I rd_
 routines are the opposite of the

diff --git a/modules/src/object/rd.c b/modules/src/object/rd.c
index 52c1f71..aae7db6 100644 (file)
--- a/modules/src/object/rd.c
+++ b/modules/src/object/rd.c
@@ -81,6 +81,12 @@ rd_close()
 {
 
        close(outfile);
+       outfile = -1;
+}
+
+rd_fd()
+{
+       return outfile;
 }
 
 rd_ohead(head)

diff --git a/modules/src/object/wr.c b/modules/src/object/wr.c
index 5bcf55c..165a4dc 100644 (file)
--- a/modules/src/object/wr.c
+++ b/modules/src/object/wr.c
@@ -108,13 +108,24 @@ wr_close()
        }
 #ifdef OUTSEEK
        close(outfile);
+       outfile = -1;
 #else not OUTSEEK
        for (fdp = &outfile[PARTEMIT]; fdp < &outfile[NPARTS]; fdp++) {
                close(*fdp);
+               *fdp = -1;
        }
 #endif not OUTSEEK
 }
 
+wr_fd()
+{
+#ifdef OUTSEEK
+       return outfile;
+#else
+       return outfile[PARTEMIT];
+#endif
+}
+
 wr_ohead(head)
        register struct outhead *head;
 {