blob: c50d94cc1e235ed11dcc7393a5701fd08e3fe8bd (
plain)
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
|
unit shadow;
interface
{
Automatically converted by H2Pas 0.99.15 from shadow.h
The following command line parameters were used:
-D
-l
c
-p
-s
-u
shadow
-v
shadow.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;
Pspwd = ^spwd;
spwd = record
sp_namp : pchar;
sp_pwdp : pchar;
sp_lstchg : longint;
sp_min : longint;
sp_max : longint;
sp_warn : longint;
sp_inact : longint;
sp_expire : longint;
sp_flag : longint;
end;
TPasswordFileEntry = spwd;
PPasswordFileEntry = ^TPasswordFileEntry;
procedure setspent;cdecl;external External_library name 'setspent';
procedure endspent;cdecl;external External_library name 'endspent';
function getspent:Pspwd;cdecl;external External_library name 'getspent';
function getspnam(__name:Pchar):Pspwd;cdecl;external External_library name 'getspnam';
function sgetspent(__string:Pchar):Pspwd;cdecl;external External_library name 'sgetspent';
function fgetspent(__stream:PFILE):Pspwd;cdecl;external External_library name 'fgetspent';
function putspent(__p:Pspwd; __stream:PFILE):longint;cdecl;external External_library name 'putspent';
function lckpwdf:longint;cdecl;external External_library name 'lckpwdf';
function ulckpwdf:longint;cdecl;external External_library name 'ulckpwdf';
implementation
end.
|
