LIBPROTOVA(InitAmiSSL, LONG, REG(a6, __BASE_OR_IFACE), ...)
{
__gnuc_va_list ap;
struct TagItem *tags;
__builtin_va_start(ap, __BASE_OR_IFACE_VAR);
tags = va_getlinearva(ap, struct TagItem *);
__builtin_va_end(ap);
return CALL_LFUNC(InitAmiSSLA, tags);
}
LIBSTUB(CodesetsConvertStrA, STRPTR)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsConvertStrA, (struct TagItem *)REG_A0);
}
LIBSTUB(CodesetsIsValidUTF8, BOOL)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsIsValidUTF8, (CONST_STRPTR)REG_A0);
}
LIBSTUB(CodesetsListAddA, BOOL)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsListAddA, (struct codesetList *)REG_A0, (struct TagItem *)REG_A1);
}
LIBSTUB(URL_LaunchPrefsAppA, ULONG)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(URL_LaunchPrefsAppA, (struct TagItem *)REG_A0);
}
LIBSTUB(URL_FreePrefsA, void)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
CALL_LFUNC(URL_FreePrefsA, (struct URL_Prefs *)REG_A0, (struct TagItem *)REG_A1);
}
LIBSTUB(URL_OldSetPrefs, ULONG)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(URL_OldSetPrefs, (struct URL_Prefs *)REG_A0, (ULONG)REG_D0);
}
LIBSTUB(URL_OpenA, ULONG)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(URL_OpenA, (STRPTR)REG_A0, (struct TagItem *)REG_A1);
}
LIBSTUB(CodesetsFreeA, void)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsFreeA, (APTR)REG_A0, (struct TagItem *)REG_A1);
}
LIBSTUB(CodesetsSupportedA, STRPTR *)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsSupportedA, (struct TagItem *)REG_A0);
}
LIBSTUB(CodesetsDecodeB64A, ULONG)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsDecodeB64A, (struct TagItem *)REG_A0);
}
LIBSTUB(CodesetsConvertUTF8toUTF32, ULONG)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsConvertUTF8toUTF32, (const UTF8 **)REG_A0, (const UTF8 *)REG_A1, (UTF32 **)REG_A2, (UTF32 *)REG_A3, (ULONG)REG_D0);
}
LIBSTUB(CodesetsIsLegalUTF8Sequence, BOOL)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsIsLegalUTF8Sequence, (const UTF8 *)REG_A0,(const UTF8 *)REG_A1);
}
LIBSTUB(CodesetsIsLegalUTF8, BOOL)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsIsLegalUTF8, (const UTF8 *)REG_A0, (ULONG)REG_D0);
}
LIBSTUB(CodesetsListRemoveA, BOOL)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsListRemoveA, (struct TagItem *)REG_A0);
}
LIBSTUB(CodesetsFindA, struct codeset *)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsFindA, (CONST_STRPTR)REG_A0, (struct TagItem *)REG_A1);
}
LIBPROTO(__UserLibInit, int, REG(a6, __BASE_OR_IFACE), REG(a0, struct LibraryHeader *libBase))
{
int err = 1; /* Assume error condition */
ENTER();
SHOWPOINTER(DBF_STARTUP, __BASE_OR_IFACE_VAR);
SHOWPOINTER(DBF_STARTUP, libBase);
SHOWPOINTER(DBF_STARTUP, libBase->parent);
// lets set libBase as the ownBase for later reference
ownBase = libBase;
SHOWPOINTER(DBF_STARTUP, &ownBase);
SHOWPOINTER(DBF_STARTUP, ownBase);
// lets set the parent of libBase as our parentBase
parentBase = libBase->parent;
SHOWPOINTER(DBF_STARTUP, &parentBase);
SHOWPOINTER(DBF_STARTUP, parentBase),
// we have to initialize the libcmt stuff
__init_libcmt();
D(DBF_STARTUP, "Global parentBase variables:");
D(DBF_STARTUP, "---------------------------");
SHOWPOINTER(DBF_STARTUP, &parentBase->openssl_cs);
SHOWPOINTER(DBF_STARTUP, &parentBase->thread_hash);
SHOWPOINTER(DBF_STARTUP, parentBase->thread_hash);
SHOWPOINTER(DBF_STARTUP, &parentBase->LastThreadGroupID);
SHOWVALUE(DBF_STARTUP, parentBase->LastThreadGroupID);
D(DBF_STARTUP, "---------------------------");
ObtainSemaphore(&parentBase->openssl_cs);
ownBase->ThreadGroupID = ++(parentBase->LastThreadGroupID);
SHOWPOINTER(DBF_STARTUP, &ownBase->ThreadGroupID);
SHOWVALUE(DBF_STARTUP, ownBase->ThreadGroupID);
ReleaseSemaphore(&parentBase->openssl_cs);
#if defined(__amigaos4__)
if ((DOSBase = OpenLibrary("dos.library", 50))
&& (IntuitionBase = OpenLibrary("intuition.library", 50))
&& (UtilityBase = OpenLibrary("utility.library", 50))
&& (IDOS = (struct DOSIFace *)GetInterface(DOSBase,"main",1,NULL))
&& (IIntuition = (struct IntuitionIFace *)GetInterface(IntuitionBase,"main",1,NULL))
&& (IUtility = (struct UtilityIFace *)GetInterface(UtilityBase,"main",1,NULL)))
#else
if ((DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 37))
&& (IntuitionBase = (struct IntuitionBase*)OpenLibrary("intuition.library", 36))
&& (UtilityBase = OpenLibrary("utility.library", 37)))
#endif
{
err = 0;
}
D(DBF_STARTUP, "Userlib err: %d %08lx", err, SysBase);
if (err != 0)
CALL_LFUNC(__UserLibCleanup, libBase);
RETURN(err);
return(err);
}
LIBSTUB(CodesetsFindBestA, struct codeset *)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsFindBestA, (struct TagItem *)REG_A0);
}
LIBSTUB(URL_OldFreePrefs, void)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
CALL_LFUNC(URL_OldFreePrefs, (struct URL_Prefs *)REG_A0);
}
LIBSTUB(CodesetsUTF8Len, ULONG)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsUTF8Len, (UTF8 *)REG_A0);
}
LIBSTUB(dispatch, LONG)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(dispatch, (struct RexxMsg *)REG_A0, (STRPTR *)REG_A1);
}
LIBSTUB(CodesetsStrLenA, ULONG)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsStrLenA, (CONST_STRPTR)REG_A0, (struct TagItem *)REG_A1);
}
LIBSTUB(URL_SetPrefsA, ULONG)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(URL_SetPrefsA, (struct URL_Prefs *)REG_A0, (struct TagItem *)REG_A1);
}
LIBSTUB(CodesetsUTF8CreateA, UTF8 *)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsUTF8CreateA, (struct TagItem *)REG_A0);
}
LIBSTUB(URL_GetAttr, ULONG)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(URL_GetAttr, (ULONG)REG_D0, (ULONG *)REG_A0);
}
LIBSTUB(CodesetsListCreateA, struct codesetList *)
{
__BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
return CALL_LFUNC(CodesetsListCreateA, (struct TagItem *)REG_A0);
}
