Page 1 of 1

Traduzione da Java a Fwh

PostPosted: Wed Jan 24, 2024 11:21 am
by 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() >>> 8), 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

Re: Traduzione da Java a Fwh

PostPosted: Thu Jan 25, 2024 4:53 am
by Antonio Linares
Using chatgpt:
Code: Select all  Expand view
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)
 

Re: Traduzione da Java a Fwh

PostPosted: Thu Jan 25, 2024 10:38 am
by a.tixi@htech.it
Grazie !!!