ADA - Encontrar strings en strings

Hola
Alquien me puede decir cual es la función en ADA que hace lo mismo (o parecido) que strstr en C.

Es decir la manera de encontrar una string dentro de otra string.

Gracias

index(texto,aux(1..lon))
-- texto: literal fuente
-- aux: literal a buscar
-- el resultado es un entero con la posicion