# Fonction PCODE ID = 780042427
REGISTRE POINTEUR pt_ipres
REGISTRE POINTEUR pt_ipsrc

REGISTRE   ENTIER      erreur
REGISTRE   POINTEUR    pt_terme
REGISTRE   POINTEUR    pt_termelft
REGISTRE   POINTEUR    pt_termergt

pt_ipres = depilerPOINTEUR()
pt_ipsrc = depilerPOINTEUR()

pt_terme="XXYY"
pt_termelft="AABB"
pt_termergt="CCDD"


# Recuperation du terme a gauche des 2 :
     erreur = i_recupererValeur(pt_ipsrc, pt_terme, 4, ':')

     # SI la chaine passe en parametre n est pas une adresse IP, on fait rien 
     # Le traitement adequat sera fait dans la suite des traitements
     SI(erreur!=0)
     ALORS
          RETOUR 1
     FINSI
     i_strcpy(pt_termelft, pt_terme)
     SI(i_strlen(pt_terme)==3)
     ALORS
            erreur=i_format_str2(pt_termelft, "%s%s", "0", pt_terme)
     FINSI
# Recuperation du terme a droite des 2 :

     erreur = i_recupererValeur(pt_ipsrc, pt_terme, 4, ':') 
     SI(erreur!=0)
     ALORS
          RETOUR 1
     FINSI
     i_strcpy(pt_termergt, pt_terme)
     SI(i_strlen(pt_terme)==3)
     ALORS 
            erreur=i_format_str2(pt_termergt, "%s%s", "0", pt_terme)
     SINON
            SI(i_strlen(pt_terme)==2)
            ALORS
                   erreur=i_format_str2(pt_termergt, "%s%s", "00", pt_terme)
            SINON
                   SI(i_strlen(pt_terme)==1)
                   ALORS
                          erreur=i_format_str2(pt_termergt, "%s%s", "000", pt_terme)
                   FINSI
            FINSI
     FINSI
# Concatenation des deux termes
     erreur=i_format_str2(pt_ipres, "%s:%s", pt_termelft, pt_termergt)
     RETOUR  0
