// INIT.C
//#define IDEBUG
 
#include "dockybase.h"
#include <exec/exec.h>
#include <proto/exec.h>
#include <dos/dos.h>
#include <exec/types.h>
//#include <stdlib.h>
 
#include "KeyMapSwitcher_rev.h"
 
/*
#include <proto/locale.h>
struct Library *LocaleBase = NULL;
struct LocaleIFace *ILocale = NULL;
struct Catalog *catalog = (struct Catalog *)NULL;
*/
volatile char __attribute__((unused)) verstag[] = VERSTAG;
 
BOOL openLibs(void);
void closeLibs(void);
 
struct Library *DOSBase = NULL;
struct Library *UtilityBase = NULL;
struct Library *IconBase = NULL;
struct Library *IntuitionBase = NULL;
struct Library *IFFParseBase = NULL;
struct Library *KeymapBase = NULL;
struct Library *DataTypesBase = NULL;
struct Library *GfxBase = NULL;
struct Library *P96Base = NULL;
 
struct ExecIFace *IExec = NULL;
struct DOSIFace *IDOS = NULL;
struct UtilityIFace *IUtility = NULL;
struct IconIFace *IIcon = NULL;
struct IntuitionIFace *IIntuition = NULL;
struct IFFParseIFace *IIFFParse = NULL;
struct KeymapIFace *IKeymap = NULL;
struct DataTypesIFace *IDataTypes = NULL;
struct GraphicsIFace *IGraphics = NULL;
struct P96IFace *IP96 = NULL;
 
struct Library *NewlibBase = NULL;
struct Interface *INewlib = NULL;
 
//struct Library *ApplicationBase = NULL;
//struct PrefsObjectsIFace *IPrefsObjects = NULL;
struct Library *ListBrowserBase = NULL;
struct ListBrowserIFace *IListBrowser = NULL;
 
/*
 * The system (and compiler) rely on a symbol named _start which marks
 * the beginning of execution of an ELF file. To prevent others from 
 * executing this library, and to keep the compiler/linker happy, we
 * define an empty _start symbol here.
 *
 * On the classic system (pre-AmigaOS4) this was usually done by
 * moveq #0,d0
 * rts
 */
int32 _start(void)
{
 /* If you feel like it, open DOS and print something to the user */
 return RETURN_OK;
}
 
 
/* Open the library */
struct Library *libOpen(struct LibraryManagerInterface *Self, ULONG version)
{
struct Library *libBase = (struct Library *)Self->Data.LibBase; 
#ifdef IDEBUG
IExec->DebugPrintF("[%s]libOpen\n",LIBNAME);
#endif
 if(version > VERSION) return NULL;
 
 // Add any specific open code here,
 // Return 0 before incrementing OpenCnt to fail opening.
 
 // Add up the open count
 ((struct Library *)libBase)->lib_OpenCnt++;
 return libBase;
}
 
 
/* Close the library */
APTR libClose(struct LibraryManagerInterface *Self)
{
 struct Library *libBase = (struct Library *)Self->Data.LibBase;
 // Make sure to undo what open did
#ifdef IDEBUG
IExec->DebugPrintF("[%s]libClose\n",LIBNAME);
#endif
 // Make the close count
 ((struct Library *)libBase)->lib_OpenCnt--;
 return 0;
}
 
 
/* Expunge the library */
APTR libExpunge(struct LibraryManagerInterface *Self)
{// If your library cannot be expunged, return 0
 APTR result = (APTR)0;
 struct Library *libBase = (struct Library *)Self->Data.LibBase;
 struct DockyBase *DockyLibBase = (struct DockyBase *)libBase;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]libExpunge\n",LIBNAME);
#endif
 if(libBase->lib_OpenCnt == 0)
 {
  result = (APTR)DockyLibBase->SegList;
  // Undo what the init code did
  closeLibs();
 
  IExec->Remove( (struct Node *)libBase );
  IExec->DeleteLibrary( (struct Library *)libBase );
 }
 else
 {
  result = (APTR)0;
  libBase->lib_Flags |= LIBF_DELEXP;
 }
 
return result;
}
 
 
/* The ROMTAG Init Function */
struct Library *libInit(struct Library *libBase, APTR seglist, struct Interface *exec)
{
 struct DockyBase *DockyLibBase = (struct DockyBase *)libBase;
 
 IExec = (struct ExecIFace *)exec;
 
 libBase->lib_Node.ln_Type = NT_LIBRARY;
 libBase->lib_Node.ln_Pri  = 0;
 libBase->lib_Node.ln_Name = LIBNAME;
 libBase->lib_Flags        = LIBF_SUMUSED|LIBF_CHANGED;
 libBase->lib_Version      = VERSION;
 libBase->lib_Revision     = REVISION;
 libBase->lib_IdString     = VSTRING;
 
 DockyLibBase->SegList = seglist;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]libInit\n",LIBNAME);
