adagsl_335d13f0/gsl/src/gsl-qrng.ads

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
pragma Ada_2012;
pragma Style_Checks (Off);
pragma Warnings ("U");

--with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings;

with System;

package gsl.qrng is

   --  skipped anonymous struct anon_anon_20

   type gsl_qrng_type is record
      name : Interfaces.C.Strings.chars_ptr;  -- /usr/include/gsl/gsl_qrng.h:30
      max_dimension : aliased unsigned;  -- /usr/include/gsl/gsl_qrng.h:31
      state_size    : access function
        (arg1 : unsigned) return size_t;  -- /usr/include/gsl/gsl_qrng.h:32
      init_state : access function
        (arg1 : System.Address; arg2 : unsigned)
         return int;  -- /usr/include/gsl/gsl_qrng.h:33
      get : access function
        (arg1 : System.Address; arg2 : unsigned; arg3 : access double)
         return int;  -- /usr/include/gsl/gsl_qrng.h:34
   end record with
      Convention => C_Pass_By_Copy;  -- /usr/include/gsl/gsl_qrng.h:36

      --  skipped anonymous struct anon_anon_21

   type gsl_qrng is record
      c_type : access constant gsl_qrng_type;  -- /usr/include/gsl/gsl_qrng.h:44
      dimension  : aliased unsigned;  -- /usr/include/gsl/gsl_qrng.h:45
      state_size : aliased size_t;  -- /usr/include/gsl/gsl_qrng.h:46
      state      : System.Address;  -- /usr/include/gsl/gsl_qrng.h:47
   end record with
      Convention => C_Pass_By_Copy;  -- /usr/include/gsl/gsl_qrng.h:49

   niederreiter_2 : access constant gsl_qrng_type  -- /usr/include/gsl/gsl_qrng.h:54
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_niederreiter_2";

   sobol : access constant gsl_qrng_type  -- /usr/include/gsl/gsl_qrng.h:55
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_sobol";

   halton : access constant gsl_qrng_type  -- /usr/include/gsl/gsl_qrng.h:56
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_halton";

   reversehalton : access constant gsl_qrng_type  -- /usr/include/gsl/gsl_qrng.h:57
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_reversehalton";

   function alloc
     (T : access constant gsl_qrng_type; dimension : unsigned)
      return access gsl_qrng  -- /usr/include/gsl/gsl_qrng.h:64
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_alloc";

   function memcpy
     (dest : access gsl_qrng;
      src  : access constant gsl_qrng)
      return int  -- /usr/include/gsl/gsl_qrng.h:68
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_memcpy";

   function clone
     (q : access constant gsl_qrng)
      return access gsl_qrng  -- /usr/include/gsl/gsl_qrng.h:72
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_clone";

   procedure free
     (q : access gsl_qrng)  -- /usr/include/gsl/gsl_qrng.h:76
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_free";

   procedure init
     (q : access gsl_qrng)  -- /usr/include/gsl/gsl_qrng.h:80
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_init";

   function name
     (q : access constant gsl_qrng) return Interfaces.C.Strings
     .chars_ptr  -- /usr/include/gsl/gsl_qrng.h:84
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_name";

   function size
     (q : access constant gsl_qrng)
      return size_t  -- /usr/include/gsl/gsl_qrng.h:90
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_size";

   function state
     (q : access constant gsl_qrng) return System
     .Address  -- /usr/include/gsl/gsl_qrng.h:93
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_state";

   type qrng_values_type is array (Positive range <>) of double;

   function get
     (q : access constant gsl_qrng;
      x : access double)
      return int  -- /usr/include/gsl/gsl_qrng.h:97
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_get";

   function get
     (q :     access constant gsl_qrng;
      x : out qrng_values_type)
      return int  -- /usr/include/gsl/gsl_qrng.h:97
   with
      Import        => True,
      Convention    => C,
      External_Name => "gsl_qrng_get";

end gsl.qrng;