#!/usr/bin/perl
#
#==============================================================================
# MODULE     : perl-tm_asy
# COPYRIGHT  : (C) Yann Dirson <ydirson at altern dot org>.
#==============================================================================
#
# This software falls under the GNU general public license version 3 or later.
# It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
# in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
#
###############################################################################

use strict;
use warnings;

my $VERSION = "0.1";

use constant {
  DATA_BEGIN  =>  "\x{2}",
  DATA_END    =>  "\x{5}",
  DATA_ESCAPE => "\x{1B}",
};

####

open (OUTPUT, ">&STDOUT");

sub output($) {
  my ($str) = @_;
  print OUTPUT DATA_BEGIN, 'verbatim:', $str, DATA_END;
  OUTPUT->flush;
}

sub psoutput($) {
  my ($str) = @_;
  output ("ps:$str");
}