#endif
 if( openLibs() ) return libBase;
 
 closeLibs();
 return NULL;
}
 
 
BOOL openLibs(void)
{
 NewlibBase = IExec->OpenLibrary("newlib.library", 52);
 if(!NewlibBase) return FALSE;
 INewlib = (struct Interface *)IExec->GetInterface(NewlibBase, "main", 1, NULL);
 if(!INewlib) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(NEWLIB)\n",LIBNAME);
#endif
/*
 ApplicationBase = IExec->OpenLibrary("application.library", 52);
 if(!ApplicationBase) return FALSE;
 IPrefsObjects = (struct PrefsObjectsIFace *)IExec->GetInterface(ApplicationBase, "prefsobjects", 2, NULL);
 if(!IPrefsObjects) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(APPLIB/PREFSOBJ)\n",LIBNAME);
#endif
*/
 DOSBase = IExec->OpenLibrary("dos.library", 52);
 if(!DOSBase) return FALSE;
 IDOS = (struct DOSIFace *)IExec->GetInterface(DOSBase, "main", 1, NULL);
 if(!IDOS) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(DOS)\n",LIBNAME);
#endif
 
 UtilityBase = IExec->OpenLibrary("utility.library", 52);
 if(!UtilityBase) return FALSE;
 IUtility = (struct UtilityIFace *)IExec->GetInterface(UtilityBase, "main", 1, NULL);
 if(!IUtility) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(UTILITY)\n",LIBNAME);
#endif
 
 IconBase = IExec->OpenLibrary("icon.library", 52);
 if(!IconBase) return FALSE;
 IIcon = (struct IconIFace *)IExec->GetInterface(IconBase, "main", 1, NULL);
 if(!IIcon) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(ICON)\n",LIBNAME);
#endif
 
 IntuitionBase = IExec->OpenLibrary("intuition.library", 52);
 if(!IntuitionBase) return FALSE;
 IIntuition = (struct IntuitionIFace *)IExec->GetInterface(IntuitionBase, "main", 1, NULL);
 if(!IIntuition) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(INTUITION)\n",LIBNAME);
#endif
 
 IFFParseBase = IExec->OpenLibrary("iffparse.library", 52);
 if(!IFFParseBase) return FALSE;
 IIFFParse = (struct IFFParseIFace *)IExec->GetInterface(IFFParseBase, "main", 1, NULL);
 if(!IIFFParse) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(IFFPARSE)\n",LIBNAME);
#endif
 
 KeymapBase = IExec->OpenLibrary("keymap.library", 52);
 if(!KeymapBase) return FALSE;
 IKeymap = (struct KeymapIFace *)IExec->GetInterface(KeymapBase, "main", 1, NULL);
 if(!IKeymap) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(KEYMAP)\n",LIBNAME);
#endif
 
 ListBrowserBase = IExec->OpenLibrary("listbrowser.gadget", 52);
 if(!ListBrowserBase) return FALSE;
 IListBrowser = (struct ListBrowserIFace *)IExec->GetInterface(ListBrowserBase, "main", 1, NULL);
 if(!IListBrowser) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(LISTBROWSER)\n",LIBNAME);
#endif
 
 DataTypesBase = IExec->OpenLibrary("datatypes.library", 52);
 if(!DataTypesBase) return FALSE;
 IDataTypes = (struct DataTypesIFace *)IExec->GetInterface(DataTypesBase, "main", 1, NULL);
 if(!IDataTypes) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(DATATYPES)\n",LIBNAME);
#endif
 
 GfxBase = IExec->OpenLibrary("graphics.library", 52);
 if(!GfxBase) return FALSE;
 IGraphics = (struct GraphicsIFace *)IExec->GetInterface(GfxBase, "main", 1, NULL);
 if(!IGraphics) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(GRAPHICS)\n",LIBNAME);
#endif
 
 P96Base = IExec->OpenLibrary("Picasso96API.library", 52);
 if(!P96Base) return FALSE;
 IP96 = (struct P96IFace *)IExec->GetInterface(P96Base, "main", 1, NULL);
 if(!IP96) return FALSE;
#ifdef IDEBUG
IExec->DebugPrintF("[%s]openLibs(P96API)\n",LIBNAME);
#endif
 
/* if( (LocaleBase = IExec->OpenLibrary("locale.library", 52)) &&
     (ILocale = (struct LocaleIFace *)IExec->GetInterface(LocaleBase, "main", 1, NULL)) )
 {
  catalog = ILocale->OpenCatalog(NULL, "sys/XXX.catalog",
                                 OC_BuiltInLanguage, "english",
                                 OC_PreferExternal, TRUE,
                                TAG_END);
 }
 else IDOS->PutErrStr("Failed to use catalog system. Using built-in strings.\n");
*/
 
 return TRUE;
}
 
 
void closeLibs(void)
{
/* if(ILocale)
 {
  ILocale->CloseCatalog(catalog);
  IExec->DropInterface( (struct Interface *)ILocale );
 }
 IExec->CloseLibrary( (struct Library *)LocaleBase );
*/ 
 IExec->DropInterface((struct Interface *)IP96); 
 IExec->CloseLibrary(P96Base);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(P96API)\n",LIBNAME);
#endif
 
 IExec->DropInterface((struct Interface *)IGraphics); 
 IExec->CloseLibrary(GfxBase);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(GRAPHICS)\n",LIBNAME);
#endif
 
 IExec->DropInterface((struct Interface *)IDataTypes);
 IExec->CloseLibrary(DataTypesBase);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(DATATYPES)\n",LIBNAME);
#endif
 
 IExec->DropInterface( (struct Interface *)IListBrowser );
 IExec->CloseLibrary(ListBrowserBase);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(LISTBROWSER)\n",LIBNAME);
#endif
 
 IExec->DropInterface( (struct Interface *)IKeymap );
 IExec->CloseLibrary(KeymapBase);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(KEYMAP)\n",LIBNAME);
#endif
 
 IExec->DropInterface( (struct Interface *)IIFFParse );
 IExec->CloseLibrary( (struct Library*)IFFParseBase );
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(IFFPARSE)\n",LIBNAME);
#endif
 
 IExec->DropInterface( (struct Interface *)IIntuition );
 IExec->CloseLibrary(IntuitionBase);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(INTUITION)\n",LIBNAME);
#endif
 
 IExec->DropInterface( (struct Interface *)IIcon );
 IExec->CloseLibrary(IconBase);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(ICON)\n",LIBNAME);
#endif
 
 IExec->DropInterface( (struct Interface *)IUtility );
 IExec->CloseLibrary(UtilityBase);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(UTILITY)\n",LIBNAME);
#endif
 
 IExec->DropInterface( (struct Interface *)IDOS );
 IExec->CloseLibrary(DOSBase);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(DOS)\n",LIBNAME);
#endif
 
 IExec->DropInterface( (struct Interface *)INewlib );
 IExec->CloseLibrary(NewlibBase);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(NEWLIB)\n",LIBNAME);
#endif
/*
 IExec->DropInterface( (struct Interface *)IPrefsObjects );
 IExec->CloseLibrary(ApplicationBase);
#ifdef IDEBUG
IExec->DebugPrintF("[%s]closeLibs(APPLIB/PREFSOBJ)\n",LIBNAME);
#endif
*/
}
 
 
/* ------------------- Manager Interface ------------------------ */
/* These are generic. Replace if you need more fancy stuff */
static LONG _manager_Obtain(struct LibraryManagerInterface *Self)
{
 Self->Data.RefCount++;
 return Self->Data.RefCount;
}
 
 
static ULONG _manager_Release(struct LibraryManagerInterface *Self)
{
 Self->Data.RefCount--;
 return Self->Data.RefCount;
}
 
 
/* Manager interface vectors */
STATIC CONST APTR lib_manager_vectors[] =
{
 (void *)_manager_Obtain,
 (void *)_manager_Release,
 (void *)0,
 (void *)0,
 (void *)libOpen,
 (void *)libClose,
 (void *)libExpunge,
 (void *)0,
 (void *)-1,
};
 
 
/* "__library" interface tag list */
static struct TagItem lib_managerTags[] =
{
 { MIT_Name,        (ULONG)"__library"         },
 { MIT_VectorTable, (ULONG)lib_manager_vectors },
 { MIT_Version,     1                          },
 { TAG_END,         0                          }
};
 
 
/* ------------------- Library Interface(s) ------------------------ */
static void *docky_vectors[] = {
 (void *)_docky_Obtain,
 (void *)_docky_Release,
 (void *)_docky_Expunge,
 (void *)_docky_Clone,
 (void *)_docky_DockyGet,
 (void *)_docky_DockySet,
 (void *)_docky_DockyProcess,
 (void *)-1
};
 
