# Fonction PCODE ID = 860027343
REGISTRE POINTEUR pt_chaine2
REGISTRE POINTEUR pt_chaine1
REGISTRE ENTIER long1
REGISTRE ENTIER long2
REGISTRE ENTIER ind1
REGISTRE ENTIER RESULTAT
REGISTRE POINTEUR pt_Ch_ext

pt_chaine2 = depilerPOINTEUR()
pt_chaine1 = depilerPOINTEUR()
pt_Ch_ext = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB\
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"

i_strcpy(pt_Ch_ext,"")

long1 = i_strlen(pt_chaine1)
long2 = i_strlen(pt_chaine2)
ind1 = 0
RESULTAT = long1 * -1

SI ( long2 > long1 ) || ( long2 < 1 )
ALORS
	SAUT FIN_RECHERCHE_CHAINE
FINSI

POINT BOUCLE_RECHERCHE
SI ( ind1 < long1 ) 
ALORS
	i_get_sub_str(pt_chaine1, ind1, ind1 + long2 - 1, pt_Ch_ext)
	SI i_strcmp(pt_Ch_ext, pt_chaine2) == 0
	ALORS
		RESULTAT = ind1
	SINON
		ind1 = ind1 + 1
		SAUT BOUCLE_RECHERCHE
	FINSI
FINSI

POINT FIN_RECHERCHE_CHAINE

RETOUR RESULTAT

