code 4GL compréhension

[damdam7780]

Bonjour,

Pour mon entreprise je dois me plonger dans du code 4gl afin de pouvoir étudier l'éventuelle possibilité de migration d'un programme.

N’ayant aucune base en informix 4gl.

je cherche de l'aide pour la compréhension de ce code qui est normalement un fonction qui permet de "crypter" une chaine de caractères venant d'un tag RFID.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
FUNCTION gcPasswdBox::criep(pName CHAR(15),pNr CHAR(3),pProfil CHAR(1)) RETURNING CHAR(*)
VARIABLE i ,pCheck SMALLINT
VARIABLE iVal INTEGER
VARIABLE ixstr,nixstr ixString
 
 
  LET  ixstr = NEW ixString(__password.getValueStr())
  CALL ixstr.clip()
  CALL ixstr.preclip()
  LET nixstr = NEW ixString(ixstr.getValueStr())
  FOR i = 1 TO ixstr.getLength()
    IF ixstr.getChar(i) = " " THEN
	  LET iVal = FGL_KEYVAL("s") + __getExp(i)
	ELSE
      LET iVal = FGL_KEYVAL(ixstr.getChar(i)) + __getExp(i) 
	END IF
    CALL nixstr.setChar(ixstr.getLength()+1-i,ASCII iVal)
  END FOR
  RETURN nixstr.getValueStr()
END FUNCTION  -- gcPasswdBox::criep

Merci de m'éclairer un peu, car la documentation est très faible concernant ce language.

[begooden-it]

Bonsoir,

ton code n'est pas du Informix 4GL, mais du Informix New Era, un produit visionnaire en son temps mais qui a trop tardé à sortir à cause de regrettables errances du Product Management d'Informix à l'époque.
tu trouveras le reference guide ici:
http://publib.boulder.ibm.com/epubs/pdf/4332.pdf
et le reste de la doc ici:
http://publib.boulder.ibm.com/infoce...%2Fnewera.html

Cordialement
Eric