X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Fcore%2Fgenerate_aliases.pl;h=775a1719a54d62f2d0c1d19c876551c6b51a1766;hb=4cfdd08aaad4926a3133d96076d3e4cae78adb3a;hp=eb6775e88ef5ba3ecac056bdbe4858278c6b86c4;hpb=843348160762dae6d58ec8ccf1507659b973420f;p=feisty_meow.git diff --git a/scripts/core/generate_aliases.pl b/scripts/core/generate_aliases.pl index eb6775e8..775a1719 100644 --- a/scripts/core/generate_aliases.pl +++ b/scripts/core/generate_aliases.pl @@ -23,7 +23,7 @@ require "filename_helper.pl"; -use Env qw(BINDIR BUILD_TOP FEISTY_MEOW_APEX FEISTY_MEOW_LOADING_DOCK FEISTY_MEOW_SCRIPTS SHELL_DEBUG ); +use Env qw(FEISTY_MEOW_BINARIES 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 @@ -173,8 +173,8 @@ if (! -d $FEISTY_MEOW_LOADING_DOCK) { ############## # set the executable bit for binaries for just this current user. -if (-d $BINDIR) { - system("chmod -R u+x \"$BINDIR\"/*"); +if (-d $FEISTY_MEOW_BINARIES) { + system("chmod -R u+x \"$FEISTY_MEOW_BINARIES\"/*"); } # generate the first set of alias files that are defined in the core @@ -210,11 +210,16 @@ foreach $file (@shell_files) { || $file =~ /\/\.\.$/ || $file =~ /\/\.svn$/ || $file =~ /\/\.git$/ + || $file =~ /\/customize\// +#hmmm: would be nice to have this name in a symbol somewhere instead of having "customize" everywhere. ) { # just skip this item; it's a special directory. +#print "skipping name: $file\n"; } elsif (-d "$FEISTY_MEOW_SCRIPTS/$file") { # if we see a subdirectory in the scripts folder, we add all the - # scripts in it as aliases. we recurse only one level. + # scripts in it as aliases. we recurse only one level. we also don't use + # our customize directory as aliases, since those are processed way differently. +#print "adding script dir in: $file\n"; opendir(subdir, "$FEISTY_MEOW_SCRIPTS/$file"); @subdir_files = sort(readdir(subdir)); foreach $subfile (@subdir_files) { @@ -224,11 +229,18 @@ foreach $file (@shell_files) { # 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_LOADING_DOCK/custom/scripts/"); - #print "added custom script file: $FEISTY_MEOW_LOADING_DOCK/custom/scripts/$file\n"; +#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. - &make_alias($file, "$FEISTY_MEOW_SCRIPTS"); + # last ditch effort to make sense of the file; just go ahead and make an alias unless + # the file is part of our customization scheme. + if ( ! ($file =~ /customize/) ) { +#print "adding regular file in: $file\n"; + # 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. + &make_alias($file, "$FEISTY_MEOW_SCRIPTS"); + } else { +#print "omitting file in: $file\n"; + } } }