#include "gencodegcc.h"

char *version = "$VER: GenCodeGCC 2.2 (" __DATE__ " by D.-M. Brosig)";

struct Library * MUIBBase = NULL;

/* Global variables */
ULONG	varnb;			/* number of variables */

BOOL	Code, Env;		/* flags-options */
BOOL	Locale, Declarations;
BOOL	Notifications;
BOOL	ExternalExist = FALSE;
char	*FileName, *CatalogName;/* Strings */
char	*GetString;
char	*GetMBString;

FILE	*file;

char	HeaderFile[512];
char	GUIFile[512];
char	MBDir[512];
char	Externals[512];
char	Main[512];

/* variable types */
char	*STR_type[] = {
  "BOOL",
  "int",
  "char *",
  "char *",
  "APTR",
  "",
  "",
  "",
  "APTR",
  "APTR"
};                      	

void MB_Get(Tag Tag1, ...)
{
  MB_GetA( (struct TagItem *) ((ULONG) &Tag1) );
}

void MB_GetVarInfo(ULONG type, Tag Tag1, ...)
{
  MB_GetVarInfoA(type, (struct TagItem *) ((ULONG) &Tag1) );
}

void Indent(int nb)
{
  int	i;

  for(i=0;i<nb;i++) fprintf(file, "\t");
}

void WriteParameters(void)
{
  int   i;
  char  *varname, *typename;
  ULONG type,size;
  BOOL  comma = FALSE;
  
  typename = STR_type[ TYPEVAR_EXTERNAL_PTR - 1 ];
  if (Notifications)
    for(i=0;i<varnb;i++)
    {
      MB_GetVarInfo (i, MUIB_VarType, &type,
		        MUIB_VarName, &varname,
		        MUIB_VarSize, &size,
		        TAG_END);
      if (type == TYPEVAR_EXTERNAL_PTR)
      {
	if (comma) fprintf(file, ", ");
	comma = TRUE;
	fprintf(file, "%s %s", typename, varname);
      }
    }
  if (!comma) fprintf(file, "void");
}

void WriteDeclarations(int vartype)
{
  int	i;
  char	*varname;
  ULONG	type, size;
  char	*typename;
  int	nb_ident = 1;
  char	buffer[150];
	
  typename = STR_type[ vartype - 1 ];		/* find the name 'BOOL ...'	*/
  buffer[0] = '\0';
  for(i=0;i<varnb;i++)
  {
    MB_GetVarInfo (i,MUIB_VarType, &type,
		     MUIB_VarName, &varname,
		     MUIB_VarSize, &size,
		     TAG_END);
    if (type == vartype)
      switch(type)
      {
	case TYPEVAR_TABSTRING:	fprintf(file, "\t%s\t%s[%d];\n",
					 typename,varname,size+1);
				break;
	case TYPEVAR_IDENT:	fprintf(file,"#define %s %d\n", varname, nb_ident++);
				break;
	case TYPEVAR_LOCAL_PTR:	if (strlen(buffer)==0) 
				  sprintf(buffer, "\t%s\t%s", typename, varname);
				else
				{
				  strcat(buffer, ", ");
				  strcat(buffer, varname);
				}
				if (strlen(buffer)>=70)
				{
				  strcat(buffer, ";\n");
				  fprintf(file, "%s", buffer);
				  buffer[0] = '\0';
				}
				break;
	default:
				fprintf(file, "\t%s\t%s;\n",typename, varname);
				break;
    }
  }
  if (strlen(buffer)>0) fprintf(file, "%s;\n", buffer);
}

void WriteInitialisations(int vartype)
{
  int	i, j;
  ULONG	type, size;
  char	*inits, *name;
  BOOL	enter = FALSE;

  for(i=0;i<varnb;i++)
  {
    MB_GetVarInfo(i,MUIB_VarType	, &type,
		    MUIB_VarName	, &name,
		    MUIB_VarSize	, &size,
	            MUIB_VarInitPtr	, &inits,
		    TAG_END);
    if (type == vartype)
    {
      enter = TRUE;
      switch(type)
      {
	case TYPEVAR_TABSTRING:	for(j=0;j<size;j++)
				{
				  if (!Locale) 
				    fprintf(file, "\tMBObj->%s[%d] = \"%s\";\n", name, j, inits);
				  else
				    fprintf(file, "\tMBObj->%s[%d] = %s(%s);\n", name, j, GetMBString, inits);
				  inits = inits + strlen(inits) + 1;
				}
				fprintf(file, "\tMBObj->%s[%d] = NULL;\n", name, j);
				break;
	case TYPEVAR_STRING: 	if (*inits != 0)
				{
				  if (!Locale) 
				    fprintf(file, "\tMBObj->%s = \"%s\";\n", name, inits);
				  else
				    fprintf(file, "\tMBObj->%s = %s(%s);\n", name, GetMBString, inits);
				}
				else
				  fprintf(file, "\tMBObj->%s = NULL;\n", name);
				break;
	case TYPEVAR_HOOK:	fprintf(file, "\tstatic const struct Hook %sHook = { {NULL, NULL}, (HOOKFUNC) %s, NULL, NULL};\n", name, name);
				break;
	default:		break;
      }
    }
  }
  if (enter) fprintf(file, "\n");
}

