projects
/
feisty_meow.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of feistymeow.org:feisty_meow into dev
[feisty_meow.git]
/
scripts
/
core
/
generate_aliases.pl
diff --git
a/scripts/core/generate_aliases.pl
b/scripts/core/generate_aliases.pl
index 4ed01fb74641794fe21613eeb98ee0d4e35d1513..09885b06929c7d82406cff0a8323fe6cc2c1ea82 100644
(file)
--- a/
scripts/core/generate_aliases.pl
+++ b/
scripts/core/generate_aliases.pl
@@
-43,11
+43,10
@@
sub make_alias {
sub make_bash_alias {
local($aliasname) = shift(@_);
local($full_alias) = $aliasname;
sub make_bash_alias {
local($aliasname) = shift(@_);
local($full_alias) = $aliasname;
+#print "full alias is $full_alias\n";
$aliasname =~ s/^.*\/([^\/]*)/\1/;
#print "alias became $aliasname\n";
$aliasname =~ s/^.*\/([^\/]*)/\1/;
#print "alias became $aliasname\n";
- local($source_dir) = shift(@_);
-#print "bash alias is $aliasname, dir is $source_dir\n";
- print she "define_yeti_alias $aliasname=\"bash $source_dir/$full_alias.sh\"\n";
+ print she "define_yeti_alias $aliasname=\"bash $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.
@@
-56,9
+55,7
@@
sub make_perl_alias {
local($full_alias) = $aliasname;
$aliasname =~ s/^.*\/([^\/]*)/\1/;
#print "alias became $aliasname\n";
local($full_alias) = $aliasname;
$aliasname =~ s/^.*\/([^\/]*)/\1/;
#print "alias became $aliasname\n";
- local($source_dir) = shift(@_);
-#print "perl alias is $aliasname, dir is $source_dir\n";
- print she "define_yeti_alias $aliasname=\"perl $source_dir/$full_alias.pl\"\n";
+ print she "define_yeti_alias $aliasname=\"perl $full_alias.pl\"\n";
}
##############
}
##############
@@
-189,6
+186,11
@@
open(she, ">> $FEISTY_MEOW_LOADING_DOCK/fmc_aliases_for_scripts.sh");
@shell_files = (find_files(recursive_find_directories("$FEISTY_MEOW_SCRIPTS")),
find_files(recursive_find_directories("$FEISTY_MEOW_LOADING_DOCK/custom/scripts")));
@shell_files = (find_files(recursive_find_directories("$FEISTY_MEOW_SCRIPTS")),
find_files(recursive_find_directories("$FEISTY_MEOW_LOADING_DOCK/custom/scripts")));
+# strip out the customization files, since they are added in on demand only.
+#print "before filtering list: @shell_files\n";
+@shell_files = grep ! /\/customize\//, @shell_files;
+#print "after filtering list: @shell_files\n";
+
#printf "found all these files in main script dirs:\n";
#printf " @shell_files\n";
#printf "found all these files in main script dirs:\n";
#printf " @shell_files\n";