Yaml.ahk (2/3)

;Yaml v1.0.14 requires AutoHotkey(H) v2.beta+
Yaml(TextFileObject,Yaml:=0,Space:=""){
  If IsObject(TextFileObject)
    return Dump(TextFileObject,Yaml,Space) ; dump object to yaml string
  else If FileExist(TextFileObject)
    return Load(FileRead(TextFileObject),Yaml) ; load yaml from file
  else return Load(TextFileObject,Yaml) ; load object from yaml string
  ;~ G(p,ByRef LF:=""){ ; get line and advance pointer to next line
    ;~ return !p||!NumGet(p,"UShort")?0:(str:=StrSplit(StrGet(P),"`n","`r",2)).Length?(p+=StrLen(LF:=str[1])*2,p+=!NumGet(p,"UShort") ? 0 : NumGet(p,"USHORT")=13?4:2):0
  ;~ }
  Load(txt,Y:=0){ ; convert yaml to object
    local NewDoc:=0,_:="",_C:="",_CE:="",_S:="",V:="",_L:="",O:="",VQ:="",h:="",VC:=""
    static _fun_:=A_PtrSize=8?"SIXJdExED7cBZkWFwHUM60BIg8ECZkWFwHQkZkGD+Ap0IWZBg/gNRA+3QQJ142ZBg/gKdB9Ig8ECZkWFwHXjSInIw4XSdAUx0maJEUiNQQLDMcDDhdJ0BTHAZokBSI1BBMOQkJCQ":"i0QkBIXAdEsPtxBmhdJ1CutBg8ACZoXSdDdmg/oKdCBmg/oND7dQAnXoZoP6CnQmg8ACZoXSdejzw422AAAAAItMJAiFyXQFMdJmiRCDwALD88MxwMOLTCQIhcl0BTHSZokQg8AEw5A=",_sz_,NXTLN,_op_,__:=(DllCall("crypt32\CryptStringToBinary","str",_fun_,"uint",0,"uint",1,"ptr",0,"uint*",&_sz_:=0,"ptr",0,"ptr",0),NXTLN:=DllCall("GlobalAlloc","uint",0,"ptr",_sz_,"ptr"),DllCall("VirtualProtect","ptr",NXTLN,"ptr",_sz_,"uint",0x40,"uint*",&_op_:=0),DllCall("crypt32\CryptStringToBinary","str",_fun_,"uint",0,"uint",1,"ptr",NXTLN,"uint*",&_sz_,"ptr",0,"ptr",0))
    if txt=""
      return []
    else If InStr("[{", SubStr(D:=LTrim(txt," `t`n`r"),1,1))
      return JSONString(D,Yaml) ; create pure json object (different syntax to YAML and better performance)
    pText:=Buffer(StrLen(txt)*2+8,0),StrPut(txt,pText.Ptr)
    P:=pText.Ptr,A:=Map(),D:=[],I:=[]
    Loop 1000
      D.Push(0),I.Push(0)
    ;~ While P:=G(LP:=P,LF){
    While P && (LP:=P,P:=DllCall(NXTLN,"PTR",P,"Int",true,"PTR"),LF:=StrGet(LP),P){ ;P:=(LP:=P,!p||!NumGet(p,"UShort")?0:(str:=StrSplit(StrGet(P),"`n","`r",2)).Length?(p+=StrLen(LF:=str[1])*2,p+=!NumGet(p,"UShort") ? 0 : NumGet(p,"USHORT")=13?4:2):0){
      if (InStr(LF,"---")=1&&!Y)||(InStr(LF,"---")=1&&(Y.Push(""),NEWDOC:=0,D[1]:=0,_L:=_LL:=O:=_Q:=_K:=_S:=_T:=_V:="",1))||(InStr(LF,"...")=1&&NEWDOC:=1)||(LF="")||RegExMatch(LF,"^\s+$")
        continue
      else if NEWDOC
        throw ValueError("Document ended but new document not specified.", 0, LF)
      if RegExMatch(LF,"^\s*#")||InStr(LF,"``%")=1 ; Comments, tag, document start/end or empty line, ignore
        continue
      else If _C || (_S && RegExMatch(StrReplace(LF,A_Tab,"  "),"^\s{" (LL-1) "}")) || (V&&!(K&&Q) && RegExMatch(StrReplace(LF,A_Tab,"  "),"^\s{" LL "}")){ ; Continuing line incl. scalars
        if _Q&&!_K{ ; Sequence
          If D[L].Length && IsObject(VC:=D[L].Pop())
            throw ValueError("Malformed inline YAML string") ; Error if previous value is an object
          else D[L].Push(VC (VC?(_S=">"?" ":"`n"):(LL:=StrLen(StrReplace(SubStr(LF,1,RegexMatch(LF,"[^\s]")-1),A_Tab,"  "))+1,"")) _CE:=SubStr(LF,SCAPrefix(&LF,LL-1))) ; append value to previous item
        } else if IsObject(VC:=D[L][K])
          throw ValueError("Malformed inline YAML string") ; Error if previous value is an object
        else D[L][K]:=VC (VC?(_S=">"?" ":"`n"):(LL:=StrLen(repl:=StrReplace(sub:=SubStr(LF,1,regex:=RegexMatch(LF,"[^\s]")-1),A_Tab,"  "))+1,"")) _CE:=SubStr(LF,SCAPrefix(&LF,LL-1)) ; append value to previous item
          continue
      } else if _C&&(SubStr(_CE,-1)!=_C)
        throw ValueError("Unexpected character", 0, (_Q?D[L][D[L].Length]:D[L][K])) ; else check if quoted value was ended with a quote
      else _C:="" ; reset continuation
      If (CM:=InStr(LF," #"))&&!RegExMatch(LF,".*[`"'].*\s\#.*[`"'].*") ; check for comments and remove
        LF:=SubStr(LF,1,CM-1)
      ; Split line into yaml elements
      If SubStr(LTrim(LF," `t"),1,1)=":"
        throw ValueError("Unexpected character.", 0, ':')
      RegExMatch(LF,"S)^(?<LVL>\s+)?(?<SEQ>-\s)?(?<KEY>`".*`"\s*:\s?|'.*'\s*:\s?|[^:`"'\{\[]+\s*:\s?)?\s*(?<SCA>[\|\>][+-]?)?\s*(?<TYP>!!\w+)?\s*(?<AGET>\*[^\s\t]+)?\s*(?<ASET>&[^\s\t]+)?\s*(?<VAL>`".+`"|'.+'|.+)?\s*$",&_),L:=LL:=StrLen(StrReplace(_.LVL,A_Tab,"  "))+1,Q:=_.SEQ,K:=_.KEY,S:=_.SCA,T:=SubStr(_.TYP,3),V:=UnQuote(_.VAL),V:= IsInteger(V)&&"" V+0=V?V+0:V,VQ:=InStr(".''.`"`".", "." SubStr(LTrim(_.VAL," `t"),1,1) SubStr(RTrim(_.VAL," `t"),-1) ".")
      if L>1{
        if LL=_LL
          L:=_L
        else if LL>_LL
          I[LL]:=L:=_L+1
        else if LL<_LL
          if !I[LL]
            throw ValueError("Indentation problem.", 0, LF)
          else L:=I[LL]
      }
      if Trim(_[]," `t")="-" ; empty sequence not cached by previous line
        V:="",Q:="-"
      else if K=""&&V&&!Q ; only a value is catched, convert to key
        K:=V,V:=""
      If !Q&&SubStr(RTrim(K," `t"),-1)!=":" ; not a sequence and key is missing :
        if L>_L&&(D[_L][_K]:=K,L:=_L,K:=_K,Q:=_Q,_S:=">")
          continue
        else throw ValueError("Invalid key.", 0, LF)
      else if K!="" ; trim key if not empty
        K:=UnQuote(RTrim(K,": "))
      Loop _L!=""?(_L?_L-L:0):A_Index=1?0:D.Length-1 ; remove objects in deeper levels created before
        D[L+A_Index]:=0,I[L+A_Index]:=0
      if !VQ&&_.VAL!=""&&!InStr("'`"",_C:=SubStr(LTrim(_.VAL," `t"),1,1)) ; check if value started with a quote and was not closed so next line continues
        _C:=""
      if _L!=L && !D[L] ; object in this level not created yet
        if L=1{ ; first level, use or create main object
          if Y&&Type(Y[Y.Length])!="String"&&((Q&&Type(Y[Y.Length])!="Array")||(!Q&&Type(Y[Y.Length])="Array"))
            throw ValueError("Mapping Item and Sequence cannot be defined on the same level.", 0, LF) ; trying to create sequence on the same level as key or vice versa
          else D[L]:=Y ? (Type(Y[Y.Length])="String"?(Y[Y.Length]:=Q?[]:Map()):Y[Y.Length]) : (Y:=Q?[[]]:[Map()])[1]
        } else if !_Q&&Type(D[L-1][_K])=(Q?"Array":"Object") ; use previous object
          D[L]:=D[L-1][_K]
        else D[L]:=O:=Q?[]:Map(),_A?A[_A]:=O:"",_Q ? D[L-1].Push(O) : D[L-1][_K]:=O,O:="" ; create new object
      _A:="" ; reset alias
      if Q&&K ; Sequence containing a key, create object
        D[L].Push(O:=Map()),D[++L]:=O,Q:=O:="",LL+=StrLen(StrReplace(_.SEQ,A_Tab,"  ")),I[LL]:=L
      If (Q&&Type(D[L])!="Array"||!Q&&Type(D[L])="Array")
        throw ValueError("Mapping Item and Sequence cannot be defined on the same level,", 0, LF) ; trying to create sequence on the same level as key or vice versa
      if T="binary"{ ; !!binary
        O:=Buffer(StrLen(V)//2),PBIN:=O.Ptr
        Loop Parse V
          If (""!=h.=A_LoopField) && !Mod(A_Index,2)
            NumPut("UChar","0x" h,PBIN,A_Index/2-1),h:=""
      } else if T="set"
        throw ValueError("Tag 'set' is not supported") ; tag !!set is not supported
      else V:=T="int"||T="float"?V+0:T="str"?V "":T="null"?"":T="bool"?(V="true"?true:V="false"?false:V):V ; tags !!int !!float !!str !!null !!bool - else seq map omap ignored
      if _.ASET
        A[_A:=SubStr(_.ASET,2)]:=V
      if _.AGET
        V:=A[SubStr(_.AGET,2)]
      else If !VQ && SubStr(LTrim(V," `t"),1,1)="{" ; create json map object
        O:=Map(),_A?A[_A]:=O:"",P:=(JSONMap(O,LP+InStr(LF,V)*2,L))
      else if !VQ && SubStr(LTrim(V," `t"),1,1)="[" ; create json sequence object
        O:=[],_A?A[_A]:=O:"",P:=(JSONArray(O,LP+InStr(LF,V)*2,L))
      if Q ; push sequence value into an object
        (V ? D[L].Push(O?O:S?"":V) : 0)
      else D[L][K]:=O?O:D[L].HasOwnProp(K)?D[L][K]:S?"":V ; add key: value into object
      if !Q&&V ; backup yaml elements
        _L:=L,_LL:=LL,O:=_Q:=_K:=_S:=_T:=_V:="" ;_L:=
      else _L:=L,_LL:=LL,_Q:=Q,_K:=K,_S:=S,_T:=T,_V:=V,O:=""
    }
    if Y&&Type(Y[Y.Length])="String"
      Y.Pop()
    return Y
  }
  SCAPrefix(&LF,LL){
    Loop Parse, LF
      if !LL-=A_LoopField=A_Tab?2:1
        return A_Index+1
  }
  UniChar(S,e:=1){ ; UniChar: convert unicode and special characters
    local v:=""
    static m:=Map(Ord('"'),'"',Ord("a"),"`a",Ord("b"),"`b",Ord("t"),"`t",Ord("n"),"`n",Ord("v"),"`v",Ord("f"),"`f",Ord("r"),"`r",Ord("e"),Chr(0x1B),Ord("N"),Chr(0x85),Ord("P"),Chr(0x2029),0,"",Ord("L"),Chr(0x2028),Ord("_"),Chr(0xA0))
    Loop Parse S,"\"
      If !((e:=!e)&&A_LoopField=""?v.="\":!e?(v.=A_LoopField,1):0)
        v .= (t:=InStr("ux",SubStr(A_LoopField,1,1)) ? SubStr(A_LoopField,1,RegExMatch(A_LoopField,"^[ux]?([\dA-F]{4})?([\dA-F]{2})?\K")-1) : "")&&RegexMatch(t,"i)^[ux][\da-f]+$") ? Chr(Abs("0x" SubStr(t,2))) SubStr(A_LoopField,RegExMatch(A_LoopField,"^[ux]?([\dA-F]{4})?([\dA-F]{2})?\K")) : m.has(Ord(A_LoopField)) ? m[Ord(A_LoopField)] SubStr(A_LoopField,2) : "\" A_LoopField,e:=A_LoopField=""?e:!e
    return v
  }
  CharUni(&S){ ; CharUni: convert text to unicode notation
    local v:=""
    static ascii:=Map("\","\","`a","a","`b","b","`t","t","`n","n","`v","v","`f","f","`r","r",Chr(0x1B),"e","`"","`"",Chr(0x85),"N",Chr(0x2029),"P",Chr(0x2028),"L","","0",Chr(0xA0),"_")
    If !RegexMatch(s,"[\X{007F}-\X{FFFF}]"){ ;!(v:="") &&
      Loop Parse, S
        v .= ascii.Has(A_LoopField) ? "\" ascii[A_LoopField] : A_LoopField
      return v
    }
    Loop Parse, S
      v .= ascii.Has(A_LoopField) ? "\" ascii[A_LoopField] : Ord(A_LoopField)<128 ? A_LoopField : "\u" format("{1:.4X}",Ord(A_LoopField))
    return v
  }
  Quote(S, J:=1){ ; EscIfNeed: check if escaping needed and convert to unicode notation
    If S=""
      return '""'
    else if (J<1&&!InStr("IntegerFloat",Type(S)))||RegExMatch(S,"m)[\{\[`"'\r\n]|:\s|,\s|\s#")||RegExMatch(S,"^[\s#\\\-:>]")||RegExMatch(S,"m)\s$")||RegExMatch(S,"m)[\X{7F}-\X{7FFF}]")
      return ('"' CharUni(&S) '"')
    else return S
  }
  UnQuote(S){ ; UnQuote: remove quotes
    return (t:=SubStr(S:=Trim(S," `t"),1,1) SubStr(S,-1)) = '""' ? (InStr(S,"\")?UniChar(SubStr(S,2,-1)):SubStr(S,2,-1)) : t = "''" ? SubStr(S,2,-1) : S
  }
  Dump(O:="",J:=0,Space:=""){ ; dump object to string
    local D:=""
    if Type(O)!="Array"||!O.Length||!IsObject(O[1])
      D.= DumpObj(O,J,,,Space)
    else if j<1 {
      for K,V in O
        D.=DumpObj(V,J,,,Space) (j<0?"`n,":",")
      return J<0?"[`n  " StrReplace(RTrim(D,",`n"),"`n","`n  ") "`n]":"[" RTrim(D,",`n") "]"
    } else
      for K,V in O
        D.="---`n" DumpObj(V,J,,,Space) "`n"
    return RTrim(D,",`n")
  }
  DumpObj(O:="",J:=0,R:=0,Q:=0,Space:=""){ ; helper: convert object to yaml string
    static M1:="{",M2:="}",S1:="[",S2:="]",N:="`n",C:=",",S:="- ",E:="",K:=":",Indent:="                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  "
    If (t:=type(O))="Array"{
      D:=J<1&&!R?S1:""
      for key, value in O{
        if Type(value)="Buffer"{
          Loop (VAL:="",PTR:=value.Ptr,value.size)
            VAL.=format("{1:.2X}",NumGet(PTR+A_Index-1,"UCHAR"))
          value:="!!binary " VAL,F:=E
        } else
          F:=IsObject(value)?(Type(value)="Array"?"S":"M"):E
        Z:=Type(value)="Array"&&value.Length=0?"[]":((Type(value)="Map"&&value.count=0)||(Type(value)="Object"&&ObjOwnPropCount(value)=0))?"{}":""
        If J<=R
          D.=(J<R*-1?"`n" SubStr(Indent,(R+1)*-2):"") (F?(%F%1 (Z?"":DumpObj(value,J,R+1,F,Space)) %F%2):Space Quote(value, J)) ((Type(O)="Array"&&O.Length=A_Index) ? E : C)
        else if ((D:=D N SubStr(Indent,R*-2) S)||1)&&F
            D.= Z?Z:(J<=(R+1)?%F%1:E) DumpObj(value,J,R+1,F,Space) (J<=(R+1)?%F%2:E)
        else D .= " " Space Quote(value,J)
      }
    } else {
      D:=J<1&&!R?M1:""
      for key, value in Type(O)="Map"?(Y:=1,O):(Y:=0,O.OwnProps()){
        if Type(value)="Buffer"{
          Loop (VAL:="",PTR:=value.Ptr,value.size)
            VAL.=format("{1:.2X}",NumGet(PTR+A_Index-1,"UCHAR"))
          value:="!!binary " VAL,F:=E
        } else
          F:=IsObject(value)?(Type(value)="Array"?"S":"M"):E
        Z:=Type(value)="Array"&&value.Length=0?"[]":((Type(value)="Map"&&value.count=0)||(Type(value)="Object"&&ObjOwnPropCount(value)=0))?"{}":""
        If J<=R
          D.=(J<R*-1?"`n" SubStr(Indent,(R+1)*-2):"") (Q="S"&&A_Index=1?M1:E) Quote(key,J) Space K (F?(%F%1 (Z?"":DumpObj(value,J,R+1,F,Space)) %F%2):Space Quote(value,J)) (Q="S"&&A_Index=(Y?O.count:ObjOwnPropCount(O))?M2:E) (J!=0||R?(A_Index=(Y?O.count:ObjOwnPropCount(O))?E:C):E)
        else If ((D:=D N SubStr(Indent,R*-2) Quote(key,J) Space K)||1)&&F
          D.= Z?Z:(J<=(R+1)?%F%1:E) DumpObj(value,J,R+1,F,Space) (J<=(R+1)?%F%2:E)
        else D .= " " Space Quote(value, J)
        If J=0&&!R
          D.= (A_Index<(Y?O.count:ObjOwnPropCount(O))?C:E)
      }
    }
    if J<0&&J<R*-1
      D.= "`n" SubStr(Indent,R*-2)
    If R=0
      D:=RegExReplace(D,"^\R+") (J<1?(Type(O)="Array"?S2:M2):"")
    Return D
  }
  JSONMap(O,P,L){ ; YamlObject: convert json map
    static _fun_:=A_PtrSize=8?"SIXJdExED7cBZkWFwHUM60BIg8ECZkWFwHQkZkGD+Ap0IWZBg/gNRA+3QQJ142ZBg/gKdB9Ig8ECZkWFwHXjSInIw4XSdAUx0maJEUiNQQLDMcDDhdJ0BTHAZokBSI1BBMOQkJCQ":"i0QkBIXAdEsPtxBmhdJ1CutBg8ACZoXSdDdmg/oKdCBmg/oND7dQAnXoZoP6CnQmg8ACZoXSdejzw422AAAAAItMJAiFyXQFMdJmiRCDwALD88MxwMOLTCQIhcl0BTHSZokQg8AEw5A=",_sz_,NXTLN,_op_,__:=(DllCall("crypt32\CryptStringToBinary","str",_fun_,"uint",0,"uint",1,"ptr",0,"uint*",&_sz_:=0,"ptr",0,"ptr",0),NXTLN:=DllCall("GlobalAlloc","uint",0,"ptr",_sz_,"ptr"),DllCall("VirtualProtect","ptr",NXTLN,"ptr",_sz_,"uint",0x40,"uint*",&_op_:=0),DllCall("crypt32\CryptStringToBinary","str",_fun_,"uint",0,"uint",1,"ptr",NXTLN,"uint*",&_sz_,"ptr",0,"ptr",0))
    v:=q:=k:=0,key:=val:=lf:=nl:=""
    If ""!=c:=Chr(NumGet(p,"UShort"))
    Loop {
      if c="`n"||(c="`r"&&10=NumGet(p+2,"UShort")){
        if (q||k||(!v&&!k)||SubStr(Ltrim(StrGet(p+(c="`n"?2:4))," `t`r`n"),1,1)="}") && P+=c="`n"?2:4
          continue
        else throw ValueError("Malformed inline YAML string", 0, StrGet(p-6))
      } else if !q&&(c=" "||c=A_Tab) && P+=2
        continue
      else if !v&&(c='"'||c="'") && (q:=c,v:=1,P+=2)
        continue
      else if !v&&k&&(c="["||c="{") && (P:=c="[" ? JSONArray(O[key]:=[],P+2,L) : JSONMap(O[key]:=Map(),P+2,L),key:="",k:=0,1)
        continue
      else if v&&!k&&((!q&&c=":")||(q&&q=c)) && (v:=0,key:=!q && IsNumber(key)&&"" key+0=key?key+0:q?(InStr(key,"\")?UniChar(key):key):Trim(key," `t"),k:=1,q:=0,P+=2)
        continue
      else if v&&k&&((!q&&c=",")||(q&&q=c)) && (v:=0,O[key]:=!q && IsNumber(val)&&"" val+0=val ? val+0 : q ? (InStr(val,"\")?UniChar(val):val) : Trim(val," `t"),val:="",key:="",q:=0,k:=0,P+=2)
        continue
      else if !q&&c="}"&&(k&&v?(O[key]:=val,1):1){
        ;~ if ((tp:=G(P+2,lf))&&(NumGet(P+2,"UShort")=10||NumGet(P+4,"UShort")=10||(nl:=RegExMatch(lf,"^\s+?$"))||RegExMatch(lf,"^\s*[,\}\]]")))
        if ((tp:=DllCall(NXTLN,"PTR",P+2,"Int",false,"PTR"),lf:=StrGet(P+2),tp)&&(NumGet(P+2,"UShort")=0||(nl:=RegExMatch(lf,"^\s+?$"))||RegExMatch(lf,"^\s*[,\}\]]")))
          return nl?DllCall(NXTLN,"PTR",P+2,"Int",true,"PTR"):lf?P+2:NumGet(P+4,"UShort")=0?P+6:P+4 ; in case `r`n we have 2 times NULL chr
        else if !tp
          return NumGet(P+4,"UShort")=0?P+6:P+4 ; in case `r`n we have 2 times NULL chr
        else throw ValueError("Malformed inline YAML string.", 0, StrGet(p))
      } else if !v&&(c=","||c=":"||c=" "||c="`t")&&P+=2
        continue
      else if !v&& (!k ? (key:=c) : val:=c,v:=1,P+=2)
        continue
      else if v&& (!k ? (key.=c) : val.=c,P+=2)
        continue
      else throw ValueError("Undefined")
    } Until(""=c:=Chr(NumGet(p,"UShort")))
    return P
  }
  JSONArray(O,P,L){ ; YamlArray: convert json sequence
    static s:="",_fun_:=A_PtrSize=8?"SIXJdExED7cBZkWFwHUM60BIg8ECZkWFwHQkZkGD+Ap0IWZBg/gNRA+3QQJ142ZBg/gKdB9Ig8ECZkWFwHXjSInIw4XSdAUx0maJEUiNQQLDMcDDhdJ0BTHAZokBSI1BBMOQkJCQ":"i0QkBIXAdEsPtxBmhdJ1CutBg8ACZoXSdDdmg/oKdCBmg/oND7dQAnXoZoP6CnQmg8ACZoXSdejzw422AAAAAItMJAiFyXQFMdJmiRCDwALD88MxwMOLTCQIhcl0BTHSZokQg8AEw5A=",_sz_,NXTLN,_op_,__:=(DllCall("crypt32\CryptStringToBinary","str",_fun_,"uint",0,"uint",1,"ptr",0,"uint*",&_sz_:=0,"ptr",0,"ptr",0),NXTLN:=DllCall("GlobalAlloc","uint",0,"ptr",_sz_,"ptr"),DllCall("VirtualProtect","ptr",NXTLN,"ptr",_sz_,"uint",0x40,"uint*",&_op_:=0),DllCall("crypt32\CryptStringToBinary","str",_fun_,"uint",0,"uint",1,"ptr",NXTLN,"uint*",&_sz_,"ptr",0,"ptr",0))
    v:=q:=c:=tp:=0,lf:=nl:=""
    If ""!=c:=Chr(NumGet(p,"UShort"))
    Loop {
      if c="`n"||(c="`r"&&10=NumGet(p+2,"UShort")){
        if (q||!v||SubStr(Ltrim(StrGet(p+(c="`n"?2:4))," `t`r`n"),1,1)="]") && P+=c="`n"?2:4
          continue
        else throw ValueError("Malformed inline YAML string.", 0, s "`n" StrGet(p-6))
      } else if !q&&(c=" "||c=A_Tab) && P+=2
        continue
      else if !v&&(c='"'||c="'") && (q:=c,v:=1,P+=2)
        continue
      else if !v&&(c="["||c="{") && (P:=c="[" ? JSONArray((O.Push(lf:=[]),lf),P+2,L) : JSONMap((O.Push(lf:=Map()),lf),P+2,L),lf:="",1)
        continue
      else if v&&((!q&&c=",")||(q&&c=q)) && (v:=0,O.Push(!q && IsNumber(lf)&&"" lf+0=lf ? lf+0 : q ? (InStr(lf,"\")?UniChar(lf):lf) : Trim(lf," `t")),q:=0,lf:="",P+=2)
        continue
      else if !q&&c="]"&&(v?(O.Push(Trim(lf," `t")),1):1){
        ;~ if ((tp:=G(P+2,lf))&&(NumGet(P+2,"UShort")=10||NumGet(P+4,"UShort")=10||(nl:=RegExMatch(lf,"^\s+?$"))||RegExMatch(lf,"^\s*[,\}\]]")))
        if ((tp:=DllCall(NXTLN,"PTR",P+2,"Int",false,"PTR"),lf:=StrGet(P+2),tp)&&(NumGet(P+2,"UShort")=0||(nl:=RegExMatch(lf,"^\s+?$"))||RegExMatch(lf,"^\s*[,\}\]]")))
          return nl?DllCall(NXTLN,"PTR",P+2,"Int",true,"PTR"):lf?P+2:NumGet(P+4,"UShort")=0?P+6:P+4 ; in case `r`n we have 2 times NULL chr
        else if !tp
          return NumGet(P+4,"UShort")=0?P+6:P+4 ; in case `r`n we have 2 times NULL chr
        else throw ValueError("Malformed inline YAML string.", 0, StrGet(p))
      } else if !v&&(c=","||c=" "||c="`t")&&P+=2 ;InStr(", `t",c)
        continue
      else if !v&& (lf.=c,v:=1,P+=2)
        continue
      else if v&& (lf.=c,P+=2)
        continue
      else throw ValueError("Undefined")
    } Until(""=c:=Chr(NumGet(p,"UShort")))
    return P
  }
  JSONString(S,Y){ ; PureJSON: convert pure JSON Object
    local NQ:="",LF:="",LP:=0,P:="",R:=""
    D:=[C:=(A:=InStr(S,"[")=1)?[]:Map()],S:=LTrim(SubStr(S,2)," `t`r`n"),L:=1,N:=0,V:=K:="",Y?(Y.Push(C),J:=Y):J:=[C],!(Q:=InStr(S,'"')!=1)?S:=LTrim(S,'"'):""
    Loop Parse, S, '"' {
      Q:=NQ?1:!Q
      NQ:=Q&&(SubStr(A_LoopField,-3)="\\\"||(SubStr(A_LoopField,-1)="\"&&SubStr(A_LoopField,-2)!="\\"))
      if !Q {
        If (t:=Trim(A_LoopField," `t`r`n"))=","||(t=":"&&V:=1)
          continue
        else If t&&(InStr("{[]},:",SubStr(t,1,1)) || RegExMatch(t,"^\d*\s*[,\]\}]")){
          Loop Parse, t {
            if N&&N--
              continue
            If InStr("`n`r `t",A_LoopField)
              continue
            else If InStr("{[",A_LoopField){
              if !A&&!V
                throw ValueError("Malformed JSON - missing key.",0,t)
              C:=A_LoopField="["?[]:Map(),A?D[L].Push(C):D[L][K]:=C,D.Has(++L)?D[L]:=C:D.Push(C),V:="",A:=Type(C)="Array"
              continue
            } else if InStr("]}",A_LoopField){
              If !A&&V
                throw ValueError("Malformed JSON - missing value.",0, t)
              else if L=0
                throw ValueError("Malformed JSON - to many closing brackets.", 0, t)
              else C:=--L=0?"":D[L],A:=Type(C)="Array"
            } else if !(InStr(" `t`r,",A_LoopField)||(A_LoopField=":"&&V:=1)){
              If RegExMatch(SubStr(t,A_Index),"m)^(null|false|true|-?\d+\.?\d*)\s*[,}\]\r\n]",&R)&&(N:=R.Len(0)-2,R:=R.1,1){
                if A
                  C.Push(R="null"?"":R="true"?true:R="false"?false:"" R+0=R?R+0:R)
                else if V
                  C[K]:=R="null"?"":R="true"?true:R="false"?false:"" R+0=R?R+0:R,K:=V:=""
                else throw ValueError("Malformed JSON - missing key.", 0, t)
              } else
                throw ValueError("Malformed JSON - unrecognized character-", 0, A_LoopField " in " t)
            }
          }
        }
      } else if NQ&&(P.=A_LoopField '"',1)
        continue
      else if A
        LF:=P A_LoopField,C.Push(LF~="^(?!0)-?\d+\.?\d*$"&&"" LF+0=LF?LF+0:InStr(LF,"\")?UniChar(LF):LF),P:=""
      else if V
        LF:=P A_LoopField,C[K]:=LF~="^(?!0)-?\d+\.?\d*$"&&"" LF+0=LF?LF+0:InStr(LF,"\")?UniChar(LF):LF,K:=V:=P:=""
      else
        LF:=P A_LoopField,K:=LF~="^(?!0)-?\d+\.?\d*$"&&"" LF+0=LF?LF+0:InStr(LF,"\")?UniChar(LF):LF,P:=""
    }
    return J[1]
  }
}