adagsl_335d13f0/gsl/src/gsl-permutation.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
with Ada.Text_IO;          use Ada.Text_IO;
with Ada.Text_IO.C_Streams;
with Interfaces.C.Strings; use Interfaces.C.Strings;
package body gsl.permutation is

   function show (p : access gsl_permutation) return int is
      Status : int;
   begin
      Status :=
        gsl.permutation.fprintf
          (Ada.Text_IO.C_Streams.C_Stream (Ada.Text_IO.Standard_Output), p,
           New_String (" %u "));
      New_Line;
      return Status;
   end show;

end gsl.permutation;