deepclause-sdk 0.1.1 → 0.1.2
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/dist/agent.d.ts +12 -0
- package/dist/agent.d.ts.map +1 -1
- package/dist/agent.js +116 -9
- package/dist/agent.js.map +1 -1
- package/dist/cli/config.d.ts +24 -24
- package/dist/cli/repl.d.ts +2 -0
- package/dist/cli/repl.d.ts.map +1 -1
- package/dist/cli/repl.js +26 -0
- package/dist/cli/repl.js.map +1 -1
- package/dist/cli/run.d.ts.map +1 -1
- package/dist/cli/run.js +10 -0
- package/dist/cli/run.js.map +1 -1
- package/dist/prolog/loader.d.ts +32 -0
- package/dist/prolog/loader.d.ts.map +1 -1
- package/dist/prolog/loader.js +87 -0
- package/dist/prolog/loader.js.map +1 -1
- package/dist/prolog-src/deepclause_mi.pl +1028 -118
- package/dist/repl/agent.d.ts +15 -1
- package/dist/repl/agent.d.ts.map +1 -1
- package/dist/repl/agent.js +44 -5
- package/dist/repl/agent.js.map +1 -1
- package/dist/repl/harness-tools.d.ts +24 -2
- package/dist/repl/harness-tools.d.ts.map +1 -1
- package/dist/repl/harness-tools.js +14 -5
- package/dist/repl/harness-tools.js.map +1 -1
- package/dist/repl/index.d.ts +8 -0
- package/dist/repl/index.d.ts.map +1 -1
- package/dist/repl/index.js +1 -0
- package/dist/repl/index.js.map +1 -1
- package/dist/repl/render.d.ts +8 -1
- package/dist/repl/render.d.ts.map +1 -1
- package/dist/repl/render.js +81 -16
- package/dist/repl/render.js.map +1 -1
- package/dist/repl/session.d.ts +61 -4
- package/dist/repl/session.d.ts.map +1 -1
- package/dist/repl/session.js +174 -9
- package/dist/repl/session.js.map +1 -1
- package/dist/repl/tool-arguments.d.ts +36 -0
- package/dist/repl/tool-arguments.d.ts.map +1 -0
- package/dist/repl/tool-arguments.js +123 -0
- package/dist/repl/tool-arguments.js.map +1 -0
- package/dist/repl/toolset.d.ts +28 -1
- package/dist/repl/toolset.d.ts.map +1 -1
- package/dist/repl/toolset.js +52 -4
- package/dist/repl/toolset.js.map +1 -1
- package/dist/runner.d.ts +31 -0
- package/dist/runner.d.ts.map +1 -1
- package/dist/runner.js +192 -17
- package/dist/runner.js.map +1 -1
- package/dist/system/assets/docs/AGENT_PROMPT.md +925 -43
- package/dist/system/assets/docs/DML_AUTHORING.md +96 -17
- package/dist/system/assets/docs/DML_REFERENCE.md +620 -39
- package/dist/system/assets/docs/PROLOG_SNIPPETS.md +45 -1
- package/dist/system/assets/docs/TASK_PROMPT.md +2 -0
- package/dist/system/environment.d.ts +36 -0
- package/dist/system/environment.d.ts.map +1 -0
- package/dist/system/environment.js +81 -0
- package/dist/system/environment.js.map +1 -0
- package/dist/system/runtime/shell-manager.d.ts +40 -2
- package/dist/system/runtime/shell-manager.d.ts.map +1 -1
- package/dist/system/runtime/shell-manager.js +82 -16
- package/dist/system/runtime/shell-manager.js.map +1 -1
- package/dist/system/runtime/shell-tool-events.js +25 -1
- package/dist/system/runtime/shell-tool-events.js.map +1 -1
- package/dist/types.d.ts +20 -1
- package/dist/types.d.ts.map +1 -1
- package/package.json +4 -2
- package/src/prolog-src/deepclause_mi.pl +1028 -118
- package/dist/compaction.d.ts +0 -98
- package/dist/compaction.d.ts.map +0 -1
- package/dist/compaction.js +0 -471
- package/dist/compaction.js.map +0 -1
- package/dist/repl/tools.d.ts +0 -53
- package/dist/repl/tools.d.ts.map +0 -1
- package/dist/repl/tools.js +0 -307
- package/dist/repl/tools.js.map +0 -1
- package/dist/system/assets/compactors/default-loop-compactor.dml +0 -43
- package/dist/system/assets/compactors/default-session-compactor.dml +0 -30
- package/dist/system/assets/docs/META_PROMPT.md +0 -68
|
@@ -105,8 +105,28 @@ agent_main :-
|
|
|
105
105
|
|
|
106
106
|
### Task Predicates
|
|
107
107
|
|
|
108
|
+
Both `task/N` and `prompt/N` run an LLM step and bind typed outputs. They differ in
|
|
109
|
+
**what conversation the model sees**, which is the single most important thing to
|
|
110
|
+
know about them.
|
|
111
|
+
|
|
112
|
+
| | `task/N` | `prompt/N` |
|
|
113
|
+
|---|---|---|
|
|
114
|
+
| Memory | the accumulated conversation, **and it is written back** | **fresh** — empty; does not read or write it |
|
|
115
|
+
| Tools | the harness's `tool/2` predicates | **none** (plain text completion) |
|
|
116
|
+
| Use for | a step in a multi-step flow that should know what came before | classification, extraction, transformation, or a bounded question that must not be swayed by the conversation |
|
|
117
|
+
|
|
108
118
|
#### `task(+Description)`
|
|
109
119
|
|
|
120
|
+
Invoke an LLM to perform a task. The description is sent to the model.
|
|
121
|
+
|
|
122
|
+
```prolog
|
|
123
|
+
agent_main :-
|
|
124
|
+
system("You are a coding assistant."),
|
|
125
|
+
task("Write a function to calculate factorial in Python."),
|
|
126
|
+
answer("Code generated!").
|
|
127
|
+
```
|
|
128
|
+
|
|
129
|
+
|
|
110
130
|
Invoke an LLM to perform a task. The description is sent to the model.
|
|
111
131
|
|
|
112
132
|
```prolog
|
|
@@ -159,6 +179,132 @@ Bind up to three variables.
|
|
|
159
179
|
> `listing` and `export` reverse this, so you always read/write `task/N` and
|
|
160
180
|
> `prompt/N` — never author `task_named/3` yourself.
|
|
161
181
|
|
|
182
|
+
### Memory: what the model sees, and how it grows
|
|
183
|
+
|
|
184
|
+
A `task/N` call is **not** a fresh conversation. It is sent the memory the session
|
|
185
|
+
has accumulated, and the agent's full resulting memory is written back — so each
|
|
186
|
+
`task/N` sees every earlier one, plus its own prompt and reply:
|
|
187
|
+
|
|
188
|
+
```prolog
|
|
189
|
+
step(Text, Summary, Tags) :-
|
|
190
|
+
task("Summarise: {Text}", Summary), % sees: nothing yet
|
|
191
|
+
task("Tag this summary: {Summary}", Tags). % sees: the first task's prompt and reply
|
|
192
|
+
```
|
|
193
|
+
|
|
194
|
+
`system/1` and `user/1` add to that same memory, and **they are backtrackable** —
|
|
195
|
+
a `system/1` inside a branch that is later undone stops contributing:
|
|
196
|
+
|
|
197
|
+
```prolog
|
|
198
|
+
brief(Text, Out) :-
|
|
199
|
+
system("Answer in one sentence."),
|
|
200
|
+
task("Summarise: {Text}", Out).
|
|
201
|
+
```
|
|
202
|
+
|
|
203
|
+
Two consequences worth planning for:
|
|
204
|
+
|
|
205
|
+
- **Memory grows with every task.** A loop of `task/N` calls sends an ever longer
|
|
206
|
+
conversation, which costs tokens and eventually dilutes the instruction. Pass
|
|
207
|
+
values as explicit arguments rather than relying on the model to remember, and
|
|
208
|
+
start a fresh step when the history is no longer relevant.
|
|
209
|
+
- **A `task/N` inside a `tool/2` starts with empty memory.** Tool bodies run in
|
|
210
|
+
their own engine, which is created with no memory of the caller, so a nested
|
|
211
|
+
agent sees only what the *tool arguments* carry. Put the context in the argument,
|
|
212
|
+
or add it inside the tool body with `system/1`:
|
|
213
|
+
|
|
214
|
+
```prolog
|
|
215
|
+
summarise(Text, Summary) :-
|
|
216
|
+
task("Summarise this text in two sentences: {Text}", Summary).
|
|
217
|
+
|
|
218
|
+
tool(summarise(Text, Summary), "Summarise a passage.") :-
|
|
219
|
+
summarise(Text, Summary).
|
|
220
|
+
```
|
|
221
|
+
|
|
222
|
+
**A fresh context: `prompt/N`, or `with_fresh_memory/2`.** `prompt/N` takes the same
|
|
223
|
+
arguments as `task/N` but sends **no memory and no tools**, and leaves the memory
|
|
224
|
+
untouched. Use it when the step must answer from its own prompt alone — a
|
|
225
|
+
classifier, an extractor, a translation — or when a long history has started to
|
|
226
|
+
interfere:
|
|
227
|
+
|
|
228
|
+
```prolog
|
|
229
|
+
route(Message, Team) :-
|
|
230
|
+
prompt("Classify as billing, orders or account: {Message}", Team).
|
|
231
|
+
|
|
232
|
+
% The conversation so far cannot leak into the classification, and the
|
|
233
|
+
% classification cannot leak into it.
|
|
234
|
+
```
|
|
235
|
+
|
|
236
|
+
Because `prompt/N` has no tools, a step that must read a file or search an index
|
|
237
|
+
has to be a `task/N`. Choose by what the step needs: the harness's capabilities
|
|
238
|
+
(`task/N`) or an uncontaminated answer (`prompt/N`).
|
|
239
|
+
|
|
240
|
+
`prompt/N` isolates **one call**. To isolate a **group** of steps — several
|
|
241
|
+
`task/N` calls that share a fresh context with each other but nothing with the
|
|
242
|
+
caller — wrap them in `with_fresh_memory/1`:
|
|
243
|
+
|
|
244
|
+
```prolog
|
|
245
|
+
describe(Paper, Report) :-
|
|
246
|
+
with_fresh_memory((
|
|
247
|
+
task("Summarise the method of: {Paper}", Method),
|
|
248
|
+
task("Summarise the results of: {Paper}", Results),
|
|
249
|
+
task("Write a two-sentence abstract from {Method} and {Results}", Report)
|
|
250
|
+
)).
|
|
251
|
+
% The three steps see each other's turns, because they accumulate within the
|
|
252
|
+
% scope. Nothing the caller accumulated reaches them, and nothing they
|
|
253
|
+
% accumulate reaches the caller — the memory is restored on exit.
|
|
254
|
+
```
|
|
255
|
+
|
|
256
|
+
With `with_tools/2` / `without_tools/2` it composes into a scope that controls both
|
|
257
|
+
the conversation and the capabilities:
|
|
258
|
+
|
|
259
|
+
```prolog
|
|
260
|
+
audit(App, Finding) :-
|
|
261
|
+
with_fresh_memory(without_tools([apply_fix],
|
|
262
|
+
task("Review {App} against the checklist and report one finding.", Finding))).
|
|
263
|
+
```
|
|
264
|
+
|
|
265
|
+
### Declared Output Shapes: `schema/2`
|
|
266
|
+
|
|
267
|
+
A type says "a list of dicts"; a schema says what is *in* them. Declare the shape
|
|
268
|
+
once, name it in the `task/N` output, and every step gets a value that matches it —
|
|
269
|
+
defaults filled, and a missing required field or a wrong-typed field failing the
|
|
270
|
+
step instead of quietly yielding an empty result:
|
|
271
|
+
|
|
272
|
+
```prolog
|
|
273
|
+
schema(author, [
|
|
274
|
+
field(name, string, required),
|
|
275
|
+
field(affiliation, string, default("not stated")),
|
|
276
|
+
field(email, string, default("")),
|
|
277
|
+
field(country, string, default(""))
|
|
278
|
+
]).
|
|
279
|
+
|
|
280
|
+
extract_authors(Text, Authors) :-
|
|
281
|
+
task("From the front matter extract every author: {Text}",
|
|
282
|
+
list(schema(author, Authors))).
|
|
283
|
+
% Authors = [author{name:"Ashish Vaswani", affiliation:"Google Brain", email:"", country:""} …]
|
|
284
|
+
```
|
|
285
|
+
|
|
286
|
+
- An absent field with a `default(Value)` is filled.
|
|
287
|
+
- An absent `required` field **fails the step** with a message naming the field, so
|
|
288
|
+
the agent can correct it in the same turn.
|
|
289
|
+
- A field of the wrong type fails the same way. Types are `string`, `integer`,
|
|
290
|
+
`number`, `boolean`, `object`, `array`.
|
|
291
|
+
- An **undeclared** field is kept, not dropped: a model mistake stays visible
|
|
292
|
+
- The field list is **described to the model** in the step's own instructions, and a
|
|
293
|
+
missing required or wrong-typed field is reported by name inside the same turn,
|
|
294
|
+
so the agent usually fixes it before the step ends
|
|
295
|
+
rather than disappearing.
|
|
296
|
+
- `schema/2` is a fact, like `doc/2` — it appears in the listing and travels with
|
|
297
|
+
`export`.
|
|
298
|
+
|
|
299
|
+
For a single object rather than a list, use `schema(author, Author)` (no `list/1`).
|
|
300
|
+
You can also apply a schema by hand to any dict:
|
|
301
|
+
|
|
302
|
+
```prolog
|
|
303
|
+
schema_fill(author, Raw, Author), % fills defaults, validates
|
|
304
|
+
```
|
|
305
|
+
|
|
306
|
+
`end_turn` reports a `task/N` that names a schema which was never declared.
|
|
307
|
+
|
|
162
308
|
### Type-Safe Output Variables
|
|
163
309
|
|
|
164
310
|
You can wrap output variables with type specifiers to enforce strict validation on the LLM's output. The runtime will ensure the value matches the specified type.
|
|
@@ -217,11 +363,15 @@ Or positional if the tool supports it:
|
|
|
217
363
|
exec(get_time, CurrentTime)
|
|
218
364
|
```
|
|
219
365
|
|
|
220
|
-
The `bash` tool
|
|
221
|
-
wall-clock
|
|
366
|
+
The `bash` tool takes exactly two inputs — `command` (a shell string) or `argv` (a
|
|
367
|
+
list, quoted by the runtime) — plus an optional wall-clock `timeoutMs`. There is
|
|
368
|
+
**no `stdin`**: pass data as an `argv` element, or write it to a workspace file and
|
|
369
|
+
name the file. stdin is `/dev/null`, so a command that reads it sees EOF rather
|
|
370
|
+
than waiting. It always returns the wall-clock duration as `timeMs`:
|
|
222
371
|
|
|
223
372
|
```prolog
|
|
224
373
|
exec(bash(command: "sleep 30", timeoutMs: 5000), R),
|
|
374
|
+
exec(bash(argv: ["python3", Script, Query]), R), % no quoting to write
|
|
225
375
|
get_dict(timeMs, R, Took),
|
|
226
376
|
( get_dict(exitCode, R, 124)
|
|
227
377
|
-> format(string(Msg), "timed out after ~w ms", [Took])
|
|
@@ -254,6 +404,25 @@ tool(count_words(File, Count), "Count words in a workspace file.") :-
|
|
|
254
404
|
count_words(File, Count).
|
|
255
405
|
```
|
|
256
406
|
|
|
407
|
+
The head and its delegate must have the **same name and the same arity**. The
|
|
408
|
+
tool body is what runs when the nested agent calls the tool, so a body that
|
|
409
|
+
calls a different arity either calls nothing (`existence_error`) or calls the
|
|
410
|
+
tool again and recurses forever:
|
|
411
|
+
|
|
412
|
+
```prolog
|
|
413
|
+
% WRONG: declares /2 but calls /3, so the tool fails when a nested agent uses it.
|
|
414
|
+
tool(bibliography(Query, Max), "…") :-
|
|
415
|
+
bibliography(Query, Max, Entries).
|
|
416
|
+
|
|
417
|
+
% WRONG: calls itself; a nested agent recurses until the budget is gone.
|
|
418
|
+
tool(citations(Text, Citations), "…") :-
|
|
419
|
+
citations(Text, Citations).
|
|
420
|
+
```
|
|
421
|
+
|
|
422
|
+
Nothing is checked when the clause is loaded, so both mistakes look fine until a
|
|
423
|
+
nested agent calls the tool. `end_turn` reports them as contract warnings; treat
|
|
424
|
+
them as errors, not style notes.
|
|
425
|
+
|
|
257
426
|
A predicate defined *only* inside a `tool/2` clause is invisible to
|
|
258
427
|
`execute` / `/goal` — the loader asserts it as `tool(Head)`, never as `Head`. Split
|
|
259
428
|
the two so one implementation is reachable from both surfaces:
|
|
@@ -263,6 +432,12 @@ the two so one implementation is reachable from both surfaces:
|
|
|
263
432
|
task("Count the words in report.txt.", N). % nested agent calls the tool
|
|
264
433
|
```
|
|
265
434
|
|
|
435
|
+
The only tools a nested agent can call are the harness's `tool/2` predicates;
|
|
436
|
+
registered host tools (for example `bash`) are reachable from DML code through
|
|
437
|
+
`exec/2`, not as tools by name. So a task description that says "use the
|
|
438
|
+
`fs_read` tool" works only if the module itself defines `fs_read/2` **and**
|
|
439
|
+
annotates it.
|
|
440
|
+
|
|
266
441
|
The tool head's **last argument is the output**; the description is shown to the
|
|
267
442
|
nested agent. Keep the `tool/2` body a single delegation — put no logic in it.
|
|
268
443
|
|
|
@@ -285,26 +460,103 @@ Tools can use `task()` and `prompt()` internally to combine Prolog logic with LL
|
|
|
285
460
|
|
|
286
461
|
```prolog
|
|
287
462
|
% A predicate that computes then explains.
|
|
463
|
+
% The nested task is told to work from the given figures — it has no tools it
|
|
464
|
+
% needs, so it cannot try to re-enter this predicate.
|
|
288
465
|
explain_calculation(A, B, Explanation) :-
|
|
289
466
|
Sum is A + B, % Prolog computation
|
|
290
|
-
format(string(Desc),
|
|
291
|
-
|
|
467
|
+
format(string(Desc),
|
|
468
|
+
"Explain ~w + ~w = ~w to a child, using only these figures.",
|
|
469
|
+
[A, B, Sum]),
|
|
470
|
+
task(Desc, Explanation).
|
|
292
471
|
|
|
293
472
|
tool(explain_calculation(A, B, Explanation), "Calculate and explain the result.") :-
|
|
294
473
|
explain_calculation(A, B, Explanation).
|
|
474
|
+
```
|
|
475
|
+
|
|
476
|
+
**Do not wrap an LLM step in a `tool/2` that advertises the same job.** The tool
|
|
477
|
+
is declared to the agent running *inside* that same `task/N`, so the description
|
|
478
|
+
invites the agent to do the very thing it was asked, by calling the tool:
|
|
479
|
+
|
|
480
|
+
```prolog
|
|
481
|
+
% WARNING: this shape self-delegates.
|
|
482
|
+
extract_authors(Text, Authors) :-
|
|
483
|
+
task("Extract every author and their affiliation(s) from: {Text}", list(object(Authors))).
|
|
295
484
|
|
|
296
|
-
|
|
297
|
-
|
|
298
|
-
|
|
299
|
-
|
|
485
|
+
tool(extract_authors(Text, Authors), "Extract every author and their affiliation(s).") :-
|
|
486
|
+
extract_authors(Text, Authors).
|
|
487
|
+
```
|
|
488
|
+
|
|
489
|
+
Called as a predicate (`/goal extract_authors(…, A)`, `execute`, or from another
|
|
490
|
+
predicate), `extract_authors` runs its `task/N`, and that agent is offered
|
|
491
|
+
`extract_authors` — a tool described as doing exactly its job. The runtime refuses
|
|
492
|
+
the re-entrant call (a tool whose predicate is already running is withheld, and a
|
|
493
|
+
call that slips through is refused with a reason), so it cannot recurse forever.
|
|
494
|
+
But the agent still spends a turn on it, is told the tool failed, and then does
|
|
495
|
+
the work by hand — a confusing transcript and a wasted call.
|
|
496
|
+
|
|
497
|
+
Two ways to avoid it, in order of preference:
|
|
498
|
+
|
|
499
|
+
**Keep the LLM step a skill, and give `tool/2` only to capabilities.** A skill is
|
|
500
|
+
called from DML (`/goal`, `execute`, another predicate) and does not need to be a
|
|
501
|
+
tool. Annotate the operations a nested agent should *use* — deterministic or
|
|
502
|
+
side-effecting work such as reading a PDF, searching an index, or shelling out:
|
|
503
|
+
|
|
504
|
+
```prolog
|
|
505
|
+
% Skill: an LLM step. Call it from DML; no tool/2.
|
|
506
|
+
extract_authors(Text, Authors) :-
|
|
507
|
+
task("Extract every author and their affiliation(s) from: {Text}", list(object(Authors))).
|
|
508
|
+
|
|
509
|
+
% Tools: capabilities for nested agents. No task/N, so no self-reference.
|
|
510
|
+
read_pdf(Path, Text) :-
|
|
511
|
+
script_file(pdf_to_text, Script),
|
|
512
|
+
format(atom(Cmd), "python3 '~w' '~w'", [Script, Path]),
|
|
513
|
+
exec(bash(command: Cmd), R), get_dict(stdout, R, Text).
|
|
514
|
+
|
|
515
|
+
tool(read_pdf(Path, Text), "Convert a workspace PDF to text.") :- read_pdf(Path, Text).
|
|
516
|
+
```
|
|
517
|
+
|
|
518
|
+
**Or scope the nested task's tools so the tool cannot be reached.** If a `task/N`
|
|
519
|
+
inside a predicate must not use a tool, say so with `without_tools/2` (or list
|
|
520
|
+
exactly what it may use with `with_tools/2`):
|
|
300
521
|
|
|
301
|
-
|
|
302
|
-
|
|
522
|
+
```prolog
|
|
523
|
+
extract_authors(Text, Authors) :-
|
|
524
|
+
without_tools([extract_authors],
|
|
525
|
+
task("Extract every author and their affiliation(s) from: {Text}",
|
|
526
|
+
list(object(Authors)))).
|
|
303
527
|
```
|
|
304
528
|
|
|
529
|
+
Scoping is the narrower fix: it keeps the tool advertised to *other* agents (which
|
|
530
|
+
is usually why it exists) while removing it from this one.
|
|
531
|
+
|
|
305
532
|
**Memory Isolation:** When `task()` or `prompt()` runs inside a tool, the nested agent starts with **fresh memory**. It does NOT inherit the parent's accumulated memory from `system()`, `user()`, or previous `task()` calls. If you need context in a nested task, pass it explicitly as a tool argument or add it with `system()` inside the tool body.
|
|
306
533
|
|
|
307
|
-
**Tool Access:**
|
|
534
|
+
**Tool Access:** A nested agent's only callable tools are the harness's `tool/2`
|
|
535
|
+
predicates; host tools such as `bash` are reachable from DML code via `exec/2`,
|
|
536
|
+
never by name from a task description. A tool that is **already executing** cannot
|
|
537
|
+
be re-entered: a call to it from inside itself is refused with an explanation, so a
|
|
538
|
+
tool cannot recurse into itself. The refusal is deliberate and visible — the tool is
|
|
539
|
+
declared to the agent with the reason on its description, so the call comes back as
|
|
540
|
+
"already running further up the call chain" rather than as a missing tool, which
|
|
541
|
+
would invite a retry.
|
|
542
|
+
|
|
543
|
+
> The withholding is keyed on *tool* execution, and only that is guaranteed. Whether a
|
|
544
|
+
> running tool is also *removed* from the tool list presented to the agent inside it
|
|
545
|
+
> is not something the current test suite covers; the refusal above is what stops the
|
|
546
|
+
> recursion. Do not rely on the tool being absent from `task/N`'s tool list.
|
|
547
|
+
|
|
548
|
+
That keying has a consequence worth knowing: a predicate that is also a tool does
|
|
549
|
+
**not** count as "executing" when it is called as a predicate (`/goal`, `execute`,
|
|
550
|
+
or from another predicate). So for
|
|
551
|
+
|
|
552
|
+
```prolog
|
|
553
|
+
extract_authors(Text, Authors) :- task("…", list(object(Authors))).
|
|
554
|
+
tool(extract_authors(Text, Authors), "…") :- extract_authors(Text, Authors).
|
|
555
|
+
```
|
|
556
|
+
|
|
557
|
+
`/goal extract_authors(Text, A)` still offers `extract_authors` to the agent inside
|
|
558
|
+
`task/N`. Use `with_tools/2` / `without_tools/2` to scope it, or keep the LLM step
|
|
559
|
+
out of the tool set entirely (see **Using `task()` Inside Tools** above).
|
|
308
560
|
|
|
309
561
|
```prolog
|
|
310
562
|
% Example: passing context explicitly.
|
|
@@ -327,15 +579,19 @@ You can control which tools are available to nested `task()` calls using `with_t
|
|
|
327
579
|
|
|
328
580
|
#### `with_tools(+ToolList, +Goal)`
|
|
329
581
|
|
|
330
|
-
Run Goal with only the specified tools available to nested tasks
|
|
582
|
+
Run Goal with only the specified tools available to nested tasks. `ToolList`
|
|
583
|
+
holds tool *names* (atoms), not predicates:
|
|
331
584
|
|
|
332
585
|
```prolog
|
|
333
|
-
%
|
|
334
|
-
|
|
335
|
-
with_tools([
|
|
336
|
-
format(string(Desc), "Process '~w' using available tools", [Input]),
|
|
586
|
+
% The implementation defines what the tool does; the annotation exposes it.
|
|
587
|
+
restricted_work(Input, Output) :-
|
|
588
|
+
with_tools([search_papers, read_paper], (
|
|
589
|
+
format(string(Desc), "Process '~w' using the available tools", [Input]),
|
|
337
590
|
task(Desc, Output)
|
|
338
591
|
)).
|
|
592
|
+
|
|
593
|
+
tool(restricted_task(Input, Output), "Runs with limited tools") :-
|
|
594
|
+
restricted_work(Input, Output).
|
|
339
595
|
```
|
|
340
596
|
|
|
341
597
|
#### `without_tools(+ToolList, +Goal)`
|
|
@@ -343,12 +599,14 @@ tool(restricted_task(Input, Output), "Runs with limited tools") :-
|
|
|
343
599
|
Run Goal with the specified tools excluded from nested tasks:
|
|
344
600
|
|
|
345
601
|
```prolog
|
|
346
|
-
|
|
347
|
-
tool(cheap_task(Input, Output), "Runs without expensive tools") :-
|
|
602
|
+
cheap_work(Input, Output) :-
|
|
348
603
|
without_tools([expensive_tool], (
|
|
349
604
|
format(string(Desc), "Process '~w' cheaply", [Input]),
|
|
350
605
|
task(Desc, Output)
|
|
351
606
|
)).
|
|
607
|
+
|
|
608
|
+
tool(cheap_task(Input, Output), "Runs without expensive tools") :-
|
|
609
|
+
cheap_work(Input, Output).
|
|
352
610
|
```
|
|
353
611
|
|
|
354
612
|
#### Using Tool Scoping in `agent_main`
|
|
@@ -461,24 +719,77 @@ Memory stores `media{path, mime}` — never the image bytes. Judgments
|
|
|
461
719
|
|
|
462
720
|
---
|
|
463
721
|
|
|
722
|
+
#### Running a command with data in it
|
|
723
|
+
|
|
724
|
+
`argv` takes the command and its arguments as a **list**, and the runtime quotes
|
|
725
|
+
each element. Pass values here and you never write a quote, so an argument
|
|
726
|
+
containing a space, a quote, `$`, a backtick or `;` is inert:
|
|
727
|
+
|
|
728
|
+
```prolog
|
|
729
|
+
exec(bash(argv: ["python3", Script, UserText]), R), get_dict(stdout, R, Text).
|
|
730
|
+
```
|
|
731
|
+
|
|
732
|
+
It is the same shell underneath (and the same sandbox), so pipelines and redirection
|
|
733
|
+
still work with `command`; `argv` is the way to pass *data*. Prefer it whenever an
|
|
734
|
+
argument comes from a file, a model, or the user. There is no `stdin` argument.
|
|
735
|
+
|
|
736
|
+
#### Do not parse in DML — shell out or ask the model
|
|
737
|
+
|
|
738
|
+
String handling is the fiddliest part of Prolog, and hand-rolled parsing is the
|
|
739
|
+
easiest way to write DML that looks fine and is quietly wrong. Do not build a
|
|
740
|
+
parser out of `sub_string/5`, `split_string/4`, `atom_concat/3`, `format/2` and an
|
|
741
|
+
accumulator. Two better answers, depending on what the work actually is:
|
|
742
|
+
|
|
743
|
+
- **Mechanical** (pull a field, change a format, count, filter, join): write a
|
|
744
|
+
**helper script** and run it. A script is a file the harness links with
|
|
745
|
+
`script_file/2`, it is testable on its own, and Python/jq/sed are built for this.
|
|
746
|
+
Have it emit **JSON** and read the result with `json_get/3` / `json_gets/3` /
|
|
747
|
+
`json_text/2`, rather than splitting its stdout by hand.
|
|
748
|
+
- **Meaning** (find the field named X, classify, summarise, decide): make it a
|
|
749
|
+
**model call** with a typed output — `task("…", list(string(Items)))`,
|
|
750
|
+
`schema/2`, or `choose`/`rate`/`verify` for a bounded judgment. The model is the
|
|
751
|
+
right tool for understanding text; Prolog is the right tool for *sequencing and
|
|
752
|
+
checking* it.
|
|
753
|
+
|
|
754
|
+
So `exec(bash(command: "cat", stdin: "…"), R), get_dict(stdout, R, O)` has no
|
|
755
|
+
place here on either count: there is no stdin, and the structured reading of the
|
|
756
|
+
result is a job for a script or a model, not for the DML around the call.
|
|
757
|
+
|
|
464
758
|
### File I/O and paths — prefer the shell
|
|
465
759
|
|
|
466
|
-
|
|
467
|
-
|
|
468
|
-
|
|
469
|
-
|
|
470
|
-
|
|
760
|
+
**`/workspace` is the project, and it is the working directory.** A DML path is
|
|
761
|
+
either absolute under `/workspace` or relative to it, and the two forms name the
|
|
762
|
+
same file:
|
|
763
|
+
|
|
764
|
+
out/report.txt and /workspace/out/report.txt
|
|
765
|
+
|
|
766
|
+
Prefer the `/workspace/...` form: the same name works from DML, from
|
|
767
|
+
`exec(bash(...))`, and from the shell tool, on every backend, so a path never has
|
|
768
|
+
to be translated between them. There is **no paths file and no search-path
|
|
769
|
+
registry** — nothing to declare, register, or discover. `script_file(Name, Path)`
|
|
770
|
+
links a file that belongs to the harness (it is bundled on `export`); it does not
|
|
771
|
+
resolve anything at run time.
|
|
471
772
|
|
|
472
|
-
|
|
473
|
-
|
|
474
|
-
|
|
475
|
-
|
|
476
|
-
|
|
773
|
+
**Everything outside `/workspace` is the ephemeral VM filesystem.** `/etc`,
|
|
774
|
+
`/tmp`, `/home` are not this machine. They are an in-memory filesystem that
|
|
775
|
+
belongs to the session and is discarded when it ends, so they are fine for scratch
|
|
776
|
+
and useless for results. **Only files under `/workspace` reach the host.** For
|
|
777
|
+
scratch, use `$TMPDIR`, which is a per-session directory in every backend (a bare
|
|
778
|
+
`/tmp` is the real one when nothing is sandboxed).
|
|
779
|
+
|
|
780
|
+
**Prefer `exec(bash(...))` for file operations.** Reading, writing, copying, or
|
|
781
|
+
converting files is usually clearer and more robust as a shell command; reach for
|
|
782
|
+
the DML predicates below only when the content must be bound and reasoned over
|
|
783
|
+
inside Prolog. Pulling a file into DML just to hand it back to the shell is a
|
|
784
|
+
smell (`DML_AUTHORING.md` §2).
|
|
785
|
+
|
|
786
|
+
The file predicates take a path — absolute under `/workspace`, or relative:
|
|
477
787
|
|
|
478
788
|
```prolog
|
|
479
|
-
read_file("images/a.png", Bytes),
|
|
480
|
-
|
|
481
|
-
|
|
789
|
+
read_file("/workspace/images/a.png", Bytes),
|
|
790
|
+
read_file("images/a.png", Bytes), % same file
|
|
791
|
+
write_file("/workspace/out/report.txt", Text),
|
|
792
|
+
make_directory_path("/workspace/out/nested"), % create a directory (and parents)
|
|
482
793
|
append_file("out/log.txt", Line),
|
|
483
794
|
delete_file("out/report.txt"),
|
|
484
795
|
directory_files("images", Names), % bare entry names: ["a.png", ...]
|
|
@@ -490,10 +801,24 @@ time_file("images/a.png", Modified).
|
|
|
490
801
|
`write_file/2` does **not** create parent directories — call
|
|
491
802
|
`make_directory_path/1` first. `directory_files/2` returns bare entry names (no
|
|
492
803
|
directory), so build a path with `atom_concat('images/', Name, Path)` when you
|
|
493
|
-
need one.
|
|
494
|
-
|
|
804
|
+
need one.
|
|
805
|
+
|
|
806
|
+
These predicates are **real clauses in the session module**, not only
|
|
807
|
+
interpreter handlers, so DML code, a nested `task/N`, and a direct host query
|
|
808
|
+
(the SDK's `runDML`, or `deepclause repl`) all resolve the same definition and
|
|
809
|
+
the same path.
|
|
810
|
+
|
|
811
|
+
`open/3`, `close/1`, `read_string/3` and `write/2` are SWI builtins and cannot be
|
|
812
|
+
shadowed, but they resolve paths the same way — the working directory is
|
|
813
|
+
`/workspace`, so `open("f.txt", read, S)` reads the workspace file. They are not
|
|
814
|
+
a special case with their own path rule.
|
|
815
|
+
|
|
816
|
+
Paths are **isolated by the mount, not by string checks**: there is no rewriting
|
|
817
|
+
layer, so a path is passed through to the filesystem as written. `..` does not
|
|
818
|
+
climb out of the workspace, because above `/workspace` is the VM's own empty
|
|
819
|
+
filesystem. The one thing a mount cannot police is a **symlink inside the
|
|
820
|
+
workspace** pointing outside it; avoid committing those.
|
|
495
821
|
|
|
496
|
-
---
|
|
497
822
|
|
|
498
823
|
### Output Predicates
|
|
499
824
|
|
|
@@ -509,6 +834,25 @@ agent_main :-
|
|
|
509
834
|
answer("Done").
|
|
510
835
|
```
|
|
511
836
|
|
|
837
|
+
**Use it for debugging.** When a predicate does not do what you expect, add
|
|
838
|
+
`output/1` calls between the steps: you see how far execution gets, what the
|
|
839
|
+
intermediate values actually are, and which call returned nothing. It costs one
|
|
840
|
+
line, it is invisible to the model (unlike a `task/N` description), and it is the
|
|
841
|
+
fastest way to find where a chain goes wrong:
|
|
842
|
+
|
|
843
|
+
```prolog
|
|
844
|
+
summarise(Doc, Summary) :-
|
|
845
|
+
extract_sections(Doc, Sections),
|
|
846
|
+
format(string(S), "sections: ~w", [Sections]), output(S),
|
|
847
|
+
pick_main(Sections, Main),
|
|
848
|
+
format(string(M), "main: ~w", [Main]), output(M),
|
|
849
|
+
task("Summarise this in one sentence: ~w", [Main], Summary).
|
|
850
|
+
```
|
|
851
|
+
|
|
852
|
+
Remove them before the final version, or keep the ones that read as progress
|
|
853
|
+
reports — a predicate that says what it is doing is easier to debug the next
|
|
854
|
+
time too.
|
|
855
|
+
|
|
512
856
|
#### `yield(+Text)`
|
|
513
857
|
|
|
514
858
|
Alias for `output/1`.
|
|
@@ -596,6 +940,40 @@ agent_main(Topic) :-
|
|
|
596
940
|
|
|
597
941
|
---
|
|
598
942
|
|
|
943
|
+
## Patterns: one template, build or parse
|
|
944
|
+
|
|
945
|
+
`pattern/3` is `format/3` and its inverse. Literal text matches exactly and `$name`
|
|
946
|
+
marks a slot, so the same template renders a string or parses it — the direction
|
|
947
|
+
follows from what is bound:
|
|
948
|
+
|
|
949
|
+
```prolog
|
|
950
|
+
pattern("Name: $name, age: $age", Text, [name="Ada", age=36]).
|
|
951
|
+
% Text = "Name: Ada, age: 36"
|
|
952
|
+
|
|
953
|
+
pattern("Name: $name, age: $age", "Name: Ada, age: 36", Bindings).
|
|
954
|
+
% Bindings = [name="Ada", age="36"]
|
|
955
|
+
|
|
956
|
+
pattern("DOI: $doi", Text, [doi=D]). % build a DOI line
|
|
957
|
+
pattern("n=$n:int", "n=42", B). % B = [n=42] (typed slot)
|
|
958
|
+
```
|
|
959
|
+
|
|
960
|
+
- Bindings are a list of `Name=Value`, so `member(Name=Value, Bs)` reads them.
|
|
961
|
+
- A slot consumes **up to the next literal**, so the literals decide the split and
|
|
962
|
+
`"$left - $right"` against `"a - b - c"` gives `left="a"`, `right="b - c"`.
|
|
963
|
+
- `$name:type` converts on parse and validates on build. Types: `string` (default),
|
|
964
|
+
`int`, `integer`, `number`. A parse that does not match throws, rather than
|
|
965
|
+
binding the text.
|
|
966
|
+
- Slot names match case- and separator-insensitively, like `dict_field/3`.
|
|
967
|
+
- `$` is the marker rather than `{…}`, so a template can carry JSON or any other
|
|
968
|
+
brace-bearing text verbatim, and it never collides with the `{Var}`
|
|
969
|
+
interpolation in `task/N` descriptions. `$$` is a literal dollar.
|
|
970
|
+
- A template must be **anchored by literal text**: `"$a$b"` is rejected as
|
|
971
|
+
ambiguous rather than resolved arbitrarily.
|
|
972
|
+
|
|
973
|
+
This is the deterministic alternative to asking the model to reformat text: parse
|
|
974
|
+
the parts you can read exactly, and use a `task/N` only for what genuinely needs
|
|
975
|
+
language understanding.
|
|
976
|
+
|
|
599
977
|
## Backtracking
|
|
600
978
|
|
|
601
979
|
DML supports full Prolog backtracking, **including across LLM calls**. This enables powerful retry logic:
|
|
@@ -655,20 +1033,112 @@ all: arithmetic, counting, ordering, membership, `findall/3`, `aggregate_all/3`,
|
|
|
655
1033
|
list/set operations, and constraint or optimisation problems. Reach for `task/N`
|
|
656
1034
|
only when the step genuinely needs language understanding.
|
|
657
1035
|
|
|
658
|
-
### Lists
|
|
1036
|
+
### Lists and common operations
|
|
1037
|
+
|
|
1038
|
+
A list is `[1,2,3]` or `[Head|Tail]`; the recursion below is the shape everything
|
|
1039
|
+
else is built on. Prefer the library predicates to hand-rolled recursion.
|
|
1040
|
+
|
|
659
1041
|
```prolog
|
|
660
1042
|
process_items([]).
|
|
661
1043
|
process_items([H|T]) :-
|
|
662
1044
|
format(string(Msg), "Processing: ~w", [H]),
|
|
663
1045
|
output(Msg),
|
|
664
1046
|
process_items(T).
|
|
1047
|
+
```
|
|
665
1048
|
|
|
666
|
-
|
|
667
|
-
|
|
668
|
-
|
|
1049
|
+
`maplist/3`, `include/3`, `exclude/3`, `foldl/4` and `predsort/3` take a **goal with
|
|
1050
|
+
extra arguments**, written `[X,Y]>>Goal` (a *yall* lambda). The list before `>>` is
|
|
1051
|
+
the extra arguments — so `[X,Y]>>(Y is X*X)` is a two-argument goal. The lambda's
|
|
1052
|
+
arity must match the predicate you are using.
|
|
1053
|
+
|
|
1054
|
+
**Transform**
|
|
1055
|
+
|
|
1056
|
+
| Want | Write |
|
|
1057
|
+
|---|---|
|
|
1058
|
+
| Apply to each | `maplist([X,Y]>>(Y is X*X), [1,2,3], L)` → `[1,4,9]` |
|
|
1059
|
+
| Combine two lists | `maplist([A,B,C]>>(C is A+B), [1,2], [10,20], L)` → `[11,22]` |
|
|
1060
|
+
| Apply, skipping failures | `convlist([X,Y]>>(integer(X), Y is X*2), [1,a,3], L)` → `[2,6]` |
|
|
1061
|
+
| Keep / drop matching | `include(P, L, Keep)` / `exclude(P, L, Drop)` |
|
|
1062
|
+
| Reduce to one value | `foldl([X,A0,A]>>(A is A0+X), [1,2,3], 0, S)` → `6` |
|
|
1063
|
+
| Reverse | `reverse([1,2,3], L)` |
|
|
1064
|
+
| Take / split | `append(Chunk, Rest, List)`, or `length(Chunk, 2)` to bound it |
|
|
1065
|
+
| A list of N blanks | `length(L, 3)` |
|
|
1066
|
+
|
|
1067
|
+
**Select and aggregate**
|
|
1068
|
+
|
|
1069
|
+
| Want | Write |
|
|
1070
|
+
|---|---|
|
|
1071
|
+
| Element at position | `nth0(1, [a,b,c], E)` (0-based) / `nth1(1, …, E)` (1-based) |
|
|
1072
|
+
| Remove one occurrence | `select(b, [a,b,c], L)` → `[a,c]` |
|
|
1073
|
+
| Check membership (once) | `memberchk(b, L)` — semidet, no choice point |
|
|
1074
|
+
| Last element | `last([a,b,c], E)` |
|
|
1075
|
+
| Sum | `sum_list([1,2,3], S)` → `6` |
|
|
1076
|
+
| Largest / smallest | `max_member(M, L)` / `min_member(M, L)` |
|
|
1077
|
+
| Any aggregate | `aggregate_all(max(N), member(N,[1,9,3]), M)` → `9`; also `min`, `sum`, `count`, `bag` |
|
|
1078
|
+
|
|
1079
|
+
**Sort, group, dedupe**
|
|
1080
|
+
|
|
1081
|
+
| Want | Write |
|
|
1082
|
+
|---|---|
|
|
1083
|
+
| Sort and dedupe | `sort([3,1,2,1], L)` → `[1,2,3]` |
|
|
1084
|
+
| Sort keeping duplicates | `msort([3,1,2,1], L)` → `[1,1,2,3]` (stable) |
|
|
1085
|
+
| Sort pairs by key | `keysort([b-2,a-1], L)` → `[a-1,b-2]` (stable) |
|
|
1086
|
+
| Sort compounds by an argument | `sort(2, @>=, [a-1,b-3,c-2], L)` — the `2` is the argument position |
|
|
1087
|
+
| Sort with your own comparison | `predsort([O,A,B]>>compare(O,A,B), L, Sorted)` |
|
|
1088
|
+
| Dedupe, keeping first order | `list_to_set([a,b,a,c], L)` → `[a,b,c]` |
|
|
1089
|
+
| Group by key | `group_pairs_by_key([a-1,a-2,b-3], G)` → `[a-[1,2], b-[3]]` |
|
|
1090
|
+
| Set difference / intersect / union | `subtract/3`, `intersection/3`, `union/3` |
|
|
1091
|
+
| Zip / unzip | `pairs_keys_values(Pairs, Keys, Values)`, `pairs_keys/2`, `pairs_values/2` |
|
|
1092
|
+
|
|
1093
|
+
**Strings in a list.** `split_string/4` leaves empty strings behind, which is the
|
|
1094
|
+
usual reason a list "has blanks in it":
|
|
1095
|
+
|
|
1096
|
+
```prolog
|
|
1097
|
+
split_string("a,,b", ",", "", Parts), % Parts = ["a","","b"]
|
|
1098
|
+
exclude(==(""), Parts, Clean). % Clean = ["a","b"]
|
|
1099
|
+
include(dif(""), Parts, Clean). % the same, by unification
|
|
1100
|
+
exclude(=([]), Lists, NonEmpty). % drop empty lists
|
|
669
1101
|
```
|
|
670
1102
|
|
|
671
|
-
|
|
1103
|
+
**A field from a list of dicts** — the most common list task with model output:
|
|
1104
|
+
|
|
1105
|
+
```prolog
|
|
1106
|
+
json_gets(Doc, "rows.*.name", Names), % one call, collects
|
|
1107
|
+
findall(N, (member(D, Dicts), dict_field(D, name, N)), Names). % from a list
|
|
1108
|
+
```
|
|
1109
|
+
|
|
1110
|
+
To sort a list of dicts, use `predsort/3`: `sort/4` addresses arguments of a
|
|
1111
|
+
compound and a dict has none.
|
|
1112
|
+
|
|
1113
|
+
**Batch a list into chunks.** There is no builtin; this is the definition:
|
|
1114
|
+
|
|
1115
|
+
```prolog
|
|
1116
|
+
chunks([], _, []).
|
|
1117
|
+
chunks(List, N, [Chunk|Rest]) :-
|
|
1118
|
+
N > 0,
|
|
1119
|
+
length(Chunk, N),
|
|
1120
|
+
append(Chunk, Tail, List),
|
|
1121
|
+
chunks(Tail, N, Rest).
|
|
1122
|
+
chunks(List, N, [List]) :-
|
|
1123
|
+
N > 0,
|
|
1124
|
+
length(List, Len),
|
|
1125
|
+
Len < N.
|
|
1126
|
+
% chunks([1,2,3,4,5], 2, L) -> L = [[1,2],[3,4],[5]]
|
|
1127
|
+
```
|
|
1128
|
+
|
|
1129
|
+
### Traps
|
|
1130
|
+
|
|
1131
|
+
- **`setof/3` and `bagof/3` fail when there are no solutions**; `findall/3` succeeds
|
|
1132
|
+
with `[]`. Use `findall/3` unless you want that failure.
|
|
1133
|
+
- **`sort/2` silently removes duplicates.** Use `msort/2` to keep them.
|
|
1134
|
+
- **`max_list([])` fails**, and `sum_list([a,b])` raises a type error — guard a
|
|
1135
|
+
possibly-empty or possibly-non-numeric list before aggregating.
|
|
1136
|
+
- **A nondeterministic goal inside `maplist`, `include` or `foldl` multiplies
|
|
1137
|
+
solutions**, and re-runs any model call in it. Keep the goal semidet
|
|
1138
|
+
(`once/1`, `->`, a cut).
|
|
1139
|
+
- **Not available in this build:** `nth0/4` (replace an element), `numlist/4` (range
|
|
1140
|
+
with a step), `chunk/3`, `rename_keys/3`. Replace an element with
|
|
1141
|
+
`nth0(I, L, _, Tail), nth0(I, New, V, Tail)`, and use `chunks/3` above.
|
|
672
1142
|
|
|
673
1143
|
### Arithmetic
|
|
674
1144
|
```prolog
|
|
@@ -838,6 +1308,71 @@ exact_max(X, Y) :-
|
|
|
838
1308
|
```
|
|
839
1309
|
|
|
840
1310
|
### Dictionaries (SWI-Prolog)
|
|
1311
|
+
|
|
1312
|
+
**Keys are atoms.** `get_dict/3` is strict about the key type and *throws* rather
|
|
1313
|
+
than failing: `get_dict("affiliation", D)` raises `type_error(dict-key,
|
|
1314
|
+
affiliation)`, so no guard sees it as a "no". A string is not even valid dict
|
|
1315
|
+
literal syntax (`x{"a":1}` is a syntax error).
|
|
1316
|
+
|
|
1317
|
+
Model output makes this worse, because the field name varies — `Name`, `name`,
|
|
1318
|
+
`full_name`. Use `dict_field/3,4`, which matches an atom **or** a string key,
|
|
1319
|
+
ignoring case and `_`/`-`/space:
|
|
1320
|
+
|
|
1321
|
+
```prolog
|
|
1322
|
+
dict_field(Dict, "affiliation", Affiliation), % fails if absent
|
|
1323
|
+
dict_field(Dict, full_name, "unknown", Name), % with a default
|
|
1324
|
+
```
|
|
1325
|
+
|
|
1326
|
+
**JSON.** `atom_json_dict/3` works in both directions, which is the whole story —
|
|
1327
|
+
reading and writing:
|
|
1328
|
+
|
|
1329
|
+
```prolog
|
|
1330
|
+
atom_json_dict(Text, Dict, []), % JSON text -> dict (Text bound)
|
|
1331
|
+
atom_json_dict(Text, Dict, []), % dict -> JSON text (Text unbound)
|
|
1332
|
+
```
|
|
1333
|
+
|
|
1334
|
+
Reading a nested value is one call with a path rather than a chain of lookups:
|
|
1335
|
+
|
|
1336
|
+
```prolog
|
|
1337
|
+
json_get(Doc, "results.0.authors.1.name", Name), % dotted path
|
|
1338
|
+
json_get(Doc, [results, 0, authors, 1, name], Name), % or a list
|
|
1339
|
+
json_get(Doc, "results.0.year", "unknown", Year), % with a default
|
|
1340
|
+
json_gets(Doc, "results.*.title", Titles), % project: collect `*`
|
|
1341
|
+
json_gets(Doc, "results.*.authors.*.name", Names), % nested `*` flattens
|
|
1342
|
+
json_put(Doc, "meta.reviewed", yes, Updated), % set a key path
|
|
1343
|
+
json_text(Doc, Text), % compact JSON
|
|
1344
|
+
```
|
|
1345
|
+
|
|
1346
|
+
A missing path **fails**; it does not throw and does not give `""`, so absence is
|
|
1347
|
+
visible. Key matching is the same tolerant match as `dict_field/3` (atom or string,
|
|
1348
|
+
any case, `_`/`-`/space ignored). `json_put/4` sets keys and creates intermediate
|
|
1349
|
+
dicts; it rejects an index path, so lists are read-only. For layout or streaming,
|
|
1350
|
+
`json_write_dict/3` from `library(http/json)` is available.
|
|
1351
|
+
|
|
1352
|
+
**Parsing text with a grammar.** DCGs work — the loader runs `expand_term/2`, so
|
|
1353
|
+
`-->` compiles, and `library(dcg/basics)` imports:
|
|
1354
|
+
|
|
1355
|
+
```prolog
|
|
1356
|
+
:- use_module(library(dcg/basics)).
|
|
1357
|
+
|
|
1358
|
+
key_value(K, V) --> string_without(":", K), ":", string(V).
|
|
1359
|
+
|
|
1360
|
+
parse_kv(Text, Pairs) :-
|
|
1361
|
+
string_chars(Text, Chars), % phrase/2 wants a LIST, not a string
|
|
1362
|
+
phrase(lines(Pairs), Chars).
|
|
1363
|
+
|
|
1364
|
+
lines([K-V|Rest]) --> key_value(K, V), "\n", !, lines(Rest).
|
|
1365
|
+
lines([K-V]) --> key_value(K, V).
|
|
1366
|
+
```
|
|
1367
|
+
|
|
1368
|
+
`phrase/2,3` takes a **code or char list**, so `string_chars/2` (or
|
|
1369
|
+
`string_codes/2`) comes first — passing a string raises `type_error(list, …)`.
|
|
1370
|
+
Also useful here: `number_codes/2`, `read_term_from_atom/3`,
|
|
1371
|
+
`split_string/4`. DCGs give you a documented, testable parser instead of a chain of
|
|
1372
|
+
regex calls, and the same grammar can generate text as well as accept it.
|
|
1373
|
+
|
|
1374
|
+
The rest of this section is plain SWI dict access, for keys you control:
|
|
1375
|
+
|
|
841
1376
|
```prolog
|
|
842
1377
|
agent_main :-
|
|
843
1378
|
D = point{x: 10, y: 20},
|
|
@@ -978,6 +1513,52 @@ backtracking reuses an answer instead of re-querying the model.
|
|
|
978
1513
|
always one of your option atoms.
|
|
979
1514
|
- Prefer one `judge/2` batch over several one-off calls when you need more than
|
|
980
1515
|
one or two judgments.
|
|
1516
|
+
### Load-time directives
|
|
1517
|
+
|
|
1518
|
+
A `.dml` file may contain directives. These are handled:
|
|
1519
|
+
|
|
1520
|
+
```prolog
|
|
1521
|
+
:- use_module(library(clpfd)). % library import
|
|
1522
|
+
:- consult("other.dml"). % load another workspace file
|
|
1523
|
+
:- param(topic, "the subject"). % declared session parameter
|
|
1524
|
+
:- repl_delete(old_skill/2). % remove a predicate (same as the bare fact form)
|
|
1525
|
+
:- require_sandbox. % refuse to load unless the shell is sandboxed
|
|
1526
|
+
```
|
|
1527
|
+
|
|
1528
|
+
`:- require_sandbox.` is a declaration that the harness must run with an
|
|
1529
|
+
isolated shell. It is checked **at load**, and the load **fails** when the
|
|
1530
|
+
effective backend is not a sandbox (`bwrap`, AgentVM, or `sandbox-exec`) — it
|
|
1531
|
+
does not silently run unsandboxed. "Effective" is deliberate: bubblewrap being
|
|
1532
|
+
installed while the session resolves to unsandboxed execution still fails the
|
|
1533
|
+
check. Only the **user** sets this (the `/set-require-sandbox` command); an agent
|
|
1534
|
+
cannot add or remove it.
|
|
1535
|
+
|
|
1536
|
+
`:- repl_delete(Name/Arity).` abolishes a predicate, which `retract/1` cannot do:
|
|
1537
|
+
retracting the last clause leaves an empty predicate whose calls fail silently.
|
|
1538
|
+
The bare fact form `repl_delete(Name/Arity).` works the same way.
|
|
1539
|
+
|
|
1540
|
+
These apply to a file **loaded** into a session (`deepclause repl -l file.dml`).
|
|
1541
|
+
They are not the way to edit a live harness. `consult/1`, a file-list directive and
|
|
1542
|
+
`use_module/1` on a workspace `.dml` assert straight into the module rather than
|
|
1543
|
+
through the REPL's edit tools, so the predicates they add are absent from the
|
|
1544
|
+
transaction's tracked set — the nondeterminism probe does not see them, and a
|
|
1545
|
+
directive that fails inside the file only warns. They do still appear in the next
|
|
1546
|
+
commit's diff, so the change is recorded without any account of where it came from —
|
|
1547
|
+
and outside a transaction there is no snapshot, so nothing validates the load at all.
|
|
1548
|
+
An agent changing a harness adds code with `assert`/`assert_many`/`define` inside a
|
|
1549
|
+
transaction instead.
|
|
1550
|
+
|
|
1551
|
+
Any other directive does nothing, and the loader now says so — it reports
|
|
1552
|
+
`unrecognised directive ignored: …` after the file loads, so a directive that
|
|
1553
|
+
never took effect is not mistaken for one that did. `dynamic/1`,
|
|
1554
|
+
`discontiguous/1` and `multifile/1` are accepted and ignored silently, since
|
|
1555
|
+
session predicates are asserted and already behave that way.
|
|
1556
|
+
|
|
1557
|
+
A **predicate with no clauses fails silently** when called — it does not error —
|
|
1558
|
+
so an emptied or never-written predicate looks like "no results" at the call site.
|
|
1559
|
+
`current_predicate(Name/Arity)` in a `/goal` answers whether it exists, and a
|
|
1560
|
+
`doc/2` for a predicate with no clauses is reported at `end_turn`.
|
|
1561
|
+
|
|
981
1562
|
## The DML REPL (`deepclause repl`)
|
|
982
1563
|
|
|
983
1564
|
DML skills can also be grown interactively in a persistent **living module**.
|