Goo::Shell - Create a GooShell The Goo>

package Goo::Shell;

###############################################################################
# Nigel Hamilton
#
# Copyright Nigel Hamilton 2005
# All Rights Reserved
#
# Author:       Nigel Hamilton
# Filename:     Goo::Shell.pm
# Description:  Create a GooShell The Goo>
#
# Date          Change
# -----------------------------------------------------------------------------
# 23/08/2005    Auto generated file
# 23/08/2005    Wanted to do filename completion for "Things"
# 23/08/2005    Added method: X
# 23/08/2005    Deleted method: X
#
###############################################################################

use strict;

use Goo;
use Goo::Loader;
use Goo::Prompter;
use Goo::TypeManager;


###############################################################################
#
# do - run the shell in an interactive loop
#
###############################################################################

sub do {

	# say hello!
    Goo::Prompter::say();
    Goo::Prompter::yell("Welcome to The Goo");
    Goo::Prompter::say();

    while (1) {

        my $command = Goo::Prompter::prompt("The Goo");

        my ($arg1, $arg2) = split(/\s+/, $command);

        next unless ($arg1);

        exit if ($arg1 =~ /exit|bye|quit/i);

        if ($arg1 =~ /(z|zone)/i) {

			my $zone_thing = Goo::Loader::load("tail.trail");

			# show a profile of the tail of the trail
			$zone_thing->do_action("P");

        } elsif (Goo::TypeManager::is_valid_thing($arg2)) {

			my $thing = Goo::Loader::load($arg2);

			if ($thing->isa("Goo::Thing")) {
				$thing->do_action($arg1);
			}

        } else {

            # shell command - do it!
            system("$command");

        }

    }

}


1;


__END__