AI-MicroStructure
view release on metacpan or search on metacpan
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
Appendix: How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to humanity, the best way to achieve this is to make it
my @test = split /\/|\.| |-/,$_->{name};
$ret->{$_->{application}}->{$_->{name}} = [$ret->{$_->{application}}->{$_->{name}} ?
$ret->{$_->{application}}->{$_->{name}} + 1 : 1 ,$duration];
}
p $ret;
1;
__DATA__
application "other",
category "other",
class ""konsole", "Konsole"",
command "{ "/usr/bin/konsole" }",
_end 1415148737,
id "0x804e33",
name ""~/repos/app-chronos : perl"",
role ""MainWindow#3"",
_start 1415148732
bin/from-folder.pl view on Meta::CPAN
}
}
find(\&translate, "$TOP");
p @{[keys %$files,reverse @ARGV,$storage]};
__DATA__
our $c = AI::MicroStructure::Context->new(@ARGV);
$c->retrieveIndex($PWD."/t/docs"); #"/home/santex/data-hub/data-hub" structures=0 text=1 json=1
my $style = {};
$style->{explicit} = 1;
ok($c->simpleMixedSearch($style,$_)) && ok($c->play($style,$_)) for
qw(atom antimatter planet);
bin/localfiles view on Meta::CPAN
push @result,$image;
}
print join("\n", @result);
}
__DATA__
my $micro = AI::MicroStructure->new("any");
my $path = $micro->{state}->{cwd};
my $picdir = sprintf("%s/%s",$ENV{"HOME"},"Pictures/1");
my $pubdir = sprintf("%s/%s",$ENV{"HOME"},"public_html");
push @INC ,-d $path ? $path : $ENV{"HOME"};
push @INC ,-d $picdir ? $picdir :"";
push @INC ,-d $pubdir ? $picdir :"";
my $xx=$memd->get("localfile_".$match);
if(!$xx){
bin/micro-relation view on Meta::CPAN
}
return $str;
}
try{
print rel(eval qw{$_}, $lang) for @ARGV;
};
#
1;
__DATA__
bin/micro-relation-test view on Meta::CPAN
my $str = rel($call, $lang);
$memd->set($call,$str);
}
}
#
1;
__DATA__
bin/micro-wiki view on Meta::CPAN
}
1;
__DATA__
bin/remote.pl view on Meta::CPAN
package main;
use Data::Printer;
my $ps = AI::MicroStructure::KnowHow->new();
my @go = $ps->remote_Knowledge();
print @go;
p $ps;
1;
__DATA__
package AI::MicroStructure::Knowledge;
use strict;
use AI::MicroStructure (); # do not export metaname and friends
#use AI::MicroStructure::RemoteKnowledge;
use List::Util qw( shuffle );
use Carp;
our @ISA = qw( AI::MicroStructure::RemoteKnowledge );
sub init {
bin/remote.pl view on Meta::CPAN
1;
package main;
use Data::Printer;
my $ps = AI::MicroStructure::pornstars->new();
my @go = $ps->extract();
p @go;
p $ps;
1;
__DATA__
# names female
Abigail_Clayton
Adara_Michaels
Addison_Rose
Adele_Stevens
Adriana_Sage
Adrienne_Bellaire
Africa_Sexxx
Ai_Iijima
Aimee_Sweet
lib/AI/MicroStructure.pm view on Meta::CPAN
1;
EOC
eval $code;
$MICRO{$structure} = 1; # loaded
# export the microstructure() function
no strict 'refs';
my $callpkg = caller;
*{"$callpkg\::micro$structure"} = sub { $micro->name( $structure, @_ ) };
}
}
# load the content of __DATA__ into a structure
# this class method is used by the other AI::MicroStructure classes
sub load_data {
my ($class, $structure ) = @_;
$data = {};
my $fh;
{ no strict 'refs'; $fh = *{"$structure\::DATA"}{IO}; }
my $item;
my @items;
$$item = "";
{
if(defined($fh)){
local $_;
while (<$fh>) {
/^#\s*(\w+.*)$/ && do {
push @items, $item;
$item = $data;
lib/AI/MicroStructure.pm view on Meta::CPAN
}
push @in , keys %{$dat->{names}};
push @in , values %{$data->{names}};
$dat->{names} = join(" ",@in);
$dat->{names} =~ s/$line(.*?)\-\>(.*?) [1-9] /$1 $2/g;
$dat->{names} =~ s/ / /g;
my @file = grep{/$Structure/}map{File::Glob::bsd_glob(
File::Spec->catfile( $_, ($structdir,"*.pm") ) )}@CWD;
if(@file){
open(SELF,"+<$file[0]") || die $!;
while(<SELF>){last if /^__DATA__/}
truncate(SELF,tell SELF);
print SELF $self->save_cat($dat);
truncate(SELF,tell SELF);
close SELF;
}
}
sub openData{
my $self = shift;
my @datax = ();
if(<DATA>){
@datax = <DATA>;
while(@datax){
chomp;
if($_=~/^#\s*(\w+.*)$/) {
@a=split(" ",$1);
if($#a){
$data->{$a[0]}->{$a[1]}="";
}else{
$data->{$1}="";
}
$item=$1 unless($#a);
lib/AI/MicroStructure.pm view on Meta::CPAN
grep{!/synonyms|hypernyms/}split("sense~~~~~~~~~",
lc `micro-wnet $k`)];
next unless(@{$new->{$k}});
# $new->{$k}=~s/Sense*\n(.*?)\n\n/$1/g;
# @{$new->{$k}} = [split("\n|,",$new->{$k})];
$data->{rows}->{"ident"}->{md5_base64($new->{$k})} = $new->{$k};
}
my $list = join("\n",sort keys %$new);
# $list =~ s/_//g;
$usage .= "
__DATA__
# names
".$list;
}
sub save_new {
my $self = shift;
my $StructureName = shift;
my $data = shift;
if($StructureName){
#$StructureName = lc $self->trim(`micro`) unless($StructureName);
my $file = "$absstructdir/$StructureName.pm";
lib/AI/MicroStructure.pm view on Meta::CPAN
=head1 AUTHOR
Hagen Geissler <santex@cpan.org>
=head1 COPYRIGHT AND LICENCE
Hagen Geissler <santex@cpan.org>
=head1 SUPPORT AND DOCUMENTATION
[sample using concepts](http://active-memory.de:2323/nerd?param=perl#ajax/home)
[PDF info on my works](https://github.com/santex/AI-MicroStructure)
=head1 SEE ALSO
AI-MicroStructure
=cut
__DATA__
lib/AI/MicroStructure/Alias.pm view on Meta::CPAN
=head1 NAME
AI::MicroStructure::bonk - The bonk structure
=head1 DESCRIPTION
This structure is just an alias of the C<batman> theme.
=cut
# no __DATA__ section required!
=head1 DESCRIPTION
C<AI::MicroStructure::Alias> is the base class for any structures that is
simply an alias of another structure.
=head1 METHOD
AI::MicroStructure::Alias defines a single method, C<init()> that
make aliases very easy to write (see the full example in L<SYNOPSIS>):
lib/AI/MicroStructure/List.pm view on Meta::CPAN
=head1 NAME
AI::MicroStructure::beatles - The fab four structure
=head1 DESCRIPTION
Ladies and gentlemen, I<The Beatles>. I<(hysteric cries)>
=cut
__DATA__
# names
john paul
george ringo
=head1 DESCRIPTION
C<AI::MicroStructure::List> is the base class for all structures that are
meant to return a random excerpt from a predefined list.
=head1 METHOD
lib/AI/MicroStructure/List.pm view on Meta::CPAN
=over 4
=item new()
The constructor of a single instance. An instance will not repeat items
until the list is exhausted.
=item init()
init() must be called when the subclass is loaded, so as to read the
__DATA__ section and fully initialise it.
=item name( $count )
Return $count names (default: C<1>).
Using C<0> will return the whole list in list context, and the size of the
list in scalar context.
=item structure()
lib/AI/MicroStructure/Locale.pm view on Meta::CPAN
=head1 NAME
AI::MicroStructure::digits - The numbers structure
=head1 DESCRIPTION
You can count on this module. Almost.
=cut
__DATA__
# default
en
# names en
zero one two three four five six seven eight nine
# names fr
zero un deux trois quatre cinq six sept huit neuf
# names it
zero uno due tre quattro cinque sei sette otto nove
# names yi
nul eyn tsvey dray fir finf zeks zibn akht nayn
lib/AI/MicroStructure/Locale.pm view on Meta::CPAN
C<Win32::Locale>).
POSIX locales are defined as C<language[_territory][.codeset][@modifier]>.
If the specific territory is not supported, C<AI::MicroStructure::Locale>
will use the language, and if the language isn't supported either,
the default is used.
=item init()
init() must be called when the subclass is loaded, so as to read the
__DATA__ section and fully initialise it.
=item name( $count )
Return $count names (default: C<1>).
Using C<0> will return the whole list in list context, and the size of the
list in scalar context (according to the C<lang> parameter passed to the
constructor).
=item lang()
lib/AI/MicroStructure/MultiList.pm view on Meta::CPAN
=head1 NAME
AI::MicroStructure::digits - The numbers structure
=head1 DESCRIPTION
You can count on this module. Almost.
=cut
__DATA__
# default
:all
# names primes even
two
# names primes odd
three five seven
# names composites even
four six eight
# names composites odd
nine
lib/AI/MicroStructure/MultiList.pm view on Meta::CPAN
$meta = AI::MicroStructure::digits->new( category => ':all' );
If no C<category> parameter is given, C<AI::MicroStructure::MultiList>
will use the class default. If the class doesn't define a default,
then C<:all> is used.
=item init()
init() must be called when the subclass is loaded, so as to read the
__DATA__ section and fully initialise it.
=item name( $count )
Return $count names (default: C<1>).
Using C<0> will return the whole list in list context, and the size of the
list in scalar context (according to the C<category> parameter passed to the
constructor).
=item category()
lib/AI/MicroStructure/WordBlacklist.pm view on Meta::CPAN
AI-MicroStructure-Concept
AI-MicroStructure-Data
AI-MicroStructure-Driver
AI-MicroStructure-Plugin-Pdf
AI-MicroStructure-Plugin-Twitter
AI-MicroStructure-Plugin-Wiki
__END__
__DATA__
lib/AI/MicroStructure/foo.pm view on Meta::CPAN
used by Dutch programmers to fill the roles of I<foo>, I<bar>, and I<baz>.
=back
=head1 SEE ALSO
L<AI::MicroStructure>, L<Acme::MetaSyntactic::Locale>.
=cut
__DATA__
# default
en
# names en
foo bar baz foobar fubar qux quux corge grault
garply waldo fred plugh xyzzy thud
# names fr
toto titi tata tutu pipo
bidon test1 test2 test3
truc chose machin chouette bidule
# names nl
lib/AI/MicroStructure/germany.pm view on Meta::CPAN
=head1 NAME
AI::MicroStructure::germany - The numbers structure
=head1 DESCRIPTION
You can count on this module. Almost.
=cut
__DATA__
# default
Dresden
# names Dresden
01067 01069 01097 01099 01108 01109 01127 01129 01139 01156 01157 01159 01169 01187 01189 01217 01219 01237 01239 01257 01259 01277 01279 01307 01309 01324 01326 01328 01462 01465 01478
# names Radebeul
01445
# names Radeberg
01454
# names Wachau
01454
t/canned/docs/antimatter.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::antimatter;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
antimatter
entity
matter
physical_entity
t/canned/docs/atom.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::atom;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
abstract_entity
abstraction
atom
carbon_atom
component
component_part
constituent
entity
free_radical
t/canned/docs/atoms.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::atoms;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
abstract_entity
abstraction
atom
carbon_atom
component
component_part
constituent
entity
free_radical
t/canned/docs/exponent.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::exponent;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
abstract_entity
abstraction
black_and_white
communication
degree
entity
exponent
index
log
t/canned/docs/exponential.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::exponential;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
abstract_entity
abstraction
entity
exponential
exponential_function
function
map
mapping
mathematical_function
t/canned/docs/log.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::log;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
abstract_entity
abstraction
black_and_white
common_logarithm
communication
cut_down
drop
entity
exponent
t/canned/docs/logic.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::logic;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
abstract_entity
abstraction
arts
bailiwick
cognition
cognitive_content
content
discipline
domain
t/canned/docs/mathematics.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::mathematics;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
abstract_entity
abstraction
applied_math
applied_mathematics
bailiwick
cognition
cognitive_content
content
discipline
t/canned/docs/matter.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::matter;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
abstract_entity
abstraction
affair
attribute
be
cognitive_state
concern
condition
count
t/canned/docs/number.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::number;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
abstract_entity
abstraction
add_up
amount
attribute
be
bulk
come
countlessness
t/canned/docs/numbers.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::numbers;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
abstract_entity
abstraction
add_up
amount
attribute
auditory_communication
be
black_and_white
book_of_numbers
t/canned/docs/planet.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::planet;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
celestial_body
daystar
entity
evening_star
gas_giant
heavenly_body
hesperus
inferior_planet
jovian_planet
t/canned/docs/planets.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::planets;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
celestial_body
entity
heavenly_body
natural_object
object
physical_entity
physical_object
planet
unit
t/canned/docs/quad.pm view on Meta::CPAN
#!/usr/bin/perl -W
package AI::MicroStructure::quad;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;
__DATA__
# names
area
artefact
artifact
construction
entity
object
physical_entity
physical_object
quad
( run in 3.873 seconds using v1.01-cache-2.11-cpan-140bd7fdf52 )