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 | pragma Ada_2012;
pragma Style_Checks (Off);
pragma Warnings ("U");
with Interfaces.C.Strings;
package gsl.errno is
-- arg-macro: procedure ERROR (reason, gsl_errno)
-- do { gsl_error (reason, __FILE__, __LINE__, gsl_errno) ; return gsl_errno ; } while (0)
-- arg-macro: procedure ERROR_VAL (reason, gsl_errno, value)
-- do { gsl_error (reason, __FILE__, __LINE__, gsl_errno) ; return value ; } while (0)
-- arg-macro: procedure GSL_ERROR_VOID (reason, gsl_errno)
-- do { gsl_error (reason, __FILE__, __LINE__, gsl_errno) ; return ; } while (0)
-- arg-macro: procedure GSL_ERROR_NULL (reason, gsl_errno)
-- GSL_ERROR_VAL(reason, gsl_errno, 0)
-- arg-macro: function GSL_ERROR_SELECT_2 (a, b)
-- return (a) /= GSL_SUCCESS ? (a) : ((b) /= GSL_SUCCESS ? (b) : GSL_SUCCESS);
-- arg-macro: function GSL_ERROR_SELECT_3 (a, b, c)
-- return (a) /= GSL_SUCCESS ? (a) : GSL_ERROR_SELECT_2(b,c);
-- arg-macro: function GSL_ERROR_SELECT_4 (a, b, c, d)
-- return (a) /= GSL_SUCCESS ? (a) : GSL_ERROR_SELECT_3(b,c,d);
-- arg-macro: function GSL_ERROR_SELECT_5 (a, b, c, d, e)
-- return (a) /= GSL_SUCCESS ? (a) : GSL_ERROR_SELECT_4(b,c,d,e);
-- arg-macro: procedure GSL_STATUS_UPDATE (sp, s)
-- do { if ((s) /= GSL_SUCCESS) *(sp) := (s);} while(0)
procedure error
(reason : Interfaces.C.Strings.chars_ptr;
file : Interfaces.C.Strings.chars_ptr;
line : int;
gsl_errno : int) -- /usr/include/gsl/gsl_errno.h:77
with
Import => True,
Convention => C,
External_Name => "gsl_error";
procedure error
(reason : String; file : String; line : int; gsl_errno : int);
procedure stream_printf
(label : Interfaces.C.Strings.chars_ptr;
file : Interfaces.C.Strings.chars_ptr; line : int;
reason : Interfaces.C.Strings
.chars_ptr) -- /usr/include/gsl/gsl_errno.h:80
with
Import => True,
Convention => C,
External_Name => "gsl_stream_printf";
procedure stream_printf
(label : String; file : String; line : int; reason : String);
function strerror
(gsl_errno : int) return Interfaces.C.Strings
.chars_ptr -- /usr/include/gsl/gsl_errno.h:83
with
Import => True,
Convention => C,
External_Name => "gsl_strerror";
-- skipped function type gsl_error_handler_t
-- skipped function type gsl_stream_handler_t
function strerror (gsl_errno : int) return String;
function set_error_handler
(new_handler : access procedure
(arg1 : Interfaces.C.Strings.chars_ptr;
arg2 : Interfaces.C.Strings.chars_ptr; arg3 : int; arg4 : int))
return access procedure
(arg1 : Interfaces.C.Strings.chars_ptr;
arg2 : Interfaces.C.Strings.chars_ptr;
arg3 : int;
arg4 : int) -- /usr/include/gsl/gsl_errno.h:92
with
Import => True,
Convention => C,
External_Name => "gsl_set_error_handler";
function set_error_handler_off
return access procedure
(arg1 : Interfaces.C.Strings.chars_ptr;
arg2 : Interfaces.C.Strings.chars_ptr;
arg3 : int;
arg4 : int) -- /usr/include/gsl/gsl_errno.h:95
with
Import => True,
Convention => C,
External_Name => "gsl_set_error_handler_off";
function set_stream_handler
(new_handler : access procedure
(arg1 : Interfaces.C.Strings.chars_ptr;
arg2 : Interfaces.C.Strings.chars_ptr; arg3 : int;
arg4 : Interfaces.C.Strings.chars_ptr))
return access procedure
(arg1 : Interfaces.C.Strings.chars_ptr;
arg2 : Interfaces.C.Strings.chars_ptr; arg3 : int;
arg4 : Interfaces.C.Strings
.chars_ptr) -- /usr/include/gsl/gsl_errno.h:98
with
Import => True,
Convention => C,
External_Name => "gsl_set_stream_handler";
function set_stream
(new_stream : access ICS.FILEs)
return Integer -- /usr/include/gsl/gsl_errno.h:100
with
Import => True,
Convention => C,
External_Name => "gsl_set_stream";
end gsl.errno;
|