Resident c:Resident PURE ADD
Resident c:Mount PURE ADD

/*
 * Exemple de programme ré-entrant en C.
 * Se contente d'ouvrir une fenêtre et d'attendre
 * qu'on la ferme.
 *
 * Compilation (SAS/Lattice 5.10) :
 *  LC -d4 -v -Li -ck -tr -ms -y -N -La -Lc -Ld -Lv Reentrant.c
 *
 * Linkage :
 *       FROM RStartup.obj,Reentrant.o
 *         TO Reentrant
 *    LIBRARY LIB:amiga.lib,LIB:lc.lib
 *  SMALLCODE
 *  SMALLDATA
 *  [NODEBUG]
 *  [VERBOSE]
 */

#include <exec/types.h>
#include <exec/memory.h>
#include <intuition/intuition.h>
#include <intuition/intuitionbase.h>
#include <graphics/gfxbase.h>
#include <graphics/text.h>
#include <libraries/dos.h>

/* Voici la structure qui définit nos variables */
struct Variables
{	ULONG stdin;
	ULONG stdout;
	struct IntuitionBase *intbase;
	struct GfxBase *gfxbase;
	struct Window *win;
	struct IntuiMessage *imsg;
};

/* Les constantes peuvent être globales */
/* Ca, c'est pour ouvrir notre fenêtre */
struct NewWindow nw=
{	0, 11, 420, 40,
	0, 1,
	CLOSEWINDOW,
	WINDOWCLOSE|WINDOWDRAG|WINDOWDEPTH|NOCAREREFRESH,
	NULL, NULL,
	"Fermez moi",	/* Pas besoin d'être relogeable */
	NULL, NULL,
	-1, -1, -1, -1,
	WBENCHSCREEN
};

/* petit texte à afficher dans la fenêtre */
char *msg = "Programme réentrant : lancez-le d'un autre Shell !";

/* Deux variables gloables pour le linker */
struct IntuitionBase *IntuitionBase;
struct GfxBase *GfxBase;

/* Prototypes des fonctions */
VOID main(int argc, char **argv);
VOID CleanExit(char *str, struct Variables *VARS);

/* Et voilà main() */
void main(int argc, char **argv)
{
struct Variables *VARS;	/* VARS est local à main() */

/* Allocation du buffer des variables */
	VARS = (struct Variables *)AllocMem(sizeof(struct Variables), MEMF_CLEAR);
	if (!VARS)
		exit(RETURN_FAIL);

/* Recherche des canaux d'entrées-sorties */
	VARS->stdin  = Input();
	VARS->stdout = Output();

/*
 * Ouverture d'intuition.library
 * C'est notre variable locale VARS->intbase qui contient le pointeur
 * sur l'adresse de base de la bibliothèque. Toutefois, pour que le
 * linker soit content, il faudra également initialiser la variable
 * globale IntuitionBase si l'ouverture réussit
 */
	VARS->intbase = (struct IntuitionBase *)OpenLibrary("intuition.library", 33L);
	if (!VARS->intbase)
		CleanExit("Pas d'intuition.", VARS);
	else
		IntuitionBase = VARS->intbase;

/* Idem pour la graphics.library */
	VARS->gfxbase = (struct GfxBase *)OpenLibrary("graphics.library", 33L);
	if (!VARS->gfxbase)
		CleanExit("Pas de graphics.", VARS);
	else
		GfxBase = VARS->gfxbase;

/* Ouverture de la fenêtre */
	VARS->win = (struct Window *)OpenWindow(&nw);
	if (!VARS->win)
		CleanExit("Pas de fenêtre !", VARS);

/* Ecriture du message */
	SetAPen(VARS->win->RPort, 1);
	SetBPen(VARS->win->RPort, 0);
	SetDrMd(VARS->win->RPort, JAM2);
	Move(VARS->win->RPort, 5, 24);
	Text(VARS->win->RPort, msg, strlen(msg));

/* Attend la fermeture */
	WaitPort(VARS->win->UserPort);

/* Réponse normale aux messages Intuition */
	while( (VARS->imsg = (struct IntuiMessage *)GetMsg(VARS->win->UserPort)) )
		ReplyMsg((struct Message *)VARS->imsg);

/* C'est fini, on s'casse */
	CleanExit(NULL, VARS);
}

/*
 * CleanExit()
 */
VOID CleanExit(char *str, struct Variables *VARS)
{
UWORD rc;	/* encore une variable locale */

/* Fermeture de la fenêtre */
	if (VARS->win)
		CloseWindow(VARS->win);

/* Fermeture de graphics.library. On utilise la variable locale ç */
	if (VARS->gfxbase)
		CloseLibrary(VARS->gfxbase);

/* Fermeture d'intuition.library */
	if (VARS->intbase)
		CloseLibrary(VARS->intbase);

/* Affiche un texte dans la fenêtre Shell */
	if (str)
	{	fprintf(VARS->stdout, "%s\n", str);
		rc = RETURN_FAIL;
	}
	else
	{	fprintf(VARS->stdout, "Tout s'est bien passé.\n");
		rc = RETURN_OK;
	}

/* Ne pas oublier de libérer la mémoire des variables ! */
	FreeMem(VARS, sizeof(struct Variables));
	exit(rc);
}