class GET_MAIN_SIG < $GET_MAIN_SIG |
---|
**** | This phase determines the signature of main. |
$GET_MAIN_SIG | CS_COMPONENT |
attr main_sig:SIG; |
---|
**** | The signature of `main'. |
attr main_sig:SIG; |
---|
**** | The signature of `main'. |
create(p:PROG):SAME |
---|
get_main_sig(nm:STR) |
---|
**** | Get the signature of the main routine in the class named `nm' and put it in `main_sig'. |