From edbfb61166ae374180554472e2befb819b467ac0 Mon Sep 17 00:00:00 2001
From: kake26 <codeberg@pngpst.net>
Date: Wed, 11 Dec 2024 00:13:12 -0600
Subject: [PATCH] save point

---
 json.db    | Bin 12288 -> 20480 bytes
 jsonlib.pb |  86 ++++++++++++++++++++++++++++++++++++++++++++++++-----
 2 files changed, 78 insertions(+), 8 deletions(-)

diff --git a/json.db b/json.db
index aa4948972bcd66b99c3077446bb7f97caa40b058..3650e4c283851764c321f07b24cb325a88f32850 100755
GIT binary patch
literal 20480
zcmeI2UvLve9LMi+$))*ocdfLhM+x0PrZ&)qq}Md5SRk|k3Z+6?DJW1c$)>%M=HlgA
zT9r}M85y7S0iBU2z=83_M;QeklyQb}d{hRR@!zQLj-#XSAnqmQkF@tEGaVh7-Oe?4
zyL)@LpZo6pe!txt**heu5aeZLT2z5R)Dt90Yyp5E$jt;nIM8NCn+<K$!an+`B=XLV
z{x51HJbQvc6>RJ;1os*GhZ81%319-4049J5U;>x`CV&ZG0+;|M@GlTJp0+uCt*zuM
zWmU`+;8a;Ij^{*Gyt_m7r&Gz%6c|lz9ZG?_*`VDGP?B<BaCkJeJ(UJ~(u2E`=>uR_
z>Oe=O><F9(qpAI))uWQAz@j>?WiFi20YGOb*d{AbnkWLTK!JIPYGol%WuQ(%P(2Bt
z6P5W6Amu?3mQ|RmG_TH=;C=1SiiMf#u{+dD(!Qo9a;(xNshF3w&GwIuXgQ!=Ma_YI
z$#nmYWV*d877K;6*c=7@IAH>q049J5U;>x`CV&ZG0+;|MfC*p%n7~6!K#TvInR<fz
zk-N%$z`emGxfagF{=r^nKVr|ZZ?ey`Id+&$uuaUb%ooflW`-GKHZb+B)iwXw>n_%v
ztedSHs~e~bIRA29cb<11cV?X%ovY~E^iTBX^f~$v9j8}1ZaaQ<eBzjMq#c5z(Lvh3
zwO_QKwCC)b?11`{`kJ~#ou*!=veZi3Z?>;&AKK2^UbY>w#ceeCJ^3m5F8Km^nCvG*
zr1tfKm9*vvO*AolG+Qi9ji`!LoDjOhUGc84(9^Ra5{X1Rg=q5>P4EoQPrzahD%Dzf
zI4u?+FVTdb;e7?MtPYFQuv)gOAQfTDBu%uUlO{z;>6Z)g!g;bH7AK&8f+j)?zhYXP
zOV1PsBs3$1rh<lNrZZ6K4fnR?X`+GQ`=ng8!Jc@mH<Hi95?z^CCf*%|U0ER-$-z~y
za*dX}q}+e~-BKZ^z+5m#6F!C)N|SPN;m+2_VxT=Cgg|dBA#`^Nkwkn$mL>uLetmXE
z(Ppi7%9(q6a%Ku<)%NO46sR7Bf*I6ofNxbLwE*wct={PXoP`Cs1eJh@m<4!WSuBXk
z{Dak|#qyDjfoC;%zEF0ua=*o-qKNZ%E+%RRp@wmqSi$fO;=}?RA?80^$qHpl`RXNw
zNHp9f2w@@C-5E{z4{6WS7n+hY<s}*n9;AuK7=CR@fhu~MBbB?Wwv!Hmo^UkY-I0iF
ze}*Pn7=A{~A&%v8wLBK<1;es(RF-ofISY$u3a%5R3h0Tc9a@1p3Hn7vM$caC07IfW
zD~aJXPg_ve0bO<N*H_n=k-GL7tLrI?>KZjv*N7!`rE68!UQ6oQW3H|z&DAx$SY5k~
z)iq?Su3eVYwR5@DHE2OyJ9O2xU0+?>4Ad1&S?c7#a&@xbLMONCb~35o$t?z*^lvsE
zLYpiOp+3VQ^n|4$w6WG9^th!V)N4M366QlFzIX`r7!RSC@et~^q%L8()YYY@F8`dN
z0tkY>V#P$GdZ&;Zpkty@=`nK?jcSe6WTMdtZRRE#)iN{D=qu1~OiVPY^6>*E8fBeF
zS$ZZK6`wFL(WqE5H_@n8|FW29^pWc=GY1gWxwf<eh)OQ$IDn|=w5|h)3STpD08uft
zrY?J*k-F@yR@6n^tWjOmRV(VE&X_oW=)2;VOw~mlT%;~)&`@2}Izx3)9vyZ0n+->N
zo6q7q|53wtev_qleq*ig{1uko`Hz^6_&|f{JHN4>CK$huyW_W4T=hsJw`4B6WG=I0
zu6L>22G3#(<2JT1E<+1bUxzN!<m0pmp?d4}&IfaXv?VL#SS~AM*Rw+R1)-F#k7LvK
zaYzFnXCXY+zU6mt^V|s6%{6g0_B-|x`!);N&1`_V$=qNrGiR6+Opa;s{_efzz2JS%
zd)#~2oA5e4KX|TqPI+GRjC%$=>pZmkvilwPocn-#n|rOBaNTgd?|Rh*U45?ARswNc
z2NS>qFab;e6Tk#8f&ZF-N&Me-)M7L+YZwj8Sc(SJTBCuorD#Agj|QGIjRqP@i~V!i
z*gr2C`scxEOTKquxqNTD0932G@B$EC07A=)cmZh9dS&qcv;d^7|1)ee!Cm0q;uIAB
zZ{hsxE%r<HEPIR{XXB^{CrkhnzyvS>OaK$W1TX<i029CjFoB1d0G|2OK2Co4XFmT1
D6>`_g

delta 247
zcmZozz}S#5L5h#ToPmLX8HmAPqJ|k0gZajUCGs3h{2C1WH~BR-3kt~a*Ei}hu``JC
zN;bKc<Y%Ym1(y_M=B1}rdSxWJCujO+dU=Lcc^dj<dKP=;1(_y0dzyJ>7es_Pds*rM
z73HLQIA;21xf=Ucc~<$kgqHhe0Tt%vWP4`iXQsMGnx<4a8m4&oR{DpV79>_hnR#ZG
zXQp`Mlt%>v4a#-PPI3v)DfP@V&<pjA4-7Ez3v)`z%=h&Pwa5+dvW)UENGgo4%<%~b
jH1kTyGj^=<^Um@%P-SFe5Eqx!PE5(o%mWjX8|_2^rxHp`

diff --git a/jsonlib.pb b/jsonlib.pb
index 0271e72..d63c792 100755
--- a/jsonlib.pb
+++ b/jsonlib.pb
@@ -1,13 +1,77 @@
 UseSQLiteDatabase()
 
+Procedure InsertIntoDatabase(key$, parentKey$, type$, value$)
+  query$ = "INSERT INTO json_data (key, parent_key, type, value) VALUES ('" + key$ + "', '" + parentKey$ + "', '" + type$ + "', '" + value$ + "')"
+  If DatabaseUpdate(0, query$) = 0
+    Debug "Error inserting data: " + DatabaseError()
+  EndIf
+EndProcedure
+
+; Nested object handling
+Procedure HandleNestedObject(JSONValue, parentKey$)
+  If ExamineJSONMembers(JSONValue)
+    While NextJSONMember(JSONValue)
+      key$ = JSONMemberKey(JSONValue)
+      MemberValue = JSONMemberValue(JSONValue)
+      Debug MemberValue
+      ; Process the member value as before
+      ; Now extract the actual value based on its type
+    Select JSONType(MemberValue)
+      Case #PB_JSON_String
+        value$ = GetJSONString(MemberValue)
+        type$ = "String"
+        
+      Case #PB_JSON_Number
+        value$ = StrD(GetJSONDouble(MemberValue))
+        type$ = "Number"  
+        
+      Case #PB_JSON_Boolean
+        value$ = Str(Bool(GetJSONBoolean(MemberValue))) ;Feels cheaty, but it workssss
+        type$ = "Boolean"
+        
+      Case #PB_JSON_Object
+        value$ = "(nested object)"
+        ;Debug key$
+        parentKey$ = key$
+        type$ = "object"
+        ; You could further examine this nested object if needed.
+        ;HandleNestedObject(MemberValue, key$)
+        
+      Case #PB_JSON_Array
+        value$ = "(nested array)"
+        type$ = "Array"
+        ; Handle array values if needed.
+        ;HandleNestedArray(MemberValue, key$)
+        
+      Default
+        value$ = "(unknown type)"
+        type$ = "Unknown"
+        
+    EndSelect
+    ;InsertIntoDatabase(key$, parentKey$, "Object", "(nested object)") ; Adjust type as necessary
+    InsertIntoDatabase(key$,parentKey$,type$,value$)
+    Wend
+  EndIf
+EndProcedure
+
+; Nested array handling
+Procedure HandleNestedArray(JSONValue, parentKey$)
+  Dim arrayitems(0)
+  Debug "Array" + ExtractJSONArray(JSONValue, arrayitems())
+ 
+    For i = 0 To ArraySize(arrayitems())
+      Debug "Array item" + arrayitems(i)
+      InsertIntoDatabase(key$,parentKey$,"array",Str(arrayitems(i)))
+      Next i
+EndProcedure
 
 ; worry about the database init later
 
 OpenDatabase(0,"json.db","","",#PB_Database_SQLite)
     
-   LoadJSON(1,"results.json");ParseJSON(1, json$) ; returns garbage without the PB ascii there not sure why
+   LoadJSON(1,"test5.json");ParseJSON(1, json$) ; returns garbage without the PB ascii there not sure why
        
-  ParseJSON(1, json$) ; returns garbage without the PB ascii there not sure why
+ ; ParseJSON(1, json$) ; returns garbage without the PB ascii there not sure why
     ObjectValue = JSONValue(1)
     
    If ExamineJSONMembers(ObjectValue)
@@ -37,11 +101,13 @@ OpenDatabase(0,"json.db","","",#PB_Database_SQLite)
         parentKey$ = key$
         type$ = "object"
         ; You could further examine this nested object if needed.
+        HandleNestedObject(MemberValue, key$)
         
       Case #PB_JSON_Array
         value$ = "(nested array)"
         type$ = "Array"
         ; Handle array values if needed.
+        HandleNestedArray(MemberValue, key$)
         
       Default
         value$ = "(unknown type)"
@@ -50,15 +116,19 @@ OpenDatabase(0,"json.db","","",#PB_Database_SQLite)
     EndSelect
     
     ; Insert the parsed data into the SQLite database
-    query$ = "INSERT INTO json_data (key, parent_key, type, value) VALUES ('" + key$ + "', '" + parentKey$ + "', '" + type$ + "', '" + value$ + "')"
-    If DatabaseUpdate(0, query$) = 0
-      Debug "Error inserting data: " + DatabaseError()
-    EndIf
+    ;query$ = "INSERT INTO json_data (key, parent_key, type, value) VALUES ('" + key$ + "', '" + parentKey$ + "', '" + type$ + "', '" + value$ + "')"
+    ;If DatabaseUpdate(0, query$) = 0
+     ; Debug "Error inserting data: " + DatabaseError()
+     ;EndIf
+    InsertIntoDatabase(key$,parentKey$,type$,value$)
 
   Wend
 EndIf
+
+CloseDatabase(0)
 ; IDE Options = PureBasic 6.12 LTS (Linux - x64)
-; CursorPosition = 37
-; FirstLine = 15
+; CursorPosition = 63
+; FirstLine = 43
+; Folding = -
 ; EnableXP
 ; DPIAware
\ No newline at end of file