void WriteCode(void)
{
  ULONG	type;
  char*	code;
  BOOL	InFunction     = FALSE;
  BOOL	IndentFunction = TRUE;
  BOOL	obj_function;
  BOOL	InObj;
  int	nb_indent      = 1;
  int	nb_function    = 0;
  int	name;

  extern void End(void);

  MB_GetNextCode(&type, &code);
  while(type != -1)
  {
    switch(type)
    {
      case TC_CREATEOBJ:
			name = atoi(code);
			fprintf(file, "%s,\n",MUIStrings[name]);
			nb_indent++;
			IndentFunction = TRUE;
			MB_GetNextCode(&type, &code);
			InObj = TRUE;
			break;
      case TC_ATTRIBUT:
			Indent(nb_indent);
			name = atoi(code);
			fprintf(file, "%s, ",MUIStrings[name]);
			IndentFunction = FALSE;
			MB_GetNextCode(&type, &code);
			break;
      case TC_END:
			nb_indent--;
			InObj = FALSE;
			Indent(nb_indent);
			name = atoi(code);
			fprintf(file, "%s",MUIStrings[name]);
			IndentFunction = TRUE;
			MB_GetNextCode(&type, &code);
			fprintf(file, ";\n\n");
			break;
      case TC_MUIARG_OBJFUNCTION:
			if (IndentFunction) Indent(nb_indent);
			nb_function++;
			name = atoi(code);
			fprintf(file, "%s(",MUIStrings[name]);
			IndentFunction = FALSE;
			InFunction     = TRUE;
			MB_GetNextCode(&type, &code);
			obj_function = TRUE;
			InFunction = TRUE;
			break;
      case TC_MUIARG_FUNCTION:
      case TC_FUNCTION:
			if (IndentFunction) Indent(nb_indent);
			nb_function++;
			name = atoi(code);
			fprintf(file, "%s(",MUIStrings[name]);
			IndentFunction = FALSE;
			InFunction     = TRUE;
			MB_GetNextCode(&type, &code);
			obj_function = FALSE;
			break;
      case TC_OBJFUNCTION:
			if (IndentFunction) Indent(nb_indent);
			nb_function++;
			name = atoi(code);
			fprintf(file, "%s(",MUIStrings[name]);
			InFunction     = TRUE;
			IndentFunction = FALSE;
			MB_GetNextCode(&type,&code);
			obj_function = TRUE;
			break;
      case TC_STRING:
			fprintf(file, "\"%s\"",code);
			MB_GetNextCode(&type, &code);
			IndentFunction = TRUE;
			if (InFunction)
			{
			  if (type  != TC_END_FUNCTION) 
			    fprintf(file, ", ");
			  IndentFunction = FALSE;
			}
			else
			  fprintf(file, ",\n");
			break;
      case TC_LOCALESTRING:
			fprintf(file, "%s(%s)",GetMBString, code);
                        MB_GetNextCode(&type, &code);
                        IndentFunction = TRUE;
                        if (InFunction)
                        {
                          if (type  != TC_END_FUNCTION) 
                            fprintf(file, ", ");
                          IndentFunction = FALSE;
                        }
                        else
                          fprintf(file, ",\n");
                        break;
      case TC_LOCALECHAR:
			fprintf(file, "%s(%s)[0]",GetString, code);
                        MB_GetNextCode(&type, &code);
                        IndentFunction = TRUE;
                        if (InFunction)
                        {
                          if (type  != TC_END_FUNCTION) 
                            fprintf(file, ", ");
                          IndentFunction = FALSE;
                        }
                        else
                          fprintf(file, ",\n");
                        break;
      case TC_INTEGER:
			fprintf(file, "%s", code);
                        MB_GetNextCode(&type, &code);
                        IndentFunction = TRUE;
                        if (InFunction)
                        {
                          if (type  != TC_END_FUNCTION) 
                            fprintf(file, ", ");
                          IndentFunction = FALSE;
                        }
                        else
                          fprintf(file, ",\n");
                        break;
      case TC_CHAR:
			fprintf(file, "'%s'",code);
                        MB_GetNextCode(&type, &code);
                        IndentFunction = TRUE;
                        if (InFunction)
                        {
                          if (type  != TC_END_FUNCTION)
                            fprintf(file, ", ");
                          IndentFunction = FALSE;
                        }
                        else
                          fprintf(file, ",\n");
                        break;	
      case TC_VAR_AFFECT:
			name = atoi(code);
			MB_GetVarInfo(name, MUIB_VarName, &code, MUIB_VarType, &type, TAG_END);
			if ((type == TYPEVAR_LOCAL_PTR) || (type == TYPEVAR_EXTERNAL_PTR))
			  fprintf( file, "\t%s = ", code);
			else 
			  fprintf(file, "\tMBObj->%s = ", code); 
			IndentFunction = FALSE;
			MB_GetNextCode(&type, &code);
			break;
      case TC_OBJ_ARG:
      case TC_VAR_ARG:
			name = atoi(code);
			MB_GetVarInfo(name, MUIB_VarName, &code, MUIB_VarType, &type, TAG_END);
			if ((type == TYPEVAR_LOCAL_PTR) || (type == TYPEVAR_EXTERNAL_PTR))
			  fprintf(file, "%s", code);
			else
			  fprintf(file, "MBObj->%s", code);
			MB_GetNextCode(&type, &code);
			if ((InFunction)&&(type != TC_END_FUNCTION)) 
			  fprintf(file, ", ");
			if (!InFunction)
			{
			  fprintf(file, ",\n");
			  IndentFunction = TRUE;
			}
			break;
      case TC_END_FUNCTION:
			MB_GetNextCode(&type, &code);
			if (nb_function>1)
			{
			  if (type != TC_END_FUNCTION) 
			    fprintf(file, "),");
			  else
			    fprintf(file, ")");
			}	
			else
			{
			  if (obj_function) 
			    fprintf(file, ");\n\n");
			  else
			    fprintf(file, "),\n");
			  IndentFunction = TRUE;
			  InFunction     = FALSE;
			  obj_function   = FALSE;
			}
			nb_function--;
			break;
      case TC_BOOL:
			if (*code == '0')
			  fprintf(file, "FALSE");
			else
			  fprintf(file, "TRUE" );
			MB_GetNextCode(&type, &code);
			if (InFunction)
			{
			  if (type != TC_END_FUNCTION)
			  {
			    fprintf(file, ", ");
			    IndentFunction = FALSE;
			  }
			}
			else
			  fprintf(file, ",\n");
			break;
       case TC_MUIARG:
			if (IndentFunction) Indent(nb_indent);
			name = atoi(code);
			fprintf(file, "%s", MUIStrings[name]);
			MB_GetNextCode(&type, &code);
			if (InFunction)
			{
			  if (type != TC_END_FUNCTION)
			  {
			    fprintf(file, ", ");
			    IndentFunction = FALSE;
			  }
			}
			else
			{
			  fprintf(file, ",\n");
			  IndentFunction = TRUE;
			}
			break;
      case TC_MUIARG_ATTRIBUT:
			if (IndentFunction) Indent(nb_indent);
			name = atoi(code);
			MB_GetNextCode(&type, &code);
			if (InObj)
			  fprintf(file, "%s,\n", MUIStrings[name]);
			else
			{
			  if (InFunction)
			  {
			    if (type != TC_END_FUNCTION)
			      fprintf(file, "%s,", MUIStrings[name]);
			    else
			      fprintf(file, "%s", MUIStrings[name]);
			  }
			  else
			  {
			    fprintf(file, "%s;\n\n", MUIStrings[name]);
			  }
			}
			break;
      case TC_MUIARG_OBJ:
			if (IndentFunction) Indent(nb_indent);
			name = atoi(code);
			MB_GetNextCode(&type, &code);
			fprintf(file, "%s;\n\n", MUIStrings[name]);
			break;
      case TC_EXTERNAL_FUNCTION:
			fprintf(file, "&%sHook", code);
			MB_GetNextCode(&type, &code);
			if (InFunction)
			{
			  if (type != TC_END_FUNCTION)	
			  {
			    fprintf(file, ", ");
			    IndentFunction = FALSE;
			  }
			}
			else
			{
			  fprintf(file, ",\n");
			  IndentFunction = TRUE;
			}
			break;
      default:
			printf("Type = %d\n", type);
			printf("ERROR !!!!! THERE IS A PROBLEM WITH THIS FILE !!!\n");
			End();
			exit(1);
			break;
    }
  }
}

