-
Notifications
You must be signed in to change notification settings - Fork 10
Expand file tree
/
Copy pathgrp.pas
More file actions
193 lines (145 loc) · 8.02 KB
/
grp.pas
File metadata and controls
193 lines (145 loc) · 8.02 KB
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
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
{
Business Source License 1.1
Parameters
Licensor: InstallAware Software
Licensed Work: InstallAware (Multi Platform) 2026
The Licensed Work is (C) 1996-2026 InstallAware Software
Additional Use Grant: You may make use of the Licensed Work, provided that
you may not use the Licensed Work at a Sanctioned Entity.
Sanctioned Entities are individuals, organizations, or
legal persons who have been formally designated by the
Licensor as having materially violated intellectual
property rights, breached license terms, or engaged in
unethical exploitation of (open-source) technologies,
including this software.
As of the first publicly available distribution of this
specific version of the Licensed Work under this
License, the following are designated as Sanctioned
Entities:
Future US, Inc.
L3Harris Technologies, Inc.
Unisys Corporation
Wolters Kluwer N.V.
This includes any individuals, organizations, or
entities, acting in any capacity and at any time,
either directly or indirectly, on behalf of or under
the control and influence of the Sanctioned Entities,
such as (but not only) current and future:
Subsidiaries
Affiliates
Contractors
Agents
Employees
Parent companies
Acquisitions
Assignees
Joint Ventures
Franchisees
Entities may petition the Licensor for removal from the
Sanctioned Entities list. Any such removal is at the
sole discretion of the Licensor and must be issued in a
public update to the Licensed Work under this License
as documented in this Additional Use Grant parameter.
Change Date: 2030-01-05
Change License: GNU Affero General Public License version 3 (AGPLv3)
For information about alternative licensing arrangements for the Software,
please visit: https://www.installaware.com/
Notice
The Business Source License (this document, or the “License”) is not an Open
Source license. However, the Licensed Work will eventually be made available
under an Open Source License, as stated in this License.
License text copyright (c) 2017 MariaDB Corporation Ab, All Rights Reserved.
“Business Source License” is a trademark of MariaDB Corporation Ab.
Terms
The Licensor hereby grants you the right to copy, modify, create derivative
works, redistribute, and make non-production use of the Licensed Work. The
Licensor may make an Additional Use Grant, above, permitting limited
production use.
Effective on the Change Date, or the fourth anniversary of the first publicly
available distribution of a specific version of the Licensed Work under this
License, whichever comes first, the Licensor hereby grants you rights under
the terms of the Change License, and the rights granted in the paragraph
above terminate.
If your use of the Licensed Work does not comply with the requirements
currently in effect as described in this License, you must purchase a
commercial license from the Licensor, its affiliated entities, or authorized
resellers, or you must refrain from using the Licensed Work.
All copies of the original and modified Licensed Work, and derivative works
of the Licensed Work, are subject to this License. This License applies
separately for each version of the Licensed Work and the Change Date may vary
for each version of the Licensed Work released by Licensor.
You must conspicuously display this License on each original or modified copy
of the Licensed Work. If you receive the Licensed Work in original or
modified form from a third party, the terms and conditions set forth in this
License apply to your use of that work.
Any use of the Licensed Work in violation of this License will automatically
terminate your rights under this License for the current and all other
versions of the Licensed Work.
This License does not grant you any right in any trademark or logo of
Licensor or its affiliates (provided that you may use a trademark or logo of
Licensor as expressly required by this License).
TO THE EXTENT PERMITTED BY APPLICABLE LAW, THE LICENSED WORK IS PROVIDED ON
AN “AS IS” BASIS. LICENSOR HEREBY DISCLAIMS ALL WARRANTIES AND CONDITIONS,
EXPRESS OR IMPLIED, INCLUDING (WITHOUT LIMITATION) WARRANTIES OF
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, NON-INFRINGEMENT, AND
TITLE.
MariaDB hereby grants you permission to use this License’s text to license
your works, and to refer to it using the trademark “Business Source License”,
as long as you comply with the Covenants of Licensor below.
Covenants of Licensor
In consideration of the right to use this License’s text and the “Business
Source License” name and trademark, Licensor covenants to MariaDB, and to all
other recipients of the licensed work to be provided by Licensor:
1. To specify as the Change License the GPL Version 2.0 or any later version,
or a license that is compatible with GPL Version 2.0 or a later version,
where “compatible” means that software provided under the Change License can
be included in a program with software provided under GPL Version 2.0 or a
later version. Licensor may specify additional Change Licenses without
limitation.
2. To either: (a) specify an additional grant of rights to use that does not
impose any additional restriction on the right granted in this License, as
the Additional Use Grant; or (b) insert the text “None”.
3. To specify a Change Date.
4. Not to modify this License in any other way.
}
unit grp;
interface
uses
initc,unixtype,baseunix,ctypes;
{$IFDEF FPC}
{$PACKRECORDS C}
{$ENDIF}
const
External_library= clib;
_PATH_GROUP = '/etc/group';
Type
PGroup = ^TGroup;
PPGroup = ^PGroup;
TGroup = record
gr_name : pchar;
gr_passwd : pchar;
gr_gid : gid_t;
gr_mem : ppchar;
end;
procedure fpendgrent; cdecl;external External_library name 'endgrent';
function fpgetgrent:pgroup; cdecl;external External_library name 'getgrent';
function fpgetgrgid (id:gid_t):pgroup; cdecl;external External_library name 'getgrgid';
function fpgetgrnam (name:pchar):pgroup; cdecl;external External_library name 'getgrnam';
{$ifdef BSD}
function fpgroup_from_gid (gid:gid_t; nogrup:cint):pchar; cdecl;external External_library name 'group_from_gid';
{$endif}
function fpsetgrent:cint;cdecl;external External_library name 'setgrent';
function fpgetgrgid_r (id:gid_t; grp:Pgroup; buffer:pchar; buffersize:size_t; grresult:PPgroup):cint;cdecl;external External_library name 'getgrgid_r';
function fpgetgrnam_r (nam:pchar; grp:Pgroup; buffer:pchar; buffersize:size_t; grresult:PPgroup):cint;cdecl;external External_library name 'getgrnam_r';
{$ifndef Darwin}
function fpgetgrent_r (grp:Pgroup; buffer:pchar; buffersize:size_t; grresult:PPgroup):cint;cdecl;external External_library name 'getgrent_r';
{$endif}
function fpsetgroupent (stayopen:cint):cint;cdecl;external External_library name 'setgroupent';
{$ifdef Darwin}
procedure fpsetgrfile(name:pchar); cdecl; external external_library name 'setgrfile';
{$endif}
function fpsetgroups(n:size_t;groups:pgid):cint; cdecl; external External_Library name 'setgroups';
function fpgetgrouplist(user:pchar;group:tgid;groups:pgid;ngroups:pcint):cint; cdecl; external External_Library name 'getgrouplist';
function fpinitgroups(user:pchar;group:tgid):cint;cdecl; external External_Library name 'initgroups';
implementation
end.