view release on metacpan or search on metacpan
lib/Astro/FITS/Header/Item.pm view on Meta::CPAN
Used to specify the comment associated with this FITS item.
=item B<Type>
Used to specify the variable type. See the C<type> method
for more details. A type will be guessed if one is not supplied.
The guess may well be wrong.
=back
Does nothing if these keys are not supplied.
lib/Astro/FITS/Header/Item.pm view on Meta::CPAN
$self->type("BLANK");
} elsif (!$self->keyword || $self->keyword =~ /^(COMMENT|HISTORY)$/) {
# COMMENT, HISTORY, and blank cards are special
$self->type('COMMENT')
} else {
my $type = $self->guess_type( $self->value );
$self->type( $type ) if defined $type;
}
}
# End cards are special, need only do a Keyword => 'END' to configure
lib/Astro/FITS/Header/Item.pm view on Meta::CPAN
# Try to sort out the type if we havent got one
# We can not find LOGICAL this way since we can't
# tell the difference between 'F' and F
# an undefined value is typeless
unless (defined $type) {
$type = $self->guess_type( $value );
}
# Numbers behave identically whether they are float or int
# Logical is a number formatted as a "T" or "F"
if ($type eq 'INT' or $type eq 'FLOAT' or $type eq 'LOGICAL' or
lib/Astro/FITS/Header/Item.pm view on Meta::CPAN
# Return the result
return $card;
}
=item B<guess_type>
This class method can be used to guess the data type of a supplied value.
It is private but can be used by other classes in the Astro::FITS::Header
hierarchy.
$type = Astro::FITS::Header::Item->guess_type( $value );
Can not distinguish a string F from a LOGICAL F so will always guess
"string". Returns "string" if a type could not be determined.
=cut
sub guess_type {
my $self = shift;
my $value = shift;
my $type;
if (!defined $value) {
$type = "UNDEF";
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
$startdir = $IRAF_START; # base directory then they should use this
# environment variable to say so.
}
else{
# Make educated guesses as to where the IRAF login.cl might be hiding.
# If you have any other alternatives you could add them in here
# This is only really for general places rather than unique odd places
# though, use IRAF_START or the uparm parameter for those.
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
lib/Astro/Nova/LnLatPosn.pm
lib/Astro/Nova/ZoneDate.pm
libnova-0.15.0/aclocal.m4
libnova-0.15.0/AUTHORS
libnova-0.15.0/ChangeLog
libnova-0.15.0/config.guess
libnova-0.15.0/config.h.in
libnova-0.15.0/config.sub
libnova-0.15.0/configure
libnova-0.15.0/configure.in
libnova-0.15.0/COPYING
view release on metacpan or search on metacpan
erfasrc/src/taiutc.c view on Meta::CPAN
} else {
a1 = tai2;
a2 = tai1;
}
/* Initial guess for UTC. */
u1 = a1;
u2 = a2;
/* Iterate (though in most cases just once is enough). */
for ( i = 0; i < 3; i++ ) {
/* Guessed UTC to TAI. */
j = eraUtctai(u1, u2, &g1, &g2);
if ( j < 0 ) return j;
/* Adjust guessed UTC. */
u2 += a1 - g1;
u2 += a2 - g2;
}
/* Return the UTC result, preserving the TAI order. */
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
Table/Binary.pm view on Meta::CPAN
( @_ && 'HASH' eq ref($_[-1]) ? %{pop @_} : () ) );
# store the row data in what the caller wants, or the object's buffer.
my $row = shift || $self->{row_arr};
# guess what? there's (possibly only sometimes) an extra row filled
# with indefs at the end of the file! so we can't actually use
# the end of file condition to stop reading. ACKCKCKCCKKC!
return undef if $self->{row} == $self->{nrows};
view release on metacpan or search on metacpan
tools/modeldef view on Meta::CPAN
OBJECT_TYPE => <<'EOD',
This is a computed value representing the general type of the body. It
can be 'DEBRIS', 'PAYLOAD', 'ROCKET BODY', 'TBA', 'UNKNOWN', or 'OTHER'.
EOD
ORBITAL_TBA => <<'EOD', # boxscore
At a guess, number of objects on-orbit which are not yet classified.
EOD
PERIGEE => <<'EOD',
This is the perigee of the body's orbit in kilometers above the Earth's
surface.
EOD
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'warnings' => 0,
'Carp' => 0,
'Math::Trig' => 0, },
AUTHOR => [ 'Ron Hill <rkhill@firstlight.net>', 'Jean Forget <JFORGET@cpan.org>' ],
LICENSE => 'perl',
# The oldest Perl to check Astro::Sunrise 0.92 is 5.6.2. Therefore, I guess Astro::Sunrise 0.93 and next will work in 5.6.2 too.
MIN_PERL_VERSION => '5.6.2',
BUILD_REQUIRES => { 'Test::More' => '0', # should be 'TEST_REQUIRES', except that ExtUtils::MakeMaker 6.5705 does not accept it
'ExtUtils::MakeMaker' => '6.57_02', # the first version to accept several authors in an arrayref
},
META_MERGE => {
view release on metacpan or search on metacpan
lib/Astro/WaveBand.pm view on Meta::CPAN
"450W:850W" => 443,
"450N:850N" => 442,
"350N:750N" => 344,
},
'SCUBA-2' => {
850 => 863, # guesses
450 => 445,
},
);
# Instruments that have natural units
lib/Astro/WaveBand.pm view on Meta::CPAN
=item B<natural_unit>
Override the natural unit to be used for stringification. If this
value is not set the class will determine the unit of choice by
looking at the instrument name and then by taking an informed guess.
$w->natural_unit('filter');
=cut
view release on metacpan or search on metacpan
lib/Astroboy/Base.pm view on Meta::CPAN
package Astroboy::Base;
use strict;
use vars qw(@ISA $VERSION @EXPORT);
use Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw(debug abs_music artists artists_count artist_guess);
use LEOCHARRE::Dir;
use LEOCHARRE::Class2;
use Carp;
no strict 'refs';
lib/Astroboy/Base.pm view on Meta::CPAN
}
sub artist_guess {
my ($self,$path) = ($_[0],lc($_[1]));
#TODO consider using String::Similarity::Group
unless($self->{artists_match}){
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
inc/boilerplate.pl view on Meta::CPAN
my $meta = CPAN::Meta->load_file( 'META.json' );
my $license = do {
my @key = ( $meta->license, $meta->meta_spec_version );
my ( $class, @ambiguous ) = Software::LicenseUtils->guess_license_from_meta_key( @key );
die if @ambiguous or not $class;
$class->new( $meta->custom( 'x_copyright' ) );
};
$file{'LICENSE'} = trimnl $license->fulltext;
view release on metacpan or search on metacpan
lib/AtomicParsley/Command.pm view on Meta::CPAN
return AtomicParsley::Command::Tags->new(%tags);
}
# Try our best to get the name of the temp file.
# Unfortunately. the temp file contains a random number,
# so this is a best guess.
sub _get_temp_file {
my ( $self, $directories, $file ) = @_;
# remove suffix
$file =~ s/(\.\w+)$/-temp-/;
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
lib/Attach/Stuff.pm view on Meta::CPAN
probably start with an SVG and work your way from there.
Before you can get there, you need measurements of the board and the location
of the screw holes. If you're lucky, you can find full schematics for your
board that will tell you the sizes exactly. If not, you'll need to get out
some callipers and possibly do some guesswork.
Protip: if you had to guess on some of the locations, etch a prototype into
cardboard. Then you can lay the board over the cardboard and see if it matches
up right.
=head1 METHODS
view release on metacpan or search on metacpan
lib/AtteanX/Serializer/RDFa.pm view on Meta::CPAN
my $ser = Attean->get_serializer('RDFa')->new;
my $string = $ser->serialize_iter_to_bytes($iter);
my $ns = URI::NamespaceMap->new( { ex => iri('http://example.org/') });
$ns->guess_and_add('foaf');
my $note = RDF::RDFa::Generator::HTML::Pretty::Note->new(iri('http://example.org/foo'), 'This is a Note');
my $ser = Attean->get_serializer('RDFa')->new(base => iri('http://example.org/'),
namespaces => $ns,
style => 'HTML::Pretty',
generator_options => { notes => [$note]});
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
t/lib/Test/Builder.pm view on Meta::CPAN
details). Returns the reason (ie. the value of $TODO) if running as
todo tests, false otherwise.
todo() is pretty part about finding the right package to look for
$TODO in. It uses the exported_to() package to find it. If that's
not set, it's pretty good at guessing the right package to look at.
Sometimes there is some confusion about where todo() should be looking
for the $TODO variable. If you want to be sure, tell it explicitly
what $pack to use.
view release on metacpan or search on metacpan
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
view release on metacpan or search on metacpan
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
LibSampleRate.xs
libsamplerate/aclocal.m4
libsamplerate/AUTHORS
libsamplerate/autogen.sh
libsamplerate/Cfg/compile
libsamplerate/Cfg/config.guess
libsamplerate/Cfg/config.sub
libsamplerate/Cfg/depcomp
libsamplerate/Cfg/install-sh
libsamplerate/Cfg/ltmain.sh
libsamplerate/Cfg/missing