Traduzione da Java a Fwh

[a.tixi@htech.it]

Salve,
Dato che non ho familiarità con Java, mi servirebbe una traduzione di questa funzione in fwh e xHarbour

public static String getHeaderBytes(String msg) {
char[] msgLength = new char[4];
msgLength[0] = (char) Integer.parseInt(String.valueOf(msg.length()), 10);
msgLength[1] = (char) Integer.parseInt(String.valueOf(msg.length() >>> , 10);
msgLength[2] = (char) Integer.parseInt(String.valueOf(msg.length() >>> 16), 10);
msgLength[3] = (char) Integer.parseInt(String.valueOf(msg.length() >>> 24), 10);

return String.valueOf(msgLength[3]) + String.valueOf(msgLength[2]) + String.valueOf(msgLength[1]) + String.valueOf(msgLength[0]);
}

Grazie dell'aiuto

[Antonio Linares]

Using chatgpt:

Code: Select all | Expand

FUNCTION getHeaderBytes(msg)
    LOCAL msgLength := Chr(Val(Str(LEN(msg) % 256)))
    msgLength += Chr(Val(Str(BitRShift(LEN(msg), 8) % 256)))
    msgLength += Chr(Val(Str(BitRShift(LEN(msg), 16) % 256)))
    msgLength += Chr(Val(Str(BitRShift(LEN(msg), 24) % 256)))
    
    RETURN msgLength

FUNCTION BitRShift(n, shift)
    RETURN n / (2 ^ shift)
 

[a.tixi@htech.it]

Grazie !!!