Location: PHPKode > scripts > List > list/Ejemplo1.php
<?php
/******************************************************************************
 *	   BBBB	     AAA    RRRR    BBBB      AAA    ZZZZZZ  U     U  L           *
 *	   B   B	A	A	R	R   B   B	 A   A       ZZ  U     U  L           *
 *	   B   B   A	 A  R	R   B   B	A	  A	    ZZ   U     U  L           *
 *	   BBBB	   A	 A  RRRR    BBBB    A     A     Z    U     U  L           *
 *	   B   B   AAAAAAA  R  R    B   B   AAAAAAA    Z     U     U  L           *
 *     B    B  A     A  R   R   B    B  A     A   ZZ     U     U  L           *
 *     B    B  A     A  R    R  B    B  A     A  ZZ       U   U   L           *
 *     BBBBB   A     A  R    R  BBBBB   A     A  ZZZZZZ    UUU    LLLLLLL     *
 ******************************************************************************/

/* Ejemplo de utilización de Lista Genérica
 * Descripción: Este sencillo ejemplo muestra el funcionamiento de la lista
 * utilizando datos de tipo entero.
 * Autor: Matías Montes
 * Versión : 2.0
 */

/******************************************************************************/
/* Librerías y definiciones requeridas */
/*-------------------------------------*/

require_once("class.Lista.php");

if( !defined("MAX") ) define("MAX", 10);

function CompararEnteros($DatoEnteroIzq, $DatoEnteroDer)
{
   if ( ($DatoEnteroIzq) == ($DatoEnteroDer) ) $resultado = IGUAL;
   if ( ($DatoEnteroIzq) >  ($DatoEnteroDer) ) $resultado = MAYOR;
   if ( ($DatoEnteroIzq) <  ($DatoEnteroDer) ) $resultado = MENOR;

   return $resultado;
}

/******************************************************************************/
/* Programa Principal */
/*--------------------*/

//Instancio la lista
$L = new Lista("CompararEnteros");

//Inserto algunos datos
for(	$i=0 ; $i<MAX ; $i++ )
	$L->insertarDato(mt_rand(0, MAX));

//Obtengo el primer nodo
$cursor = $L->primero();

//Recorro la lista
while( $cursor != $L->fin() )
{
	//Pido el dato del cursor
	$miEntero = $L->getDato($cursor);
    //Salida
    echo $miEntero." ";
    $cursor =& $L->siguiente($cursor);
}

//Destruyo la Lista y libero el espacio usado
$L->destruir();

?>
Return current item: List