void WriteNotify(void)
{
  ULONG	type;
  char*	code;
  int	name;
  BOOL	indent = FALSE;

  extern void End(void);

  fprintf(file, "\n");
  MB_GetNextNotify(&type, &code);
  while(type != -1)
  {
    if (indent) fprintf(file, "\t\t");
    indent = TRUE;
    switch(type)
    {
      case TC_END_FUNCTION:
      case TC_END_NOTIFICATION:
			fprintf(file, ");\n\n");
			MB_GetNextNotify(&type, &code);
			indent = FALSE;
			break;
      case TC_BEGIN_NOTIFICATION:
			name = atoi(code);
			MB_GetVarInfo(name, MUIB_VarName, &code, TAG_END);
			if ((type == TYPEVAR_LOCAL_PTR) || (type == TYPEVAR_EXTERNAL_PTR))
  			  fprintf(file, "\tDoMethod((Object *) %s,\n", code);
			else  
			  fprintf(file, "\tDoMethod((Object *) MBObj->%s,\n", code);
			MB_GetNextNotify(&type, &code);
			break;
      case TC_FUNCTION:
			name = atoi(code);
			fprintf(file, "\t%s(", MUIStrings[name]);
			MB_GetNextNotify(&type, &code);
			indent = FALSE;
			break;
      case TC_STRING:
			fprintf(file, "\"%s\"",code);
			MB_GetNextNotify(&type, &code);
			if ((type  != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION)) 
			  fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
			break;
      case TC_LOCALESTRING:
			fprintf(file, "%s(%s)",GetMBString, code);
                        MB_GetNextNotify(&type, &code);
                        if ((type  != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION)) 
                          fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
                        break;
      case TC_LOCALECHAR:
			fprintf(file, "%s(%s)[0]\n",GetString, code);
                        MB_GetNextNotify(&type, &code);
                        if ((type  != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION))
                          fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
                        break;
      case TC_INTEGER:
			fprintf(file, "%s", code);
                        MB_GetNextNotify(&type, &code);
                        if ((type  != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION))
                          fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
                        break;
      case TC_CHAR:
			fprintf(file, "'%s'",code);
                        MB_GetNextNotify(&type, &code);
                        if ((type  != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION))
                          fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
                        break;	
      case TC_OBJ_ARG:
      case TC_VAR_ARG:
			name = atoi(code);
			MB_GetVarInfo(name, MUIB_VarName, &code, MUIB_VarType, &type, TAG_END);
			if ((type == TYPEVAR_LOCAL_PTR) || (type == TYPEVAR_EXTERNAL_PTR))
  			  fprintf(file, "%s", code);
			else  
			  fprintf(file, "MBObj->%s", code);
			MB_GetNextNotify(&type, &code);
			if ((type != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION))
			  fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
			break;
      case TC_BOOL:
			if (*code == '0')
			  fprintf(file, "FALSE");
			else
			  fprintf(file, "TRUE" );
			MB_GetNextNotify(&type, &code);
			if ((type != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION))
			  fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
			break;
      case TC_MUIARG:
      case TC_MUIARG_OBJ:
			name = atoi(code);
			fprintf(file, "%s", MUIStrings[name]);
			MB_GetNextNotify(&type, &code);
			if ((type != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION))
			  fprintf(file, ", ");
			indent = FALSE;
			break;
      case TC_MUIARG_ATTRIBUT:
			name = atoi(code);
			fprintf(file, "%s", MUIStrings[name]);
			MB_GetNextNotify(&type, &code);
			if ((type != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION))
			  fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
			break;
      case TC_EXTERNAL_CONSTANT:
                        fprintf(file, "%s", code);
                        MB_GetNextNotify(&type, &code);
                        if ((type != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION))
                          fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
                        break;
      case TC_EXTERNAL_FUNCTION:
			fprintf(file, "&%sHook", code);
			MB_GetNextNotify(&type, &code);
                        if ((type != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION))
                          fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
			break;
      case TC_EXTERNAL_VARIABLE:
			fprintf(file, "%s", code);
			MB_GetNextNotify(&type, &code);
                        if ((type != TC_END_NOTIFICATION)&&(type != TC_END_FUNCTION))
                          fprintf(file, ",\n");
			else 
			  fprintf(file, "\n");
			break;
      default:
			printf("Type = %d\n", type);
			printf("ERROR !!!!! THERE IS A PROBLEM WITH THIS FILE !!!\n");
			End();
			exit(1);
			break;
    }
  }
}

