Compare commits
6 Commits
no_marshal
...
unlabeled-
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
d50fcf35ca | ||
|
|
df59cd7a52 | ||
|
|
92c82d48a5 | ||
|
|
897860ddf8 | ||
|
|
fdc319884e | ||
|
|
b5c00dbbf4 |
47
lang/pc/pem/Makefile
Normal file
47
lang/pc/pem/Makefile
Normal file
@@ -0,0 +1,47 @@
|
||||
# $Header$
|
||||
d=../../..
|
||||
h=$d/h
|
||||
PEM=$d/lib/pc_pem
|
||||
PEM_OUT=$d/lib/pc_pem.out
|
||||
|
||||
HEAD=$h/em_spec.h $h/em_pseu.h $h/em_mnem.h $h/em_mes.h $h/pc_size.h
|
||||
LDFLAG=-i
|
||||
|
||||
all: pem pem.out
|
||||
|
||||
pem.out: pem.m
|
||||
apc -mint --t -o pem.out pem.m
|
||||
|
||||
pem: pem.m
|
||||
apc $(LDFLAG) -o pem pem.m
|
||||
|
||||
# pem.m is system dependent and may NOT be distributed
|
||||
pem.m: pem.p $(HEAD)
|
||||
-rm -f pem.m
|
||||
-if apc -I$h -O -c.m pem.p ; then :; else \
|
||||
acc -o move move.c ; move ; rm -f move move.[oskm] ; \
|
||||
fi
|
||||
|
||||
cmp: pem
|
||||
cmp pem $(PEM)
|
||||
|
||||
install: pem
|
||||
cp pem $(PEM)
|
||||
|
||||
distr:
|
||||
rm -f pem2[24].p
|
||||
co -rdistr2 -p pem.p >pem22.p
|
||||
apc -mpdp -c.m -I$h pem22.p ; rm -f pem22.p
|
||||
co -rdistr2 -p pem.p >pem24.p
|
||||
apc -mvax2 -c.m -I$h pem24.p ; rm -f pem24.p
|
||||
clean:
|
||||
-rm -f pem pem.out *.[os] *.old
|
||||
|
||||
pr:
|
||||
@pr pem.p
|
||||
|
||||
xref:
|
||||
xref pem.p^pr -h "XREF PEM.P"
|
||||
|
||||
opr:
|
||||
make pr ^ opr
|
||||
363
mach/proto/as/comm6.c
Normal file
363
mach/proto/as/comm6.c
Normal file
@@ -0,0 +1,363 @@
|
||||
/* @(#)comm6.c 1.7 */
|
||||
/*
|
||||
* implement pseudo instructions
|
||||
*/
|
||||
|
||||
#include "comm0.h"
|
||||
#include "comm1.h"
|
||||
#include "y.tab.h"
|
||||
|
||||
newequate(ip, typ)
|
||||
register item_t *ip;
|
||||
register short typ;
|
||||
{
|
||||
typ &= ~S_EXT;
|
||||
if (typ & S_COM)
|
||||
typ = S_UND;
|
||||
else if ((typ & S_VAR) && (typ & S_TYP) != S_ABS)
|
||||
typ = S_UND;
|
||||
#ifdef THREE_PASS
|
||||
else if (pass == PASS_1 && typ == S_UND)
|
||||
typ = S_VAR;
|
||||
else if (pass == PASS_2 && (ip->i_type & S_TYP) == S_UND)
|
||||
ip->i_type |= typ;
|
||||
#endif THREE_PASS
|
||||
if (typ == S_UND)
|
||||
serror("illegal equate");
|
||||
if (pass == PASS_3)
|
||||
assert((ip->i_type & S_TYP) == (typ & S_TYP));
|
||||
newident(ip, typ);
|
||||
}
|
||||
|
||||
newident(ip, typ)
|
||||
register item_t *ip;
|
||||
{
|
||||
register flag;
|
||||
#ifdef GENLAB
|
||||
static char genlab[] = GENLAB;
|
||||
#endif GENLAB
|
||||
|
||||
if (pass == PASS_1) {
|
||||
/* printf("declare %s: %o\n", ip->i_name, typ); */
|
||||
if (ip->i_type & ~S_EXT)
|
||||
serror("multiple declared");
|
||||
else
|
||||
--unresolved;
|
||||
ip->i_type |= typ;
|
||||
}
|
||||
if (PASS_SYMB == 0)
|
||||
return;
|
||||
#ifdef THREE_PASS
|
||||
if (ip->i_type & S_EXT)
|
||||
flag = SYM_EXT;
|
||||
else
|
||||
flag = SYM_LOC;
|
||||
#else
|
||||
flag = SYM_EXT|SYM_LOC; /* S_EXT not stable in PASS_1 */
|
||||
#endif THREE_PASS
|
||||
#ifdef GENLAB
|
||||
if (strncmp(ip->i_name, genlab, sizeof(genlab)-1) == 0)
|
||||
flag = SYM_LAB;
|
||||
#endif GENLAB
|
||||
if (sflag & flag)
|
||||
newsymb(
|
||||
ip->i_name,
|
||||
ip->i_type & (S_EXT|S_TYP),
|
||||
(short)0,
|
||||
load(ip)
|
||||
);
|
||||
}
|
||||
|
||||
newlabel(ip)
|
||||
register item_t *ip;
|
||||
{
|
||||
#ifdef THREE_PASS
|
||||
register addr_t oldval = ip->i_valu;
|
||||
#endif
|
||||
|
||||
if (DOTSCT == NULL)
|
||||
nosect();
|
||||
ip->i_type &= ~S_TYP;
|
||||
ip->i_type |= DOTTYP;
|
||||
if (store(ip, (valu_t) DOTVAL) == 0)
|
||||
return;
|
||||
#ifdef THREE_PASS
|
||||
assert(pass != PASS_2 || oldval - ip->i_valu == DOTGAIN);
|
||||
#endif
|
||||
}
|
||||
|
||||
newsect(ip)
|
||||
register item_t *ip;
|
||||
{
|
||||
register ushort typ;
|
||||
register sect_t *sp = NULL;
|
||||
|
||||
typ = ip->i_type & S_TYP;
|
||||
if (typ == S_UND) {
|
||||
/*
|
||||
* new section
|
||||
*/
|
||||
assert(pass == PASS_1);
|
||||
--unresolved;
|
||||
typ = outhead.oh_nsect + S_MIN;
|
||||
outhead.oh_nsect++;
|
||||
if (outhead.oh_nsect > SECTMAX || typ > S_MAX)
|
||||
fatal("too many sections");
|
||||
sp = §[typ - S_MIN];
|
||||
sp->s_item = ip;
|
||||
sp->s_lign = ALIGNSECT;
|
||||
#ifdef DUK
|
||||
ip->i_type = typ;
|
||||
#else DUK
|
||||
ip->i_type = typ | S_EXT;
|
||||
#endif DUK
|
||||
ip->i_valu = 0;
|
||||
} else if (typ >= S_MIN) {
|
||||
sp = §[typ - S_MIN];
|
||||
if (sp->s_item != ip)
|
||||
sp = NULL;
|
||||
}
|
||||
if (sp == NULL)
|
||||
serror("multiple declared");
|
||||
else
|
||||
switchsect(typ);
|
||||
}
|
||||
|
||||
newbase(base)
|
||||
valu_t base;
|
||||
{
|
||||
#ifdef ASLD
|
||||
register sect_t *sp;
|
||||
|
||||
if ((sp = DOTSCT) == NULL)
|
||||
nosect();
|
||||
if (sp->s_flag & BASED)
|
||||
serror("already based");
|
||||
sp->s_base = base;
|
||||
sp->s_flag |= BASED;
|
||||
DOTVAL += base;
|
||||
#else
|
||||
warning(".base ignored");
|
||||
#endif
|
||||
}
|
||||
|
||||
/*
|
||||
* NOTE: A rather different solution is used for ASLD and NOLD:
|
||||
* ASLD:
|
||||
* - maximum length of .comm is recorded in i_valu during PASS_1
|
||||
* - address of .comm is recorded in i_valu in later passes:
|
||||
* assigned at end of PASS_1, corrected for s_gain at end of PASS_2
|
||||
* - symbol table entries are produced in commfinish()
|
||||
* NOLD:
|
||||
* - i_valu cannot be used since it is needed for relocation info
|
||||
* - only one .comm with a particular symbol is allowed per module
|
||||
* - symbol table entries are produced in newcomm()
|
||||
*/
|
||||
newcomm(ip, val)
|
||||
register item_t *ip;
|
||||
valu_t val;
|
||||
{
|
||||
if (pass == PASS_1) {
|
||||
if (DOTSCT == NULL)
|
||||
nosect();
|
||||
if (val == 0)
|
||||
serror("bad size");
|
||||
/* printf("declare %s: %o\n", ip->i_name, DOTTYP); */
|
||||
if ((ip->i_type & ~S_EXT) == S_UND) {
|
||||
--unresolved;
|
||||
ip->i_type = S_COM|DOTTYP|(ip->i_type&S_EXT);
|
||||
#ifdef ASLD
|
||||
ip->i_valu = val;
|
||||
} else if (ip->i_type == (S_COM|S_EXT|DOTTYP)) {
|
||||
if (ip->i_valu < val)
|
||||
ip->i_valu = val;
|
||||
#endif
|
||||
} else
|
||||
serror("multiple declared");
|
||||
}
|
||||
#ifndef ASLD
|
||||
if (PASS_SYMB == 0)
|
||||
return;
|
||||
if (pass != PASS_3)
|
||||
/*
|
||||
* save symbol table index
|
||||
* for possible relocation
|
||||
*/
|
||||
ip->i_valu = outhead.oh_nname;
|
||||
#ifdef DUK
|
||||
newsymb(ip->i_name, S_COM|DOTTYP|(ip->i_type&S_EXT), (short)0, val);
|
||||
#else DUK
|
||||
newsymb(ip->i_name, S_EXT|DOTTYP, (short)0, val);
|
||||
#endif DUK
|
||||
#endif
|
||||
}
|
||||
|
||||
switchsect(newtyp)
|
||||
short newtyp;
|
||||
{
|
||||
register sect_t *sp;
|
||||
|
||||
if (sp = DOTSCT)
|
||||
sp->s_size = DOTVAL - sp->s_base;
|
||||
if (newtyp == S_UND) {
|
||||
DOTSCT = NULL;
|
||||
DOTTYP = newtyp;
|
||||
return;
|
||||
}
|
||||
assert(newtyp >= S_MIN);
|
||||
sp = §[newtyp - S_MIN];
|
||||
if (pass == PASS_3) {
|
||||
#ifdef AOUTSEEK
|
||||
aoutpart = -1;
|
||||
aoutseek[PARTEMIT] = sp->s_foff + sp->s_size - sp->s_zero;
|
||||
#else
|
||||
fseek(aoutfile[PARTEMIT], sp->s_foff + sp->s_size - sp->s_zero, 0);
|
||||
#endif
|
||||
}
|
||||
DOTVAL = sp->s_size + sp->s_base;
|
||||
DOTSCT = sp;
|
||||
DOTTYP = newtyp;
|
||||
}
|
||||
|
||||
align(bytes)
|
||||
valu_t bytes;
|
||||
{
|
||||
register valu_t gap;
|
||||
register sect_t *sp;
|
||||
|
||||
if ((sp = DOTSCT) == NULL)
|
||||
nosect();
|
||||
if (bytes == 0)
|
||||
bytes = ALIGNWORD;
|
||||
if (sp->s_lign % bytes)
|
||||
if (bytes % sp->s_lign)
|
||||
serror("illegal alignment");
|
||||
else
|
||||
sp->s_lign = bytes;
|
||||
if (pass == PASS_1)
|
||||
/*
|
||||
* be pessimistic: biggest gap possible
|
||||
*/
|
||||
gap = bytes - 1;
|
||||
else {
|
||||
/*
|
||||
* calculate gap correctly;
|
||||
* will be the same in PASS_2 and PASS_3
|
||||
*/
|
||||
if ((gap = DOTVAL % bytes) != 0)
|
||||
gap = bytes - gap;
|
||||
#ifdef THREE_PASS
|
||||
if (pass == PASS_2)
|
||||
/*
|
||||
* keep track of gain with respect to PASS_1
|
||||
*/
|
||||
DOTGAIN += (bytes - 1) - gap;
|
||||
#endif
|
||||
}
|
||||
/* I don't play the os_zero game here, but plainly write out zero's */
|
||||
/* Led abuses trailing zero parts */
|
||||
while (gap--) emit1(0) ;
|
||||
}
|
||||
|
||||
#ifdef RELOCATION
|
||||
newrelo(s, n)
|
||||
short s;
|
||||
{
|
||||
struct outrelo outrelo;
|
||||
#ifdef DUK
|
||||
int iscomm;
|
||||
#endif DUK
|
||||
|
||||
if (rflag == 0)
|
||||
return;
|
||||
if (PASS_RELO == 0)
|
||||
return;
|
||||
s &= ~S_DOT;
|
||||
assert((s & ~(S_COM|S_VAR|S_TYP)) == 0);
|
||||
#ifndef THREE_PASS
|
||||
if (s == S_UND)
|
||||
serror("bad relocation");
|
||||
#endif
|
||||
/*
|
||||
* always relocation info if S_VAR to solve problems with:
|
||||
* move b,d0
|
||||
* b=a
|
||||
* a: .data2 0
|
||||
*/
|
||||
#ifdef DUK
|
||||
iscomm = s & S_COM;
|
||||
#endif DUK
|
||||
s &= ~S_COM;
|
||||
if ((n & RELPC) == 0 && s == S_ABS)
|
||||
return;
|
||||
if ((n & RELPC) != 0 && s == DOTTYP)
|
||||
return;
|
||||
if (pass != PASS_3) {
|
||||
outhead.oh_nrelo++;
|
||||
return;
|
||||
}
|
||||
s &= ~S_VAR;
|
||||
outrelo.or_type = (char)n;
|
||||
outrelo.or_sect = (char)DOTTYP;
|
||||
#ifndef ASLD
|
||||
#ifdef DUK
|
||||
if (s == S_UND || iscomm) {
|
||||
#else DUK
|
||||
if (s == S_UND) {
|
||||
#endif DUK
|
||||
assert(relonami != 0);
|
||||
outrelo.or_nami = relonami-1;
|
||||
relonami = 0;
|
||||
} else
|
||||
#endif
|
||||
if (s < S_MIN) {
|
||||
assert(s == S_ABS);
|
||||
/*
|
||||
* use first non existing entry (argh)
|
||||
*/
|
||||
outrelo.or_nami = outhead.oh_nname;
|
||||
} else {
|
||||
/*
|
||||
* section symbols are at the end
|
||||
*/
|
||||
outrelo.or_nami = outhead.oh_nname
|
||||
- outhead.oh_nsect
|
||||
+ (s - S_MIN)
|
||||
;
|
||||
}
|
||||
outrelo.or_addr = (long)DOTVAL;
|
||||
putofmt((char *)&outrelo, SF_RELO, PARTRELO);
|
||||
}
|
||||
#endif
|
||||
|
||||
newsymb(name, type, desc, valu)
|
||||
register char *name;
|
||||
short type;
|
||||
short desc;
|
||||
valu_t valu;
|
||||
{
|
||||
struct outname outname;
|
||||
|
||||
if (name && *name == 0)
|
||||
name = 0;
|
||||
assert(PASS_SYMB);
|
||||
if (pass != PASS_3) {
|
||||
if (name)
|
||||
outhead.oh_nchar += strlen(name)+1;
|
||||
outhead.oh_nname++;
|
||||
return;
|
||||
}
|
||||
if (name) {
|
||||
AOUTPART(PARTCHAR);
|
||||
outname.on_foff = outhead.oh_nchar;
|
||||
do {
|
||||
AOUTPUTC(*name, PARTCHAR);
|
||||
outhead.oh_nchar++;
|
||||
} while (*name++);
|
||||
} else
|
||||
outname.on_foff = 0;
|
||||
outname.on_type = type;
|
||||
outname.on_desc = desc;
|
||||
outname.on_valu = valu & ~((0xFFFFFFFF)<<(8*sizeof(valu_t)));
|
||||
putofmt((char *)&outname, SF_NAME, PARTNAME);
|
||||
}
|
||||
@@ -1,339 +0,0 @@
|
||||
/*
|
||||
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
||||
*/
|
||||
/*
|
||||
chtabgen - character table generator
|
||||
|
||||
Author: Erik Baalbergen (..tjalk!erikb)
|
||||
Many mods by Ceriel Jacobs
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#ifndef NORCSID
|
||||
static char *RcsId = "$Id$";
|
||||
#endif
|
||||
|
||||
#define MAXBUF 256
|
||||
#define MAXTAB 10000
|
||||
#define COMCOM '-'
|
||||
#define FILECOM '%'
|
||||
|
||||
int InputForm = 'c'; /* default input format (and, currently, only one) */
|
||||
char OutputForm[MAXBUF] = "%s,\n";
|
||||
/* format for spitting out a string */
|
||||
char *Table[MAXTAB];
|
||||
char *ProgCall; /* callname of this program */
|
||||
int TabSize = 128; /* default size of generated table */
|
||||
char *InitialValue; /* initial value of all table entries */
|
||||
|
||||
extern char *malloc(), *strcpy();
|
||||
|
||||
main(argc, argv)
|
||||
char *argv[];
|
||||
{
|
||||
|
||||
ProgCall = *argv++;
|
||||
argc--;
|
||||
while (argc-- > 0) {
|
||||
if (**argv == COMCOM) {
|
||||
option(*argv++);
|
||||
}
|
||||
else {
|
||||
if (! process(*argv++, InputForm)) {
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
}
|
||||
exit(0);
|
||||
/*NOTREACHED*/
|
||||
}
|
||||
|
||||
char *
|
||||
Salloc(s)
|
||||
char *s;
|
||||
{
|
||||
char *ns = malloc((unsigned)strlen(s) + 1);
|
||||
|
||||
if (ns) {
|
||||
strcpy(ns, s);
|
||||
}
|
||||
else {
|
||||
fprintf(stderr, "%s: out of memory\n", ProgCall);
|
||||
exit(1);
|
||||
}
|
||||
return ns;
|
||||
}
|
||||
|
||||
option(str)
|
||||
char *str;
|
||||
{
|
||||
/* note that *str indicates the source of the option:
|
||||
either COMCOM (from command line) or FILECOM (from a file).
|
||||
*/
|
||||
switch (*++str) {
|
||||
|
||||
case ' ': /* command */
|
||||
case '\t':
|
||||
case '\0':
|
||||
break;
|
||||
case 'I': /* for future extension */
|
||||
InputForm = *++str;
|
||||
break;
|
||||
case 'f': /* input from file ... */
|
||||
if (*++str == '\0') {
|
||||
fprintf(stderr, "%s: -f: name expected\n", ProgCall);
|
||||
exit(1);
|
||||
}
|
||||
DoFile(str);
|
||||
break;
|
||||
case 'F': /* new output format string */
|
||||
sprintf(OutputForm, "%s\n", ++str);
|
||||
break;
|
||||
case 'T': /* insert text literally */
|
||||
printf("%s\n", ++str);
|
||||
break;
|
||||
case 'p': /* print table */
|
||||
PrintTable();
|
||||
break;
|
||||
case 'C': /* clear table */
|
||||
InitTable((char *)0);
|
||||
break;
|
||||
case 'i': /* initialize table with given value */
|
||||
if (*++str == '\0') {
|
||||
InitTable((char *)0);
|
||||
}
|
||||
else InitTable(str);
|
||||
break;
|
||||
case 'S':
|
||||
{
|
||||
int i = atoi(++str);
|
||||
|
||||
if (i <= 0 || i > MAXTAB) {
|
||||
fprintf(stderr, "%s: size would exceed maximum\n",
|
||||
ProgCall);
|
||||
}
|
||||
else {
|
||||
TabSize = i;
|
||||
}
|
||||
break;
|
||||
}
|
||||
default:
|
||||
fprintf(stderr, "%s: bad option -%s\n", ProgCall, str);
|
||||
}
|
||||
}
|
||||
|
||||
InitTable(ival)
|
||||
char *ival;
|
||||
{
|
||||
int i;
|
||||
|
||||
for (i = 0; i < TabSize; i++) {
|
||||
Table[i] = 0;
|
||||
}
|
||||
InitialValue = 0;
|
||||
if (ival) {
|
||||
InitialValue = Salloc(ival);
|
||||
}
|
||||
}
|
||||
|
||||
PrintTable()
|
||||
{
|
||||
int i;
|
||||
|
||||
for (i = 0; i < TabSize; i++) {
|
||||
if (Table[i]) {
|
||||
printf(OutputForm, Table[i]);
|
||||
}
|
||||
else if (InitialValue) {
|
||||
printf(OutputForm, InitialValue);
|
||||
}
|
||||
else {
|
||||
printf(OutputForm, "0");
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
int
|
||||
process(str, format)
|
||||
char *str;
|
||||
{
|
||||
char *cstr = str;
|
||||
char *Name = cstr; /* overwrite original string! */
|
||||
|
||||
/* strip of the entry name
|
||||
*/
|
||||
while (*str && *str != ':') {
|
||||
if (*str == '\\') {
|
||||
++str;
|
||||
}
|
||||
*cstr++ = *str++;
|
||||
}
|
||||
|
||||
if (*str != ':') {
|
||||
fprintf(stderr, "%s: bad specification: \"%s\", ignored\n",
|
||||
ProgCall, Name);
|
||||
return 0;
|
||||
}
|
||||
*cstr = '\0';
|
||||
str++;
|
||||
|
||||
switch (format) {
|
||||
|
||||
case 'c':
|
||||
return c_proc(str, Name);
|
||||
default:
|
||||
fprintf(stderr, "%s: bad input format\n", ProgCall);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
c_proc(str, Name)
|
||||
char *str;
|
||||
char *Name;
|
||||
{
|
||||
int ch, ch2;
|
||||
int quoted();
|
||||
char *name = Salloc(Name);
|
||||
|
||||
while (*str) {
|
||||
if (*str == '\\') {
|
||||
ch = quoted(&str);
|
||||
}
|
||||
else {
|
||||
ch = *str++ & 0377;
|
||||
}
|
||||
if (*str == '-') {
|
||||
if (*++str == '\\') {
|
||||
ch2 = quoted(&str);
|
||||
}
|
||||
else {
|
||||
if (ch2 = (*str++ & 0377));
|
||||
else str--;
|
||||
}
|
||||
if (ch > ch2) {
|
||||
fprintf(stderr, "%s: bad range\n", ProgCall);
|
||||
return 0;
|
||||
}
|
||||
while (ch <= ch2) {
|
||||
if (! setval(ch, name)) return 0;
|
||||
ch++;
|
||||
}
|
||||
}
|
||||
else {
|
||||
if (! setval(ch, name)) return 0;
|
||||
}
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
|
||||
int
|
||||
setval(ch, nm)
|
||||
char *nm;
|
||||
{
|
||||
char **p = &Table[ch];
|
||||
|
||||
if (ch < 0 || ch >= TabSize) {
|
||||
fprintf(stderr, "Illegal index: %d\n", ch);
|
||||
return 0;
|
||||
}
|
||||
if (*(p = &Table[ch])) {
|
||||
fprintf(stderr, "Warning: redefinition of index %d\n", ch);
|
||||
}
|
||||
*p = nm;
|
||||
return 1;
|
||||
}
|
||||
|
||||
int
|
||||
quoted(pstr)
|
||||
char **pstr;
|
||||
{
|
||||
int ch;
|
||||
int i;
|
||||
char *str = *pstr;
|
||||
|
||||
if ((*++str >= '0') && (*str <= '9')) {
|
||||
ch = 0;
|
||||
for (i = 0; i < 3; i++) {
|
||||
ch = 8 * ch + (*str - '0');
|
||||
if (*++str < '0' || *str > '9')
|
||||
break;
|
||||
}
|
||||
}
|
||||
else {
|
||||
switch (*str++) {
|
||||
case 'n':
|
||||
ch = '\n';
|
||||
break;
|
||||
case 't':
|
||||
ch = '\t';
|
||||
break;
|
||||
case 'b':
|
||||
ch = '\b';
|
||||
break;
|
||||
case 'r':
|
||||
ch = '\r';
|
||||
break;
|
||||
case 'f':
|
||||
ch = '\f';
|
||||
break;
|
||||
case 'v':
|
||||
ch = 013;
|
||||
break;
|
||||
default :
|
||||
ch = *(str - 1);
|
||||
break;
|
||||
}
|
||||
}
|
||||
*pstr = str;
|
||||
return ch & 0377;
|
||||
}
|
||||
|
||||
char *
|
||||
getline(s, n, fp)
|
||||
char *s;
|
||||
FILE *fp;
|
||||
{
|
||||
int c = getc(fp);
|
||||
char *str = s;
|
||||
|
||||
while (n--) {
|
||||
if (c == EOF) {
|
||||
return NULL;
|
||||
}
|
||||
else
|
||||
if (c == '\n') {
|
||||
*str++ = '\0';
|
||||
return s;
|
||||
}
|
||||
*str++ = c;
|
||||
c = getc(fp);
|
||||
}
|
||||
s[n - 1] = '\0';
|
||||
return s;
|
||||
}
|
||||
|
||||
#define BUFSIZE 1024
|
||||
|
||||
DoFile(name)
|
||||
char *name;
|
||||
{
|
||||
char text[BUFSIZE];
|
||||
FILE *fp;
|
||||
|
||||
if ((fp = fopen(name, "r")) == NULL) {
|
||||
fprintf(stderr, "%s: cannot read file %s\n", ProgCall, name);
|
||||
exit(1);
|
||||
}
|
||||
while (getline(text, BUFSIZE, fp) != NULL) {
|
||||
if (text[0] == FILECOM) {
|
||||
option(text);
|
||||
}
|
||||
else {
|
||||
if (! process(text, InputForm)) {
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
161
util/led/Makefile
Normal file
161
util/led/Makefile
Normal file
@@ -0,0 +1,161 @@
|
||||
#
|
||||
# Author: L.J. Bekema @ VU Informatica, Amsterdam
|
||||
#
|
||||
|
||||
.SUFFIXES: .c,v .h .h,v
|
||||
|
||||
.c,v.o:
|
||||
co -q $*.c
|
||||
$(CC) $(CFLAGS) -c $*.c
|
||||
rm -f $*.c
|
||||
|
||||
.h,v.h:
|
||||
co -q $*.h
|
||||
|
||||
# Definitions for the making programs.
|
||||
|
||||
M = /user1/sjoerd/amoeba/libmonix
|
||||
X = /usr/em/lib/l68k2
|
||||
CC = l68k2
|
||||
LIBDIR = ../../lib
|
||||
PREFLAGS= -DNDEBUG # -DNASSERT
|
||||
CFLAGS = -L $(PREFLAGS)
|
||||
LDFLAGS = -b0:0x20000 -a0:2 -a1:2 -a2:2 -a3:2 -a4:2 -c.out $M/head.o
|
||||
LDLIBS = $X/tail_cc.1s $X/tail_cc.2g $M/libmonix.a $X/tail_em.rt $X/end_em
|
||||
LINTFLAGS=-phbxac $(PREFLAGS)
|
||||
PR = pr
|
||||
PRFLAGS =
|
||||
|
||||
# Some convenient macro definitions.
|
||||
|
||||
CFILES = archive.c byte_order.c error.c extract.c finish.c main.c memory.c\
|
||||
output.c read.c relocate.c save.c scan.c sym.c write.c
|
||||
CVFILES = archive.c,v byte_order.c,v error.c,v extract.c,v finish.c,v main.c,v\
|
||||
memory.c,v output.c,v read.c,v relocate.c,v save.c,v scan.c,v\
|
||||
sym.c,v write.c,v
|
||||
HFILES = assert.h const.h debug.h defs.h memory.h orig.h scan.h
|
||||
HVFILES = assert.h,v const.h,v debug.h,v defs.h,v memory.h,v orig.h,v scan.h,v
|
||||
OFILES = archive.o byte_order.o error.o extract.o finish.o main.o memory.o\
|
||||
output.o read.o relocate.o save.o scan.o sym.o write.o
|
||||
|
||||
# Things that can be made.
|
||||
|
||||
led: $(OFILES)
|
||||
$(CC) $(LDFLAGS) $(OFILES) $(LDLIBS) -o led.led
|
||||
/user1/sjoerd/amoeba/util/convert led.led led
|
||||
/user1/sjoerd/amoeba/test/load led >/user1/sjoerd/amoeba/test/led.load
|
||||
|
||||
mach.c: mach.c,v
|
||||
co -q mach.c
|
||||
|
||||
install:led
|
||||
cp led $(LIBDIR)/em_led
|
||||
|
||||
cmp: led
|
||||
cmp led $(LIBDIR)/em_led
|
||||
|
||||
lint:
|
||||
-for i in $(CFILES) $(HFILES) mach.c; do\
|
||||
if test ! -f $$i; then\
|
||||
echo $$i >> checked.out;\
|
||||
co -q $$i;\
|
||||
fi;\
|
||||
done
|
||||
lint $(LINTFLAGS) $(CFILES)
|
||||
rm -f `cat checked.out` checked.out
|
||||
|
||||
pr: $(CVFILES) $(HVFILES) mach.c
|
||||
@-for i in $?; do\
|
||||
co -q -p $$i | $(PR) $(PRFLAGS) -h `basename $$i ,v`;\
|
||||
done
|
||||
@touch pr
|
||||
opr:
|
||||
make pr | opr
|
||||
|
||||
clean:
|
||||
rm *.o led
|
||||
|
||||
depend:
|
||||
-for i in $(CFILES); do\
|
||||
if test ! -f $$i; then\
|
||||
echo $$i >> checked.out;\
|
||||
co -q $$i;\
|
||||
fi;\
|
||||
done
|
||||
makedepend $(CFILES)
|
||||
rm -f `cat checked.out` checked.out
|
||||
|
||||
procentry.o:
|
||||
$(CC) -c -L procentry.c
|
||||
|
||||
# The next lines are generated automatically.
|
||||
# AUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTO
|
||||
archive.o: ../../h/arch.h
|
||||
archive.o: ../../h/out.h
|
||||
archive.o: ../../h/ranlib.h
|
||||
archive.o: const.h
|
||||
archive.o: debug.h
|
||||
archive.o: defs.h
|
||||
archive.o: memory.h
|
||||
byte_order.o: assert.h
|
||||
byte_order.o: const.h
|
||||
error.o: ../../h/out.h
|
||||
error.o: const.h
|
||||
extract.o: ../../h/out.h
|
||||
extract.o: const.h
|
||||
extract.o: debug.h
|
||||
extract.o: defs.h
|
||||
extract.o: memory.h
|
||||
extract.o: orig.h
|
||||
extract.o: scan.h
|
||||
finish.o: ../../h/out.h
|
||||
finish.o: const.h
|
||||
finish.o: defs.h
|
||||
finish.o: memory.h
|
||||
finish.o: orig.h
|
||||
finish.o: scan.h
|
||||
main.o: ../../h/out.h
|
||||
main.o: const.h
|
||||
main.o: debug.h
|
||||
main.o: defs.h
|
||||
main.o: memory.h
|
||||
main.o: orig.h
|
||||
memory.o: ../../h/out.h
|
||||
memory.o: assert.h
|
||||
memory.o: const.h
|
||||
memory.o: debug.h
|
||||
memory.o: mach.c
|
||||
memory.o: memory.h
|
||||
output.o: ../../h/out.h
|
||||
output.o: const.h
|
||||
output.o: memory.h
|
||||
read.o: ../../h/arch.h
|
||||
read.o: ../../h/out.h
|
||||
read.o: ../../h/ranlib.h
|
||||
read.o: assert.h
|
||||
read.o: const.h
|
||||
relocate.o: ../../h/out.h
|
||||
relocate.o: const.h
|
||||
relocate.o: debug.h
|
||||
relocate.o: defs.h
|
||||
relocate.o: orig.h
|
||||
save.o: ../../h/arch.h
|
||||
save.o: ../../h/out.h
|
||||
save.o: assert.h
|
||||
save.o: const.h
|
||||
save.o: memory.h
|
||||
scan.o: ../../h/arch.h
|
||||
scan.o: ../../h/out.h
|
||||
scan.o: ../../h/ranlib.h
|
||||
scan.o: assert.h
|
||||
scan.o: const.h
|
||||
scan.o: memory.h
|
||||
scan.o: scan.h
|
||||
sym.o: ../../h/out.h
|
||||
sym.o: const.h
|
||||
sym.o: memory.h
|
||||
write.o: ../../h/out.h
|
||||
write.o: assert.h
|
||||
write.o: const.h
|
||||
write.o: memory.h
|
||||
write.o: orig.h
|
||||
Reference in New Issue
Block a user