head

This module essentially just creates a hash of escape sequences for doing various
things, along with a few exported sub-routines to make interacting with this hash
a bit nicer.



use File::Which;

our %human-command-names;
our %human-commands;
our %tput-commands;

our @fg_colors = [ <black red green yellow blue magenta cyan white default> ];
our @bg_colors = [ <on_black on_red on_green on_yellow on_blue on_magenta on_cyan on_white on_default> ];
our @styles    = [ <reset bold underline inverse> ];

subset Terminal::Print::CursorProfile is export where * ~~ / ^('ansi' | 'universal')$ /;

# we can add more, but there is a qq:x call so whitelist is the way to go.

constant @valid-terminals = < xterm xterm-256color vt100 linux screen screen-256color rxvt
                              screen.xterm-256color tmux tmux-256color xterm-kitty rxvt-unicode-256color st-256color>;

class X::TputCapaMissing is Exception
{
	has Str $.term;
	has Str $.capa;
	method message() { "Tried to use an undefined capability '$.capa' of the terminal type '$.term'." }
}

my %tput-cache;
BEGIN {
    die 'Cannot use Terminal::Print without `tput` (usually provided by `ncurses`)'
        unless which('tput');

    my @caps = << clear smcup rmcup sc rc civis cnorm "cup 13 13" "ech 1" >>;

    sub query-cap(Str $term, Str $cap)
    {
	    my $proc = run 'tput', '-T', $term, $cap, :out;
	    return $proc.out.slurp if $proc.exitcode == 0;
	    return query-cap($term, "clear") if $cap ~~ /^ <[sr]>mcup $/;
	    # TODO: Replace the -1 with a Failure.new(...) once the compiler can cope with it correctly.
	    -1; # We use the "-1" as a poor man's Failure (we die whenever we try to use it)
    }

    for @valid-terminals -> $term {
        for @caps -> $cap {
            %tput-cache{$term}{$cap.words[0]} = query-cap($term, $cap.words[0]);
        }
    }
}

my $term = %*ENV<TERM> || 'xterm';
die "Please update @valid-terminals with your desired TERM ('$term', is it?) and submit a PR if it works" unless %tput-cache{$term}:exists;
my %cached = %tput-cache{$term};

my Str sub ansi( Int() $x,  Int() $y ) {
    "\e[{$y+1};{$x+1}H";
}

my $raw = %cached<cup>;
$raw ~~ /^ (.*?) (\d+) (\D+) (\d+) (\D+) $/
    or warn "universal mode must have access to tput";

my ($pre, $mid, $post) = $0, $2, $4;

my Str sub universal( Int() $x, Int() $y ) {
    $pre ~ ($y + 1) ~ $mid ~ ($x + 1) ~ $post;
}

%human-command-names = %(
    'clear'              => 'clear',
    'save-screen'        => 'smcup',
    'restore-screen'     => 'rmcup',
    'pos-cursor-save'    => 'sc',
    'pos-cursor-restore' => 'rc',
    'hide-cursor'        => 'civis',
    'show-cursor'        => 'cnorm',
    'move-cursor'        => 'cup',
    'erase-char'         => 'ech',
);

for %human-command-names.kv -> $human,$command {
    given $human {
        when 'move-cursor'  {
            %tput-commands{$command} = %( :&ansi, :&universal );
        }
        default             {
            %tput-commands{$command} = %cached{$command};
        }
    }
    %human-commands{$human} = %tput-commands{$command};
}

sub columns is export { q:x{ tput cols  } .chomp.Int }
sub rows    is export { q:x{ tput lines } .chomp.Int }

sub move-cursor-template( Terminal::Print::CursorProfile $profile = 'ansi' ) returns Code is export {
    $profile eq 'ansi' ?? &ansi !! &universal
}

sub move-cursor( Int $x, Int $y, Terminal::Print::CursorProfile $profile = 'ansi' ) is export {
    ($profile eq 'ansi' ?? &ansi !! &universal)( $x, $y )
}

sub tput( Str $command ) is export {
    die "Not a supported (or perhaps even valid) tput command"
        unless %tput-commands{$command};

    die X::TputCapaMissing.new(term => $term, capa => $command) if %tput-commands{$command} ~~ -1;
    %tput-commands{$command};
}

sub print-command($command, Terminal::Print::CursorProfile $profile = 'ansi') is export {
    die X::TputCapaMissing.new(term => $term, capa => %human-command-names{$command}) if %human-commands{$command} ~~ -1;
    if $profile eq 'debug' {
        return %human-commands{$command}.comb.join(' ');
    } else {
        print %human-commands{$command};
    }
}

CATCH
{
	when X::TputCapaMissing
	{
		# If we're just dying because of a missing capa, we need to clean up as much as we can
		# (with some other capa's potentially missing) and ensure that the error message is not cleared.
		my ($clear, $rmcup, $cnorm) = tput("clear"), tput("rmcup"), tput("cnorm");
		print $clear if $clear !~~ -1; 
		print $rmcup if $rmcup !~~ -1;
		print $cnorm if $cnorm !~~ -1;

		.rethrow; # we cleared the screen meanwhile, so we print the exception again
	}
}

}


root

README

Print

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Commands

Synopsis

Terminal::Print v0.973

Authors

License

Dependencies

Test Dependencies

Provides

Documentation