Mathematica: возможно ли создать автоматический файл init.m для простых пакетов.

Question

Большинство моих личных пакетов - это всего лишь один файл m, например Foo.m, но они обычно заканчиваются как Foo/Foo.m, поэтому я могу хранить связанные тесты и примечания в каталоге Foo. Чтобы пакеты должны быть загружены только с <<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] 

в вашей первой линии?

Edit: для будущей ссылки

После испытания Янус, это стало то, что правильное выражение:

packagename=StringDrop[$Input,-2]