fixed handling for leading zeros so we don't eat any but those.

[feisty_meow.git] / scripts / core / generate_aliases.pl

diff --git a/scripts/core/generate_aliases.pl b/scripts/core/generate_aliases.pl
index 40f555e90a26d14581835c492063d6b904b2915c..726a0bbf323186d1ebf25ad518d3a99cf5ad1186 100644 (file)
--- a/scripts/core/generate_aliases.pl
+++ b/scripts/core/generate_aliases.pl
@@ -23,7 +23,7 @@
 
 require "filename_helper.pl";
 
 
 require "filename_helper.pl";
 

-use Env qw(BINDIR BUILD_TOP FEISTY_MEOW_DIR FEISTY_MEOW_GENERATED FEISTY_MEOW_SCRIPTS SHELL_DEBUG );
+use Env qw(BINDIR BUILD_TOP FEISTY_MEOW_APEX FEISTY_MEOW_LOADING_DOCK FEISTY_MEOW_SCRIPTS SHELL_DEBUG );

 
 # given a possible aliasable filename, this will decide whether to create a perl
 # or bash alias for it.  it needs the filename of the possible alias and the
 
 # given a possible aliasable filename, this will decide whether to create a perl
 # or bash alias for it.  it needs the filename of the possible alias and the


@@ -47,7 +47,7 @@ sub make_bash_alias {
 #print "alias became $aliasname\n";
   local($source_dir) = shift(@_);
 #print "bash alias is $aliasname, dir is $source_dir\n";
 #print "alias became $aliasname\n";
   local($source_dir) = shift(@_);
 #print "bash alias is $aliasname, dir is $source_dir\n";

-  print she "alias $aliasname=\"bash $source_dir/$full_alias.sh\"\n";
+  print she "define_yeti_alias $aliasname=\"bash $source_dir/$full_alias.sh\"\n";

 }
 
 # makes an alias for a perl script given the alias name.
 }
 
 # makes an alias for a perl script given the alias name.


@@ -58,7 +58,7 @@ sub make_perl_alias {
 #print "alias became $aliasname\n";
   local($source_dir) = shift(@_);
 #print "perl alias is $aliasname, dir is $source_dir\n";
 #print "alias became $aliasname\n";
   local($source_dir) = shift(@_);
 #print "perl alias is $aliasname, dir is $source_dir\n";

-  print she "alias $aliasname=\"perl $source_dir/$full_alias.pl\"\n";
+  print she "define_yeti_alias $aliasname=\"perl $source_dir/$full_alias.pl\"\n";

 }
 
 # given a directory, this returns an array of all the filenames found therein.
 }
 
 # given a directory, this returns an array of all the filenames found therein.


