godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

newer version

Browse Source
This commit is contained in:
ceriel
1986-04-23 22:12:22 +00:00
parent ce160b4f1a
commit a254a8acb1
11 changed files with 437 additions and 299 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lang/m2/comp/program.g
View File

@@ -51,6 +51,7 @@ ModuleDeclaration
extern int proclevel;
static int modulecount = 0;
char buf[256];
struct node *nd;
extern char *sprint(), *Malloc(), *strcpy();
} :
MODULE IDENT {
@@ -78,8 +79,9 @@ ModuleDeclaration
';'
import(1)*
export(0)?
block(&(df->mod_body))
IDENT { close_scope(SC_CHKFORW|SC_CHKPROC|SC_REVERSE);
block(&nd)
IDENT { InitProc(nd, df);
close_scope(SC_CHKFORW|SC_CHKPROC|SC_REVERSE);
match_id(id, dot.TOK_IDF);
currentdef = savecurr;
}
@@ -226,6 +228,7 @@ ProgramModule(int state;)
struct idf *id;
struct def *GetDefinitionModule();
register struct def *df;
struct node *nd;
} :
MODULE
IDENT {
@@ -243,12 +246,14 @@ ProgramModule(int state;)
open_scope(CLOSEDSCOPE);
df->mod_scope = CurrentScope;
df->mod_number = 0;
CurrentScope->sc_name = id->id_text;
}
}
priority(&(df->mod_priority))?
';' import(0)*
block(&(df->mod_body)) IDENT
{ close_scope(SC_CHKFORW|SC_CHKPROC|SC_REVERSE);
block(&nd) IDENT
{ InitProc(nd, df);
close_scope(SC_CHKFORW|SC_CHKPROC|SC_REVERSE);
match_id(id, dot.TOK_IDF);
}
'.'