#!/usr/bin/perl
# this program really kicks ass, please take care of me,
# because i cant pay my bills. ya feel me? much love.
#      money sucks anyway.    paypal: slf@dreamscape.org
# i accept thankyous, chocolate, medals, and crusades.
# and hugs. and whatever else you think somebody needs.
# i allways do the right anyway.
# promises are promises. trust your instincts.
#     see http://dreamscape.org/swim/
# if somethings really worth something...
#          laughter is the best medicine ;)
#                        --+ steven fountain +-- w/love
# oh this also explains why atmosphere tracks are
# pinball machines. SERIOUSLY. i'll make yo arrow key
# jukebox. no sweat. dj abilities in a script!
#    nerdcore kicks ass. i'm proud of all ya'll!
#   SOMEBODY POISONED THE WATERHOLE hahaha
#                 cant rob mother nature;)
#  plant some seeds and stop letting people lie to you
#       can we have a department of peace now please?
#
# all people would make the same masonic calibur judgements
#         if they wielded the same information.
#                  its a good start.
#    you've all profited off the sublime secret a little
#             too long.... ya know? both sides. there is
#   an edge to this coin too..... spin it. ;)
# IM TURNING US IN FOR CARING TOO MUCH, AND FOR BEING CURIOUS;)
# simple truth, literally, in more ways than one, and in every
# possible way. and in the ways we're all least expecting. :)
#            History and the Neverending story.

runes();
$usage = "
 ($0) slf\@dreamscape.org - signal && gaps && runes
--switch--description---------------------------------
 -A 0/1   show signal widths (enabled by default)
 -B 0/1   show branching (not enabled by default)
 -C 0/1   show every single breadcrumb (curious?)
 -D 0/1   show some behind the scenes action
 -G 0/1   show signals or gaps (signals default)
 -H 0/1   show charter at the beginning (enabled)
 -N 0/1   show symbols w and c for width and count
 -S 0/1   show spoon (in the branching) (probably)
 -P 0/1   show perspective (see examples below)
 -Y 0/1   show shortcuts (USEFUL!)
 -Z 0/1   save copy to $0.output (disabled)
 -m STR   show runic stacking for individual letters
 -s STR   show runic stacking for subliminal combos
 -X 0/1   show explanations w/subliminal combos (1=on)
------------------------------------------------------
SIGNALS
 eat files:      $0 file1,file2,file3
 smoke files:    cat file1 | $0 -P
GAPS
 imagine files:  $0 -G file1,file2,file3
 plumbing files: cat file1 | $0 -P -G
SUBLIMINAL COMBOS
 $0 -s 'why did the chicken cross the road'
 $0 -s 'why did the chicken cross the road' -X
 $0 -s 'intentions are nothing short of pure'
 $0 -s 'intentions are nothing short of pure' -X
 $0 -s 'pieces of eight'
 $0 -s 'pieces of eight' -X
 $0 -s 'the united states' -X
------------------------------------------------------\n
";

use Term::ANSIColor;                        
use Getopt::Std;
getopts('ABCDEFGHIJKLMNOPQRSTUVWXYZ:a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z', \%switches);

$A = 1;    # show signal widths (this is the default setting)
$L = 1;    # show labels        (this is the default setting)
$H = 1;    # show charter       (this is the default setting)
           # add anymore ya want to, they're pretty much just letters.

foreach(sort keys %switches) {
  ${$_}= "$switches{$_}";
  print " * \$$_ is switched \"$switches{$_}\"" if $D;

  if ($switches{$_} eq '1') { print " (ON)" if $D;  }
  if ($switches{$_} eq '0') { print " (OFF)" if $D; }
  print "\n" if $D;
}

$shifted = shift;
print "Shifted but not switched input eaten: $shifted\n" if $D && !($P);

