Result:
found more than 465 distributions - search limited to the first 2001 files matching your query
( run in 1.107 )
Astro-FITS-HdrTrans
view release on metacpan or search on metacpan
lib/Astro/FITS/HdrTrans/FITS.pm view on Meta::CPAN
This determines the angle, in decimal degrees, of the declination or
latitude axis with respect to the second axis of the data array, measured
in the anticlockwise direction.
It first looks for the linear-transformation CD matrix, widely used
including by IRAF and the precursor to the PC matrix. If this is
absent, the routine attempts to find the standard transformation
matrix PC defined in the FITS WCS Standard. Either matrix is
converted into a single rotation angle.
In the absence of a PC matrix it looks for the CROTA2 keyword from the
Async-Redis
view release on metacpan or search on metacpan
examples/pagi-chat/lib/ChatApp/State.pm view on Meta::CPAN
async sub get_session_by_name {
my ($name) = @_;
# Scan for session with this name (not efficient, but works for demo)
my $cursor = "0";
do {
my $result = await $redis->scan($cursor, MATCH => 'session:*', COUNT => 100);
$cursor = $result->[0];
my $keys = $result->[1] // [];
for my $key (@$keys) {
my $session = await $redis->hgetall($key);
if ($session && $session->{name} eq $name && $session->{connected}) {
$session->{rooms} = $session->{rooms} ? $JSON->decode($session->{rooms}) : {};
return $session;
}
}
} while ($cursor && $cursor ne "0");
return;
}
async sub create_session {
At
view release on metacpan or search on metacpan
lib/At/Protocol/DID.pm view on Meta::CPAN
=head2 C<ensureValidDidRegex( ... )>
ensureValidDidRegex( 'did:method::nope' );
Validates a DID with cursory regex provided by the AT protocol designers. Throws errors on failure and returns a true
value on success.
=head1 See Also
L<https://atproto.com/specs/did>
AtteanX-Endpoint
view release on metacpan or search on metacpan
share/endpoint/www/css/docs.css view on Meta::CPAN
bottom: 4px;
}
a:link, a:visited, .quasilink {
color: #df0019;
cursor: pointer;
text-decoration: none;
}
a:hover, .quasilink:hover {
color: #800004;
AtteanX-Store-LMDB
view release on metacpan or search on metacpan
lib/AtteanX/Store/LMDB.pm view on Meta::CPAN
package AtteanX::Store::LMDB {
our $VERSION = '0.001';
use Moo;
use Type::Tiny::Role;
use Types::Standard qw(Bool Str InstanceOf HashRef);
use LMDB_File qw(:flags :cursor_op);
use Digest::SHA qw(sha256 sha256_hex);
use Scalar::Util qw(refaddr reftype blessed);
use Math::Cartesian::Product;
use List::Util qw(any all first);
use File::Path qw(make_path);
lib/AtteanX/Store/LMDB.pm view on Meta::CPAN
sub iterate_database {
my $self = shift;
my $db = shift;
my $handler = shift;
my $cursor = $db->Cursor;
eval {
local($LMDB_File::die_on_err) = 0;
my ($key, $value);
unless ($cursor->get($key, $value, MDB_FIRST)) {
while (1) {
$handler->($key, $value);
last if $cursor->get($key, $value, MDB_NEXT);
}
}
};
}
lib/AtteanX/Store/LMDB.pm view on Meta::CPAN
my $self = shift;
my $db = shift;
my $from = shift;
my $to = shift;
my $handler = shift;
my $cursor = $db->Cursor;
eval {
local($LMDB_File::die_on_err) = 0;
my $key = $from;
my $value;
unless ($cursor->get($key, $value, MDB_SET_RANGE)) {
while (1) {
use bytes;
my $c = $key cmp $to;
last if ($c >= 0);
$handler->($key, $value);
last if $cursor->get($key, $value, MDB_NEXT);
}
}
};
}
lib/AtteanX/Store/LMDB.pm view on Meta::CPAN
my $graphs_dbi = $txn->open('graphs');
my $quads_dbi = $txn->open('quads');
my $stats_dbi = $txn->open('stats');
$txn->put($quads_dbi, $qid, $qids);
my $graphs_cursor = $graphs->Cursor;
my $key = $gid;
my $empty = '';
eval {
local($LMDB_File::die_on_err) = 0;
if (my $err = $graphs_cursor->get($key, $empty, MDB_SET_RANGE)) {
$graphs_cursor->put($gid, $empty);
} else {
if ($key ne $gid) {
$graphs_cursor->put($gid, $empty);
}
}
};
$self->_add_quad_to_indexes($qid, \@ids, $txn);
lib/AtteanX/Store/LMDB.pm view on Meta::CPAN
}
unless (all { defined($_) } @remove_ids) {
return;
}
my $cursor = $quads->Cursor;
my ($key, $value);
eval {
local($LMDB_File::die_on_err) = 0;
unless ($cursor->get($key, $value, MDB_FIRST)) {
QUAD: while (1) {
my $qid = unpack('Q>', $key);
my (@ids) = unpack('Q>4', $value);
if ($ids[0] == $remove_ids[0] and $ids[1] == $remove_ids[1] and $ids[2] == $remove_ids[2] and $ids[3] == $remove_ids[3]) {
my $g = $ids[3];
$self->_remove_quad_to_indexes($qid, \@ids, $txn);
$cursor->del();
unless ($self->_graph_id_exists_with_txn($txn, $quads, $t2i, $g)) {
# no more quads with this graph, so delete it from the graphs table
my $graphs_cursor = $graphs->Cursor;
my $gid = pack('Q>', $g);
my $key = $gid;
my $empty = '';
unless ($graphs_cursor->get($key, $empty, MDB_SET_RANGE)) {
if ($gid eq $key) {
$graphs_cursor->del();
}
}
}
$txn->commit();
return;
}
} continue {
last if $cursor->get($key, $value, MDB_NEXT);
}
}
};
}
lib/AtteanX/Store/LMDB.pm view on Meta::CPAN
$self->add_quad($q);
}
}
if ($BULK_LOAD) {
my $empty = '';
my $graphs_cursor = $graphs_dbi->Cursor;
foreach my $gid (values %graphs) {
my $key = $gid;
eval {
local($LMDB_File::die_on_err) = 0;
if (my $err = $graphs_cursor->get($key, $empty, MDB_SET_RANGE)) {
$graphs_cursor->put($gid, $empty);
} else {
if ($key ne $gid) {
$graphs_cursor->put($gid, $empty);
}
}
};
}
$txn->put($stats_dbi, $next_quad, pack('Q>', $next));
Audio-Nama
view release on metacpan or search on metacpan
lib/Audio/Nama/Entry.pm view on Meta::CPAN
Delete one word forwards
=item * End or Ctrl-E
Move the cursor to the end of the input line
=item * Enter
Accept a line of input by running the C<on_enter> action
=item * Home or Ctrl-A
Move the cursor to the beginning of the input line
=item * Insert
Toggle between overwrite and insert mode
=item * Left
Move the cursor one character left
=item * Ctrl-Left or Alt-B
Move the cursor one word left
=item * Right
Move the cursor one character right
=item * Ctrl-Right or Alt-F
Move the cursor one word right
=back
=cut
lib/Audio/Nama/Entry.pm view on Meta::CPAN
Optional. Initial text to display in the box
=item position => INT
Optional. Initial position of the cursor within the text.
=item on_enter => CODE
Optional. Callback function to invoke when the C<< <Enter> >> key is pressed.
lib/Audio/Nama/Entry.pm view on Meta::CPAN
foreach my $line ( $rect->linerange( 1, undef ) ) {
$rb->erase_at( $line, 0, $cols );
}
$self->reposition_cursor;
}
method _recalculate_scroll
{
my ( $pos_ch ) = @_;
lib/Audio/Nama/Entry.pm view on Meta::CPAN
my $halfwidth = int( $width / 2 );
# Don't even try unless we have at least 2 columns
return unless $halfwidth;
# Try to keep the cursor within 5 columns of the window edge
while( $pos_x < 5 and $off_co >= 5 ) {
$off_co -= $halfwidth;
$off_co = 0 if $off_co < 0;
$pos_x = $pos_co - $off_co;
}
lib/Audio/Nama/Entry.pm view on Meta::CPAN
return $off_co if $off_co != $_scrolloffs_co;
return undef;
}
method reposition_cursor
{
my ( $pos_ch ) = @_;
$_pos_ch = $pos_ch if defined $pos_ch;
lib/Audio/Nama/Entry.pm view on Meta::CPAN
$self->redraw;
}
my $pos_x = $self->char2col( $_pos_ch ) - $_scrolloffs_co;
$win->cursor_at( 0, $pos_x );
}
method _text_spliced
{
my ( $pos_ch, $deleted, $inserted, $at_end ) = @_;
lib/Audio/Nama/Entry.pm view on Meta::CPAN
=head2 set_position
$entry->set_position( $position );
Set the text entry position, moving the cursor
=cut
method set_position
{
my ( $pos_ch ) = @_;
$pos_ch = 0 if $pos_ch < 0;
$pos_ch = length $_text if $pos_ch > length $_text;
$self->reposition_cursor( $pos_ch );
}
=head1 METHODS
=cut
lib/Audio/Nama/Entry.pm view on Meta::CPAN
delete $_keybindings{$str};
}
}
}
=head2 make_popup_at_cursor
$win = $entry->make_popup_at_cursor( $top_offset, $left_offset, $lines, $cols );
I<Since version 0.33.>
Creates a new popup window, as if calling L<Tickit::Window/make_popup> on the
widget's main window, but with an offset relative to the current cursor
position.
An offet of (0, 0) will position the popup window's top left corner exactly over
the cursor; this is likely not what you want.
To position the popup just below the widget, use a top offset of +1:
$win = $entry->make_popup_at_cursor( +1, 0, $lines, $cols );
To position the popup just above the widget, use a top offset of negative the
number of lines:
$win = $entry->make_popup_at_cursor( -$lines, 0, $lines, $cols );
=cut
method make_popup_at_cursor
{
my ( $topoff, $leftoff, $lines, $cols ) = @_;
$self->window or
croak "Cannot ->make_popup_at_cursor on an Entry widget with no window";
my $pos_x = $self->char2col( $_pos_ch ) - $_scrolloffs_co;
return $self->window->make_popup( $topoff, $pos_x + $leftoff, $lines, $cols );
}
lib/Audio/Nama/Entry.pm view on Meta::CPAN
# No point incrementally updating as we'll have to scroll anyway
unless( defined $new_pos_ch and defined $self->_recalculate_scroll( $new_pos_ch ) ) {
$self->_text_spliced( $pos_ch, $deleted, $text, $at_end );
}
$self->reposition_cursor( $new_pos_ch ) if defined $new_pos_ch and $new_pos_ch != $_pos_ch;
return $deleted;
}
=head2 find_bow_forward
lib/Audio/Nama/Entry.pm view on Meta::CPAN
method find_eow_backward
{
my ( $pos ) = @_;
my $pretext = substr( $self->text, 0, $pos + 1 ); # +1 to allow if cursor is on the space
return $pretext =~ m/.*\S(?=\s)/ ? $+[0] : undef;
}
## Key binding methods
Audio-Opusfile
view release on metacpan or search on metacpan
lib/Audio/Opusfile.pm view on Meta::CPAN
=item $of->B<raw_seek>(I<$offset>)
Seek to a byte offset relative to the compressed data.
This also scans packets to update the PCM cursor. It will cross a
logical bitstream boundary, but only if it can't get any packets out
of the tail of the link to which it seeks.
=item $of->B<pcm_seek>(I<$offset>)
Audio-Play-MPG123
view release on metacpan or search on metacpan
mpg123/tools/Mp3play view on Meta::CPAN
if($_ eq "kD")
{ # termcap's delete character
Display("reading-line") if(substr($ReadLine,$ReadingLineCurrentPos,1,"") ne "");
}
if($_ eq "kl")
{ # termcap's move cursor left key
$ReadingLineCurrentPos--;
$ReadingLineCurrentPos=0 if($ReadingLineCurrentPos<0);
$ReadingLineStartPos=$ReadingLineCurrentPos if($ReadingLineStartPos>$ReadingLineCurrentPos);
Display("reading-line");
}
if($_ eq "kr")
{ # termcap's move cursor right
# key
$ReadingLineCurrentPos++;
$ReadingLineCurrentPos=length($ReadLine) if($ReadingLineCurrentPos>length($ReadLine));
$ReadingLineStartPos=$ReadingLineCurrentPos-$Width+length($ReadingLinePrompt)+1 if($ReadingLineCurrentPos-$ReadingLineStartPos>=$Width-length($ReadingLinePrompt));
$ReadingLineStartPos=0 if($ReadingLineStartPos<0);
Display("reading-line");
}
if($_ eq "kh")
{ # termcap's move cursor home key
$ReadingLineStartPos=0;
$ReadingLineCurrentPos=0;
Display("reading-line");
}
if($_ eq "kH")
{ # termcap's move cursor hold
# down key
$ReadingLineCurrentPos=length($ReadLine);
$ReadingLineStartPos=$ReadingLineCurrentPos-$Width+length($ReadingLinePrompt)+1;
$ReadingLineStartPos=0 if($ReadingLineStartPos<0);
Display("reading-line");
mpg123/tools/Mp3play view on Meta::CPAN
{ # ASCII "Ctrl-L" - redraw screen
Display("full"); # display everything
next;
}
if(($_ eq "j")||($_ eq "kd"))
{ # ASCII "j" or termcap's cursor
# down key - move selection one
# line down
$SelectedTrack++;
$SelectedTrack=$#Track if($SelectedTrack>$#Track);
$StartVPos++ if($SelectedTrack>=$StartVPos+$ListHeight);
Display("list"); # update play list
next;
}
if(($_ eq "k")||($_ eq "ku"))
{ # ASCII "k" or termcap's cursor
# up key - move selection one
# line up
$SelectedTrack--;
$SelectedTrack=0 if($SelectedTrack<0);
$StartVPos-- if($SelectedTrack<$StartVPos);
Display("list"); # update play list
next;
}
if(($_ eq "g")||($_ eq "kh"))
{ # ASCII "g" or termcap's cursor
# home key - move selection to
# the top
$SelectedTrack=0;
$StartVPos=0;
Display("list"); # update play list
next;
}
if(($_ eq "G")||($_ eq "kH"))
{ # ASCII "G" or termcap's cursor
# hold down key - move selection
# to the bottom
$SelectedTrack=$#Track;
$StartVPos=$#Track-$ListHeight+1;
$StartVPos=0 if($StartVPos<0);
mpg123/tools/Mp3play view on Meta::CPAN
$StartVPos=0 if($StartVPos<0);
Display("list"); # update play list
next;
}
if(($_ eq "h")||($_ eq "kl"))
{ # ASCII "h" or termcap's cursor
# left key - shift play list
# window one character left
$StartHPos--;
$StartHPos=0 if($StartHPos<0);
Display("list"); # update play list
next;
}
if(($_ eq "l")||($_ eq "kr"))
{ # ASCII "l" or termcap's cursor
# right key - shift play list
# window one character right
$StartHPos++;
$StartHPos=$TrackTextMaxLength-ListWidth() if($StartHPos>$TrackTextMaxLength-ListWidth());
$StartHPos=0 if($StartHPos<0);
mpg123/tools/Mp3play view on Meta::CPAN
}
Display("sequence"); # update sequence display
}
sub GotoXY
{ # subroutine to put cursor to
# the given location on the
# screen
print STDOUT $TermCap->Tgoto('cm',int($_[0]),int($_[1]));
}
mpg123/tools/Mp3play view on Meta::CPAN
# display type (7-bit ascii)
return $Display{$_[0],$_7BitAsciiDisplay};
}
sub HideCursor
{ # subroutine to hide cursor
print STDOUT $TermCap->{'_vi'};
}
sub ShowCursor
{ # subroutine to show cursor
print STDOUT $TermCap->{'_ve'};
}
sub NormalMode
{ # subroutine to put terminal
Audio
view release on metacpan or search on metacpan
Data/Data.pm view on Meta::CPAN
(Code for this lifted from "Festival" speech system's speech_tools.)
=item $auto = $audio->autocorrelation($LENGTH)
Returns an (unscaled) autocorrelation function - can be used to cause
peaks when data is periodic - and is used as a precursor to LPC analysis.
=back 4
Audit-DBI-TT2
view release on metacpan or search on metacpan
examples/css/jquery-ui-1.10.2.custom.css view on Meta::CPAN
/* Interaction Cues
----------------------------------*/
.ui-state-disabled {
cursor: default !important;
}
/* Icons
----------------------------------*/
examples/css/jquery-ui-1.10.2.custom.css view on Meta::CPAN
border-bottom: 0;
}
.ui-datepicker .ui-datepicker-buttonpane button {
float: right;
margin: .5em .2em .4em;
cursor: pointer;
padding: .2em .6em .3em .6em;
width: auto;
overflow: visible;
}
.ui-datepicker .ui-datepicker-buttonpane button.ui-datepicker-current {
Authen-Krb5-Easy
view release on metacpan or search on metacpan
# */
CODE:
krb5_context context;
krb5_error_code code;
krb5_ccache ccache = NULL;
krb5_cc_cursor current;
krb5_creds creds;
krb5_principal princ;
krb5_flags flags;
bool expired = true;
time_t earliest = 0;
Authen-Krb5
view release on metacpan or search on metacpan
lib/Authen/Krb5.xs view on Meta::CPAN
typedef krb5_enc_tkt_part *Authen__Krb5__EncTktPart;
typedef krb5_error *Authen__Krb5__Error;
typedef krb5_address *Authen__Krb5__Address;
typedef krb5_keyblock *Authen__Krb5__Keyblock;
typedef krb5_keytab_entry *Authen__Krb5__KeytabEntry;
typedef krb5_kt_cursor *Authen__Krb5__KeytabCursor;
typedef krb5_cc_cursor *Authen__Krb5__CcacheCursor;
typedef krb5_keyblock *Authen__Krb5__KeyBlock;
static krb5_context context = NULL;
static krb5_error_code err;
static krb5_keytab_entry keytab_entry_init;
lib/Authen/Krb5.xs view on Meta::CPAN
else {
freed((SV*)cc);
XSRETURN_YES;
}
krb5_cc_cursor *
start_seq_get(cc)
Authen::Krb5::Ccache cc
CODE:
if (!New(0, RETVAL, 1, krb5_cc_cursor))
XSRETURN_UNDEF;
err = krb5_cc_start_seq_get(context, cc, RETVAL);
if (err)
XSRETURN_UNDEF;
OUTPUT:
RETVAL
Authen::Krb5::Creds
next_cred(cc, cursor)
krb5_cc_cursor *cursor
Authen::Krb5::Ccache cc
CODE:
if (!New(0, RETVAL, 1, krb5_creds))
XSRETURN_UNDEF;
err = krb5_cc_next_cred(context, cc, cursor, RETVAL);
if (err)
XSRETURN_UNDEF;
can_free((SV *)RETVAL);
OUTPUT:
RETVAL
void
end_seq_get(cc, cursor)
Authen::Krb5::Ccache cc
krb5_cc_cursor *cursor
CODE:
err = krb5_cc_end_seq_get(context, cc, cursor);
if (err)
XSRETURN_UNDEF;
XSRETURN_YES;
void
lib/Authen/Krb5.xs view on Meta::CPAN
if (err)
XSRETURN_UNDEF;
XSRETURN_YES;
void
end_seq_get(keytab, cursor)
Authen::Krb5::Keytab keytab
krb5_kt_cursor *cursor
CODE:
err = krb5_kt_end_seq_get(context, keytab, cursor);
if (err)
XSRETURN_UNDEF;
XSRETURN_YES;
Authen::Krb5::KeytabEntry
lib/Authen/Krb5.xs view on Meta::CPAN
OUTPUT:
RETVAL
Authen::Krb5::KeytabEntry
next_entry(keytab, cursor)
krb5_kt_cursor *cursor
Authen::Krb5::Keytab keytab
CODE:
if (!New(0, RETVAL, 1, krb5_keytab_entry))
XSRETURN_UNDEF;
err = krb5_kt_next_entry(context, keytab, RETVAL, cursor);
if (err)
XSRETURN_UNDEF;
can_free((SV *)RETVAL);
OUTPUT:
lib/Authen/Krb5.xs view on Meta::CPAN
err = krb5_kt_remove_entry(context, keytab, entry);
if (err)
XSRETURN_UNDEF;
XSRETURN_YES;
krb5_kt_cursor *
start_seq_get(keytab)
Authen::Krb5::Keytab keytab
CODE:
if (!New(0, RETVAL, 1, krb5_kt_cursor))
XSRETURN_UNDEF;
err = krb5_kt_start_seq_get(context, keytab, RETVAL);
if (err)
XSRETURN_UNDEF;
Avatica-Client
view release on metacpan or search on metacpan
lib/Avatica/Client.pm view on Meta::CPAN
// Results of preparing a statement
message Signature {
repeated ColumnMetaData columns = 1;
string sql = 2;
repeated AvaticaParameter parameters = 3;
CursorFactory cursor_factory = 4;
StatementType statementType = 5;
}
message ColumnMetaData {
uint32 ordinal = 1;
AxKit2
view release on metacpan or search on metacpan
demo/spod5/ui/default/pretty.css view on Meta::CPAN
top: auto;}
div#controls form {position: absolute; bottom: 0; right: 0; width: 100%;
margin: 0; padding: 0;}
#controls #navLinks a {padding: 0; margin: 0 0.5em;
background: #eee; border: none; color: #227;
cursor: pointer;}
#controls #navList {height: 1em;}
#controls #navList #jumplist {position: absolute; bottom: 0; right: 0; background: #DDD; color: #227;}
#currentSlide {text-align: center; font-size: 0.5em; color: #449;}
B-C
view release on metacpan or search on metacpan
ramblings/remark.js view on Meta::CPAN
require=function(e,t,n){function i(n,s){if(!t[n]){if(!e[n]){var o=typeof require=="function"&&require;if(!s&&o)return o(n,!0);if(r)return r(n,!0);throw new Error("Cannot find module '"+n+"'")}var u=t[n]={exports:{}};e[n][0].call(u.exports,function(t)...
this.QUOTE_STRING_MODE={className:"string",begin:'"',end:'"',illegal:"\\n",contains:[this.BACKSLASH_ESCAPE]};this.PHRASAL_WORDS_MODE={begin:/\b(a|an|the|are|I|I'm|isn't|don't|doesn't|won't|but|just|should|pretty|simply|enough|gonna|going|wtf|so|such)...
SUBST.contains=EXPRESSIONS;return{aliases:["coffee","cson","iced"],keywords:KEYWORDS,contains:EXPRESSIONS.concat([{className:"comment",begin:"###",end:"###"},hljs.HASH_COMMENT_MODE,{className:"function",begin:"("+JS_IDENT_RE+"\\s*=\\s*)?(\\(.*\\))?\\...
}()},{}],8:[function(require,module,exports){exports.addClass=function(element,className){element.className=exports.getClasses(element).concat([className]).join(" ")};exports.removeClass=function(element,className){element.className=exports.getClasse...
events.on("slideChanged",updateHash);navigateByHash()}function navigateByHash(){var slideNoOrName=(dom.getLocationHash()||"").substr(1);events.emit("gotoSlide",slideNoOrName)}function updateHash(slideNoOrName){dom.setLocationHash("#"+slideNoOrName)}}...
B-Debugger
view release on metacpan or search on metacpan
lib/B/Debugger.pm view on Meta::CPAN
print "> ";
my $in = readline(*STDIN);
chomp $in;
$in = $last_in unless $in;
$last_in = $in;
# $in =~ s/[:cntrl:]//g; # strip control chars, cursor keys
if ($in =~ /^(h|help)$/) { debugger_help; return DBG_SAME; }
elsif ($in =~ /^(q|quit)$/) { print "quit\nexecuting...\n"; return DBG_QUIT; }
elsif ($in =~ /^exit$/) { print "exit\n"; exit; } # FIXME! Add an exit hook into INIT?
elsif ($in =~ /^(x|eval)\s+(.+)$/) { print (eval "$2"),"\n"; return DBG_SAME; }
elsif ($in =~ /^(n|next)$/) {
BBS-Perm
view release on metacpan or search on metacpan
lib/BBS/Perm/Term.pm view on Meta::CPAN
my $font = Pango::FontDescription->from_string( $conf->{font} );
$term->set_font($font);
}
if ( $conf->{color} ) {
my @elements = qw/foreground background dim bold cursor highlight/;
for (@elements) {
if ( $conf->{color}{$_} ) {
no strict 'refs';
"Gnome2::Vte::Terminal::set_color_$_"->(
$term, Gtk2::Gdk::Color->parse( $conf->{color}{$_} )
BBS-Universal
view release on metacpan or search on metacpan
lib/BBS/Universal.pm view on Meta::CPAN
use DBI;
use DBD::mysql;
use File::Basename;
use Time::HiRes qw(time sleep);
use Term::ReadKey;
use Term::ANSIScreen qw( :cursor :screen );
use Term::ANSIColor;
use Text::Format;
use Text::SimpleTable;
use List::Util qw(min max);
use IO::Socket qw(AF_INET SOCK_STREAM SHUT_WR SHUT_RDWR SHUT_RD);
lib/BBS/Universal.pm view on Meta::CPAN
threads->yield;
} ## end elsif ($self->is_connected...)
return ($key) if ($key eq chr(13));
if ($key eq chr(127) or $key eq chr(7)) {
if ($mode eq 'ANSI') {
$key = $self->{'ansi_meta'}->{'cursor'}->{'BACKSPACE'}->{'out'};
} elsif ($mode eq 'ATASCII') {
$key = $self->{'atascii_meta'}->{'BACKSPACE'}->{'out'};
} elsif ($mode eq 'PETSCII') {
$key = $self->{'petscii_meta'}->{'BACKSPACE'}->{'out'};
} else {
lib/BBS/Universal.pm view on Meta::CPAN
$self->output($line) if ($line ne '');
my $mode = $self->{'USER'}->{'text_mode'};
my $backspace;
if ($mode eq 'ANSI') {
$backspace = $self->{'ansi_meta'}->{'cursor'}->{'BACKSPACE'}->{'out'};
} elsif ($mode eq 'ATASCII') {
$backspace = $self->{'atascii_meta'}->{'BACKSPACE'}->{'out'};
} elsif ($mode eq 'PETSCII') {
$backspace = $self->{'petscii_meta'}->{'BACKSPACE'}->{'out'};
} else {
lib/BBS/Universal.pm view on Meta::CPAN
my $ch = locate(($self->{'CACHE'}->get('START_ROW') + $self->{'CACHE'}->get('ROW_ADJUST')), 1) . cldown;
$text =~ s/\[\%\s+CLS\s+\%\]/$ch/gsi;
}
my %lookup;
for my $code (qw(foreground background special clear cursor attributes)) {
my $map = $self->{'ansi_meta'}->{$code} or next;
while (my ($name, $info) = each %{$map}) {
next unless (defined($info->{out}));
$lookup{ lc $name } = $info->{out};
}
} ## end for my $code (qw(foreground background special clear cursor attributes))
# Final single-pass replacement for remaining [% ... %] tokens.
# If token matches a lookup entry, substitute; otherwise if it's a named char use charnames;
# else leave token visible.
###
lib/BBS/Universal.pm view on Meta::CPAN
$self->{'debug'}->DEBUG(['Start ANSI Output']);
my $mlines = (exists($self->{'USER'}->{'max_rows'})) ? $self->{'USER'}->{'max_rows'} - 3 : 21;
my $lines = $mlines;
$text = $self->ansi_decode($text);
my $s_len = length($text);
my $nl = $self->{'ansi_meta'}->{'cursor'}->{'NEWLINE'}->{'out'};
foreach my $count (0 .. $s_len) {
my $char = substr($text, $count, 1);
if ($char eq "\n") {
if ($text !~ /$nl/ && !$self->{'local_mode'}) { # translate only if the file doesn't have ASCII newlines
lib/BBS/Universal.pm view on Meta::CPAN
['DCS', "\eP", 'Device Control String'],
);
# Clear controls
my $clear = $pairs_to_map->(
['CLS', "\e[2J\e[H", 'Clear screen and place cursor at the top of the screen'],
['CLEAR', "\e[2J", 'Clear screen and keep cursor location'],
['CLEAR LINE', "\e[0K", 'Clear the current line from cursor'],
['CLEAR DOWN', "\e[0J", 'Clear from cursor position to bottom of the screen'],
['CLEAR UP', "\e[1J", 'Clear to the top of the screen from cursor position'],
);
# Cursor movement and control
my $cursor = $pairs_to_map->(
['BACKSPACE', chr(8), 'Backspace'],
['RETURN', chr(13), 'Carriage Return (ASCII 13)'],
['LINEFEED', chr(10), 'Line feed (ASCII 10)'],
['NEWLINE', chr(13) . chr(10), 'New line (ASCII 13 and ASCII 10)'],
['HOME', "\e[H", 'Place cursor at top left of the screen'],
['UP', "\e[A", 'Move cursor up one line'],
['DOWN', "\e[B", 'Move cursor down one line'],
['RIGHT', "\e[C", 'Move cursor right one space non-destructively'],
['LEFT', "\e[D", 'Move cursor left one space non-destructively'],
['NEXT LINE', "\e[E", 'Place the cursor at the beginning of the next line'],
['PREVIOUS LINE', "\e[F", 'Place the cursor at the beginning of the previous line'],
['SAVE', "\e[s", 'Save cureent cursor position'],
['RESTORE', "\e[u", 'Restore the cursor to the saved position'],
['CURSOR ON', "\e[?25h", 'Turn the cursor on'],
['CURSOR OFF', "\e[?25l", 'Turn the cursor off'],
['SCREEN 1', "\e[?1049l", 'Set display to screen 1'],
['SCREEN 2', "\e[?1049h", 'Set display to screen 2'],
);
# Text attributes
lib/BBS/Universal.pm view on Meta::CPAN
);
$self->{'ansi_meta'} = {
special => $special,
clear => $clear,
cursor => $cursor,
attributes => $attributes,
foreground => $foreground,
background => $background,
};
lib/BBS/Universal.pm view on Meta::CPAN
}
# CURSOR section
$text .= '[% BRIGHT GREEN %]â•žâ•â• [% BOLD %][% BRIGHT YELLOW %]CURSOR [% RESET %][% BRIGHT GREEN %]' . 'â•' x 55 . '╪' . 'â•' x 56 . 'â•¡[% RESET %]' . "\n";
{
my @names = (sort(keys %{ $self->{'ansi_meta'}->{'cursor'} }));
while (scalar(@names)) {
my $name = shift(@names);
$text .= "$bar " . sprintf('%-63s', $name) . ' [% BRIGHT GREEN %]│[% RESET %] ' . sprintf('%-54s', $self->ansi_description('cursor', $name)) . " $bar\n";
}
$text .= "$bar " . sprintf('%-63s', 'LOCATE column,row') . ' [% BRIGHT GREEN %]│[% RESET %] ' . sprintf('%-54s', 'Sets the cursor location') . " $bar\n";
$text .= "$bar " . sprintf('%-63s', 'SCROLL UP count') . ' [% BRIGHT GREEN %]│[% RESET %] ' . sprintf('%-54s', 'Scrolls the screen up by "count" lines') . " $bar\n";
$text .= "$bar " . sprintf('%-63s', 'SCROLL DOWN count') . ' [% BRIGHT GREEN %]│[% RESET %] ' . sprintf('%-54s', 'Scrolls the screen down by "count" lines') . " $bar\n";
}
# ATTRIBUTES section
lib/BBS/Universal.pm view on Meta::CPAN
my ($wsize, $hsize, $wpixels, $hpixels) = GetTerminalSize();
my $middle = int($wsize / 2);
my $string;
if ($color =~ /^B_/) {
$string = "\r" . $self->{'ansi_meta'}->{'cursor'}->{'RIGHT'}->{'out'} x $middle . $self->{'ansi_meta'}->{'background'}->{$color}->{'out'} . ' ' . $self->{'ansi_meta'}->{'attributes'}->{'RESET'}->{'out'};
} else {
$string = "\r" . $self->{'ansi_meta'}->{'cursor'}->{'RIGHT'}->{'out'} x $middle . $self->{'ansi_meta'}->{'foreground'}->{$color}->{'out'} . ' ' . $self->{'ansi_meta'}->{'attributes'}->{'RESET'}->{'out'};
}
return ($string);
} ## end sub sysop_locate_middle
sub sysop_memory {
lib/BBS/Universal.pm view on Meta::CPAN
my $ch = $1;
my $new = '[% BRIGHT YELLOW %]' . $ch . '[% RESET %]';
$text =~ s/ $ch / $new /gs;
}
$self->sysop_output("\n$text");
print $self->{'ansi_meta'}->{'cursor'}->{'UP'}->{'out'} x 5, $self->{'ansi_meta'}->{'cursor'}->{'RIGHT'}->{'out'} x 16;
my $title = $self->sysop_get_line(ECHO, 80, '');
if ($title ne '') {
print "\r", $self->{'ansi_meta'}->{'cursor'}->{'DOWN'}->{'out'}, $self->{'ansi_meta'}->{'cursor'}->{'RIGHT'}->{'out'} x 16;
my $description = $self->sysop_get_line(ECHO, 80, '');
if ($description ne '') {
$sth = $self->{'dbh'}->prepare('INSERT INTO file_categories (title,description) VALUES (?,?)');
$sth->execute($title, $description);
$sth->finish();
lib/BBS/Universal.pm view on Meta::CPAN
ReadMode 'restore';
threads->yield;
return ($key) if ($key eq chr(13));
if ($key eq chr(127)) {
$key = $self->{'ansi_meta'}->{'cursor'}->{'BACKSPACE'}->{'out'};
}
if ($echo == NUMERIC && defined($key)) {
unless ($key =~ /[0-9]/) {
$key = '';
}
lib/BBS/Universal.pm view on Meta::CPAN
} ## end else [ if (ref($type) eq 'HASH')]
chomp($line);
$self->{'debug'}->DEBUGMAX([$type, $echo, $line]);
print $line if ($line ne '');
my $mode = 'ANSI';
my $bs = $self->{'ansi_meta'}->{'cursor'}->{'BACKSPACE'}->{'out'};
if ($echo == RADIO) {
$self->{'debug'}->DEBUG([' SysOp Get Line RADIO']);
my $mapping;
my @menu_choices = @{$self->{'MENU CHOICES'}};
lib/BBS/Universal.pm view on Meta::CPAN
$self->{'debug'}->DEBUG([' SysOp Get Line BOOLEAN']);
do {
$key = $self->sysop_get_key(SILENT, BLOCKING);
if (uc($key) eq 'T') {
$line = 'ON';
print $self->{'ansi_meta'}->{'cursor'}->{'LEFT'}->{'out'} x 5, 'ON', clline;
} elsif (uc($key) eq 'F') {
$line = 'OFF';
print $self->{'ansi_meta'}->{'cursor'}->{'LEFT'}->{'out'} x 4, 'OFF', clline;
} elsif ($key ne chr(13) && $key ne chr(3)) {
print chr(7);
}
} until ($key eq chr(13) or $key eq chr(3));
} elsif ($echo == NUMERIC) {
lib/BBS/Universal.pm view on Meta::CPAN
'bbs_port' => '',
};
my $index = 0;
my $response = TRUE;
$self->sysop_output($table->round('BRIGHT BLUE')->draw());
print $self->{'ansi_meta'}->{'cursor'}->{'UP'}->{'out'} x 9, $self->{'ansi_meta'}->{'cursor'}->{'RIGHT'}->{'out'} x 19;
$bbs->{'bbs_name'} = $self->sysop_get_line(ECHO, 50, '');
$self->{'debug'}->DEBUG([' BBS Name: ' . $bbs->{'bbs_name'}]);
if ($bbs->{'bbs_name'} ne '' && length($bbs->{'bbs_name'}) > 3) {
print $self->{'ansi_meta'}->{'cursor'}->{'DOWN'}->{'out'} x 2, "\r", $self->{'ansi_meta'}->{'cursor'}->{'RIGHT'}->{'out'} x 19;
$bbs->{'bbs_hostname'} = $self->sysop_get_line(ECHO, 50, '');
$self->{'debug'}->DEBUG([' BBS Hostname: ' . $bbs->{'bbs_hostname'}]);
if ($bbs->{'bbs_hostname'} ne '' && length($bbs->{'bbs_hostname'}) > 5) {
print $self->{'ansi_meta'}->{'cursor'}->{'DOWN'}->{'out'} x 2, "\r", $self->{'ansi_meta'}->{'cursor'}->{'RIGHT'}->{'out'} x 19;
$bbs->{'bbs_port'} = $self->sysop_get_line(ECHO, 5, '');
$self->{'debug'}->DEBUG([' BBS Port: ' . $bbs->{'bbs_port'}]);
if ($bbs->{'bbs_port'} ne '' && $bbs->{'bbs_port'} =~ /^\d+$/) {
$self->{'debug'}->DEBUG([' Add to BBS List']);
my $sth = $self->{'dbh'}->prepare('INSERT INTO bbs_listing (bbs_name,bbs_hostname,bbs_port,bbs_poster_id) VALUES (?,?,?,1)');
lib/BBS/Universal.pm view on Meta::CPAN
$self->{'debug'}->DEBUG(['Start SysOp ANSI Output']);
my $mlines = (exists($self->{'USER'}->{'max_rows'})) ? $self->{'USER'}->{'max_rows'} - 3 : 21;
my $lines = $mlines;
my $text = $self->ansi_decode(shift);
my $s_len = length($text);
my $nl = $self->{'ansi_meta'}->{'cursor'}->{'NEWLINE'}->{'out'};
my @lines = split(/\n/, $text);
my $size = $self->{'USER'}->{'max_rows'};
while (scalar(@lines)) {
my $line = shift(@lines);
BDB-Wrapper
view release on metacpan or search on metacpan
lib/BDB/Wrapper.pm view on Meta::CPAN
return \%hash;
}
=head2 create_read_hash_ref
Not recommended method. Please use create_read_dbh and cursor().
This will creates database handler for reading.
$self->create_read_hash_ref({
'bdb'=>$bdb,
'hash'=>0 or 1,
BDB
view release on metacpan or search on metacpan
$int = $db->set_re_len (U32 re_len)
$int = $db->set_h_ffactor (U32 h_ffactor)
$int = $db->set_h_nelem (U32 h_nelem)
$int = $db->set_q_extentsize (U32 extentsize)
$dbc = $db->cursor (DB_TXN_ornull *txn = 0, U32 flags = 0)
flags: READ_COMMITTED READ_UNCOMMITTED WRITECURSOR TXN_SNAPSHOT
$seq = $db->sequence (U32 flags = 0)
=head3 Example:
$bool = $txn->failed
# see db_txn_finish documentation, above
=head2 DBC/cursor methods
Methods available on DBC/$dbc handles:
DESTROY (DBC_ornull *dbc)
CODE:
if (dbc)
dbc->c_close (dbc);
$int = $cursor->set_priority ($priority = PRIORITY_*) (v4.6)
=head3 Example:
my $c = $db->cursor;
for (;;) {
db_c_get $c, my $key, my $data, BDB::NEXT;
warn "<$!,$key,$data>";
last if $!;
BLASTaid
view release on metacpan or search on metacpan
t/REPORT.blast view on Meta::CPAN
Notice: this program and its default parameter settings are optimized to find
nearly identical sequences rapidly. To identify weak protein similarities
encoded in nucleic acid, use BLASTX, TBLASTN or TBLASTX.
Query= gi|58743322|ref|NM_001011718.1| Homo sapiens X Kell blood group
precursor-related family, member 7 (XKR7), mRNA
(2929 letters; record 8)
Database: /gscmnt/131/analysis/compbio/twylie/20060201/chimp_6x/SC/chimp_6x_SC
.fa
275,754 sequences; 3,278,296,180 total letters.
Bash-Completion-Plugin-Test
view release on metacpan or search on metacpan
lib/Bash/Completion/Plugin/Test.pm view on Meta::CPAN
is_deeply [ sort @got_completions ], [ sort @$expected_completions ],
$name;
}
sub _cursor_character {
return '^';
}
sub _extract_cursor {
my ( $self, $command_line ) = @_;
my $cursor_char = $self->_cursor_character;
my $index = index $command_line, $cursor_char;
if($index == -1) {
croak "Failed to find cursor character in command line";
}
my $replacements = $command_line =~ s/\Q$cursor_char\E//g;
if($replacements > 1) {
croak "More than one cursor character in command line";
}
return ( $command_line, $index );
}
sub _create_request {
my ( $self, $command_line ) = @_;
my $cursor_index;
( $command_line, $cursor_index ) = $self->_extract_cursor($command_line);
local $ENV{'COMP_LINE'} = $command_line;
local $ENV{'COMP_POINT'} = $cursor_index;
return Bash::Completion::Request->new;
}
sub _create_plugin {
lib/Bash/Completion/Plugin/Test.pm view on Meta::CPAN
Runs the current completion plugin against C<$command>, and verifies
that the results it returns are the same as those in C<@expected>.
The order of the items in C<@expected> does not matter. C<$name> is
an optional name for the test. The carat character '^' must be present
in C<$command>; it is removed and represents the location of the cursor
when completion occurs.
=head1 SEE ALSO
L<Bash::Completion>
Bash-Completion
view release on metacpan or search on metacpan
lib/Bash/Completion/Request.pm view on Meta::CPAN
Number of words in the command line before the completion point.
=head2 point
The index in the command line where the shell cursor is.
=head1 METHODS
=head2 new
Batch-Batchrun
view release on metacpan or search on metacpan
lib/Batch/Batchrun/Dbfunctions.pm view on Meta::CPAN
# -NOLIS = Do not generate .LIS file(s) from .SPF file(s)
# -O[file] = Direct log messages to console or specified file
#-PRINTER:{xx} = Force listing files to be for HT, LP, HP or PS printers
# -RS = Save run time file in {program}.sqt
# -RT = Use run time file (skip compile)
# -S = Display cursor status at end of run
# -Tn = Test report for n pages, ignore 'order by's
# -XB = Do not display the program banner
# -XI = Do not allow user interaction during program run
# -XL = Do not logon to database (no SQL in program)
# -XTB = Do not trim blanks from LP .LIS files
Beagle
view release on metacpan or search on metacpan
share/public/css/base/markitup_skin.css view on Meta::CPAN
height:300px;
margin:5px 0;
}
.markItUpFooter {
width:100%;
cursor:n-resize;
}
.markItUpResizeHandle {
overflow:hidden;
width:22px; height:5px;
margin-left:auto;
margin-right:auto;
background-image:url(../../images/markitup/skin/handle.png);
cursor:n-resize;
}
/***************************************************************************************/
/* first row of buttons */
.markItUpHeader ul li {
list-style:none;
BeamerReveal
view release on metacpan or search on metacpan
Media/beamer-reveal-PCB.html view on Meta::CPAN
</script>
</head>
<body style="overflow: hidden;" onload="webGLStart();">
<canvas id="Asymptote" width="370" height="205" style="border: none; cursor: pointer;">
</canvas>
</body>
</html>
Beekeeper
view release on metacpan or search on metacpan
examples/dashboard/css/dashboard.css view on Meta::CPAN
#bkservices td:first-child {
text-align: left;
}
#bkservices td:first-child:hover {
cursor: pointer;
}
#bkservices th:nth-child(2) {
text-align: center;
}
examples/dashboard/css/dashboard.css view on Meta::CPAN
#bkservices td:nth-child(2) {
text-align: center;
}
#bkservices td:nth-child(5):hover {
cursor: pointer;
}
/* Services */
#services .statistic {
Bencher-ScenarioUtil-Completion
view release on metacpan or search on metacpan
lib/Bencher/ScenarioUtil/Completion.pm view on Meta::CPAN
tags => {
summary => 'Participant tags',
schema => ['array*', of=>'str*'],
},
cmdline => {
summary => 'Command, with ^ put to mark cursor position',
schema => 'str*',
req => 1,
},
},
result_naked => 1,
lib/Bencher/ScenarioUtil/Completion.pm view on Meta::CPAN
=over 4
=item * B<cmdline>* => I<str>
Command, with ^ put to mark cursor position.
=item * B<description> => I<str>
Participant description.
Benchmark-DKbench
view release on metacpan or search on metacpan
data/wiki1.html view on Meta::CPAN
<li id="cite_note-714"><span class="mw-cite-backlink"><b><a href="#cite_ref-714">^</a></b></span> <span class="reference-text">Promotion aimed at assisting <a href="/wiki/St._Jude_Children%E2%80%99s_Research_Hospital" class="mw-redirect" title="St. J...
</li>
</ol></div></div>
<h2><span class="mw-headline" id="References">References</span><span class="mw-editsection"><span class="mw-editsection-bracket">[</span><a href="/w/index.php?title=List_of_Falcon_9_and_Falcon_Heavy_launches&action=edit&section=36" title="Edi...
<div class="mw-references-wrap mw-references-columns"><ol class="references">
<li id="cite_note-sxf9o20100508-1"><span class="mw-cite-backlink"><b><a href="#cite_ref-sxf9o20100508_1-0">^</a></b></span> <span class="reference-text"><style data-mw-deduplicate="TemplateStyles:r999302996">.mw-parser-output cite.citation{font-style...
</li>
<li id="cite_note-pm20120207-2"><span class="mw-cite-backlink"><b><a href="#cite_ref-pm20120207_2-0">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFSim...
</li>
<li id="cite_note-3"><span class="mw-cite-backlink"><b><a href="#cite_ref-3">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFWall2015" class="citation n...
</li>
data/wiki1.html view on Meta::CPAN
<li id="cite_note-943"><span class="mw-cite-backlink"><b><a href="#cite_ref-943">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFRalph2021" class="citat...
</li>
<li id="cite_note-944"><span class="mw-cite-backlink"><b><a href="#cite_ref-944">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFRalph2021" class="citat...
</li>
</ol></div>
<div class="navbox-styles nomobile"><style data-mw-deduplicate="TemplateStyles:r1057682214">.mw-parser-output .navbox{box-sizing:border-box;border:1px solid #a2a9b1;width:100%;clear:both;font-size:88%;text-align:center;padding:1px;margin:1em auto 0}....
<ul><li><a href="/wiki/Falcon_1" title="Falcon 1">Falcon 1</a></li>
<li><a href="/wiki/Falcon_9" title="Falcon 9">Falcon 9</a>
<ul><li><a href="/wiki/Falcon_9_v1.0" title="Falcon 9 v1.0">v1.0</a></li>
<li><a href="/wiki/Falcon_9_v1.1" title="Falcon 9 v1.1">v1.1</a></li>
<li><a href="/wiki/Falcon_9_Full_Thrust" title="Falcon 9 Full Thrust">Full Thrust</a></li>
Benchmark-Perl-Formance-Cargo
view release on metacpan or search on metacpan
share/P6STD/LazyMap.pm view on Meta::CPAN
# >1 (since iter only removes one at a time, but they don't arrive that way)
# L: The values input to the map which have not yet been fed to the block
# N: Number of values so far returned - this is used to ignore cuts if we
# haven't delivered our first value yet (somewhat of a hack).
#
# Values returned by a LazyMap are expected to be cursors, or at least have
# an _xact field that can be checked for cutness.
# Construct a lazymap - block, then a list of inputs (concatenated if lazies)
sub new {
my $class = shift;
share/P6STD/LazyMap.pm view on Meta::CPAN
else {
shift @$called;
}
}
# finally have at least one real cursor, grep for first with live transaction
while (@$called and ref($$called[0]) !~ /^Lazy/) {
my $candidate = shift @$called;
# make sure its transaction doesn't have a prior commitment
my $xact = $candidate->{_xact};
my $n = $self->{N}++;
( run in 1.107 second using v1.01-cache-2.11-cpan-39bf76dae61 )