kibi-core 0.1.6 → 0.1.8

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "kibi-core",
-  "version": "0.1.6",
+  "version": "0.1.8",
   "private": false,
   "description": "Core Prolog modules and RDF graph logic for Kibi",
   "type": "module",
@@ -9,7 +9,10 @@
     "bun": ">=1.0"
   },
   "main": "./src/kb.pl",
-  "files": ["src/**/*.pl", "schema/**/*.pl"],
+  "files": [
+    "src/**/*.pl",
+    "schema/**/*.pl"
+  ],
   "license": "AGPL-3.0-or-later",
   "author": "Piotr Franczyk",
   "repository": {

package/src/kb.pl

@@ -110,6 +110,16 @@ kb_detach :-
     (   kb_attached(_Directory)
     ->  (
             kb_save,
+            % Unload RDF graph from memory to prevent duplication on reattach
+            (   kb_graph(GraphURI)
+            ->  rdf_unload_graph(GraphURI)
+            ;   true
+            ),
+            % Sync and close audit log
+            (   kb_audit_db(AuditLog)
+            ->  db_sync(AuditLog)
+            ;   true
+            ),
             % Clear state
             retractall(kb_attached(_)),
             retractall(kb_audit_db(_)),
@@ -151,6 +161,8 @@ with_kb_mutex(Goal) :-
 % Load legacy .pl entity files from the KB directory.
 % These files use entity/4 format: entity(Type, Id, Title, Props).
 load_kb_pl_files(Directory) :-
+    catch(abolish(entity/4), _, true),
+    dynamic(entity/4),
     retractall(entity(_, _, _, _)),
     directory_files(Directory, Files),
     forall(
@@ -258,9 +270,21 @@ convert_legacy_prop(Prop, Prop, true).
 kb_entities_by_source(SourcePath, Ids) :-
     findall(Id,
         (kb_entity(Id, _Type, Props),
-         memberchk(source-S, Props),
-         sub_atom(S, _, _, _, SourcePath)),
-        Ids).
+         memberchk(source=RawSource, Props),
+         source_value_atom(RawSource, SourceAtom),
+         sub_atom(SourceAtom, _, _, _, SourcePath)),
+        RawIds),
+    sort(RawIds, Ids).
+
+source_value_atom(Value, Atom) :-
+    (   atom(Value)
+    ->  Atom = Value
+    ;   string(Value)
+    ->  atom_string(Atom, Value)
+    ;   Value = ^^(Inner, _)
+    ->  source_value_atom(Inner, Atom)
+    ;   term_string(Value, Atom)
+    ).
 
 %% kb_assert_relationship(+Type, +From, +To, +Metadata)
 % Assert a relationship between two entities with validation.
@@ -692,4 +716,4 @@ changed_symbol_violation(Symbol, MinLinks, Count, File, Line, Col, Name) :-
     (   changed_symbol_loc(Symbol, FileRaw, Line, Col, NameRaw)
     ->  File = FileRaw, Name = NameRaw
     ;   File = '', Line = 0, Col = 0, Name = ''
-    ).
+    ).