如何使用Ada代码关闭PLplot的xcairo图形窗口且不关闭终端

我明白你的痛点——用End_PLplot会直接终止PLplot会话，没法继续执行终端里的后续代码。其实PLplot本身提供了更细粒度的设备控制函数，刚好能解决这个问题。

问题根源 #

End_PLplot对应PLplot C库的plend函数，它的作用是彻底终止整个PLplot会话：关闭所有设备窗口、释放所有资源，调用后PLplot相关的操作就完全结束了。而你需要的只是关闭xcairo图形窗口，同时保留程序的运行能力。

解决方案：使用plend1关闭单个设备 #

PLplot的plend1函数专门用来关闭当前激活的设备窗口，但不会终止PLplot会话，这样程序就能继续执行后续代码。如果Ada绑定的PLplot_Standard包没有直接暴露这个函数，我们可以自己通过Ada的C接口绑定来调用它。

修改后的示例代码

with Ada.Strings, Ada.Strings.Unbounded, PLplot_Auxiliary, PLplot_Standard;
with Interfaces.C; use Interfaces.C;
with Ada.Text_IO; use Ada.Text_IO;

use Ada.Strings, Ada.Strings.Unbounded, PLplot_Auxiliary, PLplot_Standard;

-- 手动绑定PLplot的plend1函数
procedure Close_PLplot_Device is
   procedure plend1;
   pragma Import(C, plend1, "plend1");
begin
   plend1;
end Close_PLplot_Device;

procedure speedplot is
   driver : Unbounded_String;
   x, y : Real_Vector(0 .. 100);
   x_Min, y_Min : constant := 0.0;
   x_Max : constant := 1.0;
   y_Max : constant := 100.0;
begin
   -- 准备绘图数据
   for i in x'range loop
      x(i) := Long_Float(i) / Long_Float(x'length - 1);
      y(i) := y_Max * x(i)**2;
   end loop;

   -- 设置xcairo驱动
   driver := To_Unbounded_String("xcairo");
   Set_Device_Name(To_String(driver));

   -- 初始化PLplot
   Initialize_PLplot;

   -- 绘制坐标轴和标签
   Set_Environment(x_Min, x_Max, y_Min, y_Max, Justification => Not_Justified, Axis_Style => Linear_Box_Plus);
   Write_Labels (X_Label => "x", Y_Label => "y=100 x#u2#d", Title_Label => "Simple PLplot demo of a 2D line plot");

   -- 绘制曲线
   Draw_Curve(x, y);

   -- 关闭xcairo图形窗口（不终止PLplot会话）
   Close_PLplot_Device;

   -- 这里可以继续执行你的后续代码
   Put_Line("图形窗口已关闭，程序继续运行中...");
   -- 示例：等待用户输入再结束
   Put_Line("按回车键退出程序：");
   declare
      Dummy : String := Get_Line;
   begin
      null;
   end;

   -- 最后彻底清理PLplot资源（可选，如果后续不再使用PLplot）
   End_PLplot;
end speedplot;

关键说明 #

1. Close_PLplot_Device过程：通过Ada的pragma Import直接调用PLplot C库的plend1函数，实现只关闭当前xcairo窗口，保留PLplot会话。
2. 后续代码执行：调用Close_PLplot_Device后，图形窗口会关闭，但终端里的程序会继续运行你写的后续逻辑（比如示例中的用户输入等待）。
3. 最终清理：如果后续不再需要使用PLplot，可以在程序末尾调用End_PLplot彻底释放资源，这一步是可选的，但推荐添加以避免内存泄漏。

这个方案在openSUSE的xcairo驱动下完全有效，和你手动点击窗口关闭按钮的效果一致，但实现了代码控制。

内容的提问来源于stack exchange，提问作者Aschoolar