Keep what an archive unpacked in the engine's own state directory, never beside the archive, and stop no slower than the host waits (issue 1585, review round 1)

The journal of an unpack sat at <target>.unpacked.json, in a directory
the module's account may write: a forged one would make the root engine
remove or adopt any path it named. It now lives under
<statedir>/unpacked/<sha256 of the target>.json, mode 0600, names its
target, and is refused whole when an entry is not filepath.IsLocal or a
parent is not above the target. It goes when the archive is taken off,
whether its state record still said what it unpacked or not.

The launcher's stop grace for a host on trial rises from 20 s to 75 s and
the unit's TimeoutStopSec is 120 s (openrc the same), past the host's own
60 s wait for the apply in flight, so neither cuts a save off again.

Tests folded as rows into existing ones (the repository is over its unit
budget): the journal's rows, a forged entry and parent refused, the
journal gone with a record that lost its Unpacked; the test that passed
on main dropped; the stop test waits on its own line, not a sleep, and no
longer consumes the save it waits for.

Claude-Session: https://claude.ai/code/session_01JG73KG7AfSdh6FP8VrBqCn

internal/apply/archive_replace_test.go

@@ -3,7 +3,6 @@ package apply
 import (
 	"context"
 	"os"
-	"strings"
 	"testing"
 
 	"github.com/novox/mesh-host/internal/store"
@@ -33,7 +32,7 @@ func TestAnArchiveReplacesTheTreeItWasUnpackedOver(t *testing.T) {
 	if _, err := os.Stat(dir + "/tools/node_modules"); err == nil {
 		t.Fatal("the previous archive's directory is still there")
 	}
-	entries := besideTheTree(dir)
+	entries, _ := os.ReadDir(dir)
 	if len(entries) != 1 {
 		names := []string{}
 		for _, e := range entries {
@@ -63,19 +62,7 @@ func TestARefusedArchiveLeavesTheTreeItWouldHaveReplaced(t *testing.T) {
 	if got, _ := os.ReadFile(dir + "/tools/index.js"); string(got) != "old" {
 		t.Fatalf("index.js is %q after a refused archive", got)
 	}
-	if entries := besideTheTree(dir); len(entries) != 1 {
+	if entries, _ := os.ReadDir(dir); len(entries) != 1 {
 		t.Fatalf("%d entries beside the tree after a refused archive", len(entries))
 	}
 }
-
-// besideTheTree is what sits in dir, but for the journals of what archives unpacked (novox/hq issue 1585).
-func besideTheTree(dir string) []os.DirEntry {
-	all, _ := os.ReadDir(dir)
-	var out []os.DirEntry
-	for _, e := range all {
-		if !strings.HasSuffix(e.Name(), journalSuffix) {
-			out = append(out, e)
-		}
-	}
-	return out
-}