unless ($G)
{
 if (!($P) && $shifted =~ /\w/)
 {
   @files = split /,/, $shifted;
   foreach (@files)
   {
     warn "You asked me to eat \"$_\" and I\'m going to taste it and see if its real.\n" if $D;
     die "You fed me \"$_\" and I couldnt find it or couldnt touch it because...\n   $!\n   (...because of this error, i'm going to stop)\n" unless -e $_;
     die "You fed me \"$_\" and I couldnt find it or couldnt touch it because...\n   It\'s a directory, not a file.\n   (try this):\n\nls $_ | perl -pe \'s/^/$0 $_\\//;' > shx && sh -x shx\n\n" if -d $_;
     warn "Yep, tastes like a file.\n" if $D;
     eat($_);
   }
 }
 elsif ($P)
 {
   smoke();
 }
 elsif ($s)
 {
   subliminal_meaning($s);
 }
 elsif ($m)
 {
   individual_meaning($m);
 }
 else
 {
   die "$usage";
 }
}
else
{
 if (!($P) && $shifted =~ /\w/)
 {
   @files = split /,/, $shifted;
   foreach (@files)
   {
     warn "You asked me to eat \"$_\" and I\'m going to taste it and see if its real.\n" if $D;
     die "You fed me \"$_\" and I couldnt find it or couldnt touch it because...\n   $!\n   (...because of this error, i'm going to stop)\n" unless -e $_;
     die "You fed me \"$_\" and I couldnt find it or couldnt touch it because...\n   It\'s a directory, not a file.\n   (try this):\n\nls $_ | perl -pe \'s/^/$0 $_\\//;' > shx && sh -x shx\n\n" if -d $_;
     warn "Yep, tastes like a file.\n" if $D;
     imagine($_);
   }
 }
 elsif ($P)
 {
   plumbing();
 }
 elsif ($s)
 {
   subliminal_meaning($s);
 }
 elsif ($m)
 {
   individual_meaning($m);
 }
 else
 {
   die "$usage";
 }
}

sub eat
{
 $file = shift;
 open FILE, "< $file";
 while(<FILE>)
 {
   chomp;
   $spoon = $_;
   @bigspoon = split /\s+/, $spoon;
   foreach $spoon (@bigspoon)
   {
   	@littlespoon = split /\s+/, $spoon;
   	foreach $spoon (@littlespoon)
   	{
   		$width = length $spoon;
   		$seen{$width}{count}++;
   		$seen{$width}{spoon}="$spoon";
   		
   		$S ?
   		  ( push @perspective, "$width $seen{$width}{count} $seen{$width}{spoon}" )
   		  :
   		  ( push @perspective, "$width $seen{$width}{count}" )
   		  
   		  
  	}
   }
 }
 close FILE;
 digest();
}



sub smoke
{
 while(<>)
 {
   chomp;
   $spoon = $_;
   @bigspoon = split /\s+/, $spoon;
   foreach $spoon (@bigspoon)
   {
   	@littlespoon = split /\s+/, $spoon;
   	foreach $spoon (@littlespoon)
   	{
   		$width = length $spoon;
   		$seen{$width}{count}++;
   		$seen{$width}{spoon}="$spoon";
   		push @perspective, "$width $seen{$width}{count} $seen{$width}{spoon}";
   		push @shortcuts, "$width:$seen{$width}{count}";
   	}
   }
 }
 digest();
}



sub digest
{
 if ($A)
 {
 
  $G ?
    ( $extra = " ***GAPS***" )
    :
    ( $extra = " >>>SIGNALS<<<" );
    
  $S ? 
    ( $H ? print "WIDTH\tCOUNT\tSPOON$extra\n" : 0 )
    :
    ( $H ? print "WIDTH\tCOUNT$extra\n" : 0 );
    
  foreach (sort { $b <=> $a } keys %seen)
  {
    $S ? "$_\t$seen{$_}{count}\t$seen{$_}{spoon}\n" : print "$_\t$seen{$_}{count}\n";
  }
 }
 
 if ($B)
 {
  foreach (@perspective)
  {
    $pathpoint++;
    $L ? print "PATHPOINT$extra $pathpoint - $_\n" : print "$pathpoint - $_\n";
  }
 }
 
 
}



# these are more for the abscence of signals (which is actually signal too.)
sub imagine
{
 $file = shift;
 open FILE, "< $file";
 while(<FILE>)
 {
   chomp;
   $spoon = $_;
   @bigspoon = split /\S+/, $spoon;
   foreach $spoon (@bigspoon)
   {
   	@littlespoon = split /\S+/, $spoon;
   	foreach $spoon (@littlespoon)
   	{
   		$width = length $spoon;
   		$seen{$width}{count}++;
   		$seen{$width}{spoon}="$spoon";
   		
   		$S ?
   		  ( push @perspective, "$width $seen{$width}{count} $seen{$width}{spoon}" )
   		  :
   		  ( push @perspective, "$width $seen{$width}{count}" )
   		  
   		  
  	}
   }
 }
 close FILE;
 digest();
}


