GMC_DCL(char**, argv)
{
boolean Abort, NewFlag;
int i;
Init_IO();
Init_Err();
Init_Env();
Init_Sigs(FALSE);
IPC_Init();
IPC_Action = TopLevelCI;
if (IsServer) {
Init_Sigs(TRUE);
Read_DrvGrf();
Init_Info(&NewFlag);
Init_FilHdrs();
Init_FilInps();
Init_FilElms();
Init_FilPrm();
Init_FilHdrTree();
Activate_Client(LocalClient);
if (NewFlag) {
Write_ENV2(); }/*if*/; }/*if*/;
if (IsClient) {
IsTTY = GetIsTTY();
Init_Vars();
Init_CWD(); }/*if*/;
Read_ENV2();
if (IsClient) {
if (VerifyLevel >= 1) Test_All();
if (argc <= 1) {
Get_Commands(&Abort);
Exit((Abort?1:0)); }/*if*/;
for (i=1; i<argc; i+=1) {
;/*select*/{
if (strlen(argv[i]) == 0) {
Get_Commands(&Abort);
}else{
TopLevelCI(&Abort, argv[i]); };}/*select*/;
if (Abort) {
Exit(1); }/*if*/; }/*for*/;
Exit(0); }/*if*/;
IPC_Get_Commands(&Abort, (tp_Str)NIL);
Exit((Abort?1:0));
return 0; /*to make lint happy*/
}/*main*/
void Init_Everything () {
Init_Type ();
Init_Cstring ();
Init_String ();
Init_Symbol ();
Init_Env ();
Init_Error ();
Init_Exception ();
Init_Io ();
Init_Prim ();
Init_Math ();
Init_Print ();
Init_Auto ();
Init_Heap ();
Init_Load ();
Init_Proc ();
Init_Special ();
Init_Read ();
Init_Features ();
Init_Terminate ();
#ifdef CAN_DUMP
Init_Dump ();
#endif
}
