#import "STEnvironmentProcess.h"

#import <Foundation/NSString.h>
#import <StepTalk/STEnvironment.h>
#import <StepTalk/STEnvironmentDescription.h>

@implementation STEnvironmentProcess
- initWithDescriptionName:(NSString *)descName
{
    if ((self = [super init]) != nil)
    {
        STEnvironmentDescription *desc;

        if (descName)
        {
            NSLog(@"Creating environment from description '%@'", descName);
            desc = [STEnvironmentDescription descriptionWithName:descName];
            environment = [[STEnvironment alloc] initWithDescription:desc];
        }
        else
        {
            environment = [[STEnvironment alloc] initWithDefaultDescription];
        }

        /* FIXME: use some configurable mechanism */
        [environment setObject:environment forName:@"Environment"];
        [environment loadModule:@"SimpleTranscript"];
    }
    return self;
}
- (void)dealloc
{
    RELEASE(environment);
    [super dealloc];
}
- (STConversation *)createConversation
{
    STConversation *conversation;
    
    conversation = [[STConversation alloc] initWithContext:environment
                                                  language:nil];
    /* FIXME: create list of open conversations */
    
    return AUTORELEASE(conversation);
}
@end