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. --- StepTalkShell/.svn/text-base/STShell.m.svn-base | 404 ++++++++++++++++++++++++ 1 file changed, 404 insertions(+) create mode 100644 StepTalkShell/.svn/text-base/STShell.m.svn-base (limited to 'StepTalkShell/.svn/text-base/STShell.m.svn-base') diff --git a/StepTalkShell/.svn/text-base/STShell.m.svn-base b/StepTalkShell/.svn/text-base/STShell.m.svn-base new file mode 100644 index 0000000..57c2120 --- /dev/null +++ b/StepTalkShell/.svn/text-base/STShell.m.svn-base @@ -0,0 +1,404 @@ +/** + 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 "STShell.h" + +#import + +#import +#import +#import +#import +#import +#import +#import +#import +#import + +#include + +static Class NSString_class; +static Class NSNumber_class; + +NSArray *objcSelectors = nil; + +static STShell *sharedShell = nil; + +@interface STShell(STPrivateMethods) +- (int) completion; +- (NSString *)readLine; +- (void)initReadline; +@end + +int complete_handler(void) +{ + return [sharedShell completion]; +} + +@implementation STShell + ++ (void)initialize +{ + NSString_class = [NSString class]; + NSNumber_class = [NSNumber class]; +} + ++ sharedShell +{ + return sharedShell; +} + +- initWithConversation:(STConversation *)conv +{ + self = [super init]; + + [self initReadline]; + + objectStack = [[NSMutableArray alloc] init]; + + [[NSNotificationCenter defaultCenter] + addObserver:self + selector:@selector(bundleLoaded:) + name:NSBundleDidLoadNotification + object:nil]; + + scriptsManager = RETAIN([STScriptsManager defaultManager]); + prompt = @"StepTalk > "; + + conversation = RETAIN(conv); + + /* FIXME: make this more clever for completion handler */ + if(!sharedShell) + { + sharedShell = self; + } + + return self; +} + +- (void)updateCompletionList +{ + NSMutableArray *array = [[NSMutableArray alloc] init]; + RELEASE(completionList); + + [array addObjectsFromArray:STAllObjectiveCSelectors()]; + + completionList = [[NSArray alloc] initWithArray:array]; + + updateCompletionList = NO; +} + +- (void)dealloc +{ + RELEASE(objectStack); + RELEASE(completionList); + RELEASE(scriptsManager); + RELEASE(conversation); + + [[NSNotificationCenter defaultCenter] removeObserver:self]; + + [super dealloc]; +} +-(void)bundleLoaded:(NSNotification *)notif +{ + updateCompletionList = YES; +} + +- (void)initReadline +{ + rl_initialize(); + rl_bind_key('\t', complete_handler); +} + +- (void)setLanguage:(NSString *)langName +{ + NSDebugLog(@"Setting language to %@", langName); + + [conversation setLanguage:langName]; +} + +- (void)setEnvironment:(STEnvironment *)newEnv +{ + [conversation setEnvironment:newEnv]; +} + +- (STEnvironment *)environment +{ + return [conversation context]; +} + +- (void)run +{ + STEnvironment *env; + NSString *line; + id result; + + [self showLine:@"Welcome to the StepTalk shell."]; + + // NSLog(@"Environment %@", env); + + if(![conversation isKindOfClass:[STRemoteConversation class]]) + { + completionEnabled = YES; + } + else + { + [self showLine:@"Note: Completion disabled for distant conversation"]; + } + + while(1) + { + line = [self readLine]; + + if(exitRequest) + break; + + if(!line) + continue; + + result = [self executeLine:line]; + + if(result) + { + if(result != objectStack) + { + [objectStack addObject:result]; + } + [self showResult:result]; + } + else + { + [self showResult:result]; + } + + } + printf("\n"); +} +- (id)executeLine:(NSString *)line +{ + NSString *cmd; + id result = nil; + + /* FIXME: why? */ + + cmd = [line stringByAppendingString:@" "]; + NS_DURING + [conversation interpretScript:cmd]; + result = [conversation result]; + NS_HANDLER + [self showException:localException]; + NS_ENDHANDLER + + return result; +} + +- (NSString *)readLine +{ + char *str; + NSString *actualPrompt = prompt; + NSString *line = @""; + BOOL done = NO; + int len; + + while(!done) + { + str = readline([actualPrompt cString]); + done = YES; + + if(!str) + { + exitRequest = YES; + return nil; + } + + len = strlen(str); + if(!len) + return nil; + + if(str[len-1] == '\\') + { + actualPrompt = @"... ? "; + str[strlen(str) - 1] = '\0'; + done = NO; + } + + line = [line stringByAppendingString:[NSString stringWithCString:str]]; + } + + add_history([line cString]); + + return line; +} + +- (int)completion +{ + STEnvironment *env; + NSEnumerator *enumerator; + NSMutableSet *set; + NSString *match; + NSString *tail; + NSString *str; + NSArray *array; + int pos = 0; + int c; + + if(!completionEnabled) + { + return 0; + } + + if(rl_point <= 0) + { + return 0; + } + + pos = rl_point - 1; + c = rl_line_buffer[pos]; + + while((isalnum(c) || c == '_') && pos >= 0) + { + pos--; + c = rl_line_buffer[pos]; + } + pos++; + + match = [NSString stringWithCString:rl_line_buffer + pos + length:rl_point - pos]; + + set = [NSMutableSet set]; + + if(!completionList || updateCompletionList) + { + [self updateCompletionList]; + } + + enumerator = [completionList objectEnumerator]; + while( (str = [enumerator nextObject]) ) + { + if( [str hasPrefix:match] ) + { + [set addObject:str]; + } + } + + env = [conversation context]; + enumerator = [[env knownObjectNames] objectEnumerator]; + while( (str = [enumerator nextObject]) ) + { + if( [str hasPrefix:match] ) + { + [set addObject:str]; + } + } + + array = [set allObjects]; + + if( [array count] == 0 ) + { + printf("\nNo match for completion.\n"); + rl_forced_update_display(); + } + else if ( [array count] == 1 ) + { + str = [array objectAtIndex:0]; + str = [str substringFromIndex:rl_point - pos]; + rl_insert_text([str cString]); + rl_insert_text(" "); + + rl_redisplay(); + } + else + { + enumerator = [array objectEnumerator]; + + tail = [enumerator nextObject]; + + while( (str = [enumerator nextObject]) ) + { + tail = [str commonPrefixWithString:tail options:NSLiteralSearch]; + } + + tail = [tail substringFromIndex:[match length]]; + + if( tail && ![tail isEqualToString:@""] ) + { + rl_insert_text([tail cString]); + rl_redisplay(); + } + else + { + printf("\n"); + enumerator = [array objectEnumerator]; + while( (str = [enumerator nextObject]) ) + { + printf("%s\n", [str cString]); + } + rl_forced_update_display(); + } + } + + + return 0; +} + +- (void)exit +{ + /* FIXME: this is not nice */ + exit(0); +} + +- (id)executeScriptNamed:(NSString *)scriptName +{ + STScript *script = [scriptsManager scriptWithName:scriptName]; + id result = nil; + + if(!script) + { + [self showError:[NSString stringWithFormat: + @"Unable to find script with name '%@'", + scriptName]]; + } + else + { + NS_DURING + result = [conversation runScriptFromString:[script source]]; + NS_HANDLER + [self showException:localException]; + NS_ENDHANDLER + } + + return result; +} +- (void)setPrompt:(NSString *)aString +{ + ASSIGN(prompt, aString); +} +- (NSString *)prompt +{ + return prompt; +} +@end -- cgit v1.2.3