sub plumbing
{
 while(<>)
 {
   chomp;
   $spoon = $_;
   @bigspoon = split /\B+/, $spoon;
   foreach $spoon (@bigspoon)
   {
   	@littlespoon = split /\B+/, $spoon;
   	foreach $spoon (@littlespoon)
   	{
   		$width = length $spoon;
   		$seen{$width}{count}++;
   		$seen{$width}{spoon}="$spoon";
   		push @perspective, "$width $seen{$width}{count} $seen{$width}{spoon}";
   	}
   }
 }
 digest();
}

sub runes
{
print "at the runes.\n";
$rA = "
   OS=A
   In one context, OS refers to the Divine, Primarily to (the) God(s) of creation and specifically to the Father Deity.
   It is also a rune of communication, poetry and music.
   OS can represent the link between the Gods and humanity.
   Other symbolism for this rune includes: Pine trees, Good fortune, Immortality, Inspiration and Personal power.
   ";

	   
$rB = "
    BOERC = B
    Relates to birth, healing, forgiveness and atonement for misdeeds. It refers to the birch tree and symbolizes shelter, concealment and (passive) protection [concealment].
    ";
    
$rC = "
     KEN (can be used as C, K or Q)
     Relates to light and the controlled power of fire It is the rune of knowledge and technological advance. The knowledge of Ken is that of the student, the scientist etc. and does not necessarily indicate wisdom.
     ";

$rK = $rB;
$rQ = $rB;
     
$rD = "
      DOERG=D
      In general, it represents the wheels of a chariot and thus can refer to travel. In specific application, it represents the \"SUN CHARIOT\" and indicates the light of day and the diurnal cycle.
      It is symbolic of personal growth, the gaining of wisdom and leaving the past behind.
      ";
      
$rE = "
       EHWIS =E
       Is symbolic of the horse and also of two specific gods- twin brothers who roamed the world to help people in trouble. As such it can indicate divine aid in a time of need.
       It is also representative of partnership- (platonic, not romantic).
       ";
              
$rF = "
        FEOH =F
        Is symbolic of cattle, one of the main measures of wealth among early peoples. As such, it is indicative of wealth, money and material possessions.
        It can be a sign of fertility, and it may also be indicative of psychic power or spirituality.
        FEOH is the direct root of the word FEE, and therefore may indicate a payment due or other debt.
        ";
        
$rG = "
         GYFU =G
         The word gift is a direct root of gyfu; Therefore it indicates sharing, hospitality or sacrifice. It can also have a meaning of partnership; Unlike EHWIS, this is directed more at matrimonial matters or sexuality, rather than just comradeship.
         ";
         
$rH = "
          HAEGL =H
          Is the rune of winter. It symbolizes snow ice, the cold north wind, and frost. The modern word HAIL is directly derived from this rune. It is also a rune symbolic of \"The Trickster\" (Loki, Coyote etc.)
          Haegl is indicative of bondage, frustration and unpleasantness. In its best connotation, it means overcoming all of these negatives and achieving greatness.
          ";
                   
$rI = "
           ISA =I
           Is a rune of strength and masculinity. It is symbolic of the spear, the staff and the Shepard's crook.
           In one aspect it is confrontational, aggressive and indicates strife, stress and struggle. However in its other aspect it is protective, it signifies leadership and overcoming difficulties.
           It is also symbolic of the Norse god Odin and the Celtic god Lugh (Llew) who are known for their magical spears.
           ";
           
$rJ = "
            GER (used for J and Y)
            Is a rune of growth; symbolic of agriculture, gardening and harvest. It is the root of the word YEAR and indicates the annular cycle and living and working with nature.
            ";
            
$rY = $rJ;            

$rL = "
             LAGU =L
             Is a rune of water, especially the sea and lakes, in fact, the word LAKE comes directly from this rune.
             It can mean transition, hope and honor. It can also symbolize community, friendship and romance.
             ";
             
$rM = "
              MANU = M
              Indicates humanity- either as the self (the individual) or mankind in general.
              In a negative context it indicates selfishness and greed, but in its positive aspect, it is a symbol of generosity and service to the community.
              ";
              
$rN = "
               NYD = N
               Is a rune of impossibility- Not necessarily in a negative sense; it can mean overcoming the odds and achieving the impossible.
               It is also a symbol of personal power, somewhat akin to the Japanese concept of the Hara or the Chinese concept of Chi.
               It is the direct root of NOT and NEED and therefore may represent either or both concepts.
               ";
               
$rO = "
                ODEL =O Is the rune for family matters: Marriage, genetics, inheritances, ancestors etc. and it can possibly 
                indicate Royalty or dynastic lineage.
                ";
                
$rP = "
                 POERDH =P
                 Is the gamblers rune: the shape of the rune represents the dice cup. It can indicate the coming of major change- opportunity on one hand, disaster or failure on the other.
                 In another context, it is a symbol of the feminine- \"womanly traits\" as well as sexuality.
                 ";
                 
$rR = "
                  RAD
                  Is a travelers rune. It can indicate change, a physical journey or a mental one. A mental journey can be a dream, astral travel, channeling or just learning something new and exciting.
                  It can also symbolize death- after all, death is also a journey.
                  ";
                  
$rS = "
                   SIGHEL =S
                   Is the rune of the Sun; yet it also represents lightning. It symbolizes natural power.
                   It can be indicative of spirituality, redemption and protection from evil and chaos.
                   ";
                   
$rT = "
                    TYR =T
                    Is the rune of the Warrior. It represents the spear (like ISA) the sword and the axe. It is the symbol of the Norse god Tiwaz and brings his protection and attributes to those who bear his symbol. It is for courage, strength, endurance and agility.
                    ";
                    
$rU = "
                     UR =U
                     Is the symbol of wild cattle (musk ox, buffalo etc.). Like FEOH, (the symbol of domesticated cattle) UR can represent wealth, but this is the kind of wealth that is rarely won--that of the prospector, the wildcat oil driller and the treasure hunter--- possible great wealth, but only at great risk.
                     UR can indicate great opportunity, hope and excitement.
                     ";
                     
$rV = "
                      VIK =V
                      VIK IS NOT ONE OF THE STANDARD HISTORICAL RUNES- IT IS (almost) UNIQUE TO MERLIN'S SYSTEM.
                      It is the rune of winning- the root of the modern word victory and Viking. Somewhat in the vein of TYR and UR, it indicates winning through courage, audacity and great risk.
                      It also indicates artistic talent (especially in the visual arts) and creativity.
                      ";
                      
$rW = "
                       WYNN =W
                       Is the rune of wisdom and divination. It can be used as the symbol of the Runemaster, the Loremaster, the Scholar, the Wizard or the Oracle.
                       It can indicate Divine power, Fate and Destiny.
                       ";
                       
$rX = "
                        KEST =X
                        KEST IS ANOTHER SYMBOL THAT IS GENERALLY UNKNOWN IN HISTORICAL RUNE STUDY.
                        This symbol probably predates most of the runes, and has been seen in a wider variety of ancient cultures than the runes.
                        Not to be confused with the swastika which has the \"arms\" pointing in the opposite direction.
                        KEST is the rune of good luck. Not \"winning the lottery\" good luck, but the luck of being just beyond the reach of disaster. It can be seen as the \"luck of the fool\". Being born attractive, talented or into a very loving family is an example of KEST luck.
                        It also indicates a happy, carefree state with little stress, strife and worry.
                        Can also be used as a symbol of humanity's place in nature, and a reminder that eventually, natural law will prevail over all man made laws.
                        ";
                        
$rZ = "
                         EOLH =Z
                         The rune of protection, both from physical, mundane danger and protection from evil and magickal attack.
                         It symbolizes the antlers of a deer or an elk.
                         ";
                         
$rTh = "
                          THORN =Th
                          Is the symbol of the demon Thorn- who rules the icy wastelands. Like HAEGL, it evokes the image of snow, ice, hail, and wind.
                          It is a symbol of testing: Man against Nature, Courage against Fear. Generally an indication of danger, but it can also be used as a talisman or sigil of defense (Must face outwards-toward your enemy in this use).
                          ";
                          
$ring = "
                           ING =ing
                           Somewhat like MANU, ING is a symbol of humanity, but it generally refers to it in terms of the community, the tribe or the clan.
                           In a modern context, it can also indicate a corporation, organization, club etc. or even close friends or \"comrades in arms\".
                           ";
                           
$rEOH = "
                            EOH
                            symbolizes the yew tree, which is one of the most powerful \"magickal\" woods. The meanings of the symbol can be quite confusing as it can indicate immortality or long life; it can also mean death or illness, poison or pollution. The context in which the rune is found should help clarify which meaning it indicates.
                            ";

$combos{OS}=$rA;
$combos{BOERC}=$rB;
$combos{KEN}=$rC;
$combos{DOERG}=$rD;
$combos{EHWIS}=$rE;
$combos{FEOH}=$rF;
$combos{GYFU}=$rG;
$combos{HAEGL}=$rH;
$combos{ISA}=$rI;
$combos{GER}=$rJ;
$combos{LAGU}=$rL;
$combos{MANU}=$rM;
$combos{NYD}=$rN;
$combos{ODEL}=$rO;
$combos{POERDH}=$rP;
$combos{RAD}=$rR;
$combos{SIGHEL}=$rS;
$combos{TYR}=$rT;
$combos{UR}=$rU;
$combos{VIK}=$rV;
$combos{WYNN}=$rW;
$combos{KEST}=$rX;
$combos{EOLH}=$rZ;
$combos{THORN}=$rTh;
$combos{ING}=$ring;
$combos{EOH}=$rEOH;
}

