Program Teste_das_Rotinas__de_Lista_Simplesmente_Encadeada;

{$I lse.pas}

Var
  Lista1, Lista2, Lista3: Ptr_ListaSE_Nodo;
  ListaArq: Ptr_ListaSE_Nodo;
  Dado:TlistaSE_Dado;
  Arq :Text;
Begin
  writeln('>>> Teste das rotinas LSE <<<');
  writeln;
  writeln('# Insercao: 10, 20, 30');
  ListaSE_inicializa (Lista1);
  ListaSE_Insere_Inicio (Lista1,10);
  ListaSE_Insere_Inicio (Lista1,20);
  ListaSE_Insere_Inicio (Lista1,30);
  writeln('# Lista Simplesmente Encadeada com insercao no inicio:');
  ListaSE_Exibe(Lista1);

  writeln('# Remocao: 30 (inicio), 10 (final)');
  ListaSE_Remove_Inicio(Lista1,Dado);
  ListaSE_Remove_Final(Lista1,Dado);
  writeln('# Lista Simplesmente Encadeada apos a remocao:');
  ListaSE_Exibe(Lista1);
  writeln;

  ListaSE_inicializa (Lista2);
  ListaSE_Insere_Final (Lista2,10);
  ListaSE_Insere_Final (Lista2,20);
  ListaSE_Insere_Final (Lista2,30);
  writeln('# Lista Simplesmente Encadeada com insercao no final:');
  ListaSE_Exibe(Lista2);

  writeln('# Remocao do inicio: 10, 20, 30');
  ListaSE_Remove_Inicio(Lista2,Dado);
  ListaSE_Remove_Inicio(Lista2,Dado);
  ListaSE_Remove_Inicio(Lista2,Dado);
  writeln('# Lista Simplesmente Encadeada apos 3 remocoes no inicio:');
  ListaSE_Exibe(Lista2);
  If Lista2 = NIL
  Then writeln('>> Lista Vazia!');
  writeln;

  ListaSE_inicializa (Lista3);
  ListaSE_Insere_Ordenado (Lista3,5);
  ListaSE_Insere_Ordenado (Lista3,9);
  ListaSE_Insere_Ordenado (Lista3,7);
  ListaSE_Insere_Ordenado (Lista3,1);
  ListaSE_Insere_Ordenado (Lista3,3);
  ListaSE_Insere_Ordenado (Lista3,11);

  writeln('# Lista Simplesmente Encadeada com insercao ordenada:');
  ListaSE_Exibe(Lista3);
  writeln;

  writeln('# Gravando a lista ordenada em disco...');
  assign(Arq,'lista.txt');
  rewrite(Arq);
  ListaSE_Grava(Arq,Lista3);
  close(Arq);
  writeln('# Arquivo gravado!');
  writeln;

  writeln('# Lendo a lista ordenada do disco...');
  assign(Arq,'lista.txt');
  reset(Arq);
  ListaSE_Inicializa(ListaArq);
  ListaSE_Le(Arq,ListaArq);
  close(Arq);
  writeln('# Arquivo lido!');
  writeln;
  writeln('# Lista Simplesmente Encadeada lida do disco:');
  ListaSE_Exibe(ListaArq);
  writeln;

  writeln('>>> FIM <<<');

End.