Mathematica：是否可以为简单的包创建一个自动的 init.m 文件

Question

我的大多数个人包只是一个 m 文件，例如 Foo.m，但它们通常最终为 Foo/Foo.m，以便我可以存储相关测试以及 Foo 目录中的注释。为了允许仅使用 < 加载包，我包含 Foo/init.m 如下：

With[{packagename="Foo"},
  Get@FileNameJoin@{ 
    DirectoryName@FindFile[packagename<>"`"],
    packagename<>".m"}]

只要我记得更新，这就可以正常工作packagename 当我将 init.m 复制到新包时，但我想知道是否有一种方法可以制作完全可重用的 init.m这个简单的例子？

为了完整起见，我不想将实现重命名为 implementation.m。

Answer 1

我不太确定理解你的问题，但无论如何这是一个猜测......

你尝试过类似

packagename = StringDrop[DirectoryName[$Input], -1]  

第一行的东西吗？

编辑：供以后参考

经过Janus测试，正确的表达式是：

packagename=StringDrop[$Input,-2]