Module 具有动态谓词的模块

这是以下问题的后续问题：

如果定义了以下模块：

:- module(csv_load_mod,[prepare_db/3]).
:- use_module(library(csv)).
:- set_prolog_stack(global, limit(4*10**9)).

prepare_db(File, Column_Key,Relation) :-
   Column_Key_Term =.. [Column_Key,_],
   Relation_Term =.. [Relation,_,_,_],
   retractall(Column_Key_Term),
   retractall(Relation_Term),
   forall(read_row(File, Row), store_row(Row,Column_Key,Relation)).

store_row(Row,Column_Key,Relation) :-
   Column_Key_Test =.. [Column_Key,ColKeys],
   Row =.. [row|Cols],
   (   call(Column_Key_Test)
   ->  Cols = [RowKey|Values],
       maplist(store_relation(Relation,RowKey), ColKeys, Values)
       ;   ( Cols = [_H|T],
             Column_Key_Term =.. [Column_Key,T],
             assertz(Column_Key_Term)
           )
   ).

store_relation(Relation,RowKey, ColKey, Values) :-
    Relation_Term =.. [Relation,RowKey,ColKey,Values],
    assertz(Relation_Term).

read_row(File, Row) :-
    csv_read_file_row(File, Row, []).

然后我可以从csv文件中读取一个表

例如：

:? prepare_db('my_table.csv',mt_col_key, mt_relation).

---

然后我会有一个事实

mt\u col\u键（[col1，col2，…，coln]）

和一组事实

mt\u关系/3

。但这些将是模块的本地内容，不会导出。我需要使用

csv\u load\u mod:mt\u relation/3

等。是否有办法让模块导出动态谓词或调整

prepare\u db/3

，以便它断言的事实不是本地的，或者它们被断言到调用它的模块

我简化了应用程序逻辑，以便更好地说明有趣的要点。我们需要3样东西：一个模块“驱动程序”，即test_csv.pl，通用加载程序，即csv_module_test.pl，以及至少一个文件，即file.csv

司机：

:- module(test_csv, [test_csv/0]).
:- use_module(csv_module_test).

test_csv :-
    context_module(CM),
    prepare_db(CM, 'file.csv').

加载程序：

:- module(csv_module_test, [prepare_db/2]).
:- use_module(library(csv)).

prepare_db(CM, File) :-
    forall(csv_read_file_row(File, Row, []), store_row(CM, Row)).

store_row(CM, Row) :-
    Row =.. [row,RelName|Cols],
    Record =.. [RelName|Cols],
    CM:assertz(Record).

测试数据，file.csv：

key,desc,col1,col2,col3,col4,col5
key_x,desc_x,1,2,3,4,5
key_y,desc_y,10,20,30,40,50

那么

也就是说，关系已声明为动态，并在驱动程序模块中断言

---

注意：关系的名称是假的，因为我一开始试图遵循您的应用程序逻辑，后来转向了简化的方法…

您应该用[SWI Prolog]标记这个问题，任何建设性的答案都将非常具体。。。无论如何，在文档中查找显然这并不完全像问题中的代码那样，但它说明了这一点-所以谢谢：）

?- test_csv.
true.

?- test_csv:listing.

:- dynamic rel/3.


test_csv :-
    context_module(A),
    prepare_db(A, 'file.csv').

:- dynamic key/1.


:- dynamic key_y/6.

key_y(desc_y, 10, 20, 30, 40, 50).

:- dynamic key_x/6.

key_x(desc_x, 1, 2, 3, 4, 5).

:- dynamic key/6.

key(desc, col1, col2, col3, col4, col5).
true.