returned. *size is initialized with the buffer length.
*/
+_PROTOTYPE(INP_PRIVATE int INP_rdfile, (File *, char *, long *, char **));
+
INP_PRIVATE int
INP_rdfile(fd, fn, size, pbuf)
register File *fd;
INP_PRIVATE struct INP_i_buf *i_ptr;
+_PROTOTYPE(INP_PRIVATE char * INP_pbuf, (void));
INP_PRIVATE char *
INP_pbuf()
{
/* Input buffer administration: INP_push_bh() and INP_pop_bh()
*/
+_PROTOTYPE(INP_PRIVATE struct INP_buffer_header *INP_push_bh, (void));
+_PROTOTYPE(INP_PRIVATE int INP_pop_bh, (void));
+
INP_PRIVATE struct INP_buffer_header *
INP_push_bh()
{
/* low level I/O routine : read one block from current input
stream : INP_rdblock
*/
+_PROTOTYPE(INP_PRIVATE int INP_rdblock, (File *, char *, int *));
INP_PRIVATE int
INP_rdblock(fd, buf, n)
File *fd;
- char buf[];
+ char *buf;
int *n;
{
/* Miscellaneous routines :
INP_mk_filename()
*/
+_PROTOTYPE(INP_PRIVATE int INP_mk_filename, (char *, char *, char **));
/* INP_mk_filename() concatenates a dir and filename.
*/
to work. Its default value is 1.
*/
+#include <ansi.h>
+
/* INPUT PRIMITIVES */
#define LoadChar(dest) ((dest = *_ipp++) || (dest = loadbuf()))
extern char *_ipp;
-#if __STDC__
-int loadbuf(void);
-int InsertFile(char *, char **, char **);
-int InsertText(char *, int);
-#else
-extern int loadbuf();
-extern int InsertFile();
-extern int InsertText();
-#endif
+_PROTOTYPE(int loadbuf, (void));
+_PROTOTYPE(int AtEoIT, (void));
+_PROTOTYPE(int AtEoIF, (void));
+_PROTOTYPE(int InsertFile, (char *, char **, char **));
+_PROTOTYPE(int InsertText, (char *, int));
/* int InsertFile(filename, table, result)
char *filename;
$(RANLIB) libinput.$(LIBSUF)
install: all
+ -mkdir $(MOD_DIR)/lib
+ -mkdir $(MOD_DIR)/pkg
cp libinput.$(LIBSUF) $(MOD_DIR)/lib/libinput.$(LIBSUF)
$(RANLIB) $(MOD_DIR)/lib/libinput.$(LIBSUF)
- cp $(SRC_DIR)/input.3 $(MOD_DIR)/man/input.3
cp $(SRC_DIR)/inp_pkg.body $(MOD_DIR)/pkg/inp_pkg.body
cp $(SRC_DIR)/inp_pkg.spec $(MOD_DIR)/pkg/inp_pkg.spec
if [ $(DO_MACHINE_INDEP) = y ] ; \
-cmp libinput.$(LIBSUF) $(MOD_DIR)/lib/libinput.$(LIBSUF)
-cmp $(SRC_DIR)/inp_pkg.body $(MOD_DIR)/pkg/inp_pkg.body
-cmp $(SRC_DIR)/inp_pkg.spec $(MOD_DIR)/pkg/inp_pkg.spec
- -cmp $(SRC_DIR)/input.3 $(MOD_DIR)/man/input.3
pr:
@pr $(SRC_DIR)/proto.make $(SRC_DIR)/inp_pkg.spec $(SRC_DIR)/inp_pkg.body $(SRC_DIR)/AtEoIF.c $(SRC_DIR)/AtEoIT.c
proto.make
object.3
object.h
+obj.h
rd.c
rd_arhdr.c
rd_bytes.c
--- /dev/null
+/* $Header$ */
+/*
+ * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ */
+#include <local.h>
+#include <stdio.h>
+#include <out.h>
+#include <ranlib.h>
+#include <arch.h>
+#include "object.h"
+
+#if ! defined(CHAR_UNSIGNED)
+#define CHAR_UNSIGNED 0
+#endif
+
+#if CHAR_UNSIGNED
+#define Xchar(ch) (ch)
+#else
+#define Xchar(ch) ((ch) & 0377)
+#endif
+
+#if ! defined(BYTE_ORDER)
+#define BYTE_ORDER 0x3210
+#endif
+
+#if (BYTE_ORDER == 0x3210 || BYTE_ORDER == 0x1032)
+#define uget2(c) (Xchar((c)[0]) | ((unsigned) Xchar((c)[1]) << 8))
+#define Xput2(i, c) (((c)[0] = (i)), ((c)[1] = (i) >> 8))
+#define put2(i, c) { register int j = (i); Xput2(j, c); }
+#else
+#define uget2(c) (* ((unsigned short *) (c)))
+#define Xput2(i, c) (* ((short *) (c)) = (i))
+#define put2(i, c) Xput2(i, c)
+#endif
+
+#define get2(c) ((short) uget2(c))
+
+#if BYTE_ORDER != 0x0123
+#define get4(c) (uget2(c) | ((long) uget2((c)+2) << 16))
+#define put4(l, c) { register long x=(l); \
+ Xput2((int)x,c); \
+ Xput2((int)(x>>16),(c)+2); \
+ }
+#else
+#define get4(c) (* ((long *) (c)))
+#define put4(l, c) (* ((long *) (c)) = (l))
+#endif
+
+#define SECTCNT 3 /* number of sections with own output buffer */
+#if BIGMACHINE
+#define WBUFSIZ (8*BUFSIZ)
+#else
+#define WBUFSIZ BUFSIZ
+#endif
+
+struct fil {
+ int cnt;
+ char *pnow;
+ char *pbegin;
+ long currpos;
+ int fd;
+ char pbuf[WBUFSIZ];
+};
+
+extern struct fil __parts[];
+
+#define PARTEMIT 0
+#define PARTRELO (PARTEMIT+SECTCNT)
+#define PARTNAME (PARTRELO+1)
+#define PARTCHAR (PARTNAME+1)
+#ifdef SYMDBUG
+#define PARTDBUG (PARTCHAR+1)
+#else
+#define PARTDBUG (PARTCHAR+0)
+#endif
+#define NPARTS (PARTDBUG + 1)
+
+#define getsect(s) (PARTEMIT+((s)>=(SECTCNT-1)?(SECTCNT-1):(s)))
.B #include <arch.h>
.br
.B #include <ranlib.h>
+.br
+.B #include <object.h>
.PP
.B int wr_open(filename)
.br
.B char *filename;
.PP
-.B wr_close()
+.B void wr_close()
.PP
-.B wr_ohead(head)
+.B void wr_ohead(head)
.br
.B struct outhead *head;
.PP
-.B wr_sect(sect, cnt)
+.B void wr_sect(sect, cnt)
.br
.B struct outsect *sect;
.br
.B unsigned int cnt;
.PP
-.B wr_outsect(sectionnr)
+.B void wr_outsect(sectionnr)
.br
.B int sectionnr;
.PP
-.B wr_emit(emit, cnt)
+.B void wr_emit(emit, cnt)
.br
.B char *emit;
.br
.B long cnt;
.PP
-.B wr_putc(ch)
+.B void wr_putc(ch)
.PP
-.B wr_relo(relo, cnt)
+.B void wr_relo(relo, cnt)
.br
.B struct outrelo *relo;
.br
.B unsigned int cnt;
.PP
-.B wr_name(name, cnt)
+.B void wr_name(name, cnt)
.br
-.B struct name *name;
+.B struct outname *name;
.br
.B unsigned int cnt;
.PP
-.B wr_string(stringaddr, cnt)
+.B void wr_string(stringaddr, cnt)
.br
.B char *stringaddr;
.br
.B long cnt;
.PP
-.B wr_arhdr(fd, arhdr)
+.B void wr_arhdr(fd, arhdr)
.br
.B struct ar_hdr *arhdr;
.PP
-.B wr_ranlib(fd, ran, cnt)
+.B void wr_ranlib(fd, ran, cnt)
.br
.B struct ranlib *ran;
.br
.B long cnt;
.PP
-.B wr_int2(fd, i)
+.B void wr_int2(fd, i)
.PP
-.B wr_long(fd, l)
+.B void wr_long(fd, l)
.br
.B long l;
.PP
-.B wr_bytes(fd, buf, l)
+.B void wr_bytes(fd, buf, l)
.br
.B char *buf;
.br
.PP
.B int rd_fdopen(fd)
.PP
-.B rd_close()
+.B void rd_close()
.PP
-.B rd_ohead(head)
+.B void rd_ohead(head)
.br
.B struct outhead *head;
.PP
-.B rd_sect(sect, cnt)
+.B void rd_sect(sect, cnt)
.br
.B struct outsect *sect;
.br
.B unsigned int cnt;
.PP
-.B rd_outsect(sectionnr)
+.B void rd_outsect(sectionnr)
.br
.B int sectionnr;
.PP
-.B rd_emit(emit, cnt)
+.B void rd_emit(emit, cnt)
.br
.B char *emit;
.br
.B long cnt;
.PP
-.B rd_relo(relo, cnt)
+.B void rd_relo(relo, cnt)
.br
.B struct outrelo *relo;
.br
.B unsigned int cnt;
.PP
-.B rd_rew_relo(head)
+.B void rd_rew_relo(head)
.br
.B struct outhead *head;
.PP
-.B rd_name(name, cnt)
+.B void rd_name(name, cnt)
.br
-.B struct name *name;
+.B struct outname *name;
.br
.B unsigned int cnt;
.PP
-.B rd_string(stringaddr, cnt)
+.B void rd_string(stringaddr, cnt)
.br
.B char *stringaddr;
.br
.br
.B struct ar_hdr *arhdr;
.PP
-.B rd_ranlib(fd, ran, cnt)
+.B void rd_ranlib(fd, ran, cnt)
.br
.B struct ranlib *ran;
.br
.PP
.B long rd_long(fd)
.PP
-.B rd_bytes(fd, buf, l)
+.B void rd_bytes(fd, buf, l)
.br
.B char *buf;
.br
.B long l;
.PP
-.B rd_fd()
+.B int rd_fd()
.SH DESCRIPTION
These routines come in handy when reading or writing ACK-object files
or libraries. No checking is performed.
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
* See the copyright notice in the ACK home directory, in the file "Copyright".
*/
-#include <local.h>
-#include <stdio.h>
-#if ! defined(CHAR_UNSIGNED)
-#define CHAR_UNSIGNED 0
-#endif
-
-#if CHAR_UNSIGNED
-#define Xchar(ch) (ch)
-#else
-#define Xchar(ch) ((ch) & 0377)
-#endif
-
-#if ! defined(BYTE_ORDER)
-#define BYTE_ORDER 0x3210
-#endif
-
-#if (BYTE_ORDER == 0x3210 || BYTE_ORDER == 0x1032)
-#define uget2(c) (Xchar((c)[0]) | ((unsigned) Xchar((c)[1]) << 8))
-#define Xput2(i, c) (((c)[0] = (i)), ((c)[1] = (i) >> 8))
-#define put2(i, c) { register int j = (i); Xput2(j, c); }
-#else
-#define uget2(c) (* ((unsigned short *) (c)))
-#define Xput2(i, c) (* ((short *) (c)) = (i))
-#define put2(i, c) Xput2(i, c)
-#endif
-
-#define get2(c) ((short) uget2(c))
-
-#if BYTE_ORDER != 0x0123
-#define get4(c) (uget2(c) | ((long) uget2((c)+2) << 16))
-#define put4(l, c) { register long x=(l); \
- Xput2((int)x,c); \
- Xput2((int)(x>>16),(c)+2); \
- }
-#else
-#define get4(c) (* ((long *) (c)))
-#define put4(l, c) (* ((long *) (c)) = (l))
-#endif
-
-#define SECTCNT 3 /* number of sections with own output buffer */
-#if BIGMACHINE
-#define WBUFSIZ (8*BUFSIZ)
-#else
-#define WBUFSIZ BUFSIZ
-#endif
-
-struct fil {
- int cnt;
- char *pnow;
- char *pbegin;
- long currpos;
- int fd;
- char pbuf[WBUFSIZ];
-};
-
-extern struct fil __parts[];
-
-#define PARTEMIT 0
-#define PARTRELO (PARTEMIT+SECTCNT)
-#define PARTNAME (PARTRELO+1)
-#define PARTCHAR (PARTNAME+1)
-#ifdef SYMDBUG
-#define PARTDBUG (PARTCHAR+1)
-#else
-#define PARTDBUG (PARTCHAR+0)
-#endif
-#define NPARTS (PARTDBUG + 1)
-
-#define getsect(s) (PARTEMIT+((s)>=(SECTCNT-1)?(SECTCNT-1):(s)))
+#include <ansi.h>
+
+#ifndef __OBJECT_INCLUDED__
+#define __OBJECT_INCLUDED__
+
+_PROTOTYPE(int wr_open, (char *f));
+_PROTOTYPE(void wr_close, (void));
+_PROTOTYPE(void wr_ohead, (struct outhead *h));
+_PROTOTYPE(void wr_sect, (struct outsect *s, unsigned int c));
+_PROTOTYPE(void wr_outsect, (int sectno));
+_PROTOTYPE(void wr_emit, (char *b, long c));
+_PROTOTYPE(void wr_putc, (int c));
+_PROTOTYPE(void wr_relo, (struct outrelo *r, unsigned int c));
+_PROTOTYPE(void wr_name, (struct outname *n, unsigned int c));
+_PROTOTYPE(void wr_string, (char *s, long c));
+_PROTOTYPE(void wr_arhdr, (int fd, struct ar_hdr *a));
+_PROTOTYPE(void wr_ranlib, (int fd, struct ranlib *r, long cnt));
+_PROTOTYPE(void wr_int2, (int fd, int i));
+_PROTOTYPE(void wr_long, (int fd, long l));
+_PROTOTYPE(void wr_bytes, (int fd, char *buf, long l));
+_PROTOTYPE(int rd_open, (char *f));
+_PROTOTYPE(int rd_fdopen, (int f));
+_PROTOTYPE(void rd_close, (void));
+_PROTOTYPE(void rd_ohead, (struct outhead *h));
+_PROTOTYPE(void rd_sect, (struct outsect *s, unsigned int c));
+_PROTOTYPE(void rd_outsect, (int sectno));
+_PROTOTYPE(void rd_emit, (char *b, long c));
+_PROTOTYPE(void rd_relo, (struct outrelo *r, unsigned int c));
+_PROTOTYPE(void rd_rew_relo, (struct outhead *head));
+_PROTOTYPE(void rd_name, (struct outname *n, unsigned int c));
+_PROTOTYPE(void rd_string, (char *s, long c));
+_PROTOTYPE(int rd_arhdr, (int fd, struct ar_hdr *a));
+_PROTOTYPE(void rd_ranlib, (int fd, struct ranlib *r, long cnt));
+_PROTOTYPE(int rd_int2, (int fd));
+_PROTOTYPE(long rd_long, (int fd));
+_PROTOTYPE(void rd_bytes, (int fd, char *buf, long l));
+_PROTOTYPE(int rd_fd, (void));
+
+#endif /* __OBJECT_INCLUDED__ */
SRC_DIR = $(SRC_HOME)/modules/src/object
MOD_DIR = $(TARGET_HOME)/modules
-INCLUDES = -I$(TARGET_HOME)/h -I$(TARGET_HOME)/config -I$(SRC_DIR)
+INCLUDES = -I$(TARGET_HOME)/h -I$(MOD_DIR)/h -I$(TARGET_HOME)/config -I$(SRC_DIR)
CFLAGS = $(INCLUDES) $(COPTIONS)
CFILES = $(SRC_DIR)/rd_arhdr.c $(SRC_DIR)/wr_arhdr.c \
all: libobject.$(LIBSUF)
install: all
+ -mkdir $(MOD_DIR)/lib
+ -mkdir $(MOD_DIR)/h
cp libobject.$(LIBSUF) $(MOD_DIR)/lib/libobject.$(LIBSUF)
$(RANLIB) $(MOD_DIR)/lib/libobject.$(LIBSUF)
- cp $(SRC_DIR)/object.3 $(MOD_DIR)/man/object.3
+ cp $(SRC_DIR)/object.h $(MOD_DIR)/h/object.h
if [ $(DO_MACHINE_INDEP) = y ] ; \
then mk_manpage $(SRC_DIR)/object.3 $(TARGET_HOME) ; \
fi
compare: all
-cmp libobject.$(LIBSUF) $(MOD_DIR)/lib/libobject.$(LIBSUF)
- -cmp $(SRC_DIR)/object.3 $(MOD_DIR)/man/object.3
+ -cmp $(SRC_DIR)/object.h $(MOD_DIR)/h/object.h
pr:
@pr $(SRC_DIR)/proto.make $(SRC_DIR)/object.h $(CFILES)
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
* See the copyright notice in the ACK home directory, in the file "Copyright".
*/
-#include <out.h>
-#include "object.h"
+#include "obj.h"
extern long lseek();
static int sectionnr;
-static
+static void
OUTREAD(p, b, n)
char *b;
long n;
static int offcnt;
+int
rd_fdopen(fd)
{
register int i;
return 1;
}
+void
rd_close()
{
outfile = -1;
}
+int
rd_fd()
{
return outfile;
}
+void
rd_ohead(head)
register struct outhead *head;
{
#endif
}
+void
rd_rew_relos(head)
register struct outhead *head;
{
BEGINSEEK(PARTRELO, off);
}
+void
rd_sect(sect, cnt)
register struct outsect *sect;
register unsigned int cnt;
}
}
+void
rd_outsect(s)
{
OUTSECT(s);
/*
* We don't have to worry about byte order here.
*/
+void
rd_emit(emit, cnt)
char *emit;
long cnt;
offset[sectionnr] += cnt;
}
+void
rd_relo(relo, cnt)
register struct outrelo *relo;
register unsigned int cnt;
}
}
+void
rd_name(name, cnt)
register struct outname *name;
register unsigned int cnt;
}
}
+void
rd_string(addr, len)
char *addr;
long len;
}
#ifdef SYMDBUG
+void
rd_dbug(buf, size)
char *buf;
long size;
public / ack.git / commitdiff