# Runtime Context And With

文档类型：语法主线
是否可直接用于生成代码：仅部分
是否含已验证可执行示例：是
是否含已验证反例：是
遇到不确定时跳转到：[07_expressions_and_operators.md](07_expressions_and_operators.md)、[22_namespace_libpath_and_unit_runtime.md](22_namespace_libpath_and_unit_runtime.md)、[../finance/market_data_context.md](../finance/market_data_context.md)

手册位置：第 11 篇，共 32 篇。上一篇：[10_units_and_scope.md](10_units_and_scope.md)。下一篇：[12_pitfalls.md](12_pitfalls.md)。

这一篇只处理运行时环境参数和 `with` 后缀，不处理任何金融业务语义。

## 这一篇解决什么问题

回答“`SetSysParam` / `GetSysParam` 怎样用、`SysParams[...]` 是什么、`#Func() with array(...)` 这种后缀环境调用在当前解释器里怎样写”。

## 必须记住的规则

- TSL 有一组运行时系统参数；当前页只写已经实际验证过的通用写法。
- 已验证：`SetSysParam(key, value)` 和 `GetSysParam(key)` 可以直接用字符串键。
- 已验证：`SysParams[key]` 可以直接读写这些运行时参数。
- 当前已验证的 `with` 形式，是写在函数文件调用后面：`#Func() with array(...)`。
- 当前已做双文件运行验证：`with array(...)` 只在该次调用里临时覆盖对应键，调用结束后会恢复外部原值。
- 当前已做双文件运行验证：如果外部原值本来不存在，`with array(...)` 调用结束后，对应键会恢复成 `nil`。
- 不要把上面的后缀 `with` 直接泛化成“任何本地函数调用后面都能接 `with array(...)`”；这一点当前没有通过。
- 当前页只收通用键的例子；像 `pn_stock()`、`pn_date()` 这类金融上下文参数，统一放到业务层文档里解释。

## 已验证语法

直接设置和读取系统参数：

代码块身份：已验证可执行示例

```tsl
program test;
begin
    SetSysParam("a", 123);
    SetSysParam("b", "XYZ");
    WriteLn(GetSysParam("a"));
    WriteLn(GetSysParam("b"));
end.
```

已验证运行结果：

- 依次输出 `123`、`XYZ`

`SysParams[...]` 直接读写：

代码块身份：已验证可执行示例

```tsl
program test;
begin
    SysParams["a"] := 321;
    SysParams["b"] := "QQ";
    WriteLn(SysParams["a"]);
    WriteLn(SysParams["b"]);
    WriteLn(GetSysParam("a"));
end.
```

已验证运行结果：

- 依次输出 `321`、`QQ`、`321`
- 说明 `SysParams[...]` 和 `GetSysParam(...)` / `SetSysParam(...)` 指向的是同一组运行时环境参数

沿用同一个 `TestDo.tsf`，看 `with array(...)` 的覆盖边界：

代码块身份：配置片段 / 概念骨架

```text
// TestDo.tsf
function TestDo();
begin
    return array(GetSysParam("a"), GetSysParam("b"));
end;

// main.tsl
program test;
begin
    SetSysParam("a", 7);
    SetSysParam("b", 8);
    r := #TestDo() with array("a": 101, "b": 202);
    WriteLn(r[0]);
    WriteLn(r[1]);
    WriteLn(GetSysParam("a"));
    WriteLn(GetSysParam("b"));
end.

// command
tsl .\main.tsl -LIBPATH "D:\path\to\dir\"
```

已验证运行结果：

- `r[0]` 输出 `101`
- `r[1]` 输出 `202`
- 调用结束后，外层 `GetSysParam("a")` 输出 `7`
- 调用结束后，外层 `GetSysParam("b")` 输出 `8`
- 说明 `with array(...)` 是“只在该次调用里临时覆盖，再恢复外部原值”

沿用上一个 `TestDo.tsf`，只把 `main.tsl` 改成下面这样：

代码块身份：配置片段 / 概念骨架

```text
// main.tsl
program test;
begin
    r := #TestDo() with array("a": 101, "b": 202);
    WriteLn(r[0]);
    WriteLn(r[1]);
    WriteLn(GetSysParam("a") = nil);
    WriteLn(GetSysParam("b") = nil);
end.
```

已验证运行结果：

- 依次输出 `101`、`202`、`1`、`1`
- 说明外层原值不存在时，调用后不是“泄露”成 `101` / `202`，而是恢复成 `nil`

## 最小可编译示例

如果你只是想先记住最小的运行时环境入口，用这个：

代码块身份：已验证可执行示例

```tsl
program test;
begin
    SetSysParam("a", 1);
    WriteLn(GetSysParam("a"));
end.
```

## 常见误写

- 把系统参数页直接写成金融函数页。
- 把 `#Func() with array(...)` 误判成也能直接套在本地函数 `Demo()` 后面。
- 以为 `with array(...)` 改的是全局永久值，不会恢复外层原环境。

代码块身份：反例 / 不可照写

```text
program test;
function Demo();
begin
    return GetSysParam("a");
end;
begin
    r := Demo() with array("a": 11);
end.
```

上面这种“本地函数后缀 `with`”写法在当前解释器里没有通过，会报 `Statement missing terminator`，随后出现 `function compile error`。

## 跳转指引

- 回看表达式与调用：见 [07_expressions_and_operators.md](07_expressions_and_operators.md)
- 涉及函数文件查找路径：见 [22_namespace_libpath_and_unit_runtime.md](22_namespace_libpath_and_unit_runtime.md)
- 业务层环境参数：见 [../finance/index.md](../finance/index.md)