#!/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 s
+ee 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 s
+ee 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{$widt
+h}{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{$widt
+h}{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, I
+mmortality, 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 r
+efer to travel. In specific application, it represents the \"SUN CHAR
+IOT\" and indicates the light of day and the diurnal cycle.
      It is symbolic of personal growth, the gaining of wisdom and lea
+ving the past behind.
      ";
      
$rE = "
       EHWIS =E
       Is symbolic of the horse and also of two specific gods- twin br
+others 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 romant
+ic).
       ";
              
$rF = "
        FEOH =F
        Is symbolic of cattle, one of the main measures of wealth amon
+g early peoples. As such, it is indicative of wealth, money and mater
+ial possessions.
        It can be a sign of fertility, and it may also be indicative o
+f psychic power or spirituality.
        FEOH is the direct root of the word FEE, and therefore may ind
+icate a payment due or other debt.
        ";
        
$rG = "
         GYFU =G
         The word gift is a direct root of gyfu; Therefore it indicate
+s sharing, hospitality or sacrifice. It can also have a meaning of pa
+rtnership; 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 nort
+h 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 unpleasantne
+ss. In its best connotation, it means overcoming all of these negativ
+es and achieving greatness.
          ";
                   
$rI = "
           ISA =I
           Is a rune of strength and masculinity. It is symbolic of th
+e spear, the staff and the Shepard's crook.
           In one aspect it is confrontational, aggressive and indicat
+es strife, stress and struggle. However in its other aspect it is pro
+tective, it signifies leadership and overcoming difficulties.
           It is also symbolic of the Norse god Odin and the Celtic go
+d 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 an
+d 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 symbo
+lize 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 servic
+e to the community.
              ";
              
$rN = "
               NYD = N
               Is a rune of impossibility- Not necessarily in a negati
+ve sense; it can mean overcoming the odds and achieving the impossibl
+e.
               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, gene
+tics, inheritances, ancestors etc. and it can possibly 
                indicate Royalty or dynastic lineage.
                ";
                
$rP = "
                 POERDH =P
                 Is the gamblers rune: the shape of the rune represent
+s the dice cup. It can indicate the coming of major change- opportuni
+ty 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 physi
+cal 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 als
+o a journey.
                  ";
                  
$rS = "
                   SIGHEL =S
                   Is the rune of the Sun; yet it also represents ligh
+tning. It symbolizes natural power.
                   It can be indicative of spirituality, redemption an
+d protection from evil and chaos.
                   ";
                   
$rT = "
                    TYR =T
                    Is the rune of the Warrior. It represents the spea
+r (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 et
+c.). Like FEOH, (the symbol of domesticated cattle) UR can represent 
+wealth, but this is the kind of wealth that is rarely won--that of th
+e prospector, the wildcat oil driller and the treasure hunter--- poss
+ible great wealth, but only at great risk.
                     UR can indicate great opportunity, hope and excit
+ement.
                     ";
                     
$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 moder
+n word victory and Viking. Somewhat in the vein of TYR and UR, it ind
+icates 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, t
+he Wizard or the Oracle.
                       It can indicate Divine power, Fate and Destiny.
                       ";
                       
$rX = "
                        KEST =X
                        KEST IS ANOTHER SYMBOL THAT IS GENERALLY UNKNO
+WN IN HISTORICAL RUNE STUDY.
                        This symbol probably predates most of the rune
+s, 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 t
+he lottery\" good luck, but the luck of being just beyond the reach o
+f disaster. It can be seen as the \"luck of the fool\". Being born at
+tractive, 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 pla
+ce in nature, and a reminder that eventually, natural law will prevai
+l over all man made laws.
                        ";
                        
$rZ = "
                         EOLH =Z
                         The rune of protection, both from physical, m
+undane 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, hai
+l, and wind.
                          It is a symbol of testing: Man against Natur
+e, Courage against Fear. Generally an indication of danger, but it ca
+n 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 huma
+nity, but it generally refers to it in terms of the community, the tr
+ibe or the clan.
                           In a modern context, it can also indicate a
+ corporation, organization, club etc. or even close friends or \"comr
+ades in arms\".
                           ";
                           
$rEOH = "
                            EOH
                            symbolizes the yew tree, which is one of t
+he most powerful \"magickal\" woods. The meanings of the symbol can b
+e quite confusing as it can indicate immortality or long life; it can
+ also mean death or illness, poison or pollution. The context in whic
+h 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 anythi
+ng\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, gene
+tics, inh$
                 POERDH =P
                  RAD
                   SIGHEL =S
                    TYR =T
                     UR =U
                      VIK =V
                       WYNN =W
                        KEST =X
                         EOLH =Z
                          THORN =Th
                           ING =ing
                            EOH
[download]