1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | --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.combination is function show (c : access gsl_combination) return int is Status : int; begin Status := gsl.combination.fprintf (Ada.Text_IO.C_Streams.C_Stream (Ada.Text_IO.Standard_Output), c, New_String (" %u ")); New_Line; return Status; end show; end gsl.combination; |