207 lines
3.4 KiB
C
207 lines
3.4 KiB
C
/* $Header$ */
|
|
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* I N T E R M E D I A T E C O D E
|
|
*
|
|
* I C _ I O . C
|
|
*/
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <em_pseu.h>
|
|
#include <em_spec.h>
|
|
#include <arch.h>
|
|
#include "../share/types.h"
|
|
#include "../share/debug.h"
|
|
#include "ic.h"
|
|
#include "ic_lookup.h"
|
|
#include "../share/alloc.h"
|
|
#include "ic_io.h"
|
|
|
|
|
|
STATIC short libstate;
|
|
STATIC long bytecnt;
|
|
|
|
STATIC FILE *infile; /* The current EM input file */
|
|
|
|
STATIC int readbyte()
|
|
{
|
|
if (libstate == ARCHIVE && bytecnt-- == 0L) {
|
|
/* If we're reading from an archive file, we'll
|
|
* have to count the number of characters read,
|
|
* to know where the current module ends.
|
|
*/
|
|
return EOF;
|
|
}
|
|
return getc(infile);
|
|
}
|
|
|
|
|
|
|
|
|
|
short readshort() {
|
|
register int l_byte, h_byte;
|
|
|
|
l_byte = readbyte();
|
|
h_byte = readbyte();
|
|
if ( h_byte>=128 ) h_byte -= 256 ;
|
|
return l_byte | (h_byte*256) ;
|
|
}
|
|
|
|
#ifdef LONGOFF
|
|
offset readoffset() {
|
|
register long l;
|
|
register int h_byte;
|
|
|
|
l = readbyte();
|
|
l |= ((unsigned) readbyte())*256 ;
|
|
l |= readbyte()*256L*256L ;
|
|
h_byte = readbyte() ;
|
|
if ( h_byte>=128 ) h_byte -= 256 ;
|
|
return l | (h_byte*256L*256*256L) ;
|
|
}
|
|
#endif
|
|
|
|
|
|
short get_int() {
|
|
|
|
switch(table2()) {
|
|
default: error("int expected");
|
|
case CSTX1:
|
|
return(tabval);
|
|
}
|
|
}
|
|
|
|
char readchar()
|
|
{
|
|
return(readbyte());
|
|
}
|
|
|
|
|
|
|
|
offset get_off() {
|
|
|
|
switch (table2()) {
|
|
default: error("offset expected");
|
|
case CSTX1:
|
|
return((offset) tabval);
|
|
#ifdef LONGOFF
|
|
case CSTX2:
|
|
return(tabval2);
|
|
#endif
|
|
}
|
|
}
|
|
|
|
STATIC make_string(n) int n; {
|
|
|
|
sprintf(string,".%u",n);
|
|
}
|
|
|
|
STATIC inident() {
|
|
register n;
|
|
register char *p = string;
|
|
register c;
|
|
|
|
n = get_int();
|
|
while (n--) {
|
|
c = readbyte();
|
|
if (p<&string[IDL])
|
|
*p++ = c;
|
|
}
|
|
*p++ = 0;
|
|
}
|
|
|
|
int table3(n) int n; {
|
|
|
|
switch (n) {
|
|
case sp_ilb1: tabval = readbyte(); return(ILBX);
|
|
case sp_ilb2: tabval = readshort(); return(ILBX);
|
|
case sp_dlb1: make_string(readbyte()); return(DLBX);
|
|
case sp_dlb2: make_string(readshort()); return(DLBX);
|
|
case sp_dnam: inident(); return(DLBX);
|
|
case sp_pnam: inident(); return(n);
|
|
case sp_cst2: tabval = readshort(); return(CSTX1);
|
|
#ifdef LONGOFF
|
|
case sp_cst4: tabval2 = readoffset(); return(CSTX2);
|
|
#endif
|
|
case sp_doff: if (table2()!=DLBX) error("symbol expected");
|
|
switch(table2()) {
|
|
default: error("offset expected");
|
|
case CSTX1: return(VALX1);
|
|
#ifdef LONGOFF
|
|
case CSTX2: return(VALX2);
|
|
#endif
|
|
}
|
|
default: return(n);
|
|
}
|
|
}
|
|
|
|
int table1() {
|
|
register n;
|
|
|
|
n = readbyte();
|
|
if (n == EOF)
|
|
return(ATEOF);
|
|
if ((n <= sp_lmnem) && (n >= sp_fmnem)) {
|
|
tabval = n;
|
|
return(INST);
|
|
}
|
|
if ((n <= sp_lpseu) && (n >= sp_fpseu)) {
|
|
tabval = n;
|
|
return(PSEU);
|
|
}
|
|
if ((n < sp_filb0 + sp_nilb0) && (n >= sp_filb0)) {
|
|
tabval = n - sp_filb0;
|
|
return(ILBX);
|
|
}
|
|
return(table3(n));
|
|
}
|
|
|
|
int table2() {
|
|
register n;
|
|
|
|
n = readbyte();
|
|
if ((n < sp_fcst0 + sp_ncst0) && (n >= sp_fcst0)) {
|
|
tabval = n - sp_zcst0;
|
|
return(CSTX1);
|
|
}
|
|
return(table3(n));
|
|
}
|
|
|
|
|
|
|
|
|
|
file_init(f,state,length)
|
|
FILE *f;
|
|
short state;
|
|
long length;
|
|
{
|
|
short n;
|
|
|
|
infile = f;
|
|
libstate = state;
|
|
bytecnt = length;
|
|
linecount = 0;
|
|
n = readshort();
|
|
if (n != (short) sp_magic) {
|
|
error("wrong magic number: %d", n);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
arch_init(arch)
|
|
FILE *arch;
|
|
{
|
|
short n;
|
|
|
|
infile = arch;
|
|
n = readshort();
|
|
if (n != (short)ARMAG && n != (short)AALMAG) {
|
|
error("wrong archive magic number: %d",n);
|
|
}
|
|
}
|