sub individual_meaning
{
	my $input = shift or die "individual_meaning(): was not fed anything\n";
	$spoon = "";
	foreach (split //, $input)
	{
	  s/(?<!\{)([A-DF-GI-NP-SU-Z])(?!\})/\{\$$1\}/gi;
	  s/(?<!\{)(T(?!h))(?!\})/\{\$$1\}/gi;
	  s/(?<!\{)(E(?!OH))(?!\})/\{\$$1\}/gi;
	  s/(?<!\{)((?<!E)O(?!H))(?!\})/\{\$$1\}/gi;
	  s/(?<!\{)((?<!EO)H)(?!\})/\{\$$1\}/gi;
	  s/(?<!\{)(EOH)(?!\})/\{\$$1\}/gi;
	  s/(?<!\{)(Th)(?!\})/\{\$$1\}/gi;
	  s/(?<!\{)(O)(?!\})/\{\$$1\}/gi;
	  s/(?<!\{)(H)(?!\})/\{\$$1\}/gi;
	  s/(?<!\{)(ing)(?!\})/\{\$$1\}/gi;
	  s/\{//gi;
	  s/\}//gi;
	  s/\$(.)/\$\{rXXXXX\}/g;
	  $LETTER = uc($1);
	  s/XXXXX/$LETTER/g;
	  $spoon .= eval "$_";
	}
  print "$spoon\n";
}

sub subliminal_meaning
{ 
  my $input = shift or die "subliminal_input(): Didnt get fed anything.\n";
	@letters = split (//, $input);
	foreach my $emphasis (sort keys %combos)
	{
	   ###print "Testing against $emphasis ..";
	   $$regex = "";
	   $$regex .= "(?:.*?|)";
	   foreach (split //, $emphasis)
	   {
	      $$regex .= "$_(?:.*?|)";
	   }
	   # print "$emphasis -> $$regex\n";
	   if ($input =~ /$$regex/i)
	   {
	     print "$emphasis -> Yes!\n";
	     if ($X)
	     {
	        print "$combos{$emphasis}\n";
	     }
	     ###print "YES!\n";
	   }
	   else
	   {
	     # print "$emphasis No!\n";
	     ### print "no.\n";
	   }
	}
  ## Sounds funny now, but it was the shit at the time ##
}

__DATA__
   OS=A
    BOERC = B
     KEN (can be used as C, K or Q)
      DOERG=D
       EHWIS =E
        FEOH =F
         GYFU =G
          HAEGL =H
           ISA =I
            GER (used for J and Y)
             LAGU =L
              MANU = M
               NYD = N
                ODEL =O Is the rune for family matters: Marriage, genetics, inh$
                 POERDH =P
                  RAD
                   SIGHEL =S
                    TYR =T
                     UR =U
                      VIK =V
                       WYNN =W
                        KEST =X
                         EOLH =Z
                          THORN =Th
                           ING =ing
                            EOH