Nota di servizio: un utente mi ha segnalato un effetto collaterale di un filtro che ho aggiunto.
In sostanza, visto che si trovano file che sono tutto tranne XML (!), faccio scartare quelli che risultano non iniziare con un <.
Ma, in realtà, c'è la questione del BOM, ovvero dei tre byte delle codifiche utf-8.
Sono indeciso se
- togliere il filtro di riconoscimento del tutto, sperando che arrivino XML che siano effettivamente XML
- mettere il test per la codifica utf-8. Ma non ci vuol niente che poi arrivino utf-16, utf-sticazzi e così via.
Per ora metto check utf-8, poi a togliere si fa in tempo, dopo beautiful posterò aggiornamento
In sostanza è ora così
function g_isutf8bom(i_nomefile:string):Boolean;
begin
Result:=(g_prendi1byte(i_nomefile,0)=239) and (g_prendi1byte(i_nomefile,1)=187) and (g_prendi1byte(i_nomefile,2)=191);
end;
function g_isxml(i_nomefile:string):Boolean;
begin
if g_isutf8bom(i_nomefile) then
Result:=g_prendi1byte(i_nomefile,3)=60
else
Result:=g_prendi1byte(i_nomefile,0)=60;
end;
Attendo segnalazioni bug fino a circa 14:15, dopo di chè carico la versione corrente.
Un saluto a tutti, è ora di cucinare (per il gatto)