void Init(void)
{
  BPTR	lock;

  /* Get all needed variables */
  MB_Get(MUIB_VarNumber		, &varnb,
	MUIB_Code		, &Code,
	MUIB_Environment	, &Env,
	MUIB_Locale		, &Locale,
	MUIB_Notifications	, &Notifications,
	MUIB_Declarations	, &Declarations,
	MUIB_FileName		, &FileName,
	MUIB_CatalogName	, &CatalogName,
	MUIB_GetStringName	, &GetString,
	TAG_END);

  /* Create 'GetMBString' name */
  if (strcmp(GetString, "GetMBString") == 0) 
    GetMBString  = "GetMBString2";
  else
    GetMBString = "GetMBString";

  /* Create File Names */
  remove_extend(FileName);
  strncpy(GUIFile, FileName, 512);
  add_extend(GUIFile, ".cpp");
  strncpy(HeaderFile, FileName, 512);
  add_extend(HeaderFile, ".h");
  strncpy(Externals, FileName, 512);
  strncat(Externals, "Extern", 512);
  add_extend(Externals, ".h");
  strncpy(Main, FileName, 512);
  strncat(Main, "Main", 512);
  add_extend(Main, ".cpp");

  /* Get Current Directory Name */
  lock = Lock((APTR) "PROGDIR:", ACCESS_READ);
  NameFromLock(lock, (APTR) MBDir, 512);
  UnLock(lock);
}

