website logo
Auteur
avatar
thellier

Forum » » Création-Développement » » AmOS4


Posté : 16-02-2015 14:23 icone du post

@Sharynn


@Sharynn


Effectivement ça marche sur ma Sam440 : faut juste penser à ajouter la ptreplay.library


J'ai aussi réessayer tes anciennes démos "zoom" et "démo" : elles marchent toujours sur mon OS41FE


A propos d'ouverture de .library moi je me suis fait une macro = c'est moins pénible que de mettre des #ifdef __amigaos4__ partout


Pour tracer un prog j'aime aussi beucoup cette macro là:
#define LL            {printf("Line:%ld\n",__LINE__);}
Après y suffit de mettre un LL en début de chaque ligne à tester


Alain


*========================================================================= =========*/
#ifdef __amigaos4__
#define OS4
#else
#define OS3
#endif
*============================================================= =====================*/
#define LIBCLOSE(libbase)  if(libbase!=NULL) {CloseLibrary( (struct Library  *)libbase );   libbase=NULL; }
#define LIBOPEN(libbase,name,version)  libbase =(void*)OpenLibrary(#name,version);    if(libbase==NULL)  return(FALSE);
#ifdef OS4
#define LIBOPEN4(interface,libbase)    interface=(void*)GetInterface((struct Library *)libbase, "main", 1, NULL); if(interface==NULL) return(FALSE);
#define LIBCLOSE4(interface) if(interface!=NULL) {DropInterface((struct Interface*)interface );interface=NULL;}
#else
#define LIBOPEN4(interface,libbase)    ;
#define LIBCLOSE4(interface) ;
#endif
/*=============================================================== ===================*/
BOOL OpenAmigaLibraries()
{
 LIBOPEN(DOSBase,dos.library,36)
 LIB OPEN(GfxBase,graphics.library,0)
 LIBOPEN(IntuitionBase,intuition.libra ry,0)
 LIBOPEN(CyberGfxBase,cybergraphics.library,0)
 LIBOPEN(D ataTypesBase,datatypes.library,39)
 LIBOPEN(Warp3DBase,Warp3D.library,4 )
 LIBOPEN(AslBase,asl.library,37)
 LIBOPEN(UtilityBase,utility .library,0)
 LIBOPEN(RexxSysBase,rexxsyslib.library,35)


 LIBOPEN4(IDOS,DOSBase)
 LIBOPEN4(IGraphics,GfxBase)
  ;LIBOPEN4(IIntuition,IntuitionBase)
 LIBOPEN4(ICyberGfx,CyberGfxBase) R> LIBOPEN4(IDataTypes,DataTypesBase)
 LIBOPEN4(IWarp3D,Warp3DBase )
 LIBOPEN4(IAsl,AslBase)
 LIBOPEN4(IUtility,UtilityBase)
&n bsp;LIBOPEN4(IRexxSys,RexxSysBase)


}
/*=================================================================== ===================*/
void CloseAmigaLibraries()
{


 LIBCLOSE4(IDOS)
 LIBCLOSE4(IGraphics)
 LIBCLOSE4(IIn tuition)
 LIBCLOSE4(ICyberGfx)
 LIBCLOSE4(IDataTypes)
  LIBCLOSE4(IWarp3D)
 LIBCLOSE4(IAsl)
 LIBCLOSE4(IUtility)
&nb sp;LIBCLOSE4(IRexxSys)


 LIBCLOSE(DOSBase)
 LIBCLOSE(GfxBase)
 LIBCLOSE(Intui tionBase)
 LIBCLOSE(CyberGfxBase)
 LIBCLOSE(DataTypesBase)
& nbsp;LIBCLOSE(Warp3DBase)
 LIBCLOSE(AslBase)
 LIBCLOSE(UtilityB ase)
 LIBCLOSE(RexxSysBase)
}
/*================================= =================================================*/


 

Sam440 - Sam460 - X5000 - PowerBookG4 - WinUAE - MiniMig

Message édité par : thellier / 16-02-2015 14:24

Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=2039&forum=14