iterative_point_recovery/visualisation/Wolfram_Mathematica/sample_data_parser.wl

(* ::Package:: *)

If[generateNewCase==1, Run["../../test_suite/build/./ptrc_test >"<>fileName];]
SetStreamPosition[fileName,0];
dat=<|unc->Read[fileName,Real],itr->Read[fileName,Number],
      d->Read[fileName,Number],n->Read[fileName,Number],
      runs->Read[fileName,Number],
      C->{},R->{},realPoint->{},error->{}|>;
dat[C]=Table[Table[Read[fileName,Real],{i,1,dat[d]}],{i,1,dat[n]}];
dat[R]=Table[Read[fileName,Real],{i,1,dat[n]}];
rts={};iter=Read[fileName,Number];option=0;
While[iter>-2,
    If[iter==0,AppendTo[rts,{}];option++;];
    If[iter>-1,AppendTo[rts[[option]],
        <|i->iter,
          P->Table[Read[fileName,Real],{i,1,dat[d]}],
          lambda->Read[fileName,Real]|>];];
    iter=Read[fileName,Number];
    If[iter==-1,
        bestGuess=<|i->iter,
                    P->Table[Read[fileName,Real],{i,1,dat[d]}],
                    lambda->Read[fileName,Real]|>;
        iter=Read[fileName,Number];];
    If[iter==-2,
        dat[realPoint]=Table[Read[fileName,Real],{i,1,dat[d]}];
        dat[error]=Read[fileName,Real];];
];
Close[fileName];