From 4aa6da8ed37055e196204a45e3bac32039b395d9 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Tue, 17 Jun 2008 17:17:32 +0200 Subject: Build the system as a framework, include the StepTalk Shell for quick testing. --- .../.svn/text-base/stshell_tool.m.svn-base | 253 +++++++++++++++++++++ 1 file changed, 253 insertions(+) create mode 100644 StepTalkShell/.svn/text-base/stshell_tool.m.svn-base (limited to 'StepTalkShell/.svn/text-base/stshell_tool.m.svn-base') diff --git a/StepTalkShell/.svn/text-base/stshell_tool.m.svn-base b/StepTalkShell/.svn/text-base/stshell_tool.m.svn-base new file mode 100644 index 0000000..220f5a0 --- /dev/null +++ b/StepTalkShell/.svn/text-base/stshell_tool.m.svn-base @@ -0,0 +1,253 @@ +/** + stshell + StepTalk Shell + + Copyright (c) 2002 Free Software Foundation + + Written by: Stefan Urbanek + Date: 2002 May 29 + + This file is part of the StepTalk project. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02111, USA. + + */ + +#import + +#import "STShell.h" + +#import +#import +#import +#import +#import +#import + +@interface STShellTool:NSObject +{ + STConversation *conversation; + NSArray *arguments; + unsigned int currentArg; + + NSString *environmentName; + NSString *hostName; + NSString *typeName; + NSString *languageName; + +} +- (int)parseArguments; +- (NSString *)nextArgument; +- (void)reuseArgument; +- (void)run; +- (void)printHelp; +@end + +@implementation STShellTool +- (int)parseArguments +{ + NSString *arg; + BOOL isOption = NO; + + arguments = [[NSProcessInfo processInfo] arguments]; + + [self nextArgument]; + + while( (arg = [self nextArgument]) ) + { + isOption = NO; + if( [arg hasPrefix:@"--"] ) + { + arg = [arg substringFromIndex:2]; + isOption = YES; + } + else if( [arg hasPrefix:@"-"] ) + { + arg = [arg substringFromIndex:1]; + isOption = YES; + } + + if ([@"help" hasPrefix:arg]) + { + [self printHelp]; + return 1; + } + else if ([@"language" hasPrefix:arg]) + { + RELEASE(languageName); + languageName = [self nextArgument]; + if(!languageName) + { + [NSException raise:@"STShellToolException" + format:@"Language name expected"]; + } + } + else if ([@"environment" hasPrefix:arg]) + { + RELEASE(environmentName); + environmentName = [self nextArgument]; + if(!environmentName) + { + [NSException raise:@"STShellToolException" + format:@"Environment name expected"]; + } + } + else if ([@"host" hasPrefix:arg]) + { + RELEASE(hostName); + hostName = [self nextArgument]; + if(!hostName) + { + [NSException raise:@"STShellToolException" + format:@"Host name expected"]; + } + } + else if ([@"type" hasPrefix:arg]) + { + RELEASE(typeName); + typeName = [self nextArgument]; + if(!typeName) + { + [NSException raise:@"STShellToolException" + format:@"Environment description (type) name expected"]; + } + } + else if(!isOption) + { + break; + } + } + + if(arg) + { + [self reuseArgument]; + } + + return 0; +} + +- (NSString *)nextArgument +{ + if(currentArg < [arguments count]) + { + return [arguments objectAtIndex:currentArg++]; + } + + return nil; +} + +- (void)reuseArgument +{ + currentArg--; +} +/* Method taken from stexec.m - look there for updates */ +- (void)createConversation +{ + STEnvironmentDescription *desc; + STEnvironment *environment; + + if(environmentName) + { + /* user wants to connect to a distant environment */ + conversation = [[STRemoteConversation alloc] + initWithEnvironmentName:environmentName + host:hostName + language:languageName]; + if(!conversation) + { + NSLog(@"Unable to connect to %@@%@", environmentName, hostName); + return; + } + } + else + { + /* User wants local temporary environment */ + if(!typeName || [typeName isEqualToString:@""]) + { + environment = [STEnvironment environmentWithDefaultDescription]; + } + else + { + desc = [STEnvironmentDescription descriptionWithName:typeName]; + environment = [STEnvironment environmentWithDescription:desc]; + } + + /* Register basic objects: Environment, Transcript */ + + [environment setObject:environment forName:@"Environment"]; + [environment loadModule:@"SimpleTranscript"]; + [environment setCreatesUnknownObjects:YES]; + + /* FIXME: make this an option */ + [environment setFullScriptingEnabled:YES]; + + conversation = [[STConversation alloc] initWithContext:environment + language:languageName]; + } +} + +- (void)run +{ + STShell *shell; + + [self parseArguments]; + [self createConversation]; + + if(!languageName || [languageName isEqualToString:@""]) + { + languageName = [[STLanguageManager defaultManager] defaultLanguage]; + } + + [conversation setLanguage:languageName]; + + shell = [[STShell alloc] initWithConversation:conversation]; + [shell run]; + + NSDebugLog(@"Exiting StepTalk shell"); +} + +- (void)printHelp +{ + NSProcessInfo *info = [NSProcessInfo processInfo]; + + printf("%s - StepTalk shell\n" + "Usage: %s [options]\n\n" + "Options are:\n" + " -help this text\n" + " -language lang use language lang\n" + " -environment env use scripting environment with name env\n" + " -host host find environment on host\n" + " -type desc use environment description with name 'desc'\n", + [[info processName] cString],[[info processName] cString] + ); +} + +@end + + +int main(int argc, const char **argv) +{ + NSAutoreleasePool *pool; + STShellTool *tool; + + pool = [NSAutoreleasePool new]; + + tool = [[STShellTool alloc] init]; + [tool run]; + + RELEASE(pool); + + return 0; +} -- cgit v1.2.3