G.R.F.M.A. -> …et le modélisme ferroviaire devient accessible à tous

// Tableau de correspondance entre codes matériels et modèles de Z21
$TBUModeleZ21 = [
1 => 'Z21 noire',
2 => 'z21 blanche',
3 => 'z21 start',
4 => 'z21 blanche ou start déverrouillée'
];

// Création de la socket UDP
$Socket = SOCKET_CREATE(AF_INET, SOCK_DGRAM, SOL_UDP);
IF (!$Socket) RETURN JSON_ENCODE(['Succes' => FALSE, 'Erreur' => 'ÉCHEC DE CRÉATION DE LA SOCKET']);

// Définition du timeout de réception à 2 secondes
SOCKET_SET_OPTION($Socket, SOL_SOCKET, SO_RCVTIMEO, ['sec' => 2, 'usec' => 0]);

// Trame pour demander le numéro de série de la centrale
$TrameNumeroSerie = PACK('vv', 0x0004, 0x0010);
Z21EnvoyerCommande($Socket, $TrameNumeroSerie, $Z21Ip, $Z21Port);
$ReponseSerie = Z21RecevoirReponse($Socket);
IF (!$ReponseSerie) {
SOCKET_CLOSE($Socket);
RETURN JSON_ENCODE(['Succes' => FALSE, 'Erreur' => 'AUCUNE RÉPONSE POUR LE NUMÉRO DE SÉRIE']);
}
$NumeroSerie = UNPACK('VVal', SUBSTR($ReponseSerie, 4, 4))['Val'];

// Trame pour obtenir la version du bus X-BUS
$TrameVersion = PACK('vvC3', 0x0007, 0x0040, 0x21, 0x21, 0x00);
Z21EnvoyerCommande($Socket, $TrameVersion, $Z21Ip, $Z21Port);
$ReponseVersion = Z21RecevoirReponse($Socket);
$VersionXBusNum = ($ReponseVersion !== FALSE && isset($ReponseVersion[7])) ? ORD($ReponseVersion[7]) : 0;
$VersionXBusTexte = ($VersionXBusNum > 0) ? ($VersionXBusNum >> 4) . '.' . ($VersionXBusNum & 0x0F) : 'INCONNUE';

// Trame pour obtenir le type matériel et les versions HW/FW
$TrameHardware = PACK('vv', 0x0004, 0x001A);
Z21EnvoyerCommande($Socket, $TrameHardware, $Z21Ip, $Z21Port);
$ReponseHardware = Z21RecevoirReponse($Socket);
$TypeHardware = 0;
$TypeHardwareHex = 'INCONNU';
$VersionFirmware = 'INCONNUE';
$VersionHardware = 'INCONNUE';
$Modele = 0;
IF ($ReponseHardware !== FALSE && STRLEN($ReponseHardware) >= 10) {
$TypeHardware = UNPACK('V', SUBSTR($ReponseHardware, 4, 4))[1];
$FwRaw = UNPACK('v', SUBSTR($ReponseHardware, 8, 2))[1];
$TypeHardwareHex = '0x' . STR_PAD(STRTOUPPER(DECHEX($TypeHardware)), 8, '0', STR_PAD_LEFT);
$VersionFirmware = sprintf('%d.%02d', ($FwRaw >> 8) & 0xFF, $FwRaw & 0xFF);
$VersionHardware = $TypeHardwareHex;

// Détermination du modèle selon les codes matériels connus
SWITCH ($TypeHardware):
CASE 0x00000200:
CASE 0x00000201: $Modele = 1; BREAK;
CASE 0x00000203: $Modele = 2; BREAK;
CASE 0x00000204: $Modele = 3; BREAK;
ENDSWITCH;
}

// Trame pour demander le niveau d’activation de la centrale
$TrameCode = PACK('vv', 0x0004, 0x0018);
Z21EnvoyerCommande($Socket, $TrameCode, $Z21Ip, $Z21Port);
$ReponseCode = Z21RecevoirReponse($Socket);
$CodeActivation = ($ReponseCode !== FALSE && isset($ReponseCode[4])) ? ORD($ReponseCode[4]) : -1;
IF ($CodeActivation === 0) {
$CodeActivationTexte = 'Z21 noire, Tous les services autorisés';
} ELSEIF ($CodeActivation === 1) {
$CodeActivationTexte = 'z21 start verrouillée';
} ELSEIF ($CodeActivation === 2) {
$CodeActivationTexte = 'z21 start déverrouillée';
} ELSE {
$CodeActivationTexte = 'Inconnu (' . $CodeActivation . ')';
}

