harn-cli 0.7.55

CLI for the Harn programming language — run, test, REPL, format, and lint
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

use std::time::Duration;

use super::errors::OrchestratorError;
use super::harness::{self, DrainConfig, OrchestratorConfig, OrchestratorHarness, PumpConfig};
use super::tls::TlsFiles;
use crate::cli::{OrchestratorLogFormat, OrchestratorServeArgs};

pub(crate) async fn run(args: OrchestratorServeArgs) -> Result<(), OrchestratorError> {
    // Install signal streams BEFORE any startup log a supervisor (test harness,
    // systemd, launchd) might be watching for. Tokio's signal streams install
    // the OS-level handler on their first call per SignalKind; any SIGTERM
    // delivered before that call uses the default disposition (terminate),
    // which caused orchestrator_serve_starts_and_shuts_down_cleanly to flake
    // under parallel test load when the harness raced past the "HTTP listener
    // ready" log.
    #[cfg(unix)]
    let signal_streams = install_signal_streams()?;

    let tls = TlsFiles::from_args(args.cert.clone(), args.key.clone())?;
    let config_path = harness::absolutize_from_cwd(&args.local.config)?;
    let (manifest, _manifest_dir) = harness::load_manifest(&config_path)?;
    let state_dir = harness::absolutize_from_cwd(&args.local.state_dir)?;

    let config = OrchestratorConfig {
        manifest_path: config_path,
        state_dir,
        bind: args.bind,
        role: args.role,
        watch_manifest: args.watch,
        mcp: args.mcp,
        mcp_path: args.mcp_path,
        mcp_sse_path: args.mcp_sse_path,
        mcp_messages_path: args.mcp_messages_path,
        tls,
        shutdown_timeout: Duration::from_secs(args.shutdown_timeout.max(1)),
        drain: DrainConfig {
            max_items: args
                .drain_max_items
                .unwrap_or(manifest.orchestrator.drain.max_items),
            deadline: Duration::from_secs(
                args.drain_deadline
                    .unwrap_or(manifest.orchestrator.drain.deadline_seconds),
            ),
        },
        pump: PumpConfig {
            max_outstanding: args
                .pump_max_outstanding
                .unwrap_or(manifest.orchestrator.pumps.max_outstanding),
        },
        log_format: Some(log_format(args.log_format)),
    };

    let harness = OrchestratorHarness::start(config)
        .await
        .map_err(|error| OrchestratorError::Serve(error.0))?;

    wait_for_shutdown(
        harness,
        #[cfg(unix)]
        signal_streams,
    )
    .await
}

fn log_format(format: OrchestratorLogFormat) -> harn_vm::observability::otel::LogFormat {
    match format {
        OrchestratorLogFormat::Text => harn_vm::observability::otel::LogFormat::Text,
        OrchestratorLogFormat::Pretty => harn_vm::observability::otel::LogFormat::Pretty,
        OrchestratorLogFormat::Json => harn_vm::observability::otel::LogFormat::Json,
    }
}

#[cfg(unix)]
struct SignalStreams {
    sigterm: tokio::signal::unix::Signal,
    sigint: tokio::signal::unix::Signal,
    sighup: tokio::signal::unix::Signal,
}

#[cfg(unix)]
fn install_signal_streams() -> Result<SignalStreams, OrchestratorError> {
    use tokio::signal::unix::{signal, SignalKind};
    Ok(SignalStreams {
        sigterm: signal(SignalKind::terminate())
            .map_err(|error| format!("failed to register SIGTERM handler: {error}"))?,
        sigint: signal(SignalKind::interrupt())
            .map_err(|error| format!("failed to register SIGINT handler: {error}"))?,
        sighup: signal(SignalKind::hangup())
            .map_err(|error| format!("failed to register SIGHUP handler: {error}"))?,
    })
}

async fn wait_for_shutdown(
    harness: OrchestratorHarness,
    #[cfg(unix)] mut signals: SignalStreams,
) -> Result<(), OrchestratorError> {
    #[cfg(unix)]
    {
        let SignalStreams {
            sigterm,
            sigint,
            sighup,
        } = &mut signals;
        let reload = harness.admin_reload();
        loop {
            tokio::select! {
                _ = sigterm.recv() => break,
                _ = sigint.recv() => break,
                _ = sighup.recv() => { let _ = reload.trigger("sighup"); }
            }
        }
    }

    #[cfg(not(unix))]
    {
        tokio::signal::ctrl_c().await.map_err(|error| {
            OrchestratorError::Serve(format!("failed to wait for Ctrl-C: {error}"))
        })?;
    }

    eprintln!("[harn] signal received, starting graceful shutdown...");
    harness
        .shutdown(Duration::from_secs(30))
        .await
        .map_err(|error| OrchestratorError::Serve(error.0))?;
    Ok(())
}