Test de l’endianité

Cf notre page Le codage des caractères.

Routine externe en REXX.

/* Verifie l'endianité / check endiannity          */
/* Pour traitement d'information encodees en UTF-8 */
/* Adapter si on utilise un autre encodage         */
CALL CONV8_16 ' '
IF c2x(sortie) = '2000' THEN DO
    endian = 'LE' /* little endian  */
    blanx = '2000'
    END
ELSE DO
    endian = 'BE' /* big endian  */
    blanx = '0020'
    END
return endian blanx
/* ********************************************************************** */
/*           Conversion UTF-8 -> UNICODE                                  */
CONV8_16:
parse arg entree
sortie = ''
ZONESORTIE.='NUL'; ZONESORTIE.0=0
err = systounicode(entree, 'UTF8', , ZONESORTIE.)
if err == 0 then sortie = ZONESORTIE.!TEXT
  else say 'probleme car., code ' err
return