/*--------------------------------------------------------------------
 * FICHERO:  CadSub.c
 * OBJETIVO: Definir la funcin Cad_Subcadena()
 * AUTOR:    Pedro Reina
 * FECHA:    J.13.7.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Cadena.h"

#include <string.h>             /* strstr()                         */

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Cad_Subcadena()
 * OBJETIVO: Averiguar si la segunda cadena est contenida 
 *           en la primera
 * ENTRADAS: Las dos cadenas
 * SALIDA:   La posicin que ocupa el primer carcter de la 
 *           primera donde comienza la primera aparicin de
 *           la segunda, o 0
 * NOTA:     Se empieza a contar en 1
 * EJEMPLO:  Cad_Subcadena ( "Calamares","mar" )
 *------------------------------------------------------------------*/
contador Cad_Subcadena (Larga,Corta)
cadena Larga, Corta;
  {
  contador Respuesta;
  char    *Aparece;

  Respuesta = 0;
  Aparece = strstr((char *)Larga,(char *)Corta);
  if ( Aparece )
   { Respuesta = (contador) ( Abs(Aparece-Larga) + 1 ); }

  return (Respuesta);
  }
