summaryrefslogtreecommitdiff
path: root/StepTalkShell/.svn/text-base/stshell_tool.m.svn-base
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-06-17 17:17:32 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-06-17 17:17:32 +0200
commit4aa6da8ed37055e196204a45e3bac32039b395d9 (patch)
tree1490f12d8f80e8623de494d38f66e5961f2c744e /StepTalkShell/.svn/text-base/stshell_tool.m.svn-base
parentd6d73cfbcfd4eae88e53c4c30e221a66daade5e1 (diff)
Build the system as a framework, include the StepTalk Shell for quick testing.
Diffstat (limited to 'StepTalkShell/.svn/text-base/stshell_tool.m.svn-base')
-rw-r--r--StepTalkShell/.svn/text-base/stshell_tool.m.svn-base253
1 files changed, 253 insertions, 0 deletions
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 <urbanek@host.sk>
+ 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 <StepTalk/StepTalk.h>
+
+#import "STShell.h"
+
+#import <Foundation/NSArray.h>
+#import <Foundation/NSAutoreleasePool.h>
+#import <Foundation/NSDebug.h>
+#import <Foundation/NSException.h>
+#import <Foundation/NSProcessInfo.h>
+#import <Foundation/NSString.h>
+
+@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;
+}