Delphi portability: .dproj, System.JSON backend, cross-toolchain process I/O

[FMXExpress]

Summary

Makes the PasClaw source tree compile under both FPC ({$MODE DELPHI} via make) and Delphi/RAD Studio 11/12 from the same .pas files. Five commits, branched from where PR #1 was merged (a8431b2).

Open src/pasclaw/PasClaw.dproj in RAD Studio → Build. No vendoring needed under Delphi (Indy ships with RAD Studio).

What's in the box

src/pasclaw/PasClaw.dproj

Delphi 12 multi-platform project file (Win32 / Win64 / Linux64). Every src/pkg/* directory on DCC_UnitSearchPath; every unit listed under DCCReference. webui.rc registered as RcCompile so brcc32 rebuilds the embedded resource on each build.

src/pkg/json/PasClaw.JSON.pas — full System.JSON backend

The Delphi branch of the JSON wrapper (previously an empty stub) now implements TJsonObject / TJsonArray on top of System.JSON.TJSONObject / TJSONArray. Same GetStr / GetInt / GetBool / PutObject / ChildObject / ItemObject / ToJSON / Parse surface as the FPC backend. Memory model preserved (parents own children, wrappers don't).

Migration of 9 call sites off fpjson

Config, Tools.FS, Tools.Shell, Skills.Loader, MCP.StdioClient, Gateway.Server, Channels.Telegram, Providers.OpenAI, Providers.Anthropic (including the SSE handler) — all routed through PasClaw.JSON. grep -rl fpjson src/ returns only the wrapper unit itself.

src/pkg/platform/PasClaw.Platform.pas — cross-toolchain process I/O

Replaces the previous Delphi-side stubs for shell_exec, shell skills, and stdio MCP. Same interface, three back-ends selected at compile time:

• FPC: fcl-process
• Delphi / Windows: Win32 API direct — CreatePipe + CreateProcessW + ReadFile/WriteFile + PeekNamedPipe + GetExitCodeProcess + TerminateProcess, CREATE_NO_WINDOW
• Delphi / POSIX: pipe + fork + dup2 + execvp + select(10 ms) + waitpid(WNOHANG) + SIGTERM

Tools.Shell.RunShell, Skills.Loader.RunShell, and MCP.StdioClient (spawn / WriteLine / ReadLine) are now one-liners that delegate to the abstraction. No more per-file {$IFDEF FPC} branches around process I/O.

Portable directives across all 51 units

• {$MODE DELPHI} wrapped as {$IFDEF FPC}{$MODE DELPHI}{$ENDIF} so Delphi (which doesn't have $MODE) doesn't warn
• {$I %PASCLAW_VERSION%} / {$I %FPCVERSION%} / {$I %FPCTARGETOS%} / {$I %FPCTARGETCPU%} wrapped — Delphi FormatBuildInfo returns pasclaw <version> (delphi)
• BaseUnix (chmod), cthreads/cmem (Indy threading), ioctl TIOCGWINSZ (terminal width) all FPC-only; Delphi POSIX uses Posix.SysStat.chmod; Delphi Windows + TUI fall back to 80-col width

Test plan

• FPC build (make) clean — 268k lines, 0 errors
• make smoke — all 11 commands OK
• OpenAI tool-call round-trip via fake LLM (fs_read end-to-end)
• Anthropic SSE streaming round-trip via fake event-stream server
• MCP stdio handshake against a Python fakemcp.py server
• shell_exec runs uname -m && echo ok through the tool loop
• Open PasClaw.dproj in Delphi 11/12 — Build for Win64
• Open PasClaw.dproj in Delphi 11/12 — Build for Linux64

The Delphi-side code can't be exercised in the FPC dev environment but follows canonical Win32 + POSIX API patterns; first-build issues are most likely unit-naming (e.g. Posix.Base) and easy to fix.

Commits

• ccbfd23 chunk 1/4: .dproj + simple FPC-only guards (cthreads, BaseUnix, ioctl)
• aabb67a chunk 2/4: System.JSON backend for PasClaw.JSON
• ff86249 chunk 3/4: migrate all fpjson call-sites to the wrapper
• 16a0ef1 chunk 4/4: portable directives across all units
• 1da9427 PasClaw.Platform cross-toolchain process I/O (removes the three stubs)

---

Generated by Claude Code