GLPK/Ada

Ada 是一種在 ISO/IEC 8652:2012 中定義的程式語言。

Ada 可以直接呼叫 C 庫。以下程式 glpkversion.adb 呼叫 glp_version() 以輸出 GLPK 庫的版本。

with Ada.Text_IO; use Ada.Text_IO;
with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings;

procedure glpkversion is

  function glp_version return Interfaces.C.Strings.chars_ptr;
  pragma Import (C, glp_version, "glp_version");

begin
  Put_LINE(Strings.Value(glp_version));
end glpkversion;

使用以下命令進行編譯、繫結和連結

gcc -c glpkversion.adb
gnatbind glpkversion
gnatlink -lglpk glpkversion

在 KuKu3 中的 Futoshiki 應用程式中，可以找到使用 Ada 和 GLPK 的更詳細示例。