Forum » » Création-Développement » » AmOS4
Posté : 16-02-2015 14:23
@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)
}
/*================================= =================================================*/
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