From 58902216781174c947f202503c96f7ba4135f462 Mon Sep 17 00:00:00 2001
From: kake26 <codeberg@pngpst.net>
Date: Wed, 11 Dec 2024 18:07:01 -0600
Subject: [PATCH] save working?

---
 .gitignore |   2 ++
 json.db    | Bin 20480 -> 20480 bytes
 jsonlib.pb |  44 ++++++++++++++++++++++++++++++++++----------
 3 files changed, 36 insertions(+), 10 deletions(-)
 create mode 100644 .gitignore

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..cee1840
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,2 @@
+# windsurf rules
+.windsurfrules
diff --git a/json.db b/json.db
index 3650e4c283851764c321f07b24cb325a88f32850..745b5d8a70aea4b220294c3bf17eb85d63b3637c 100755
GIT binary patch
delta 961
zcmZY7J8aWH7zc14P($JuAq~a7IJvwV8oPFq7RpeRRtUk6iigypjZ`PG5~I{Xwu2PJ
z(6S&g6^^w^k(d~es<MHY7+9#7*(zXVVMnBHLgPd?++X_c?x*|iHh011F4%^k^CGwe
zI(zGH!fQ!yi{O56U$}SNbFRQa_7D4&eak*&*VyYUVgd7;`NX_t+RQB`L;s}@=so%w
zy+U83ebgcKncATqQ!A805#I0KkKR|_mS_89?5`u)b4tiylt$nVE~HZ+jaS9VGXz0W
zc&ixghOu9`BZ^1iJ^m&}$GSmCVl*ED39N`I5XWj!05M!xNPsBb5oHj;2Vw%Cms3#?
z#)k`$^+bpy0x>>fs2f_Pt~aWtW~}B*_iR%)YDK-$L^qqQMimMq;g9j0S{qzdY;BY^
z^NJKCiI~7o5A5&9WxN$1FQ=e`BwR?YhuqdIOGAa0W$Ol<9A$E)V`fg`hnQT+#Z;y)
zIZVpMWP8kgwcTi%XwlSbbsJ8MI@z8xD_tCNvTmoA2{_J-%TfM2MzxKW>ZWelnqg@M
z93Qomo~20sAxm*vYVv|(#ax!$Z(XaZp+(iU8yfVDDsoSmm(C9<vReuGxbAL-_jRB5
zxY@Z`fyE!B&}oJw@RQ4M1=1uj0eQczcd-Y}vbEa3@Y0RtI7JdX<YSiFP|dchdN+<_
z>1uW^qhym_l7Inzx>rA%obOSJc$~AtCujFBSk)eBjpjqmjGr43`fD5^pI0(@C3$v0
OkV}0bupgZHiT(lQkQ}!F

delta 609
zcmZozz}T>Wae_3X{X`jOM*EEkOXOoDcm){vAM>B!U&r6Y@5nFB&&l_l?*`vazGZw9
z_^S9)`26@R_(XX>@t)zG&0ESF&a2NWz$r%@+?=3bz&W|gPm+a!fh~Npyp}!_o7&_6
zEtN?cia;UOyOS0D<;8)FUBbMQf{E#=ex<odsYS-7K%wQ6W38k?iaI9OKp2^m<@J?7
zBF>W&)m(uLmS2<m^c6siYm?8ZiOB;Qdt`Yf#d8viOZ*aZQ-e#2GV{{Cb29T%fl>=6
zAG8HIgr#M&f;z}#mek3Pnrciewv!KNNrCwClN<d&7BK$=JC*qa$f-=sizX*3$%BOJ
zq0VKF!Ei3KC)ByjT2SXQa|4|#&Lk@_S;10{QGBw!r8=Y7<U~JNM$yTRcB;%GYz#nK
zbXin{fs6nxB_>6oNg7Iwf|DQGDb|Y!urct;it{IDWagw4rRF6T6(v?0i11?-<-;n<
zi&c~do2Vc+8v}}uSd2|&xh6+j$uV+HuCkI<5#Ru76BXyr%1<hWI7NURU1YPg{!;}2
DvAB-L

diff --git a/jsonlib.pb b/jsonlib.pb
index d63c792..6c5aeba 100755
--- a/jsonlib.pb
+++ b/jsonlib.pb
@@ -1,4 +1,4 @@
-UseSQLiteDatabase()
+UseSQLiteDatabase()
 
 Procedure InsertIntoDatabase(key$, parentKey$, type$, value$)
   query$ = "INSERT INTO json_data (key, parent_key, type, value) VALUES ('" + key$ + "', '" + parentKey$ + "', '" + type$ + "', '" + value$ + "')"
@@ -56,13 +56,37 @@ 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
+  arraySize = JSONArraySize(JSONValue)
+  
+  For arrayIndex = 0 To arraySize - 1
+    elementValue = GetJSONElement(JSONValue, arrayIndex)
+    arrayItemKey$ = parentKey$ + "[" + Str(arrayIndex) + "]"
+    
+    Select JSONType(elementValue)
+      Case #PB_JSON_String
+        value$ = GetJSONString(elementValue)
+        InsertIntoDatabase(arrayItemKey$, parentKey$, "String", value$)
+        
+      Case #PB_JSON_Number
+        value$ = StrD(GetJSONDouble(elementValue))
+        InsertIntoDatabase(arrayItemKey$, parentKey$, "Number", value$)
+        
+      Case #PB_JSON_Boolean
+        value$ = Str(GetJSONBoolean(elementValue))
+        InsertIntoDatabase(arrayItemKey$, parentKey$, "Boolean", value$)
+        
+      Case #PB_JSON_Object
+        InsertIntoDatabase(arrayItemKey$, parentKey$, "Object", "(nested object)")
+        HandleNestedObject(elementValue, arrayItemKey$)
+        
+      Case #PB_JSON_Array
+        InsertIntoDatabase(arrayItemKey$, parentKey$, "Array", "(nested array)")
+        HandleNestedArray(elementValue, arrayItemKey$)
+        
+      Default
+        InsertIntoDatabase(arrayItemKey$, parentKey$, "Unknown", "(unknown type)")
+    EndSelect
+  Next
 EndProcedure
 
 ; worry about the database init later
@@ -127,8 +151,8 @@ EndIf
 
 CloseDatabase(0)
 ; IDE Options = PureBasic 6.12 LTS (Linux - x64)
-; CursorPosition = 63
-; FirstLine = 43
+; CursorPosition = 126
+; FirstLine = 89
 ; Folding = -
 ; EnableXP
 ; DPIAware
\ No newline at end of file