gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-05-31 08:41:03 +00:00
Code Issues Projects Releases Packages Wiki Activity

New trivial test program

Browse source 
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@13845 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Richard Frith-Macdonald 2002-06-12 11:14:04 +00:00
parent 5d4732c55d
commit e84e53edb4
2 changed files with 147 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Testing/GNUmakefile
View file

@ -38,6 +38,7 @@ TEST_TOOL_NAME = \
awake \ awake \
basic \ basic \
benchmark \ benchmark \
call \
containers \ containers \
create-abbrevs \ create-abbrevs \
create-regions \ create-regions \
@ -78,6 +79,7 @@ TEST_TOOL_NAME = \
awake_OBJC_FILES = awake.m awake_OBJC_FILES = awake.m
basic_OBJC_FILES = basic.m basic_OBJC_FILES = basic.m
benchmark_OBJC_FILES = benchmark.m benchmark_OBJC_FILES = benchmark.m
call_OBJC_FILES = call.m
containers_OBJC_FILES = containers.m containers_OBJC_FILES = containers.m
create-abbrevs_OBJC_FILES = create-abbrevs.m create-abbrevs_OBJC_FILES = create-abbrevs.m
create-regions_OBJC_FILES = create-regions.m create-regions_OBJC_FILES = create-regions.m

145
Testing/call.m Normal file
View file

@ -0,0 +1,145 @@
/* call - Program to test NSFileHandle TCP/IP connection.
Copyright (C) 2002 Free Software Foundation, Inc.
Written by: Richard Frith-Macdonald <rfm@gnu.org>
Date: Jun 2002
This file is part of the GNUstep Base Library.
*/
#include <Foundation/Foundation.h>
@interface Call : NSObject
{
NSFileHandle *ichan;
NSFileHandle *ochan;
NSFileHandle *remote;
}
- (void) didRead: (NSNotification*)notification;
- (void) didWrite: (NSNotification*)notification;
@end
@implementation Call
- (void) dealloc
{
RELEASE(ichan);
RELEASE(ochan);
RELEASE(remote);
[super dealloc];
}
- (void) didRead: (NSNotification*)notification
{
NSDictionary *userInfo = [notification userInfo];
NSFileHandle *object = [notification object];
NSData *d;
d = [userInfo objectForKey: NSFileHandleNotificationDataItem];
if (d == nil || [d length] == 0)
{
NSLog(@"Read EOF");
exit(0);
}
else
{
if (object == ichan)
{
[remote writeInBackgroundAndNotify: d];
[ichan readInBackgroundAndNotify];
}
else
{
[ochan writeInBackgroundAndNotify: d];
[remote readInBackgroundAndNotify];
}
}
}
- (void) didWrite: (NSNotification*)notification
{
NSDictionary *userInfo = [notification userInfo];
NSString *e;
e = [userInfo objectForKey: GSFileHandleNotificationError];
if (e)
{
NSLog(@"%@", e);
exit(0);
}
}
- (id) init
{
NSArray *args = [[NSProcessInfo processInfo] arguments];
NSString *host = @"localhost";
NSString *service = @"telnet";
NSString *protocol = @"tcp";
if ([args count] > 1)
{
host = [args objectAtIndex: 1];
if ([args count] > 2)
{
service = [args objectAtIndex: 2];
if ([args count] > 3)
{
protocol = [args objectAtIndex: 3];
}
}
}
ichan = RETAIN([NSFileHandle fileHandleWithStandardInput]);
ochan = RETAIN([NSFileHandle fileHandleWithStandardOutput]);
remote = RETAIN([NSFileHandle fileHandleAsClientAtAddress:
host service: service protocol: protocol]);
if (remote == nil)
{
NSLog(@"Failed to create connection");
DESTROY(self);
}
else
{
NSNotificationCenter *nc = [NSNotificationCenter defaultCenter];
[nc addObserver: self
selector: @selector(didRead:)
name: NSFileHandleReadCompletionNotification
object: (id)ichan];
[nc addObserver: self
selector: @selector(didWrite:)
name: GSFileHandleWriteCompletionNotification
object: (id)ochan];
[nc addObserver: self
selector: @selector(didRead:)
name: NSFileHandleReadCompletionNotification
object: (id)remote];
[nc addObserver: self
selector: @selector(didWrite:)
name: GSFileHandleWriteCompletionNotification
object: (id)remote];
[remote readInBackgroundAndNotify];
[ichan readInBackgroundAndNotify];
}
return self;
}
@end
int
main()
{
Call *console;
CREATE_AUTORELEASE_POOL(arp);
console = [Call new];
RELEASE(arp);
[[NSRunLoop currentRunLoop] run];
RELEASE(console);
return 0;
}