From: Fred T. Hamster <fred@gruntose.com>
Date: Wed, 16 Apr 2025 04:59:41 +0000 (-0400)
Subject: more work on this
X-Git-Url: https://feistymeow.org/gitweb/?a=commitdiff_plain;h=2775dff2b22a999cf6d069dd43e295ec3d02fd6a;p=feisty_meow.git

more work on this

nowhere close to ready, but seeing what we need.
---

diff --git a/scripts/core/generate_aliases-new.py b/scripts/core/generate_aliases-new.py
index e9ad25d7..bbb1db55 100644
--- a/scripts/core/generate_aliases-new.py
+++ b/scripts/core/generate_aliases-new.py
@@ -24,30 +24,49 @@ version of the License.  Please send any updates to "fred@gruntose.com".
 """
 
 import os
+import re
 import sys
 
 import filename_helper
 
+# load some variables from the environment, if we can.
+HOME = os.environ['HOME']
+FEISTY_MEOW_BINARIES = os.environ['FEISTY_MEOW_BINARIES']
+BUILD_TOP = os.environ['BUILD_TOP']
+FEISTY_MEOW_APEX = os.environ['FEISTY_MEOW_APEX']
+FEISTY_MEOW_LOADING_DOCK = os.environ['FEISTY_MEOW_LOADING_DOCK']
+FEISTY_MEOW_SCRIPTS = os.environ['FEISTY_MEOW_SCRIPTS']
+DEBUG_FEISTY_MEOW = os.environ['DEBUG_FEISTY_MEOW']
 
-#unscanned after here...  there be monsters.
+print("home is $HOME")
 
 
 
+print("bailing now...")
+exit(1)
+
 
-####
 
-require "filename_helper.pl";
+#hmmm: unscanned after here...  there be monsters.
+
 
-use Env qw(FEISTY_MEOW_BINARIES BUILD_TOP FEISTY_MEOW_APEX FEISTY_MEOW_LOADING_DOCK FEISTY_MEOW_SCRIPTS DEBUG_FEISTY_MEOW HOME );
 
 # 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
 # directory where that file resides.
-sub make_alias {
-  local($file, $dir) = @_;
-  if ($file =~ /\.[pP][yY]$/) { 
-    local($aliasname) = $file; $aliasname =~ s/\.[Pp][yY]$//;
-    &make_python_alias($aliasname, "$dir");
+def make_alias(file: str, dir: str) -> None:
+
+  found = re.search("^.*\.[pP][yY]", file)
+  if found:
+    aliasname = re.sub("\.[pP][Yy]", "", file)
+    print("aliasname is " + aliasname)
+    make_python_alias(aliasname, "$dir");
+
+  found = re.search("^.*\.[sS][hH]", file)
+  if found:
+blah
+
+
   } elsif ($file =~ /\.[sS][hH]$/) { 
     local($aliasname) = $file; $aliasname =~ s/\.[Ss][Hh]$//;
     &make_bash_alias($aliasname, "$dir");