void WriteHeaderFile(void)
{
  char	*name;
  char	buffer[600];
  char	buffer2[600];

  if (Env)
  {
    strncpy(buffer, MBDir, 600);
    AddPart((APTR) buffer, (APTR) "H++-Header", 512);
    sprintf(buffer2, "copy \"%s\" \"%s\"", buffer, HeaderFile);
    Execute((APTR) buffer2,0,0);
  }
  else
    DeleteFile((APTR) HeaderFile);
  file = fopen(HeaderFile, "a+");
  if (file)
  {
    MB_GetVarInfo(0, MUIB_VarName, &name, TAG_END);
    fprintf(file, "struct Obj%s\n{\n", name);
    WriteDeclarations(TYPEVAR_PTR);
    WriteDeclarations(TYPEVAR_BOOL);
    WriteDeclarations(TYPEVAR_INT);
    WriteDeclarations(TYPEVAR_STRING);
    WriteDeclarations(TYPEVAR_TABSTRING);
    fprintf(file, "};\n\n");
    if (Notifications)
    {
      WriteDeclarations(TYPEVAR_IDENT);
      fprintf(file, "\n");
    }
    if (Env)
    {
      fprintf(file,"extern struct Obj%s * Create%s(void);\n", name, name);
      fprintf(file,"extern void Dispose%s(struct Obj%s *);\n", name, name);
    }
    fclose(file);
  }
}

