hx-plugins 0.7.13

Plugin system for hx using Steel Scheme
Documentation 
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
128
129
130

//! Shell command execution API for plugins.
//!
//! Provides: (hx/run), (hx/run-checked), (hx/run-silent)

use crate::context::with_context;
use crate::error::Result;
use std::process::Command;
use steel::SteelVal;
use steel::steel_vm::engine::Engine;
use steel::steel_vm::register_fn::RegisterFn;

/// Register shell API functions.
pub fn register(engine: &mut Engine) -> Result<()> {
    engine.register_fn("hx/run", run_command);
    engine.register_fn("hx/run-checked", run_checked);
    engine.register_fn("hx/run-silent", run_silent);
    Ok(())
}

/// Run a command and return an association list with exit-code, stdout, stderr.
/// Returns: ((exit-code . N) (stdout . "...") (stderr . "..."))
fn run_command(cmd: String, args: Vec<SteelVal>) -> SteelVal {
    let args: Vec<String> = args
        .into_iter()
        .filter_map(|v| match v {
            SteelVal::StringV(s) => Some(s.to_string()),
            _ => None,
        })
        .collect();

    // Get environment variables from context
    let env_vars = with_context(|ctx| ctx.env_vars.clone()).unwrap_or_default();

    let result = Command::new(&cmd).args(&args).envs(&env_vars).output();

    match result {
        Ok(output) => {
            // Return as association list: ((exit-code . N) (stdout . "...") (stderr . "..."))
            let exit_code = SteelVal::IntV(output.status.code().unwrap_or(-1) as isize);
            let stdout =
                SteelVal::StringV(String::from_utf8_lossy(&output.stdout).to_string().into());
            let stderr =
                SteelVal::StringV(String::from_utf8_lossy(&output.stderr).to_string().into());

            SteelVal::ListV(
                vec![
                    SteelVal::ListV(vec![SteelVal::SymbolV("exit-code".into()), exit_code].into()),
                    SteelVal::ListV(vec![SteelVal::SymbolV("stdout".into()), stdout].into()),
                    SteelVal::ListV(vec![SteelVal::SymbolV("stderr".into()), stderr].into()),
                ]
                .into(),
            )
        }
        Err(e) => SteelVal::ListV(
            vec![
                SteelVal::ListV(
                    vec![SteelVal::SymbolV("exit-code".into()), SteelVal::IntV(-1)].into(),
                ),
                SteelVal::ListV(
                    vec![
                        SteelVal::SymbolV("stdout".into()),
                        SteelVal::StringV("".into()),
                    ]
                    .into(),
                ),
                SteelVal::ListV(
                    vec![
                        SteelVal::SymbolV("stderr".into()),
                        SteelVal::StringV(e.to_string().into()),
                    ]
                    .into(),
                ),
            ]
            .into(),
        ),
    }
}

/// Run a command and return stdout, or raise an error on failure.
fn run_checked(cmd: String, args: Vec<SteelVal>) -> std::result::Result<SteelVal, String> {
    let args: Vec<String> = args
        .into_iter()
        .filter_map(|v| match v {
            SteelVal::StringV(s) => Some(s.to_string()),
            _ => None,
        })
        .collect();

    let env_vars = with_context(|ctx| ctx.env_vars.clone()).unwrap_or_default();

    let output = Command::new(&cmd)
        .args(&args)
        .envs(&env_vars)
        .output()
        .map_err(|e| format!("Failed to execute {}: {}", cmd, e))?;

    if output.status.success() {
        Ok(SteelVal::StringV(
            String::from_utf8_lossy(&output.stdout).to_string().into(),
        ))
    } else {
        let stderr = String::from_utf8_lossy(&output.stderr);
        Err(format!(
            "Command '{}' failed with exit code {:?}: {}",
            cmd,
            output.status.code(),
            stderr
        ))
    }
}

/// Run a command silently and return just the exit code.
fn run_silent(cmd: String, args: Vec<SteelVal>) -> SteelVal {
    let args: Vec<String> = args
        .into_iter()
        .filter_map(|v| match v {
            SteelVal::StringV(s) => Some(s.to_string()),
            _ => None,
        })
        .collect();

    let env_vars = with_context(|ctx| ctx.env_vars.clone()).unwrap_or_default();

    let result = Command::new(&cmd).args(&args).envs(&env_vars).output();

    match result {
        Ok(output) => SteelVal::IntV(output.status.code().unwrap_or(-1) as isize),
        Err(_) => SteelVal::IntV(-1),
    }
}