# Fonction PCODE ID = 660004265
REGISTRE ENTIER caract
REGISTRE POINTEUR pt_chpIn

REGISTRE  ENTIER  taille_chpIn
REGISTRE  ENTIER  indice_octet
REGISTRE  ENTIER  res1
REGISTRE  ENTIER  res2
caract = depilerENTIER()
pt_chpIn = depilerPOINTEUR()
taille_chpIn=i_strlen(pt_chpIn)
indice_octet=0
POINT BOUCLE
SI (indice_octet < taille_chpIn)
ALORS
  res1 = i_strtab(pt_chpIn,indice_octet)
  res2 = i_strtab(pt_chpIn,indice_octet+1)
  SI ((res1 == 0x34) && (res2 == 0x30))
  ALORS
    trace("cas d une adresse mail")
    RETOUR pt_chpIn
  SINON
    indice_octet = indice_octet + 2
    SAUT BOUCLE
  FINSI
FINSI
RETOUR g_inull