void WriteGUIFile(void)
{
  char	buffer[600];
  char	buffer2[600];
  char	*name;

  if (Env)
  {
    strncpy(buffer, MBDir, 600);
    AddPart((APTR) buffer, (APTR) "C++-Header", 512);
    sprintf(buffer2, "copy \"%s\" \"%s\"", buffer, GUIFile);
    Execute((APTR) buffer2,0,0);
  }
  else 
    DeleteFile((APTR) GUIFile);
  if (file = fopen(GUIFile, "a+"))
  {
    if (Env)
    {
      MB_GetVarInfo(0, MUIB_VarName, &name, TAG_END);
      fprintf(file, "\n#include \"%s\"\n", FilePart((APTR) HeaderFile));
      if (ExternalExist) 
        fprintf(file, "#include \"%s\"\n\n", FilePart((APTR) Externals));
      if (Locale)
      {
	remove_extend(CatalogName);
	fprintf(file, "#include \"%s_cat.h\"\n\n", FilePart((APTR) CatalogName) );
	fprintf(file, "extern char* %s(int);\n", GetString);
	fprintf(file, "\nstatic char *%s(int ref)\n{\n", GetMBString);
	fprintf(file, "\tchar *aux;\n\n");
	fprintf(file, "\taux = %s(ref);\n", GetString);
	fprintf(file, "\tif (aux[1] == '\\0') return(&aux[2]);\n");
	fprintf(file, "\telse                return(aux);\n}\n");
      }
      fprintf(file, "\nstruct Obj%s *Create%s(", name, name);
      WriteParameters();
      fprintf(file, ")\n");
      fprintf(file, "{\n\tstruct Obj%s *MBObj;\n\n", name);
    }
    if (Declarations)
    {
      WriteDeclarations(TYPEVAR_LOCAL_PTR);
      WriteInitialisations(TYPEVAR_HOOK);
    }
    if (Env) 
      fprintf(file, "\n\tif (!(MBObj = (struct Obj%s *) AllocVec(sizeof(struct Obj%s), MEMF_PUBLIC|MEMF_CLEAR)))\n\t\treturn(NULL);\n", name, name);
    if (Declarations)
    {
      WriteInitialisations(TYPEVAR_PTR);
      WriteInitialisations(TYPEVAR_BOOL);
      WriteInitialisations(TYPEVAR_INT);
      WriteInitialisations(TYPEVAR_STRING);
      WriteInitialisations(TYPEVAR_TABSTRING);
    }
    if (Code) WriteCode();
    if (Env)
    {
      fprintf(file, "\n\tif (!MBObj->%s)\n\t{\n\t\tFreeVec(MBObj);", name);
      fprintf(file, "\n\t\treturn(NULL);\n\t}\n");
    }
    if (Notifications) WriteNotify();
    if (Env)
    {
      fprintf(file, "\n\treturn(MBObj);\n}\n");
      fprintf(file, "\nvoid Dispose%s(struct Obj%s * MBObj)\n{\n", name, name);
      fprintf(file, "\tMUI_DisposeObject( (Object *) MBObj->%s);\n", name);
      fprintf(file, "\tFreeVec(MBObj);\n}\n");
    }
    fclose(file);
  }
  else 
    printf("Unable to open GUI-File!\n");
}

BOOL WriteExternalFile( void )
{
  int	i;
  ULONG	length, type;
  char	*varname;
  struct FileInfoBlock *Info = AllocDosObject(DOS_FIB,NULL);
  BOOL	result = FALSE;
  BPTR	file2;
  
  if (file = fopen(Externals, "w+"))
  {
    /* write _EXTERNAL */
    fprintf(file,"\n"); 
    for(i=0;i<varnb;i++)
    {
      MB_GetVarInfo (i, MUIB_VarType, &type, MUIB_VarName, &varname, TAG_END);
      if (type==TYPEVAR_EXTERNAL)
	fprintf(file, "extern int %s;\n", varname);
    }
    /* write C++ function definition */
    fprintf(file,"\n#ifdef cplusplus\n");
    for(i=0;i<varnb;i++)
    {
      MB_GetVarInfo (i, MUIB_VarType, &type, MUIB_VarName, &varname, TAG_END);
      if (type==TYPEVAR_HOOK)
	fprintf(file, "extern void \"C\" %s(Object *);\n", varname);
    }
    /* write C function definition */
    fprintf(file,"#else\n");
    for(i=0;i<varnb;i++)
    {
      MB_GetVarInfo (i, MUIB_VarType, &type, MUIB_VarName, &varname, TAG_END);
      if (type==TYPEVAR_HOOK)
	fprintf(file, "extern void %s(Object *);\n", varname);
    }
    fprintf(file,"#endif\n");
    fclose(file);
  }
  if (file2 = Open((APTR) Externals, MODE_OLDFILE))
  {
    ExamineFH(file2, Info);
    Close(file2);
    length = Info->fib_Size;
    if (length == 0) 
      DeleteFile((APTR) Externals);
    else
      result = TRUE;
  }
  FreeDosObject(DOS_FIB, Info);
  return(result);
}

void End(void)
{
  MB_Close();
  if (MUIBBase) CloseLibrary(MUIBBase);
  if (DOSBase) CloseLibrary(DOSBase);
}

int main()
{
  MUIBBase = OpenLibrary((APTR) "muibuilder.library", 0);
  DOSBase  = OpenLibrary((APTR) "dos.library", 0);

  if ((!MUIBBase)||(!DOSBase))
  {
    printf("Unable to open a library\n");
    exit(20);
  }

  if (!MB_Open())
  {
    printf("Unable to Get Temporary files !\n");
    End();
    exit(20);
  }

  Init();
  if (Declarations) WriteHeaderFile();
  if (Env) ExternalExist = WriteExternalFile();
  WriteGUIFile();

  End();
  exit(0);
}