Result:
found more than 464 distributions - search limited to the first 2001 files matching your query
( run in 2.540 )
Aspect
view release on metacpan or search on metacpan
- Debundled various out-of-date testing libraries, and reverted
to more conventional build_requires dependencies now that our
downstream packaging systems have the ability to consume them.
- Since the code documents the Aspect::Advice->install method as
private (and it is undocumented) rename to ->_install as a
precursor to changing it's behaviour at an API level.
- Now that the descope execution of the closure hook is able to be
trusted, we no longer need the Aspect::Cleanup DESTROY-time
self-execution magick.
- Added the ->wantarray property to the AdviceContext object.
This is provided as a convenience to the user (since the wantarray)
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.003';
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/Completion.pm view on Meta::CPAN
C<< <Tab> >> key.
If the word currently being edited has a unique match in the list of words,
then the word is completed entirely, followed by a space.
If there are multiple words that could complete from the word at the cursor,
then a popup menu is presented showing the next available characters or
matches. The user can continue typing more characters to narrow down the
choice until a unique match is found.
=cut
lib/Audio/Nama/Completion.pm view on Meta::CPAN
: substr( $next{$_}[0], 0, $plen + 1 ) . "..."
} sort keys %next;
# Popup above, unless there's no room at which point, go below
my $popup_line = ( $_entry->window->abs_top >= @possibles ) ? -(scalar @possibles) : +1;
my $popup = $_entry->make_popup_at_cursor(
$popup_line, -$plen,
scalar @possibles, max( map { textwidth($_) } @possibles ),
);
# TODO: Some style stuff here
lib/Audio/Nama/Completion.pm view on Meta::CPAN
$_entry->take_focus;
$self->key_complete if $redo_complete;
return 1;
} );
$popup->cursor_at( 0, $plen );
$popup->take_focus;
$popup->show;
$_popup_window = $popup;
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>
( run in 2.540 seconds using v1.01-cache-2.11-cpan-cdf2f3d4e48 )