# Console::Virtual.pm - unbuffered-input/addressed-display layer
# v2007.1122 Chris Pressey, Cat's Eye Technologies

# Copyright (c)2003-2007, Chris Pressey, Cat's Eye Technologies.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
#
#  1. Redistributions of source code must retain the above copyright
#     notices, this list of conditions and the following disclaimer.
#  2. Redistributions in binary form must reproduce the above copyright
#     notices, this list of conditions, and the following disclaimer in
#     the documentation and/or other materials provided with the
#     distribution.
#  3. Neither the names of the copyright holders nor the names of their
#     contributors may be used to endorse or promote products derived
#     from this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES INCLUDING, BUT NOT
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
# FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE
# COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
# BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.

package Console::Virtual;
BEGIN
{
  use 5;
  use strict qw(subs);
  use Exporter;
  $VERSION = 2007.1122;
  @ISA = qw(Exporter);
  @EXPORT_OK = qw(&display &clrscr &clreol &gotoxy
                  &bold &inverse &normal
                  &update_display &getkey &color);
}

%setup = ();

BEGIN
{
  my $c;
  my $fc = 0;  # found Curses.pm?
  my $fs = 0;  # found Term::Screen?
  my $fp = 0;  # found POSIX.pm?
  my $ft = 0;  # found $TERM and /etc/termcap?
  foreach $c (@INC)
  {
    $fc = 1 if -r "$c/Curses.pm";
    $fs = 1 if -r "$c/Term/Screen.pm";
    $fp = 1 if -r "$c/POSIX.pm";
  }
  $ft = $ENV{TERM} && -r "/etc/termcap";
  $| = 1;

  # Determine raw input module to use.
  # This can be pre-set by the calling code
  # by modifying %Console::Virtual::setup.

  if (defined $setup{input})
  {
    require "Console/Input/$setup{input}.pm";
  }
  elsif ($fc)
  {
    require Console::Input::Curses;
    $setup{input} = 'Curses';
  }
  elsif ($^O eq 'MSWin32')
  {
    require Console::Input::Win32;
    $setup{input} = 'Win32';
  }
  elsif ($fs)
  {
    require Console::Input::Screen;
    $setup{input} = 'Screen';
  }
  elsif ($fp)
  {
    require Console::Input::POSIX;
    $setup{input} = 'POSIX';
  } else
  {
    warn "Warning! Raw input probably not available on this '$^O' system.\n";
    require Console::Input::Teletype;
    $setup{input} = 'Teletype';
  }

  # Determine screen-addressed output method to use.
  # This can be pre-set by the calling code
  # by modifying %Console::Virtual::setup.

  if (defined $setup{display})
  {
    require "Console/Display/$setup{display}.pm";
  }
  elsif ($fc)
  {
    require Console::Display::Curses;
    $setup{display} = 'Curses';
  }
  elsif ($^O eq 'MSWin32')
  {
    require Console::Display::Win32;
    $setup{display} = 'Win32';
  }
  elsif ($fs)
  {
    require Console::Display::Screen;
    $setup{display} = 'Screen';
  }
  elsif ($ft)
  {
    require Console::Display::Tput;
    $setup{display} = 'Tput';
  } else
  {
    warn "Addressable screen must be emulated on this '$^O' system";
    require Console::Display::Teletype;
    $setup{display} = 'Teletype';
  }

  # 2001.01.27 CAP
  # Determine color module to use.
  # This can be pre-set by the calling code
  # by modifying %Console::Virtual::setup.

  if (defined $setup{color})
  {
    require "Console/Color/$setup{color}.pm";
  }
  elsif ($fc)
  {
    require Console::Color::Curses;
    $setup{color} = 'Curses';
  }
  elsif ($^O eq 'MSWin32')
  {
    require Console::Color::Win32;
    $setup{color} = 'Win32';
  }
  elsif ($fs)
  {
    # require Console::Color::Screen;  # TODO! needs to be written
    require Console::Color::ANSI16;    # not a very general solution
    $setup{color} = 'ANSI16';
  }
  else
  {
    require Console::Color::Mono;
    $setup{color} = 'Mono';
  }
}

1;

### END of Virtual.pm ###