src/plugins/asymptote/bin/perl-tm_asy

   1 #!/usr/bin/perl
   2 #
   3 #==============================================================================
   4 # MODULE     : perl-tm_asy
   5 # COPYRIGHT  : (C) Yann Dirson <ydirson at altern dot org>.
   6 #==============================================================================
   7 #
   8 # This software falls under the GNU general public license version 3 or later.
   9 # It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
  10 # in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
  11 #
  12 ###############################################################################
  13
  14 use strict;
  15 use warnings;
  16
  17 my $VERSION = "0.1";
  18
  19 use constant {
  20   DATA_BEGIN  =>  "\x{2}",
  21   DATA_END    =>  "\x{5}",
  22   DATA_ESCAPE => "\x{1B}",
  23 };
  24
  25 ####
  26
  27 open (OUTPUT, ">&STDOUT");
  28
  29 sub output($) {
  30   my ($str) = @_;
  31   print OUTPUT DATA_BEGIN, 'verbatim:', $str, DATA_END;
  32   OUTPUT->flush;
  33 }
  34
  35 sub psoutput($) {
  36   my ($str) = @_;
  37   output ("ps:$str");
  38 }
  39