/********************************************************

   ROT-PIL
   =======

   Rotinas basicas de manipulacao de Pilha:
   - Estruturas de dados com alocacao estatica
   - Insercao no final (topo) do vetor
   - Remocao  do final (topo) do vetor

   Aplicacao tipica:
   - O ultimo a entrar eh o primeiro a sair

   Por: Fernando Osorio
   Data da ultima atualizacao: 21/02/2001

*********************************************************/

#define MAX_PILHA 100

#define FALSO      0
#define VERDADEIRO 1

#define OK         1
#define ERRO       0

typedef int Tipo_Dado;

typedef struct
        {
           Tipo_Dado Dado    [MAX_PILHA];
           int       Base,Topo;
        }  Tipo_Pilha;

/***

=> Rotinas de Manipulacao de Pilha - Lista Linear Sequencial

***

void inicializa_pilha (Tipo_Pilha *P);
int  insere_pilha     (Tipo_Pilha *P; Tipo_Dado Dado);
int  retira_pilha     (Tipo_Pilha *P; Tipo_Dado *Dado);
void exibe_pilha      (Tipo_Pilha  P);
int  quantidade_pilha (Tipo_Pilha  P);
int  cheia_pilha      (Tipo_Pilha  P);
int  vazia_pilha      (Tipo_Pilha  P);
int  esvazia_pilha    (Tipo_Pilha  *P);

***/

void inicializa_pilha (P)
Tipo_Pilha *P;
{
  P->Base=0;
  P->Topo=0;
}

int insere_pilha (P, Dado)
Tipo_Pilha *P;
Tipo_Dado Dado;
{
  if (P->Topo < MAX_PILHA)           /* Vetor nao esta cheio ? */
  {
     P->Dado[P->Topo]=Dado;
     (P->Topo)++;
     return(OK);
  }
  else
     return(ERRO);
}

int retira_pilha (P, Dado)
Tipo_Pilha *P;
Tipo_Dado *Dado;
{
  if (P->Topo == P->Base)
     return(ERRO);
  else
  {
     (P->Topo)--;
     *Dado=P->Dado[P->Topo];
     return(OK);
  }
}


void exibe_pilha (P)
Tipo_Pilha P;
{
  Tipo_Dado dado;
  int cont;

  printf("\n");
  for (cont=(P.Topo)-1; cont >= (P.Base); cont--)
      printf("Vetor[%d]=%d\n",cont,P.Dado[cont]);
  printf("\n");
}

int quantidade_pilha (P)
Tipo_Pilha P;
{
  return( P.Topo-P.Base );
}

int cheia_pilha (P)
Tipo_Pilha P;
{
  if (P.Topo == MAX_PILHA)
     return(OK);
  else
     return(!OK);
}

int vazia_pilha (P)
Tipo_Pilha P;
{
  if (P.Topo == P.Base)
     return(OK);
  else
     return(!OK);
}

int esvazia_pilha (P)
Tipo_Pilha *P;

{
  P->Topo=0;
  P->Base=0;
}