paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed uses netware from winsock, DirectoryExists implemented

Browse Source
This commit is contained in:
armin 2003-03-30 12:35:43 +00:00
parent cd45f6fd76
commit 4aeca0f382
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/netware/sysutils.pp
View File

@ -408,7 +408,12 @@ end;
function DirectoryExists (const Directory: string): boolean;
VAR Info : NWStatBufT;
begin
If _stat (pchar(Directory),Info) <> 0 then
exit(false)
else
Exit ((Info.st_attr and faDirectory) <> 0);
end;
@ -492,7 +497,10 @@ end.
{
$Log$
Revision 1.9 2003-03-29 15:16:26 hajny
Revision 1.10 2003-03-30 12:35:43 armin
* removed uses netware from winsock, DirectoryExists implemented
Revision 1.9 2003/03/29 15:16:26 hajny
* dummy DirectoryExists added
Revision 1.8 2003/02/15 19:12:54 armin

8
rtl/netware/winsock.pp
View File

@ -38,9 +38,6 @@ unit winsock;
interface
uses
netware;
const
{
Default maximium number of sockets.
@ -2434,7 +2431,10 @@ finalization
end.
{
$Log$
Revision 1.1 2003-03-25 18:17:54 armin
Revision 1.2 2003-03-30 12:35:43 armin
* removed uses netware from winsock, DirectoryExists implemented
Revision 1.1 2003/03/25 18:17:54 armin
* support for fcl, support for linking without debug info
* renamed winsock2 to winsock for win32 compatinility
* new sockets unit for netware