mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-15 05:01:36 +01:00
66 lines
2.1 KiB
ObjectPascal
66 lines
2.1 KiB
ObjectPascal
unit grp;
|
|
interface
|
|
|
|
{
|
|
Automatically converted by H2Pas 0.99.15 from grp.h
|
|
The following command line parameters were used:
|
|
-D
|
|
-l
|
|
c
|
|
-p
|
|
-s
|
|
-u
|
|
grp
|
|
-v
|
|
grp.h
|
|
}
|
|
|
|
const
|
|
External_library='c'; {Setup as you need}
|
|
|
|
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
|
|
Type
|
|
PLongint = ^Longint;
|
|
PSmallInt = ^SmallInt;
|
|
PByte = ^Byte;
|
|
PWord = ^Word;
|
|
PDWord = ^DWord;
|
|
PDouble = ^Double;
|
|
|
|
{$PACKRECORDS C}
|
|
|
|
|
|
type
|
|
PFILE = Pointer;
|
|
__gid_t = Longint;
|
|
P__gid_t = ^__gid_t;
|
|
size_t = longint;
|
|
|
|
PGroup = ^group;
|
|
group = record
|
|
gr_name : Pchar;
|
|
gr_passwd : Pchar;
|
|
gr_gid : __gid_t;
|
|
gr_mem : ^Pchar;
|
|
end;
|
|
TGroup = Group;
|
|
PPGROUP = ^PGroup;
|
|
|
|
procedure setgrent;cdecl;external External_library name 'setgrent';
|
|
procedure endgrent;cdecl;external External_library name 'endgrent';
|
|
function getgrent:Pgroup;cdecl;external External_library name 'getgrent';
|
|
function fgetgrent(__stream:PFILE):Pgroup;cdecl;external External_library name 'fgetgrent';
|
|
function getgrgid(__gid:__gid_t):Pgroup;cdecl;external External_library name 'getgrgid';
|
|
function getgrnam(__name:Pchar):Pgroup;cdecl;external External_library name 'getgrnam';
|
|
function getgrgid_r(__gid:__gid_t; __resultbuf:Pgroup; __buffer:Pchar; __buflen:size_t; __result:PPgroup):longint;cdecl;external External_library name 'getgrgid_r';
|
|
function getgrnam_r(__name:Pchar; __resultbuf:Pgroup; __buffer:Pchar; __buflen:size_t; __result:PPgroup):longint;cdecl;external External_library name 'getgrnam_r';
|
|
function fgetgrent_r(__stream:PFILE; __resultbuf:Pgroup; __buffer:Pchar; __buflen:size_t; __result:PPgroup):longint;cdecl;external External_library name 'fgetgrent_r';
|
|
function setgroups(__n:size_t; __groups:P__gid_t):longint;cdecl;external External_library name 'setgroups';
|
|
function getgrouplist(__user:Pchar; __group:__gid_t; __groups:P__gid_t; __ngroups:Plongint):longint;cdecl;external External_library name 'getgrouplist';
|
|
function initgroups(__user:Pchar; __group:__gid_t):longint;cdecl;external External_library name 'initgroups';
|
|
|
|
|
|
implementation
|
|
|
|
end.
|