merging things

santex · Jan 13, 2013 · 617e54c · 617e54c
1 parent 3f67da9
commit 617e54c
Show file tree

Hide file tree

Showing 34 changed files with 3,842 additions and 378 deletions.
diff --git a/AI-MicroStructure-0.006.tar.gz b/AI-MicroStructure-0.006.tar.gz
diff --git a/AI-MicroStructure-0.006/LICENSE b/AI-MicroStructure-0.006/LICENSE
diff --git a/AI-MicroStructure-0.006/MANIFEST b/AI-MicroStructure-0.006/MANIFEST
@@ -0,0 +1,21 @@
+LICENSE
+MANIFEST
+META.yml
+Makefile.PL
+README
+README.md
+bin/micro
+bin/micro-ontology
+bin/micro-sense
+bin/micro-wiki
+bin/micro-wnet
+bin/micrownet
+dist.ini
+lib/AI/MicroStructure.pm
+lib/AI/MicroStructure/Alias.pm
+lib/AI/MicroStructure/List.pm
+lib/AI/MicroStructure/Locale.pm
+lib/AI/MicroStructure/MultiList.pm
+lib/AI/MicroStructure/RemoteList.pm
+lib/AI/MicroStructure/WordBlacklist.pm
+lib/AI/MicroStructure/any.pm
diff --git a/AI-MicroStructure-0.006/META.yml b/AI-MicroStructure-0.006/META.yml
@@ -0,0 +1,15 @@
+---
+abstract: 'AI::MicroStructure   Creates Concepts for words'
+author:
+  - 'santex <santex@cpan.org>'
+build_requires: {}
+configure_requires:
+  ExtUtils::MakeMaker: 6.30
+dynamic_config: 0
+generated_by: 'Dist::Zilla version 4.300028, CPAN::Meta::Converter version 2.120921'
+license: perl
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4
+name: AI-MicroStructure
+version: 0.006
diff --git a/AI-MicroStructure-0.006/Makefile.PL b/AI-MicroStructure-0.006/Makefile.PL
@@ -0,0 +1,56 @@
+
+use strict;
+use warnings;
+
+
+
+use ExtUtils::MakeMaker 6.30;
+
+
+
+my %WriteMakefileArgs = (
+  "ABSTRACT" => "AI::MicroStructure   Creates Concepts for words",
+  "AUTHOR" => "santex <santex\@cpan.org>",
+  "BUILD_REQUIRES" => {},
+  "CONFIGURE_REQUIRES" => {
+    "ExtUtils::MakeMaker" => "6.30"
+  },
+  "DISTNAME" => "AI-MicroStructure",
+  "EXE_FILES" => [
+    "bin/micro-wiki",
+    "bin/micro",
+    "bin/micrownet",
+    "bin/micro-ontology",
+    "bin/micro-sense",
+    "bin/micro-wnet"
+  ],
+  "LICENSE" => "perl",
+  "NAME" => "AI::MicroStructure",
+  "PREREQ_PM" => {},
+  "VERSION" => "0.006",
+  "test" => {
+    "TESTS" => ""
+  }
+);
+
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
+  my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
+  my $pp = $WriteMakefileArgs{PREREQ_PM};
+  for my $mod ( keys %$br ) {
+    if ( exists $pp->{$mod} ) {
+      $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
+    }
+    else {
+      $pp->{$mod} = $br->{$mod};
+    }
+  }
+}
+
+delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
+  unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
+
+WriteMakefile(%WriteMakefileArgs);
+
+
+
diff --git a/AI-MicroStructure-0.006/README b/AI-MicroStructure-0.006/README
@@ -0,0 +1,13 @@
+
+
+This archive contains the distribution AI-MicroStructure,
+version 0.006:
+
+  AI::MicroStructure   Creates Concepts for words
+
+This software is copyright (c) 2013 by hagen geissler santex@cpan.org.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+
diff --git a/AI-MicroStructure-0.006/README.md b/AI-MicroStructure-0.006/README.md
@@ -0,0 +1,105 @@
+AI-MicroStructure
+=================
+
+A concept is a mental representation for a word or any form of inputs!
+
+Concepts allows us to draw appropriate inferences about the type of entities we encounter in our everyday lives!
+
+The use of concepts is necessary to cognitive processes such as categorization, memory, decision making, learning and inference.
+
+AI-MicroStructure is a package to build concepts for words.
+
+Anybody whisching to do categorization, memory, decision making, learning and inference.
+
+requires as much concepts for a specific (word,idea,sensor input) as possible to base any further knowledge or decission on
+
+to be able to fly you require only to types
+
+```
+micro new extraterrestrial_life
+
+
+               .--'"""""--.>_
+            .-'  o\\b.\o._o.`-.
+         .-'.- )  \d888888888888b.
+        /.'   b  Y8888888888888888b.
+      .-'. 8888888888888888888888888b
+     / o888 Y Y8888888888888888888888b
+     / d888P/ /| Y"Y8888888888888888888b
+   J d8888/| Y .o._. "Y8888888888888Y" \
+   |d Y888b|obd88888bo. """Y88888Y' .od8
+   Fdd 8888888888888888888bo._'|| d88888|
+   Fd d 88\ Y8888Y "Y888888888b, d888888P
+   d-b 8888b Y88P'     """""Y888b8888P"|
+  J  8\88888888P    `m.        """""   |
+  || `8888888P'       "Ymm._          _J
+  |\\  Y8888P  '     .mmm.YM)     .mMF"'
+  | \\  Y888J     ' < (@)>.- `   /MFm. |
+  J   \  `YY           ""'   ::  MM @)>F
+   L  /)  88                  :  |  ""\|
+   | ( (   Yb .            '  .  |     L
+   \   bo  8b    .            .  J     |        The word extraterrestrial
+    \      "' .      .    .    .  L   F         has 1 concept's
+     o._.:.    .        .  \mm,__J/  /          we need to find out the which one
+     Y8::'|.            /     `Y8P  J           to use for our new,
+     `|'  J:   . .     '   .  .   | F           micro-structure,
+      |    L          ' .    _:    |            
+      |    `:        . .:oood8bdb. |            (1): a form of life assumed to exist outside the earth or its atmosphere extraterrestrial
+      F     `:.          "-._   `" F            
+     /       `::.           """'  /             
+    /         `::.          ""   /              
+_.-d(          `:::.            F               
+-888b.          `::::.     .  J                 
+Y888888b.          `::::::::::'                 
+Y88888888bo.        `::::::d                    
+`"Y8888888888boo.._   `"dd88b.                  
+
+
+
+
+
+"""""""""""""""""""""""""""""""""""""""""""""""
+
+
+  Type: the number you choose 1..1
+  1
+extraterrestrialbeing
+extraterrestrial
+alien
+hypothetical_creature
+imaginary_being
+imaginary_creature
+imagination
+imaginativeness
+vision
+creativity
+creativeness
+creative_thinking
+ability
+power
+cognition
+knowledge
+noesis
+psychological_feature
+abstraction
+abstract_entity
+entity
+extraterrestrialbeing
+extraterrestrial
+alien
+hypothetical_creature
+
+``` 
+
+
+
+
+  ☞ [sample](http://quantup.com)
+
+  ☞ [PDF info](https://github.com/santex/active-memory/raw/master/start-here.pdf)
+
+
+
+#### Copyright
+
+  Copyright (C) 2009-2012 Hagen "santex" Geissler
diff --git a/AI-MicroStructure-0.006/bin/micro b/AI-MicroStructure-0.006/bin/micro
@@ -0,0 +1,158 @@
+#!/usr/bin/perl -X
+use strict;
+use warnings;
+use AI::MicroStructure;
+use Getopt::Long;
+use Data::Dumper;
+use JSON::XS;
+
+our ($new,$debug, $write,$drop) =(0,0,0,0); 
+
+my $usage = << 'EOT';
+
+  there are no structures created yet 
+  
+  $ micro new ufo
+
+  $ micro
+
+  $ micro ufo
+  
+  $ micro ufo 5
+
+  $ micro any 10
+  
+  $ micro drop ufo
+
+EOT
+
+
+if( grep{/\bnew\b/} @ARGV ){ $new = 1; cleanArgs("new"); }
+if( grep{/\bdebug\b/} @ARGV ){$debug = 1; cleanArgs("debug"); }; 
+if( grep{/\bwrite\b/} @ARGV ){ $write = 1; cleanArgs("write");  }; 
+if( grep{/\bdrop\b/} @ARGV ){ $write = 1; cleanArgs("drop");  }; 
+
+my $j = AI::MicroStructure->new()->themes();
+
+
+if($j == 0 || $j eq "any"){  
+
+print $usage;
+exit;
+}else{
+
+#   print $j;
+
+}
+
+
+
+sub cleanArgs{
+    my ($key) = @_; 
+    my @tmp=();
+    foreach(@ARGV){ 
+    push @tmp,$_ unless($_=~/$key/);}
+
+    @ARGV=@tmp;
+}
+
+
+my %conf = ( );
+GetOptions( \%conf, "whitespace|ws!", "version","themes", "help", "remote","new",
+                    "check", "category=s", "sources" ,"drop");
+
+my $theme;
+
+
+if(defined($ARGV[0]) && $ARGV[0] =~ m/themes/){
+
+    my $json = encode_json([grep{!/any/}AI::MicroStructure->new()->themes()]);
+    print $json;
+    exit;
+
+
+}
+
+if($conf{"new"} and $ARGV[0] !~/themes/  and $ARGV[0] =~ m{^([^/]+)/(.*)}s) {
+    $theme          = $1;
+    $conf{category} = $2;
+
+    my $meta = AI::MicroStructure->new( $theme, category => "new" );
+    exit;
+}
+
+
+
+if(!$conf{"drop"} && !$conf{"write"}and $ARGV[0] !~/themes/){
+
+
+
+# find out the theme name
+$theme = shift || $AI::MicroStructure::Theme;
+
+if (!length $conf{category} && $theme =~ m{^([^/]+)/(.*)}s) {
+    $theme          = $1;
+    $conf{category} = $2;
+}
+
+
+AI::MicroStructure->new( $theme, category => "new" )
+ unless AI::MicroStructure->has_theme( $theme );
+
+my $module = "AI::MicroStructure::$theme";
+
+
+# load the remote theme if needed
+if ( $conf{remote} || $conf{check} || $conf{sources}) {
+    eval "require $module;";
+    die "Theme '$theme' is not updatable!\n"
+        unless $module->has_remotelist();
+}
+
+# informative options
+print STDERR
+"meta, a simple front-end to AI::MicroStructure version $AI::MicroStructure::VERSION\n"
+  if $conf{version};
+print STDERR $usage if $conf{help};
+print map "$_\n", AI::MicroStructure->themes if $conf{themes};
+if ( $conf{sources} ) {
+    my @sources = $module->sources( $conf{category} );
+    print map "$_\n", @sources;
+}
+exit if $conf{themes} || $conf{version} || $conf{help} || $conf{sources};
+
+# real processing starts here
+$\ = $/;
+my $sep = $conf{whitespace} ? ' ' : $\;
+
+my $meta = AI::MicroStructure->new( $theme, category => $conf{category} );
+
+my (@remote, @local);
+@remote = $module->remote_list( $conf{category} )
+    if $conf{remote} || $conf{check};
+if ( !$conf{remote} ) {
+    my $count = shift;
+    $count = 1 unless defined $count;
+    $count = 0 if $conf{check};
+    @local = $meta->name($count);
+}
+if ( $conf{check} ) {
+    my %seen;
+    $seen{$_}++ for @remote;
+    $seen{$_}-- for @local;
+    foreach my $key ( sort keys %seen ) {
+        next unless $seen{$key};
+        print $seen{$key} > 0 ? "+ $key" : "- $key";
+    }
+}
+else {
+    print join $sep, @local, @remote;
+}
+
+}
+
+END{
+#    print Dumper  [$theme,@ARGV,%conf];
+}
+
+