/* Uncomment this line (and see below) if your library has a 68k jump table */
//extern ULONG VecTable68K[];
struct TagItem dockyTags[] =
{
 { MIT_Name,        (uint32)"docky"                    },
 { MIT_VectorTable, (uint32)docky_vectors              },
 { MIT_DataSize,    (uint32)(sizeof(struct DockyData)) },
 { MIT_Flags,       IFLF_PRIVATE                       },
 { MIT_Version,     1                                  },
 { TAG_END,         0                                  }
};
 
static uint32 libInterfaces[] =
{
 (uint32)lib_managerTags,
 (uint32)dockyTags,
 (uint32)0
};
 
struct TagItem libCreateTags[] =
{
 { CLT_DataSize,   (uint32)(sizeof(struct DockyBase)) },
 { CLT_InitFunc,   (uint32)libInit                    },
 { CLT_Interfaces, (uint32)libInterfaces              },
 { TAG_DONE,       0                                  }
};
 
 
/* ------------------- ROM Tag ------------------------ */
struct Resident USED lib_res =
{
 RTC_MATCHWORD,
 &lib_res,
 &lib_res+1,
 RTF_NATIVE|RTF_AUTOINIT, // Add RTF_COLDSTART if you want to be resident
 VERSION,
 NT_LIBRARY,              // Make this NT_DEVICE if needed
 0,                       // PRI, usually not needed unless you're resident
 LIBNAME,
 VSTRING,
 libCreateTags
};