Browse Source

* some 1.9.x fixes

marco 21 years ago
parent
commit
5fac440240
2 changed files with 4 additions and 4 deletions
  1. 1 1
      docs/sockex/sockcli.pp
  2. 3 3
      docs/sockex/socksvr.pp

+ 1 - 1
docs/sockex/sockcli.pp

@@ -6,7 +6,7 @@ Program Client;
   sock_cli to connect to that socket
 } 
 
-uses Sockets,Linux;
+uses Sockets,BaseUnix;
         
 procedure PError(const S : string);
 begin

+ 3 - 3
docs/sockex/socksvr.pp

@@ -6,7 +6,7 @@ Program server;
   sock_cli to connect to that socket
 } 
 
-uses Linux,Sockets;
+uses BaseUnix,Sockets;
 const
   SPath='ServerSoc';
   
@@ -28,7 +28,7 @@ begin
   S:=Socket (AF_UNIX,SOCK_STREAM,0);
   if SocketError<>0 then 
    Perror ('Server : Socket : ');
-  UnLink(SPath);
+  fpUnLink(SPath);
   if not Bind(S,SPath) then
    PError ('Server : Bind : ');
   if not Listen (S,1) then
@@ -45,5 +45,5 @@ begin
      Readln(Sin,Buffer);
      Writeln('Server : read : ',buffer);
    end;
-  Unlink(SPath);    
+  FPUnlink(SPath);    
 end.