Loading JSON File

#include "json_functions"
 
Function JsonLoadFromFile(string path)
 
    variable refNum
    string contents
 
    Open/R/Z refNum as path
    if(V_Flag)
        return NaN
    endif
 
    FStatus refNum
    contents = PadString("", V_LogEOF, 0)
    FBinRead refNum, contents
    Close refNum
 
    return JSON_Parse(contents, ignoreErr = 1)
End

#include "json_functions"
 
Function/WAVE JsonLinesLoadFromFile(string path)
 
    variable refNum
    string contents
 
    Open/R/Z refNum as path
    if(V_Flag)
        return $""
    endif
 
    FStatus refNum
    contents = PadString("", V_LogEOF, 0)
    FBinRead refNum, contents
    Close refNum
    
    WAVE/T wv = ListToTextWave(contents, "\n")
    return wv
End
 
Function ExtractFromLine(string JSONText)
    variable jsonID, temp
 
    // fixup non-conformant JSON with NaNs as numbers to NaNs as strings
    JSONText = ReplaceString(": NaN,",JSONText, ": \"NaN\", ")
 
    jsonID = JSON_Parse(JSONText, ignoreErr = 1)
    if(numtype(jsonID) != 0)
        return NaN
    endif
 
    temp = JSON_GetVariable(jsonID, "cpu_temperature")
 
    JSON_Release(jsonID)
    
    return temp
End
 
Function Parse()
 
    WAVE/T contents = JsonLinesLoadFromFile("E:\\walk_A2.txt")
 
    Make/N=(DimSize(contents, 0))/O cpuTemp = ExtractFromLine(contents[p])
End