Paxtibi

[xinyiman]

Ciao a tutti, questo 3d servirà per parlare dei componenti del repository paxtibi (si tratta di codice del nostro Stilgar). Nell'installare i tuoi package (nella fattispecie paxjson_package.lpk) ho riscontrato il seguente errore su mac os

paxjsgl.pas(186,25) Error: Incompatible type for arg no. 1: Got "$gendef0", expected "Pointer"

Il pezzo di codice è

Codice: [Seleziona]

procedure TGenericListTypeHandle.parseType(aObject: aType; arrayNode: TJSONArray);
var
  idx: integer;
  item: TCastContainedType;
  handlers: THandlerList;
  h: TJsonTypeHandler;
  factory: TFactory;
  childNode: TJSONData;
begin
  getHandlers(tkClass, handlers);
  factory := GetJSONFactory(TCastContainedType);

  for idx := 0 to arrayNode.Count - 1 do
  begin
    childNode := arrayNode[idx];
    item := factory(TCastContainedType) as TCastContainedType;
    for h in handlers do
    begin
      if h.parse(item, nil, childNode) then
      begin
        aObject.Add(item);
        break;
      end;
    end;
  end;
  handlers.Free;
end;     

Nello specifico la riga " aObject.Add(item); "
Ovviamente la soluzione è

           {$ifdef Darwin}
                   aObject.Add(@item);
           {$endif} 

Quello che mi chiedo è se questi pkg li hai provati anche su  linux o solo su windows. Perchè per mac posso correggere io, ma nel caso non fosse già stato fatto bisogna farlo anche per linux.

[xinyiman]

Mentre se compilo il progetto jsonserver.lpi su mac os (sempre con lazarus 2.1.0) ottengo il seguente errore. Che onestamente a naso non so cosa voglia dire:

app.pas(30,33) Fatal: Syntax error, "<" expected but "." found

riga incriminata

  TTimersHolder = specialize fgl.TFPGObjectList<TTimerObject>;

[nomorelogic]

se non ricordo male quell'errore lo si ha compilando con fpc 3.2.0
probabilmente nei generics è cambiato qualcosa

avrei dovuto scrivere sul forum ufficiale quando me ne sono accorto ma...
mea culpa

[Stilgar]

Ho compilato con la 3.0.4
Pet Linux compila travis
Così i russi non mi cazziano (e sì un russo mi ha fatto le pulici)

Stilgar

[xinyiman]

Io uso la

Lazarus 2.1.0 r61758M FPC 3.3.1 x86_64-darwin-cocoa (beta)

Come risolvo per adattarlo a questa versione di fpc?

[Stilgar]

Eh...
Fa figo usare le beta :p
Sto cercando di lavorare sulle versioni stabili.
Nomore è quello dei due che scappa avanti (visto che mi aiuta con quei sorgenti e non sarebbe giusto prendersi tutti i meriti. Le sberle sì i meriti no).

Stilgar

[xinyiman]

Allora nomore attendo tuoi lumi

[nomorelogic]

Allora nomore attendo tuoi lumi

hai fatto prima tu
https://forum.lazarus.freepascal.org/index.php/topic,47250.msg337764/topicseen.html#new

[Stilgar]

ho pushto la fix suggerita.


Funziona su Mac?

Stilgar

[xinyiman]

Devi ancora applicare la seguente modifica nella unit paxjsgl
Se la applichi compila corretta e installa il package

Codice: [Seleziona]

procedure TGenericListTypeHandle.parseType(aObject: aType; arrayNode: TJSONArray);
var
  idx: integer;
  item: TCastContainedType;
  handlers: THandlerList;
  h: TJsonTypeHandler;
  factory: TFactory;
  childNode: TJSONData;
begin
  getHandlers(tkClass, handlers);
  factory := GetJSONFactory(TCastContainedType);

  for idx := 0 to arrayNode.Count - 1 do
  begin
    childNode := arrayNode[idx];
    item := factory(TCastContainedType) as TCastContainedType;
    for h in handlers do
    begin
      if h.parse(item, nil, childNode) then
      begin
           {$ifdef Darwin}
                   aObject.Add(@item);
           {$else}
                   aObject.Add(item);
           {$endif}

        break;
      end;
    end;
  end;
  handlers.Free;
end;       

[xinyiman]

Mentre il serverjson ora lo compila correttamente

[xinyiman]

Se lancio il programma jsonserver mi restituisce il seguente errore.

Codice: [Seleziona]

An unhandled exception occurred at $00000001033EE236:
EStringListError: List index (-1) out of bounds
  $00000001033EE236
  $00000001033B763D

Se faccio debug e imposto un brackpoint sulla prima riga del progetto (per intenderci su ProcessParameters;) mi restituisce

"Il progetto jsonserver ha sollevato una eccezzione di classe 'EConvertError' con messaggio: Invalid argument index in fomrat "[%-16s]|[%-9s]|[%d.%d]|[%s" "

Ma ho guardato e non ci sono parametri passati all'eseguibile dall'ide. Idee?

[xinyiman]

Scusa ho avuto le traveggole. I parametri ci sono. Ora provo a parametrizzarlo correttamente e vedo cosa esce.

[xinyiman]

Niente, anche parametrizzandolo correttamente "-wp ../../../../../data" mi restituisce l'errore

[Stilgar]

Dall'errore sembra essere la parte di log.
Prova a commentare i log.
Stilgar