-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathasound.pas
132 lines (102 loc) · 3.65 KB
/
asound.pas
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
// unit THIS LINE IS NEEDED FOR THE LAZARUS IDE'S DECLARATION HINTING TO WORK.
(* Return either a static or a dynamic representation of the Asound embedding
library (libasound.a or similar). In this case it is static.
*)
unit Asound;
(********************************************************************************)
(* *)
(* WARNING: This is a machine-generated file and manual changes will be lost. *)
(* *)
(********************************************************************************)
(*
* Please refer to AsoundDefs.inc and other accompanying files for
* licensing and disclaimer information.
*)
{$mode ObjFPC }{$longstrings on }
{$push }
{$macro on }
{$define CDECL__:= cdecl; }
{$define CDECL_VARARGS__:= cdecl varargs; }
{$define LIBASOUND__:= external 'libasound'; }
{$define _LIBASOUND__:= asound }
{$undef DYNAMIC }
{$define EARLY }
{$undef CONSTS }
{$undef TYPES }
{$undef PROCS }
{$undef VPROCS }
{$i AsoundDefs.inc }
interface
uses
Classes, SysUtils, UnixType;
const
DefaultModuleName= 'libasound';
DefaultEarlyLoad= true;
HasLoadVarargsRoutine= true; (* Presence is implementation-defined *)
const
(* The Asound libraries are statically linked, always return false.
*)
IsDynamic= false;
(* The Asound libraries are statically linked, if the program has started
successfully then they must be in memory.
*)
ModuleInMemory= true;
{$undef EARLY }
{$define CONSTS }
{$undef TYPES }
{$undef PROCS }
{$undef VPROCS }
{$i AsoundDefs.inc }
{$undef EARLY }
{$undef CONSTS }
{$define TYPES }
{$undef PROCS }
{$undef VPROCS }
{$i AsoundDefs.inc }
{$undef EARLY }
{$undef CONSTS }
{$undef TYPES }
{$define PROCS }
{$define VPROCS }
{$i AsoundDefs.inc }
{$pop }
(* For a statically-linked program this has no effect.
*)
procedure InitialiseLibrary(const moduleName: string= DefaultModuleName;
earlyLoad: boolean= DefaultEarlyLoad);
(* For a statically-linked program this has no effect.
*)
procedure InitializeLibrary(const moduleName: string= DefaultModuleName;
earlyLoad: boolean= DefaultEarlyLoad);
(* Load a named routine expecting a C-style variable number of parameters, or
attempt to load all varargs routines if the parameter is * or blank. For a
statically-linked program this has no effect.
*)
procedure LoadVarargsRoutine(loadName: string= '';
keepGoing: boolean= false);
implementation
{$push } {$hints off Suppress hints about parameters being unused }
(* For a statically-linked program this has no effect.
*)
procedure InitialiseLibrary(const moduleName: string= DefaultModuleName;
earlyLoad: boolean= DefaultEarlyLoad);
begin
end { InitialiseLibrary } ;
{$pop }
(* For a statically-linked program this has no effect.
*)
procedure InitializeLibrary(const moduleName: string= DefaultModuleName;
earlyLoad: boolean= DefaultEarlyLoad);
begin
InitialiseLibrary(moduleName, earlyLoad)
end { InitializeLibrary } ;
(* Load a named routine expecting a C-style variable number of parameters, or
attempt to load all varargs routines if the parameter is * or blank. For a
statically-linked program this has no effect.
*)
procedure LoadVarargsRoutine(loadName: string= '';
keepGoing: boolean= false);
begin
end { LoadVarargsRoutine } ;
end.
// MD5 3673724605e7aac61fe03aa5546da321 3d1ae494cc676ebdae352babe8e77a83 ANSI LF {}