@@ -74,7 +74,7 @@ sub load_file_names {
 # The "common.alias" file is used in the generated aliases file as a base
 # set of generally useful aliases.  We also add aliases for any script files
 # (perl, bash, python, etc) that we find in the feisty meow script hierarchy.
 # The "common.alias" file is used in the generated aliases file as a base
 # set of generally useful aliases.  We also add aliases for any script files
 # (perl, bash, python, etc) that we find in the feisty meow script hierarchy.

-# Any *.alias files found in the $FEISTY_MEOW_GENERATED/custom folder are
+# Any *.alias files found in the $FEISTY_MEOW_LOADING_DOCK/custom folder are

 # loaded also.
 sub rebuild_script_aliases {
 
 # loaded also.
 sub rebuild_script_aliases {
 


@@ -83,10 +83,10 @@ sub rebuild_script_aliases {
   }
 
   # create our generated shells directory if it's not already.
   }
 
   # create our generated shells directory if it's not already.

-  if ( ! -d $FEISTY_MEOW_GENERATED ) {
-    mkdir $FEISTY_MEOW_GENERATED;
+  if ( ! -d $FEISTY_MEOW_LOADING_DOCK ) {
+    mkdir $FEISTY_MEOW_LOADING_DOCK;

     if (length($SHELL_DEBUG)) {
     if (length($SHELL_DEBUG)) {

-      print "made FEISTY_MEOW_GENERATED at '$FEISTY_MEOW_GENERATED'\n";
+      print "made FEISTY_MEOW_LOADING_DOCK at '$FEISTY_MEOW_LOADING_DOCK'\n";

     }
   }
 
     }
   }
 


@@ -97,7 +97,7 @@ sub rebuild_script_aliases {
   @ALIAS_DEFINITION_FILES = ("$FEISTY_MEOW_SCRIPTS/core/common.alias");
 
   # if custom aliases files exist, add them to the list.
   @ALIAS_DEFINITION_FILES = ("$FEISTY_MEOW_SCRIPTS/core/common.alias");
 
   # if custom aliases files exist, add them to the list.

-  foreach $i (&glob_list("$FEISTY_MEOW_GENERATED/custom/*.alias")) {
+  foreach $i (&glob_list("$FEISTY_MEOW_LOADING_DOCK/custom/*.alias")) {

     if (-f $i) { push(@ALIAS_DEFINITION_FILES, $i); }
   }
   if (length($SHELL_DEBUG)) {
     if (-f $i) { push(@ALIAS_DEFINITION_FILES, $i); }
   }
   if (length($SHELL_DEBUG)) {


@@ -111,7 +111,7 @@ sub rebuild_script_aliases {
 
   # write the aliases for sh and bash scripts.
 
 
   # write the aliases for sh and bash scripts.
 

-  local $GENERATED_ALIAS_FILE = "$FEISTY_MEOW_GENERATED/fmc_core_and_custom_aliases.sh";
+  local $GENERATED_ALIAS_FILE = "$FEISTY_MEOW_LOADING_DOCK/fmc_core_and_custom_aliases.sh";

   if (length($SHELL_DEBUG)) {
     print "writing generated aliases in $GENERATED_ALIAS_FILE...\n";
   }
   if (length($SHELL_DEBUG)) {
     print "writing generated aliases in $GENERATED_ALIAS_FILE...\n";
   }


@@ -150,23 +150,23 @@ sub rebuild_script_aliases {
 ##############
 
 # make sure we know where to store the files we're creating.
 ##############
 
 # make sure we know where to store the files we're creating.

-if ( ! length("$FEISTY_MEOW_GENERATED") ) {
+if ( ! length("$FEISTY_MEOW_LOADING_DOCK") ) {

   print "\
   print "\

-The FEISTY_MEOW_GENERATED variable is not defined.  This must point to the location where\n\
+The FEISTY_MEOW_LOADING_DOCK variable is not defined.  This must point to the location where\n\

 the generated scripts are stored.  Perhaps you still need to run\n\
 the generated scripts are stored.  Perhaps you still need to run\n\

-bootstrap_shells.sh and set up some environment variables.  Please see\n\
+reconfigure_feisty_meow.sh and set up some environment variables.  Please see\n\

 http://feistymeow.org for more details.\n";
   exit 1;
 #really need to use better exit codes.
 }
 
 http://feistymeow.org for more details.\n";
   exit 1;
 #really need to use better exit codes.
 }
 

-$FEISTY_MEOW_GENERATED =~ s/\\/\//g;
+$FEISTY_MEOW_LOADING_DOCK =~ s/\\/\//g;

 $FEISTY_MEOW_SCRIPTS =~ s/\\/\//g;
 $FEISTY_MEOW_SCRIPTS =~ s/\\/\//g;

-$FEISTY_MEOW_DIR =~ s/\\/\//g;
+$FEISTY_MEOW_APEX =~ s/\\/\//g;

 
 # create our generated shells directory if it's not already there.
 
 # create our generated shells directory if it's not already there.

-if (! -d $FEISTY_MEOW_GENERATED) {
-  mkdir $FEISTY_MEOW_GENERATED;
+if (! -d $FEISTY_MEOW_LOADING_DOCK) {
+  mkdir $FEISTY_MEOW_LOADING_DOCK;

 }
 
 ##############
 }
 
 ##############


@@ -181,14 +181,14 @@ if (-d $BINDIR) {
 &rebuild_script_aliases;
 
 # trash the old versions.
 &rebuild_script_aliases;
 
 # trash the old versions.

-unlink("$FEISTY_MEOW_GENERATED/fmc_aliases_for_scripts.sh");
+unlink("$FEISTY_MEOW_LOADING_DOCK/fmc_aliases_for_scripts.sh");

 
 if (length($SHELL_DEBUG)) {
 
 if (length($SHELL_DEBUG)) {

-  printf "writing $FEISTY_MEOW_GENERATED/fmc_aliases_for_scripts.sh...\n";
+  printf "writing $FEISTY_MEOW_LOADING_DOCK/fmc_aliases_for_scripts.sh...\n";

 }
 
 # open the alias files to be created.
 }
 
 # open the alias files to be created.

-open(she, ">> $FEISTY_MEOW_GENERATED/fmc_aliases_for_scripts.sh");
+open(she, ">> $FEISTY_MEOW_LOADING_DOCK/fmc_aliases_for_scripts.sh");

 
 # find the list of files in the scripts directory.
 #opendir(scripts, "$FEISTY_MEOW_SCRIPTS");
 
 # find the list of files in the scripts directory.
 #opendir(scripts, "$FEISTY_MEOW_SCRIPTS");


@@ -196,7 +196,7 @@ open(she, ">> $FEISTY_MEOW_GENERATED/fmc_aliases_for_scripts.sh");
 #print "scripts: @shell_files\n";
 
 @shell_files = (&load_file_names("$FEISTY_MEOW_SCRIPTS"),
 #print "scripts: @shell_files\n";
 
 @shell_files = (&load_file_names("$FEISTY_MEOW_SCRIPTS"),

-   &load_file_names("$FEISTY_MEOW_GENERATED/custom/scripts"));
+   &load_file_names("$FEISTY_MEOW_LOADING_DOCK/custom/scripts"));

 
 # construct aliases for items in the scripts directory.
 foreach $file (@shell_files) {
 
 # construct aliases for items in the scripts directory.
 foreach $file (@shell_files) {


@@ -219,11 +219,11 @@ foreach $file (@shell_files) {
     foreach $subfile (@subdir_files) {
       push(@shell_files, "$file/$subfile");
     }
     foreach $subfile (@subdir_files) {
       push(@shell_files, "$file/$subfile");
     }

-  } elsif (-f "$FEISTY_MEOW_GENERATED/custom/scripts/$file") {
+  } elsif (-f "$FEISTY_MEOW_LOADING_DOCK/custom/scripts/$file") {

     # if we see a file in the auto-generated area that comes from the
     # customized scripts folder, we add it as an alias.
     # if we see a file in the auto-generated area that comes from the
     # customized scripts folder, we add it as an alias.

-    make_alias($file, "$FEISTY_MEOW_GENERATED/custom/scripts/");
-    #print "added custom script file: $FEISTY_MEOW_GENERATED/custom/scripts/$file\n";
+    make_alias($file, "$FEISTY_MEOW_LOADING_DOCK/custom/scripts/");
+    #print "added custom script file: $FEISTY_MEOW_LOADING_DOCK/custom/scripts/$file\n";

   } else {
     # if it's a regular file, we'll try to make an alias for it.  the function
     # will only fire if the ending is appropriate for the script languages we use.
   } else {
     # if it's a regular file, we'll try to make an alias for it.  the function
     # will only fire if the ending is appropriate for the script languages we use.