Test de l’endianité du système

Cf notre page Le codage des caractères.

API (sous-programme externe) en langage REXX.

/* Verifie l'endianité / check endianness          */
/* Pour traitement d'information encodees en UTF-8 */
/* Adapter si on utilise un autre encodage         */
caract = ' '
CALL CONV8_16 caract
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