d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
keie 1985-04-12 15:06:05 +00:00
parent 9eb53c3d47
commit 022cb596be
4 changed files with 47 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
util/amisc/Makefile
View file

@ -1,24 +1,19 @@
# @(#)Makefile 1.1
EM = ../..
h = $(EM)/h
CFLAGS = -O -I$h
CFLAGS = -n -O -I$h
ALL = anm asize astrip
OFILES = anm.o asize.o astrip.o
CFILES = anm.c asize.c astrip.c
all: $(ALL)
anm: anm.c
$(CC) $(CFLAGS) anm.c -o anm
cp cmp: all
for i in $(ALL); do $@ $$i $$ROOT/usr/bin/$$i; done
asize: asize.c
$(CC) $(CFLAGS) asize.c -o asize
astrip: astrip.c
$(CC) $(CFLAGS) astrip.c -o astrip
clean:
rm -f $(ALL) $(OFILES)
clean: ; rm -f $(ALL) $(OFILES)
get: ; getall
unget: ; ungetall
print: $(CFILES)
pr -n Makefile $(CFILES) | lpr

11
util/amisc/anm.c
View file

@ -1,4 +1,7 @@
#define DUK /* Modifications by Duk Bekema. */
/* @(#)anm.c 1.4 */
/* $Header$ */
/*
** print symbol tables for
** ACK object files
@ -279,16 +282,24 @@ register FILE *f;
case '2':
i = getc(f);
i |= (getc(f) << 8);
#ifndef DUK
*((short *)p)++ = i;
#else DUK
*((short *)p) = i;
p += sizeof(short);
#endif DUK
continue;
case '4':
l = (long)getc(f);
l |= ((long)getc(f) << 8);
l |= ((long)getc(f) << 16);
l |= ((long)getc(f) << 24);
#ifndef DUK
*((long *)p)++ = l;
#else DUK
*((long *)p) = l;
p += sizeof(long);
#endif DUK
continue;
default:
case '\0':

11
util/amisc/asize.c
View file

@ -1,4 +1,7 @@
#define DUK /* Modifications by Duk Bekema. */
/* @(#)asize.c 1.2 */
/* $Header$ */
#define ushort unsigned short
#include <stdio.h>
@ -75,16 +78,24 @@ register FILE *f;
case '2':
i = getc(f);
i |= (getc(f) << 8);
#ifndef DUK
*((short *)p)++ = i;
#else DUK
*((short *)p) = i;
p += sizeof(short);
#endif DUK
continue;
case '4':
l = (long)getc(f);
l |= (long)(getc(f) << 8);
l |= ((long)getc(f) << 16);
l |= ((long)getc(f) << 24);
#ifndef DUK
*((long *)p)++ = l;
#else DUK
*((long *)p) = l;
p += sizeof(long);
#endif DUK
continue;
default:
case '\0':

19
util/amisc/astrip.c
View file

@ -1,4 +1,7 @@
#define DUK /* Modifications by Duk Bekema. */
/* @(#)astrip.c 1.1 */
/* $Header$ */
#define ushort unsigned short
#include "out.h"
@ -138,16 +141,24 @@ register FILE *f;
case '2':
i = getc(f);
i |= (getc(f) << 8);
#ifndef DUK
*((short *)p)++ = i;
#else DUK
*((short *)p) = i;
p += sizeof(short);
#endif DUK
continue;
case '4':
l = (long)getc(f);
l |= (long)(getc(f) << 8);
l |= ((long)getc(f) << 16);
l |= ((long)getc(f) << 24);
#ifndef DUK
*((long *)p)++ = l;
#else DUK
*((long *)p) = l;
p += sizeof(long);
#endif DUK
continue;
default:
case '\0':
@ -173,14 +184,22 @@ char *fnam;
i = *p++; putc(i,f);
break;
case 2:
#ifndef DUK
i = *((short *)p)++;
#else DUK
i = *((short *)p);
p += sizeof(short);
#endif DUK
putc(i,f);
i>>=8; putc(i,f);
break;
case 4:
#ifndef DUK
l = *((long *)p)++;
#else DUK
l = *((long *)p);
p += sizeof(long);
#endif DUK
putc(l,f);
l >>=8; putc(l,f);
l >>=8; putc(l,f);