3

次のディレクティブ + 述語のタプルがあるとします。

:- web_resource(plaintext/1, [content_type(text/plain)]).
plaintext(Result) :-
    ...code...

gplcこのコードを次のように変換する方法を教えてください

plaintext([headers(['Content-Type'-'text/plain']),
           payload(Payload)]) :-
    old_plaintext(Payload).

old_plaintext(Payload) :-
    ...code...

コンパイルする前に?old_payload再帰的に定義できます。

4

1 に答える 1