# directory where that file resides.
sub make_alias {
local($file, $dir) = @_;
- if ($file =~ /\.[pP][lL]$/) {
- local($aliasname) = $file; $aliasname =~ s/\.[Pp][lL]$//;
- &make_perl_alias($aliasname, "$dir");
+ if ($file =~ /\.[pP][yY]$/) {
+ local($aliasname) = $file; $aliasname =~ s/\.[Pp][yY]$//;
+ &make_python_alias($aliasname, "$dir");
} elsif ($file =~ /\.[sS][hH]$/) {
local($aliasname) = $file; $aliasname =~ s/\.[Ss][Hh]$//;
&make_bash_alias($aliasname, "$dir");
+ } elsif ($file =~ /\.[pP][lL]$/) {
+ local($aliasname) = $file; $aliasname =~ s/\.[Pp][lL]$//;
+ &make_perl_alias($aliasname, "$dir");
}
}
print she "define_yeti_alias $aliasname=\"bash $full_alias.sh\"\n";
}
+# makes an alias for a python script given the alias name.
+#hmmm: don't love that we're hardcoding python3 in here, but apparently some systems don't have a 'python' command despite having python installed.
+sub make_python_alias {
+ local($aliasname) = shift(@_);
+ local($full_alias) = $aliasname;
+ $aliasname =~ s/^.*\/([^\/]*)/\1/;
+#print "alias became $aliasname\n";
+ print she "define_yeti_alias $aliasname=\"python3 $full_alias.py\"\n";
+}
+
# makes an alias for a perl script given the alias name.
sub make_perl_alias {
local($aliasname) = shift(@_);
}
if (length($DEBUG_FEISTY_MEOW)) {
print "using these alias files:\n";
-#print "HEY IS THIS PROBLEM CHILD?\n";
foreach $i (@ALIAS_DEFINITION_FILES) {
local $base_of_dir = &basename(&dirname($i));
local $basename = &basename($i);
print " $base_of_dir/$basename\n";
}
-#print "WAS PROBLEM CHILD ABOVE HERE?\n";
}
# write the aliases for sh and bash scripts.
-
local $GENERATED_ALIAS_FILE = "$FEISTY_MEOW_LOADING_DOCK/fmc_core_and_custom_aliases.sh";
if (length($DEBUG_FEISTY_MEOW)) {
print "writing generated aliases in $GENERATED_ALIAS_FILE...\n";