{ compilation : }
{ Pascal src1.pcq src1.asm }
{ A68k src1.asm }
{ Blink src1.o to src1 library pcq.lib }              

Program liste_chaînee ;

type                         { definition des modeles }
   noeud = Record            { structure de la liste }
            num : integer ;  { champ info ; ici un numero }
            suivant : ^noeud;{ pointeur sur le noeud suivant }
           end;
   lien  = ^noeud ;

var                          { declaration des variables }
   debut  : lien ;           { pointeur qui memorisera le }
                             { debut de notre liste }
   choix  : integer ;
   numero : integer ;
   key    : char ;

procedure affiche_liste ;
var
   element_courant : lien ;  { necessaire pour parcourir la }
                             { liste sans perdre le debut }
begin
   element_courant := debut ;{ se place au debut }

   { afficher le num du noeud courant tant que son pointeur}
   { suivant est different de la fin de liste }
   while (element_courant^.suivant <> NIL) do
   begin
      writeln ('numero : ', element_courant^.num) ;
     element_courant := element_courant^.suivant ;
   end ;
   { afficher le numero du dernier noeud }
   writeln ('numero : ', element_courant^.num) ;
end ;

procedure insere(info : integer) ;
var
   element_courant, element_insere : lien ;
begin
   element_courant := debut ;

   { recherche de la fin de liste afin d'y ajouter un noeud }
   while (element_courant^.suivant <> NIL) do
      element_courant := element_courant^.suivant ;

   { allocation de l'espace memoire pour le nouveau noeud }
   new (element_insere) ;
   element_courant^.suivant := element_insere ;
   element_insere^.num := info ;
   element_insere^.suivant := NIL ;
   affiche_liste ;
end ;

procedure supprime(info2 : integer) ;
var
   element_courant, element_supprime : lien ;
begin
   element_courant := debut ;

   { detecte le noeud a supprimer et la fin de liste }
   { on va toujours verifier le numero du noeud suivant }
   { de ce fait on empeche la suppression de debut si}
   { l'on saisit 0 comme num }
   while (element_courant^.suivant^.num <> info2) and
         (element_courant^.suivant <> NIL) do
      element_courant := element_courant^.suivant ;

   { test pour savoit si fin de liste ou numero trouve }
   if (element_courant^.suivant <> NIL) then
   begin
      element_supprime := element_courant^.suivant ;
      element_courant^.suivant := element_supprime^.suivant ;
      dispose (element_supprime) ;
   end
   else
      writeln ('l element n existe pas') ;
   affiche_liste ;
end ;

begin
   choix := 0 ;
   new(debut) ; debut^.suivant := NIL ; debut^.num := 0 ;
   repeat
      writeln ('1 inserer numero') ;
      writeln ('2 supprimer numero') ;
      writeln ('9 sortir') ;
      write   ('votre choix : ') ; readln (choix) ;
      case choix of
         1 : begin
               write ('numero a inserer : ') ; readln (numero) ;
               insere(numero) ; 
               writeln ('pressez enter pour continuer') ; 
               read (key) ; 
             end ;
         2 : begin
               write ('numero a supprimer : ') ; 
               readln (numero) ; 
               supprime(numero) ;
               writeln ('pressez enter pour continuer') ; 
               read (key) ;
             end ;
      end ;
   until (choix = 9) ;
   dispose (debut) ;
end.

/* lc -L liste.c */

#include <exec/types.h>
#include <stdlib.h>
#include <stdio.h>

struct Noeud {
	struct Noeud *precedent;
	int information;
	struct Noeud *suivant;
};

struct Noeud *debut;

VOID Insere (int);
VOID Supprime (int);
VOID AfficheListe (VOID);

VOID main (VOID)
{
	int nombre, choix;

	debut = (struct Noeud *) malloc (sizeof (struct Noeud));
	debut -> precedent = NULL;
	debut -> information = -1;
	debut -> suivant = NULL;

	do
	{
		printf ("1. Inserer nombre\n");
		printf ("2. Supprimer nombre\n");
		printf ("3. Sortir\n");
		printf ("\n\nVotre choix : ");
		scanf ("%d",&choix);

		switch (choix)
		{
			case 1 :
				printf ("\n\nNombre a inserer : ");
				scanf ("%d",&nombre);
				Insere (nombre);
				printf ("Pressez une touche pour continuer...\n");
				getchar ();
				break;

			case 2 :
				printf ("\n\nNombre a supprimer : ");
				scanf ("%d",&nombre);
				Supprime (nombre);
				printf ("Pressez une touche pour continuer...\n");
				getchar ();
				break;
		}
		AfficheListe ();
	} while (choix != 3);
}

VOID Insere (int nbre)
{
	struct Noeud *courant, *nouveau;

	for (courant = debut; courant -> suivant ; courant = courant -> suivant);

	nouveau = (struct Noeud *) malloc (sizeof (struct Noeud));
	courant -> suivant = nouveau ;
	nouveau -> precedent = courant ;
	nouveau -> suivant = NULL;
	nouveau -> information = nbre;
}

VOID Supprime (int nbre)
{
	struct Noeud *courant, *precedent, *suivant;

	courant = debut;
	while ((courant -> suivant != NULL) && 
	       (courant -> information != nbre))
		courant = courant -> suivant;

	if ((courant -> information == nbre) && (courant -> precedent != NULL))
	{
		precedent = courant -> precedent ;
		suivant = courant -> suivant ;
		precedent -> suivant = suivant ;
		suivant -> precedent = precedent ;
		free ((char *) courant);
	}
	else
		printf ("Element non trouve !!!\n");
}

VOID AfficheListe (VOID)
{
	struct Noeud *courant;
	int i;

	for (courant = debut, i = 0; courant -> suivant; 
	     courant = courant -> suivant, i++)
		printf ("Noeud %d : %d\n",i,courant -> information);

	printf ("Dernier Noeud : %d\n",courant -> information);
}