gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-04-23 00:41:02 +00:00
Code Issues Projects Releases Packages Wiki Activity

([Connection -registerName:]): New method.

Browse source 
([Connection +newForInPort:outPort:ancestorConnection:]): Ask the
delegate for permission to create the new connection.  We were already
doing it GNUstep-style.  Do it OpenStep-style also.


git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@2283 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Andrew McCallum 1997-05-03 16:30:07 +00:00
parent e49c1601ba
commit d27406e315
1 changed files with 26 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
Source/Connection.m
View file

@ -343,6 +343,17 @@ static int messages_received_count;
return newRemote;
}
/* xxx This method is an anomaly, just until we get a proper name
server for port objects. Richard Frith-MacDonald is working on a
name server. */
- (BOOL) registerName: (NSString*)name
{
id old_in_port = in_port;
in_port = [default_in_port_class newForReceivingFromRegisteredName: name];
[old_in_port release];
return YES;
}
/* This is the designated initializer for Connection */
@ -444,9 +455,21 @@ static int messages_received_count;
newConn->reply_depth = 0;
newConn->delegate = nil;
/* Here ask the delegate for permission. */
/* delegate is responsible for freeing newConn if it returns something
different. */
/* Here ask the delegate for permission, (once OpenStep-style, once
GNUstep-style). */
/* Here is the OpenStep version, which just allows the returning of BOOL */
if ([[ancestor delegate] respondsTo:@selector(makeNewConnection:sender:)])
{
if (![[ancestor delegate] makeNewConnection: newConn
sender: [ancestor delegate]])
{
[newConn release];
return nil;
}
}
/* Here is the GNUstep version, which allows the delegate to specify
a substitute. Note: The delegate is responsible for freeing
newConn if it returns something different. */
if ([[ancestor delegate] respondsTo:@selector(connection:didConnect:)])
newConn = [[ancestor delegate] connection:ancestor
didConnect:newConn];