// Compactor builds the nodes of one agent with a model. A compaction is a call
// like a turn, with the same system prompt and tools, so it reads them from the
// prompt cache of the turns. The tools are never called. After them comes one
-// user message with the compaction view up to the node and the task. The view
-// goes in parts of viewBlock lines, as viewParts gives them, so compactions
-// whose views end at different lines still send the same first parts.
+// user message with the compaction view up to the node and the task, in the
+// parts that compactionParts gives. Only the last part holds the end of the
+// view, so compactions whose views end at different lines begin with the same
+// parts up to their last shared block.
//
// When the line is over nodeBytes, the next try sends the same view and task,
// plus a note with the size of the newest line and its cut at the limit. A try
// Summarize returns the line of the node of task.
func (c *Compactor) Summarize(ctx context.Context, task Task) (string, error) {
- view := viewParts(task.Context)
text, err := compactionTask(task)
if err != nil {
return "", err
}
+ first := compactionParts(task.Context, text)
var lines []string
note := ""
for len(lines) < compactionTries {
- parts := slices.Concat(view, []string{text})
+ parts := first
if note != "" {
- parts = append(parts, note)
+ parts = append(slices.Clip(first), note)
}
var response Response
return shortest(lines), nil
}
-// viewParts returns the parts of the compaction view context: the opening tag,
-// one part for each whole block of viewBlock lines, and the rest of the lines
-// with the closing tag and a newline. Joined, the parts are context and a
-// newline.
-func viewParts(context string) []string {
+// compactionParts returns the input parts of a first try for the compaction
+// view context and the task text: the opening tag, one part for each whole
+// block of viewBlock lines, and then one part with the rest of the lines, the
+// closing tag, a newline, and the task. Joined, the parts are the view, a
+// newline, and the task.
+func compactionParts(context, task string) []string {
lines := strings.SplitAfter(strings.TrimPrefix(context, "<chat>\n"), "\n")
whole := len(lines) - 1 - (len(lines)-1)%viewBlock
parts := []string{"<chat>\n"}
parts = append(parts, strings.Join(lines[n:n+viewBlock], ""))
}
- return append(parts, strings.Join(lines[whole:], "")+"\n")
+ return append(parts, strings.Join(lines[whole:], "")+"\n"+task)
}
// compactionTask returns the task of a build, with its input.