Remove a "-" （Use text2） can execute successfully.
What is the reason ?
Code: Select all
#Requires AutoHotkey v2.0
#SingleInstance Force
;#Include Yaml.ahk
text:="
(
chlds:
-
a1title: 0301
-
a1title: 0301
-
a1title: 0301
)"
text2:="
(
chlds:
-
a1title: 0301
-
a1title: 0301
)"
y := Yaml(text) ;Fail
;y := Yaml(text2) ;Success
MsgBox Yaml(y,5) ; Dump objects back into Yaml
esc::ExitApp
/*
Error: Indentation problem.
Specifically: -
---- D:\work\14_scripts\AK2\Libs_v2_2\Yaml-ahkV2\Yaml-ahkV2\Yaml.ahk
226: If LL<_LL
227: If !I[LL]
▶ 228: Throw ValueError("Indentation problem.", 0, LF)
229: Else
229: L := I[LL]
The current thread will exit.
Show call stack »
*/
/*
[v2] Yaml and JSON parser
https://www.autohotkey.com/boards/viewtopic.php?f=83&t=70235
UMap -> Map 20230207_221154
*/
;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]
}
}