prueba_lci.pas

{ ppc386 -va -vh *.pas }
{ COMIENZO DE DESCRIPCION

  Prueba implementaci\'on de listas de enteros por cursores
  para la versi\'on ``u_listci'' sin celda de encabezamiento.

  FIN DE DESCRIPCION }
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{$Id: prueba_lci.pas 2002/04/04 17:40 mstorti Exp jdelia   $}

program prueba_lci ;

uses  u_listci ;

var
  L1, L2 : listci   ;
  p1, p2 : posicion ;
  p, q   : posicion ;

{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
begin

  INICIALIZA_NODOS (espacio) ;

  writeln ;
  writeln ('PRIMERA LISTA:');
  L1.ANULA;
  p1 := L1.PRIMERO ;
  L1.INSERTA (7, p1);
  L1.INSERTA (5, p1);
  L1.INSERTA (3, p1);
  L1.INSERTA (1, p1);
  L1.IMPRIME ('Debe imprimir: 1 3 5 7 ');

  p := L1.LOCALIZA (3);
  p := L1.LOCALIZA (5); 
  L1.INSERTA (6, p);
  L1.IMPRIME ('Debe immprimir: 1 3 5 6 7');

  p1 := L1.LOCALIZA (3);
  L1.SUPRIME (p1);
  L1.IMPRIME ('Debe immprimir: 1 5 6 7');

  writeln ;
  writeln ('SEGUNDA LISTA:');
  L2.ANULA;
  p2 := L2.PRIMERO ;
  L2.INSERTA (8, p2);
  L2.INSERTA (6, p2);
  L2.INSERTA (2, p2);
  L2.IMPRIME ('Debe immprimir: 2 6 8');

  p := L2.LOCALIZA (6);
  L2.INSERTA (4, p);
  L2.IMPRIME ('Debe immprimir: 2 4 6 8');

  p := L2.LOCALIZA (6);
  q := L2.ANTERIOR (p);
  writeln ('Debe imprimir: 4') ;
  writeln ( L2.RECUPERA (q) ) ;

end.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}