// Si c’est une z21 blanche ou start déverrouillée, on ajuste le modèle
IF (IN_ARRAY($Modele, [2, 3]) && $CodeActivation === 2) $Modele = 4;
// --- État système ---
// Trame pour obtenir l’état global de la centrale
$TrameEtatSysteme = PACK('vv', 0x0004, 0x0085);
Z21EnvoyerCommande($Socket, $TrameEtatSysteme, $Z21Ip, $Z21Port);
$ReponseEtat = Z21RecevoirReponse($Socket);
IF (!$ReponseEtat || STRLEN($ReponseEtat) < 20) { SOCKET_CLOSE($Socket); RETURN JSON_ENCODE(['Succes' => FALSE, 'Erreur' => 'AUCUNE RÉPONSE ÉTAT SYSTÈME']);
}

// Conversion de la trame brute en hexadécimal pour debug
$TrameBruteHex = strtoupper(chunk_split(BIN2HEX($ReponseEtat), 2, ' '));

// Extraction des valeurs physiques
$CourantPrincipal = UNPACK('sVal', SUBSTR($ReponseEtat, 4, 2))['Val'];
$CourantProgrammation = UNPACK('sVal', SUBSTR($ReponseEtat, 6, 2))['Val'];
$CourantFiltre = UNPACK('sVal', SUBSTR($ReponseEtat, 8, 2))['Val'];
$Temperature = UNPACK('sVal', SUBSTR($ReponseEtat, 10, 2))['Val'];
$TensionAlim = UNPACK('vVal', SUBSTR($ReponseEtat, 12, 2))['Val'];
$TensionVCC = UNPACK('vVal', SUBSTR($ReponseEtat, 14, 2))['Val'];
$EtatCentrale = ORD($ReponseEtat[16]);

// Interprétation des bits d’état
$Etats = [];
IF ($EtatCentrale & 0x01) $Etats[] = 'Arrêt d’urgence';
IF ($EtatCentrale & 0x02) $Etats[] = 'Tension voie coupée';
IF ($EtatCentrale & 0x04) $Etats[] = 'Court-circuit';
IF ($EtatCentrale & 0x20) $Etats[] = 'Mode programmation actif';
IF ($EtatCentrale & 0x08) $Etats[] = 'Autre (bit 0x08)';
IF ($EtatCentrale & 0x10) $Etats[] = 'Autre (bit 0x10)';
IF ($EtatCentrale & 0x40) $Etats[] = 'Autre (bit 0x40)';
IF ($EtatCentrale & 0x80) $Etats[] = 'Autre (bit 0x80)';
$EtatCentraleTexte = COUNT($Etats) ? implode(', ', $Etats) : 'normal';

// --- Compilation des informations finales ---
$Infos = [
'Succes' => TRUE,
'TrameBruteEtatHex' => $TrameBruteHex,
'NumeroSerie' => $NumeroSerie,
'Modele' => $TBUModeleZ21[$Modele] ?? 'INCONNU',
'VersionHardware' => $VersionHardware,
'VersionFirmware' => $VersionFirmware,
'TypeHardware' => $TypeHardware . ' (' . $TypeHardwareHex . ')',
'VersionXBus' => $VersionXBusTexte,
'CodeActivation' => $CodeActivationTexte,
'CourantPrincipal_mA' => $CourantPrincipal,
'CourantProgrammation_mA' => $CourantProgrammation,
'CourantFiltre_mA' => $CourantFiltre,
'Temperature_C' => $Temperature . '°c',
'TensionAlimentation_V' => ($TensionAlim > 0) ? round($TensionAlim / 1000, 1) . 'V' : 'INCONNUE',
'TensionVCC_V' => ($TensionVCC > 0) ? round($TensionVCC / 1000, 2) . 'V' : 'INCONNUE',
'EtatCentrale' => $EtatCentrale,
'EtatCentraleTexte' => $EtatCentraleTexte
];

// Fermeture propre de la socket
SOCKET_CLOSE($Socket);