67 lines
1.3 KiB
C
67 lines
1.3 KiB
C
|
/* D E F I N I T I O N M O D U L E S */
|
||
|
|
|
||
|
|
#include <assert.h>
|
||
|
|
#include <em_arith.h>
|
||
|
|
#include <em_label.h>
|
||
|
|
#include "idf.h"
|
||
|
|
#include "input.h"
|
||
|
|
#include "scope.h"
|
||
|
|
#include "def.h"
|
||
|
|
#include "LLlex.h"
|
||
|
|
#include "f_info.h"
|
||
|
|
|
||
|
|
GetFile(name)
|
||
|
|
char *name;
|
||
|
|
{
|
||
|
|
/* Try to find a file with basename "name" and extension ".def",
|
||
|
|
in the directories mentioned in "DEFPATH".
|
||
|
|
*/
|
||
|
|
extern char *DEFPATH[];
|
||
|
|
char buf[256];
|
||
|
|
|
||
|
|
(void) strcpy(buf, name);
|
||
|
|
if (strlen(buf) > 10) {
|
||
|
|
(void) strcpy(&buf[10], ".def");
|
||
|
|
}
|
||
|
|
else (void) strcat(buf, ".def");
|
||
|
|
if (! InsertFile(buf, DEFPATH, &(FileName))) {
|
||
|
|
fatal("Could'nt find a DEFINITION MODULE for \"%s\"", name);
|
||
|
|
}
|
||
|
|
LineNumber = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
struct def *
|
||
|
|
GetDefinitionModule(id)
|
||
|
|
struct idf *id;
|
||
|
|
{
|
||
|
|
/* Return a pointer to the "def" structure of the definition
|
||
|
|
module indicated by "id".
|
||
|
|
We may have to read the definition module itself.
|
||
|
|
*/
|
||
|
|
struct def *df;
|
||
|
|
|
||
|
|
df = lookup(id, GlobalScope->sc_scope);
|
||
|
|
if (!df) {
|
||
|
|
/* Read definition module. Make an exception for SYSTEM.
|
||
|
|
*/
|
||
|
|
if (!strcmp(id->id_text, "SYSTEM")) {
|
||
|
|
do_SYSTEM();
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
GetFile(id->id_text);
|
||
|
|
DefModule();
|
||
|
|
}
|
||
|
|
df = lookup(id, GlobalScope->sc_scope);
|
||
|
|
}
|
||
|
|
assert(df != 0 && df->df_kind == D_MODULE);
|
||
|
|
return df;
|
||
|
|
}
|
||
|
|
|
||
|
|
AtEoIF()
|
||
|
|
{
|
||
|
|
/* Make the unstacking of input streams noticable by the
|
||
|
|
lexical analyzer
|
||
|
|
*/
|
||
|
|
return 1;
|
||
|
|
}
|