Result:
found more than 407 distributions - search limited to the first 2001 files matching your query
( run in 1.110 )
Algorithm-SVMLight
view release on metacpan or search on metacpan
SVMLight.patch view on Meta::CPAN
diff -urb svm_light/Makefile svm_light-new/Makefile
--- svm_light/Makefile 2008-10-08 14:38:53.000000000 -0500
+++ svm_light-new/Makefile 2008-11-18 14:06:33.000000000 -0600
@@ -16,17 +16,25 @@
#CFLAGS= $(SFLAGS) -pg -Wall -pedantic # debugging C-Compiler flags
#LFLAGS= $(SFLAGS) -pg # debugging linker flags
LIBS=-L. -lm # used libraries
+RANLIB=ranlib
-all: svm_learn_hideo svm_classify
+OPTIM=hideo
Algorithm-SkipList
view release on metacpan or search on metacpan
lib/Algorithm/SkipList.pm view on Meta::CPAN
return;
}
}
sub _debug {
my $self = shift;
my $list = $self->list;
lib/Algorithm/SkipList.pm view on Meta::CPAN
=item _set_k
These methods are used during initialization of the object.
=item _debug
$list->_debug;
Used for debugging skip lists by developer. The output of this
function is subject to change.
=back
=head2 Node Methods
Algorithm-Statistic
view release on metacpan or search on metacpan
Changes
include/debug.hpp
include/kth_order_statistic.hpp
lib/Algorithm/Statistic.pm
Makefile.PL
MANIFEST This list of files
ppport.h
Algorithm-StringHash-FromCSharp35-XS
view release on metacpan or search on metacpan
debop||5.005000|
debprofdump||5.005000|
debprof|||
debstackptrs||5.007003|
debstack||5.007003|
debug_start_match|||
deb||5.007003|v
del_sv|||
delete_eval_scope|||
delimcpy||5.004000|
deprecate_old|||
get_av|5.006000||p
get_context||5.006000|n
get_cvn_flags||5.009005|
get_cv|5.006000||p
get_db_sub|||
get_debug_opts|||
get_hash_seed|||
get_hv|5.006000||p
get_isa_hash|||
get_mstats|||
get_no_modify|||
incpush_if_exists|||
incpush_use_sep|||
incpush|||
ingroup|||
init_argv_symbols|||
init_debugger|||
init_global_struct|||
init_i18nl10n||5.006000|
init_i18nl14n||5.006000|
init_ids|||
init_interp|||
rsignal_save|||
rsignal_state||5.004000|
rsignal||5.004000|
run_body|||
run_user_filter|||
runops_debug||5.005000|
runops_standard||5.005000|
rvpv_dup|||
rxres_free|||
rxres_restore|||
rxres_save|||
unpackstring||5.008001|
unshare_hek_or_pvn|||
unshare_hek|||
unsharepvn||5.004000|
unwind_handler_stack|||
update_debugger_info|||
upg_version||5.009005|
usage|||
utf16_to_utf8_reversed||5.006001|
utf16_to_utf8||5.006001|
utf8_distance||5.006000|
Algorithm-TicketClusterer
view release on metacpan or search on metacpan
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
_doc_vector_template => {},
_tkt_doc_vecs => {},
_tkt_doc_vecs_normed => {},
_query_ticket_id => undef,
_inverted_index => {},
_debug1 => $args{debug1} || 0, # for processing Excel
_debug2 => $args{debug2} || 0, # for modeling tickets
_debug3 => $args{debug3} || 0, # for retrieving similar tickets
_wn => WordNet::QueryData->new( verbose => 0,
noload => 1 ),
}, $class;
}
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
}
}
}
$self->{_good_columns} = \@good_columns;
print "\nThe unique id is in column: $col_index_for_unique_id\n"
if $self->{_debug1};
print "The clustering field is in column: " .
"$col_index_for_clustering_field\n\n" if $self->{_debug1};
my %Column_Headers;
foreach my $field_index (0..@good_columns-1) {
my $key = "field_" . $field_index;
$Column_Headers{$key} = "";
}
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
my $cell =
$worksheets[$which_worksheet-1]->get_cell($col_headers_row, $_);
$cell ? _get_rid_of_wide_chars($cell->value()) : '';
} @good_columns;
$self->{_column_headers} = \@col_headers;
$self->_display_column_headers() if $self->{_debug1};
my $unique_id_field_index_in_good_columns =
_find_index_for_given_element( $col_index_for_unique_id, \@good_columns );
my $clustering_field_index_in_good_columns =
_find_index_for_given_element( $col_index_for_clustering_field,
\@good_columns );
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
push @duplicates, $ticket->{$self->{_unique_id_fieldname}}
if exists $check_hash{$ticket->{$self->{_unique_id_fieldname}}};
$check_hash{$ticket->{$self->{_unique_id_fieldname}}} = 1;
}
}
if ($self->{_debug1}) {
my $num_of_tickets = @{$self->{_all_tickets}};
my $num_entries_check_hash = keys %check_hash;
print "Number of tickets: $num_of_tickets\n";
print "Number of keys in check hash: $num_entries_check_hash\n";
}
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
sub _expand_one_ticket_with_synonyms {
my $self = shift;
my $ticket_id = shift;
print "\n\nEXPANDING TICKET $ticket_id WITH SYN-SETS:\n\n"
if $self->{_debug2};
$self->_replace_negated_words_with_antonyms_one_ticket( $ticket_id );
$self->_add_to_words_their_synonyms_one_ticket( $ticket_id );
}
sub _replace_negated_words_with_antonyms_one_ticket {
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
next unless @antonym_words > 0;
$#antonym_words = $self->{_max_num_syn_words} - 1
if @antonym_words > $self->{_max_num_syn_words};
my $antonym_replacement_string = join ' ', @antonym_words;
print "Antonym for $word is $antonym_replacement_string\n"
if $self->{_debug2};
$record =~ s/not\s+$word/$antonym_replacement_string/g;
}
my @words_negated_with_no = $record =~ /\bno\s+(\w+)/ig;
foreach my $word (@words_negated_with_no) {
next unless (($word =~ /^\w+$/) &&
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
next unless @antonym_words > 0;
$#antonym_words = $self->{_max_num_syn_words} - 1
if @antonym_words > $self->{_max_num_syn_words};
my $antonym_replacement_string = join ' ', @antonym_words;
print "Antonym for $word is $antonym_replacement_string\n"
if $self->{_debug2};
$record =~ s/no\s+$word/$antonym_replacement_string/g;
}
$self->{_processed_tkts_by_ids}->{$ticket_id} = $record;
}
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
@synonym_words = @{$self->{_synset_cache}->{$word}}
if exists $self->{_synset_cache}->{$word};
unless (exists $self->{_synset_cache}->{$word}) {
@synonym_words = @{$self->_get_synonyms_for_word( $word )};
print "syn-set for $word => @synonym_words\n\n"
if $self->{_debug2};
my $word_root;
if (@synonym_words == 0) {
if ((length($word) > 4) && ($word =~ /(.+)s$/)) {
$word_root = $1;
@synonym_words = @{$self->_get_synonyms_for_word( $word_root )}
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
@synonym_words = @{$self->_get_synonyms_for_word( $word_root )}
if length($word_root) >= $self->{_min_word_length};
}
}
print "syn-set for word root $word_root => @synonym_words\n\n"
if ( $self->{_debug2} && defined $word_root );
_fisher_yates_shuffle( \@synonym_words ) if @synonym_words > 0;
$#synonym_words = $self->{_max_num_syn_words} - 1
if @synonym_words > $self->{_max_num_syn_words};
print "Retained syn-set for $word => @synonym_words\n\n"
if $self->{_debug2};
$self->{_synset_cache}->{$word} = \@synonym_words;
push @synonym_bag, @synonym_words;
}
}
foreach my $syn_word (@synonym_bag) {
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
my %uniques = ();
my $record = $self->{_processed_tkts_by_ids}->{$ticket_id};
my @brokenup = split /\n|\r|\"|\'|\.|\(|\)|\[|\]|\\|\/|\s+/, $record;
my @clean_words = grep $_, map { /([a-z0-9_]{$min,})/i;$1 } @brokenup;
next unless @clean_words;
@clean_words = grep $_, map &_simple_stemmer($_, $self->{_debug2}),
@clean_words;
map { $vocab_hist_on_disk{"\L$_"}++ } grep $_, @clean_words;
for (@clean_words) { $uniques{"\L$_"}++ };
map { $self->{_vocab_idf_hist}->{"\L$_"}++ } keys %uniques;
map { push @{$self->{_inverted_index}->{"\L$_"}}, $ticket_id }
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
}
untie %vocab_hist_on_disk;
$self->{_tkt_vocab_done} = 1;
$self->{_vocab_size} = scalar( keys %{$self->{_vocab_hist}} );
print "\n\nVocabulary size: $self->{_vocab_size}\n\n"
if $self->{_debug2};
# Calculate idf(t):
$self->{_idf_db} = "idf.db" unless $self->{_idf_db};
unlink glob "$self->{_idf_db}.*";
tie my %idf_t_on_disk, 'SDBM_File', $self->{_idf_db}, O_RDWR|O_CREAT, 0640
or die "Can't create DBM files: $!";
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
map {$relevant_tickets_set{$_} = 1} @{$self->{_inverted_index}->{$qword}}
if $self->{_idf_t}->{$qword} > $self->{_min_idf_threshold};
}
my @relevant_tickets = sort {$a <=> $b} keys %relevant_tickets_set;
print "The relevant tickets for query: @relevant_tickets"
if $self->{_debug3};
my $num_relevant_tkts = @relevant_tickets;
print "\nThe number of tickets relevant to the query: $num_relevant_tkts\n\n";
my %retrievals;
my $rank = 0;
foreach (sort {$self->_doc_vec_comparator} @relevant_tickets ) {
$retrievals{$_} = $self->_similarity_to_query_ticket($_);
$rank++;
last if $rank == $self->{_how_many_retrievals};
}
if ($self->{_debug3}) {
print "\n\nShowing the VSM retrievals and the similarity scores:\n\n";
foreach (sort {$retrievals{$b} <=> $retrievals{$a}} keys %retrievals) {
print "$_ => $retrievals{$_}\n";
}
}
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
######################## Utility Subroutines ##########################
sub _simple_stemmer {
my $word = shift;
my $debug = shift;
print "\nStemming the word: $word\n" if $debug;
$word =~ s/(.*[a-z]t)ted$/$1/i;
$word =~ s/(.*[a-z]t)ting$/$1/i;
$word =~ s/(.*[a-z]l)ling$/$1/i;
$word =~ s/(.*[a-z]g)ging$/$1/i;
$word =~ s/(.*[a-z]ll)ed$/$1/i;
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
$word =~ s/(.*[a-z]+)tices$/$1tex/i;
$word =~ s/(.*[a-z]+)pes$/$1pe/i;
$word =~ s/(.*[a-z]+)sed$/$1se/i;
$word =~ s/(.*[a-z]+)ed$/$1/i;
$word =~ s/(.*[a-z]+)tation$/$1t/i;
print "Stemmed word: $word\n\n" if $debug;
return $word;
}
sub _exists {
my $element = shift;
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
stop_words_file
misspelled_words_file
unique_id_fieldname
want_stemming
how_many_retrievals
debug1
debug2
debug3
/;
my $found_match_flag;
foreach my $param (@params) {
foreach my $legal (@legal_params) {
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
column. An example of such a file is included in the C<examples>
directory. You would need to create your own version of such a file for
your application domain. Since conjuring up the misspellings that your
ticket submitters are likely to throw at you is futile, you might consider
using the following approach which I prefer to actually reading the tickets
for such errors: Turn on the debugging options in the constructor for some
initially collected spreadsheets and watch what sort of words the WordNet
is not able to supply any synonyms for. In a large majority of cases,
these would be the misspelled words.
Expanding a ticket with synonyms is made complicated by the fact that some
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
min_idf_threshold => 2.0,
max_num_syn_words => 3,
min_word_length => 4,
want_stemming => 1,
how_many_retrievals => 5,
debug1 => 1, # for processing, filtering Excel
debug2 => 1, # for doc modeling
debug3 => 1, # for retrieving similar tickets
);
Obviously, before you can invoke the constructor, you must provide values for the
variables shown to the right of the big arrows. As to what these values should be is
lib/Algorithm/TicketClusterer.pm view on Meta::CPAN
This is for supplying to the constructor the heading of the column in your Excel
spreadsheet that contains the textual data for the tickets. For example, if the
column heading for the textual content of the tickets is `Description', you must
supply this string as the value for the parameter C<clustering_fieldname>.
=item I<debug1:>
When this parameter is set, the module prints out information regarding what columns
of the spreadsheet it is extracting information from, the headers for those columns,
the index of the column that contains the textual content of the tickets, and of the
column that contains the unique integer identifier for each ticket. If you are
dealing with spreadsheets with a large number of tickets, it is best to pipe the
output of the module into a file to see the debugging information.
=item I<debug2:>
When this parameter is set, you will see how WordNet is being utilized to generate
word synonyms. This debugging output is also useful to see the extent of misspellings
in the tickets. If WordNet is unable to find the synonyms for a word, chances are
that the word is not spelled correctly (or that it is a jargon word or a jargon
acronym).
=item I<debug3:>
This debug flag applies to the calculations carried out during the retrieval of
similar tickets. When this flag is set, the module will display the candidate set of
tickets to be considered for matching with the query ticket. This candidate set is
chosen by using the inverted index to collect all the tickets that share words with
the query word provided the IDF value for each such word exceeds the threshold set by
the constructor parameter C<min_idf_threshold>.
Algorithm-TokenBucket
view release on metacpan or search on metacpan
lib/Algorithm/TokenBucket.pm view on Meta::CPAN
}
=item get_token_count()
Returns the current number of tokens in the bucket. This method may be
useful for inspection or debugging purposes. You should not examine
the state of the bucket for rate limiting purposes.
This number will frequently be fractional so it is not exactly a
"count".
lib/Algorithm/TokenBucket.pm view on Meta::CPAN
Documentation lacks the actual algorithm description. See links or read
the source (there are about 20 lines of sparse Perl in several subs).
C<until($N)> does not return infinity if C<$N> is greater than C<burst
size>. Sleeping for infinity seconds is both useless and hard to debug.
=head1 ACKNOWLEDGMENTS
Yuval Kogman contributed the L</until($)> method, proper L<Storable> support
and other things.
Algorithm-TrunkClassifier
view release on metacpan or search on metacpan
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
debop||5.005000|
debprofdump||5.005000|
debprof|||
debstackptrs||5.007003|
debstack||5.007003|
debug_start_match|||
deb||5.007003|v
del_sv|||
delete_eval_scope|||
delimcpy||5.004000|
deprecate_old|||
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
get_av|5.006000||p
get_context||5.006000|n
get_cvn_flags||5.009005|
get_cv|5.006000||p
get_db_sub|||
get_debug_opts|||
get_hash_seed|||
get_hv|5.006000||p
get_mstats|||
get_no_modify|||
get_num|||
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
incline|||
incpush_if_exists|||
incpush|||
ingroup|||
init_argv_symbols|||
init_debugger|||
init_global_struct|||
init_i18nl10n||5.006000|
init_i18nl14n||5.006000|
init_ids|||
init_interp|||
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
rsignal_save|||
rsignal_state||5.004000|
rsignal||5.004000|
run_body|||
run_user_filter|||
runops_debug||5.005000|
runops_standard||5.005000|
rvpv_dup|||
rxres_free|||
rxres_restore|||
rxres_save|||
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
unpackstring||5.008001|
unshare_hek_or_pvn|||
unshare_hek|||
unsharepvn||5.004000|
unwind_handler_stack|||
update_debugger_info|||
upg_version||5.009005|
usage|||
utf16_to_utf8_reversed||5.006001|
utf16_to_utf8||5.006001|
utf8_distance||5.006000|
Algorithm-VSM
view release on metacpan or search on metacpan
examples/significance_testing.pl view on Meta::CPAN
use strict;
use Algorithm::VSM;
my $debug_signi = 0;
die "Must supply one command-line argument, which must either be 'randomization' or 't-test'\n"
unless @ARGV == 1;
my $significance_testing_method = shift @ARGV;
die "The command-line argument must either be 'randomization' or " .
examples/significance_testing.pl view on Meta::CPAN
my $MAP_Algo_1 = 0;
map {$MAP_Algo_1 += $_} @$avg_precisions_1;
$MAP_Algo_1 /= @$avg_precisions_1;
print "MAP value for LSA-1: $MAP_Algo_1\n";
print "Avg precisions for LSA-1: @$avg_precisions_1\n"
if $debug_signi;
######################## Algorithm 2 #########################
my $lsa2 = Algorithm::VSM->new(
examples/significance_testing.pl view on Meta::CPAN
my $MAP_Algo_2 = 0;
map {$MAP_Algo_2 += $_} @$avg_precisions_2;
$MAP_Algo_2 /= @$avg_precisions_2;
print "MAP value for LSA-2: $MAP_Algo_2\n";
print "Average precisions for LSA-2: @$avg_precisions_2\n"
if $debug_signi;
# This is the observed value for the test statistic that will be subject to
# significance testing:
my $OBSERVED_t = $MAP_Algo_1 - $MAP_Algo_2;
examples/significance_testing.pl view on Meta::CPAN
######################## Significance Testing ######################
my @range = 0..@$avg_precisions_1-1;
if ($debug_signi) {
my $total_number_of_permutations = 2 ** @range;
print "\n\nTotal num of permuts $total_number_of_permutations\n\n";
}
# For each permutation of the algorithm labels over the queries, we
examples/significance_testing.pl view on Meta::CPAN
push @algo_2, $avg_precisions_1->[$_];
}
}
my $MAP_1 = 0;
my $MAP_2 = 0;
if ($debug_signi) {
print "\n\nHere come algo_1 and algo_2 average precisions:\n\n";
print "\npretend produced by algo 1: @algo_1\n\n";
print "pretend produced by algo 2: @algo_2\n";
}
map {$MAP_1 += $_} @algo_1;
map {$MAP_2 += $_} @algo_2;
$MAP_1 /= @range;
$MAP_2 /= @range;
if ($debug_signi) {
print "\nMAP_1: $MAP_1\n";
print "MAP_2: $MAP_2\n\n";
}
$test_statistic[$iter] = $MAP_1 - $MAP_2;
last if $iter++ == $MAX_ITERATIONS;
examples/significance_testing.pl view on Meta::CPAN
}
if ($significance_testing_method eq 'randomization') {
print "\n\nIn randomization based p-value calculation:\n\n";
print "test-statistic values for different permutations: @test_statistic\n"
if $debug_signi;
# This count keeps track of how many of the test_statistic values are
# less than and greater than the value in $OBSERVED_t
my $count = 0;
foreach (@test_statistic) {
Alias
view release on metacpan or search on metacpan
Require 5.004.
=item 2.3
The developer versions after 5.003 broke XSUB call semantics when the
C<-d> switch is used (to invoke debugger or profiler). The problem is
fixed in versions >= 5.003_19. Added the necessary logic to make use
of the escape in Alias.xs. Thanks to Josh Purinton <joshp@silmaril.com>
for reporting the problem.
Objects are not automatically dereferenced by attr(). They are available
Alice
view release on metacpan or search on metacpan
lib/Alice.pm view on Meta::CPAN
}
sub close_window {
my ($self, $window) = @_;
AE::log debug => "sending a request to close a tab: " . $window->title;
$self->broadcast($window->close_action);
if ($window->is_channel) {
my $irc = $self->get_irc($window->network);
my $config = $self->config->servers->{$window->network};
lib/Alice.pm view on Meta::CPAN
}
}
sub purge_disconnects {
my ($self) = @_;
AE::log debug => "removing broken streams";
$self->streams([grep {!$_->closed} @{$self->streams}]);
}
sub render {
my ($self, $template, @data) = @_;
Alien-AntTweakBar
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
my ($k) = map{$_ =~ /\n---\s*([\S]+)/} $p;
# doing the same like -p1 for 'patch'
$k =~ s|\\|/|g;
$k =~ s|^[^/]*/(.*)$|$1|;
$k = catfile($dir_to_be_patched, $k);
print STDERR "- gonna patch '$k'\n" if $self->notes('build_debug_info');
open(SRC, $k) or die "###ERROR### Cannot open file: '$k'\n";
$src = <SRC>;
close(SRC);
$src =~ s/\r\n/\n/g; #normalise newlines
Alien-Autotools
view release on metacpan or search on metacpan
4. Combined Works.
You may convey a Combined Work under terms of your choice that,
taken together, effectively do not restrict modification of the
portions of the Library contained in the Combined Work and reverse
engineering for debugging such modifications, if you also do each of
the following:
a) Give prominent notice with each copy of the Combined Work that
the Library is used in it and that the Library and its use are
covered by this License.
Alien-Base-Dino
view release on metacpan or search on metacpan
corpus/libpalindrome/configure view on Meta::CPAN
# When building in place, set srcdir=.
if test "$ac_abs_confdir" = "$ac_pwd"; then
srcdir=.
fi
# Remove unnecessary trailing slashes from srcdir.
# Double slashes in file names in object file debugging info
# mess up M-x gdb in Emacs.
case $srcdir in
*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;;
esac
for ac_var in $ac_precious_vars; do
corpus/libpalindrome/configure view on Meta::CPAN
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
} # ac_fn_c_check_func
cat >config.log <<_ACEOF
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
It was created by libpalindrome $as_me 1.3.4, which was
generated by GNU Autoconf 2.69. Invocation command line was
$ $0 $@
corpus/libpalindrome/configure view on Meta::CPAN
# config.log. We remove comments because anyway the quotes in there
# would cause problems or look ugly.
# WARNING: Use '\'' to represent an apostrophe within the trap.
# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug.
trap 'exit_status=$?
# Save into config.log some information that might help in debugging.
{
echo
$as_echo "## ---------------- ##
## Cache variables. ##
corpus/libpalindrome/configure view on Meta::CPAN
striplib=
old_striplib=
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5
$as_echo_n "checking whether stripping libraries is possible... " >&6; }
if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then
test -z "$old_striplib" && old_striplib="$STRIP --strip-debug"
test -z "$striplib" && striplib="$STRIP --strip-unneeded"
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
$as_echo "yes" >&6; }
else
# FIXME - insert some real tests, host_os isn't really good enough
corpus/libpalindrome/configure view on Meta::CPAN
as_write_fail=0
cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1
#! $SHELL
# Generated by $as_me.
# Run this file to recreate the current configuration.
# Compiler output produced by configure, useful for debugging
# configure, is in config.log if it exists.
debug=false
ac_cs_recheck=false
ac_cs_silent=false
SHELL=\${CONFIG_SHELL-$SHELL}
export SHELL
corpus/libpalindrome/configure view on Meta::CPAN
-h, --help print this help, then exit
-V, --version print version number and configuration settings, then exit
--config print configuration, then exit
-q, --quiet, --silent
do not print progress messages
-d, --debug don't remove temporary files
--recheck update $as_me by reconfiguring in the same conditions
--file=FILE[:TEMPLATE]
instantiate the configuration file FILE
--header=FILE[:TEMPLATE]
instantiate the configuration header FILE
corpus/libpalindrome/configure view on Meta::CPAN
ac_cs_recheck=: ;;
--version | --versio | --versi | --vers | --ver | --ve | --v | -V )
$as_echo "$ac_cs_version"; exit ;;
--config | --confi | --conf | --con | --co | --c )
$as_echo "$ac_cs_config"; exit ;;
--debug | --debu | --deb | --de | --d | -d )
debug=: ;;
--file | --fil | --fi | --f )
$ac_shift
case $ac_optarg in
*\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
'') as_fn_error $? "missing file argument" ;;
corpus/libpalindrome/configure view on Meta::CPAN
fi
# Have a temporary directory for convenience. Make it in the build tree
# simply because there is no reason against having it here, and in addition,
# creating and moving files from /tmp can sometimes cause problems.
# Hook for its removal unless debugging.
# Note that there is a small window in which the directory will not be cleaned:
# after its creation but before its name has been assigned to `$tmp'.
$debug ||
{
tmp= ac_tmp=
trap 'exit_status=$?
: "${ac_tmp:=$tmp}"
{ test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status
corpus/libpalindrome/configure view on Meta::CPAN
need_locks=$lt_need_locks
# Manifest tool.
MANIFEST_TOOL=$lt_MANIFEST_TOOL
# Tool to manipulate archived DWARF debug symbol files on Mac OS X.
DSYMUTIL=$lt_DSYMUTIL
# Tool to change global to local symbols on Mac OS X.
NMEDIT=$lt_NMEDIT
Alien-Base-ModuleBuild
view release on metacpan or search on metacpan
lib/Alien/Base/ModuleBuild/FAQ.pod view on Meta::CPAN
"%{gmake} install",
],
...
)->create_build_script;
=head2 When debugging my package build, I get different results!
If you get results from running the commands in your shell different to what happens when your C<Alien::>
distribution attempts to build, it may be because your environment is different than the one that your
distribution is using. For example, if you use L<Alien::CMake> or L<Alien::gmake> to build with specific tools
that are provided by your operating system, L<Alien::Base::ModuleBuild> will adjust the path before executing
Alien-Base
view release on metacpan or search on metacpan
0.006 Oct 14, 2014
- Production release identical to 0.005_07 release
0.005_07 Oct 13, 2014
- commands are printed as they are executed for easier debugging (plicease gh#91)
- c_compiler_required repository option (default on)
0.005_06 Sep 30, 2014
- ExtUtils::Depends integration (plicease gh#85, gh#87)
- added alien_check_built_version method to Alien::Base::ModuleBuild (plicease gh#83, gh#89)
Alien-Box2D
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
my ($k) = map{$_ =~ /\n---\s*([\S]+)/} $p;
# doing the same like -p1 for 'patch'
$k =~ s|\\|/|g;
$k =~ s|^[^/]*/(.*)$|$1|;
$k = catfile($dir_to_be_patched, $k);
print STDERR "- gonna patch '$k'\n" if $self->notes('build_debug_info');
open(SRC, $k) or die "###ERROR### Cannot open file: '$k'\n";
$src = <SRC>;
close(SRC);
$src =~ s/\r\n/\n/g; #normalise newlines
Alien-Build-MB
view release on metacpan or search on metacpan
lib/Alien/Build/MB.pm view on Meta::CPAN
be sure that you also call C<< $build->checkpoint >>!
=head1 ACTIONS
These actions should automatically be called during the normal install
process. For debugging you may want to call them separately.
=head2 ACTION_alien_download
./Build alien_download
Alien-Build-Plugin-Build-Premake5
view release on metacpan or search on metacpan
lib/Alien/Build/Plugin/Build/Premake5.pm view on Meta::CPAN
Forfeit SSH certification checks.
=item B<verbose>
Generate extra debug text output.
=back
=head2 Key / value pairs
Alien-Build
view release on metacpan or search on metacpan
lib/Alien/Build/MM.pm view on Meta::CPAN
my $postamble $abmm->mm_postamble;
my $postamble $abmm->mm_postamble($mm);
Returns the postamble for the C<Makefile> needed for L<Alien::Build>.
This adds the following C<make> targets which are normally called when
you run C<make all>, but can be run individually if needed for debugging.
=over 4
=item alien_prefix
Alien-CPython3
view release on metacpan or search on metacpan
do {
my $ret = $build->decode( $build->fetch($arch_index_url) );
$build->log(".msi list (all) " . join(" ", map $_->{filename}, @{ $ret->{list} }));
# filter out debugging .msi's
my @filtered_list = grep {
$_->{filename} !~ /(_d|_pdb)\.msi$/
} @{ $ret->{list} };
$build->log(".msi list (filter) " . join(" ", map $_->{filename}, @filtered_list));
Alien-CodePress
view release on metacpan or search on metacpan
cp/codepress/license.txt view on Meta::CPAN
6. As an exception to the Sections above, you may also combine or
link a "work that uses the Library" with the Library to produce a
work containing portions of the Library, and distribute that work
under terms of your choice, provided that the terms permit
modification of the work for the customer's own use and reverse
engineering for debugging such modifications.
You must give prominent notice with each copy of the work that the
Library is used in it and that the Library and its use are covered by
this License. You must supply a copy of this License. If the work
during execution displays copyright notices, you must include the
Alien-Ditaa
view release on metacpan or search on metacpan
lib/Alien/Ditaa.pm view on Meta::CPAN
=head2 last_run_output
The STDOUT of the child java process running ditaa for the last
call to the C<< run_ditaa >> method. This is not normally useful
except as information to help debug the problem when a run
fails.
=head1 SEE ALSO
L<http://ditaa.sourceforge.net>
Alien-FreeImage
view release on metacpan or search on metacpan
src/Source/LibPNG/LICENSE
src/Source/LibPNG/png.5
src/Source/LibPNG/png.c
src/Source/LibPNG/png.h
src/Source/LibPNG/pngconf.h
src/Source/LibPNG/pngdebug.h
src/Source/LibPNG/pngerror.c
src/Source/LibPNG/pngget.c
src/Source/LibPNG/pnginfo.h
src/Source/LibPNG/pnglibconf.h
src/Source/LibPNG/pngmem.c
Alien-GMP
view release on metacpan or search on metacpan
4. Combined Works.
You may convey a Combined Work under terms of your choice that,
taken together, effectively do not restrict modification of the
portions of the Library contained in the Combined Work and reverse
engineering for debugging such modifications, if you also do each of
the following:
a) Give prominent notice with each copy of the Combined Work that
the Library is used in it and that the Library and its use are
covered by this License.
Alien-Gnuplot
view release on metacpan or search on metacpan
lib/Alien/Gnuplot.pm view on Meta::CPAN
=head1 AUTHOR
Craig DeForest <craig@deforest.org>
(with special thanks to Chris Marshall, Juergen Mueck, and
Sisyphus for testing and debugging on the Microsoft platform)
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2013 Craig DeForest
lib/Alien/Gnuplot.pm view on Meta::CPAN
=cut
package Alien::Gnuplot;
use strict;
our $DEBUG = 0; # set to 1 for some debugging output
use parent qw( Alien::Base );
use File::Spec;
use File::Temp qw/tempfile/;
Alien-IUP
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
INC => $inst->{cflags},
});
}
else {
# some questions before we start
my $dbg = !$ENV{TRAVIS} ? $self->prompt("\nDo you want to see debug info + all messages during 'make' (y/n)?", 'n') : 'n';
$self->notes('build_msgs', lc($dbg) eq 'y' ? 1 : 0);
$self->notes('build_debug_info', lc($dbg) eq 'y' ? 1 : 0);
#my $large_imglib = $ENV{TRAVIS} ? 'y' : lc($self->prompt("Do you wanna compile built-in images with large (48x48) size? ", "y"));
my $large_imglib = 'y'; #forcing large icons
$self->notes('build_large_imglib', lc($large_imglib) eq 'y' ? 1 : 0);
# important directories
inc/My/Builder.pm view on Meta::CPAN
# go for build
my $success = $self->build_binaries($build_out, $build_src);
my $done = $self->config_data('info_done');
my $iuplibs = $self->config_data('iup_libs');
if ($self->notes('build_debug_info')) {
print STDERR "Build result: $done->{$_} - $_\n" foreach (sort keys %$done);
print STDERR "Output libs : $iuplibs->{$_} - $_\n" foreach (sort keys %$iuplibs);
}
die "###BUILD FAILED### essential libs (iup/im/cd) not built!" unless $done->{"iup:iup"} && $done->{"iup:iupim"} && $done->{"iup:iupcd"};
die "###BUILD FAILED###" unless $success;
inc/My/Builder.pm view on Meta::CPAN
my ($k) = map{$_ =~ /\n---\s*([\S]+)/} $p;
# doing the same like -p1 for 'patch'
$k =~ s|\\|/|g;
$k =~ s|^[^/]*/(.*)$|$1|;
$k = catfile($dir_to_be_patched, $k);
print STDERR "- gonna patch '$k'\n" if $self->notes('build_debug_info');
if (open(SRC, $k)) {
$src = <SRC>;
close(SRC);
$src =~ s/\r\n/\n/g; #normalise newlines
Alien-Iconv
view release on metacpan or search on metacpan
inc/Devel/CheckLib.pm view on Meta::CPAN
@sys_cmd = (@cc, (map { "-I$_" } @incpaths), "-o$exefile", $cfile);
} else { # Unix-ish
# gcc, Sun, AIX (gcc, cc)
@sys_cmd = (@cc, $cfile, (map { "-I$_" } @incpaths), "-o", "$exefile");
}
warn "# @sys_cmd\n" if $args{debug};
my $rv = $args{debug} ? system(@sys_cmd) : _quiet_system(@sys_cmd);
push @missing, $header if $rv != 0 || ! -x $exefile;
_cleanup_exe($exefile);
unlink $cfile;
}
inc/Devel/CheckLib.pm view on Meta::CPAN
} else { # Unix-ish
# gcc, Sun, AIX (gcc, cc)
my @libpath = map { "-L$_" } @libpaths;
@sys_cmd = (@cc, $cfile, "-o", "$exefile", "-l$lib", @libpath);
}
warn "# @sys_cmd\n" if $args{debug};
my $rv = $args{debug} ? system(@sys_cmd) : _quiet_system(@sys_cmd);
push @missing, $lib if $rv != 0 || ! -x $exefile;
_cleanup_exe($exefile);
}
unlink $cfile;
Alien-Judy
view release on metacpan or search on metacpan
inc/My/Judy/Builder.pm view on Meta::CPAN
Optional Features:
--disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no)
--enable-FEATURE[=ARG] include FEATURE [ARG=yes]
--enable-maintainer-mode enable make rules and dependencies not useful
(and sometimes confusing) to the casual installer
--enable-debug enable debugging features
--enable-ccover enable use of ccover code coverage tools
--disable-dependency-tracking speeds up one-time build
--enable-dependency-tracking do not reject slow dependency extractors
--enable-32-bit Generate code for a 32-bit environment
--enable-64-bit Generate code for a 64-bit environment
Alien-LibANN
view release on metacpan or search on metacpan
inc/Devel/CheckLib.pm view on Meta::CPAN
@sys_cmd = (@cc, (map { "-I$_" } @incpaths), "-o$exefile", $cfile);
} else { # Unix-ish
# gcc, Sun, AIX (gcc, cc)
@sys_cmd = (@cc, $cfile, (map { "-I$_" } @incpaths), "-o", "$exefile");
}
warn "# @sys_cmd\n" if $args{debug};
my $rv = $args{debug} ? system(@sys_cmd) : _quiet_system(@sys_cmd);
push @missing, $header if $rv != 0 || ! -x $exefile;
_cleanup_exe($exefile);
unlink $cfile;
}
inc/Devel/CheckLib.pm view on Meta::CPAN
} else { # Unix-ish
# gcc, Sun, AIX (gcc, cc)
my @libpath = map { "-L$_" } @libpaths;
@sys_cmd = (@cc, $cfile, "-o", "$exefile", "-l$lib", @libpath);
}
warn "# @sys_cmd\n" if $args{debug};
my $rv = $args{debug} ? system(@sys_cmd) : _quiet_system(@sys_cmd);
push @missing, $lib if $rv != 0 || ! -x $exefile;
_cleanup_exe($exefile);
}
unlink $cfile;
Alien-LibCIAORegion
view release on metacpan or search on metacpan
alienfile
alienfile.orig
cpanfile
dist.ini
docker/Dockerfile
docker/Dockerfile.debug
docker/Dockerfile.p528
inc/cxcregion-4.12.0.1.tar.gz
lib/Alien/LibCIAORegion.pm
perlcritic.rc
perlcritic.rc.orig
( run in 1.110 second using v1.01-cache-2.11-cpan-49f99fa48dc )