class GET_MAIN_SIG < $GET_MAIN_SIG

****	This phase determines the signature of main.

---

Ancestors

$GET_MAIN_SIG

CS_COMPONENT

---

Public

Readable Attributes

attr main_sig:SIG;

****	The signature of `main'.

attr prog:PROG;

Writable Attributes

attr main_sig:SIG;

****	The signature of `main'.

attr prog:PROG;

Features

barf(msg:STR)

****	Something wrong within the compiler, but we can't say where.

barf_at(msg:STR,at:$PROG_ERR)

****	Something wrong, and we know where.

create(p:PROG):SAME

err(s:STR)

****	Report an error.

err_loc(t:$PROG_ERR)

****	Set where a future error should be reported at.

get_main_sig(nm:STR)

****	Get the signature of the main routine in the class named `nm' and put it in `main_sig'.

warning(s:STR)

****	report a warning (doesn't stop compile);

---