Scheme SRFI-29

SRFI-29 Scheme

Теперь текст вопроса появился. Ответишь?

Я думал srfi-29 какой то вышел, но не нагуглил, и ждал пока ты что нибудь информативное напишешь(

Вот он таки вышел: https://srfi.schemers.org/srfi-29/srfi-29.html

Но как пользоваться - неясно.

Какой-то странный у тебя вопрос...

при запуске будет использоваться старая версия

На то он и пример, чтобы быть простым и не учитывать вот это всё. Дрочи как хочешь, в чём вопрос?

Дрочи как хочешь, в чём вопрос?

Интересуюсь, как принято.

Скажем, в gettext есть подробная пошаговая инструкция, где должны быть переводы, как с ними работать и что должно быть в исходниках программы.

А здесь то ли просто использовать declare-bundle! и localized-template. То ли считать srfi-29 мёртвым и пытаться сделать аналог gettext.

Не пойму, что тебе не понятно. Очевидно же что в принципе достаточно «declare-bundle! и localized-template». store и load для кэширования скомпилированных бандлов. Как ты будешь заниматься синхронизацией кэша — твои проблемы.

в gettext есть подробная пошаговая инструкция

gettext это вполне конкретная реализация, а srfi даёт только общий интерфейс.

Как ты будешь заниматься синхронизацией кэша — твои проблемы.

Но должно же быть какое-то типовое решение. А то ощущение, что дали eval-when, а документацию не дали...

Но должно же быть какое-то типовое решение

Так это надо конкретные реализации смотреть. Они есть?

Так это надо конкретные реализации смотреть. Они есть?

Почти в любой Scheme. Racket, Guile, Chez, Chicken, ...

Почти в любой Scheme

Там же просто дефолтные затычки. Сохранение и загрузка не предусмотрены.

Предусмотрены:

https://github.com/racket/srfi/blob/master/srfi-lite-lib/srfi/29/localization...

https://wiki.call-cc.org/eggref/4/srfi-29#store-bundle

Это вырожденный и очень абстрактный пример.

В спецификации не написано, как именно должны работать load-bundle! и store-bundle!, но есть 2 уточнения:

• Эти функции должны сохранять и загружать бандлы вне Схемки. То есть подразумевается работа с чем-то вроде бд.
• Если нет желания реализовывать — обе функции должны по-умолчанию всегда возвращать #f

Ответ на вопрос — или всегда возвращаешь #f, или заморачиваешься и реализуешь проверки на изменение данных.

Ответ на вопрос — или всегда возвращаешь #f, или заморачиваешься и реализуешь проверки на изменение данных.

Вопрос не про то, как написать srfi-29. Вопрос про-то, как его использовать.

Скажем для gettext я должен указать

  setlocale (LC_ALL, "");
  bindtextdomain (PACKAGE, LOCALEDIR);
  textdomain (PACKAGE);

Что написать для подключения srfi-29?

Написать

(load-bundle! bundle-name)

Написать

(if (not (load-bundle! bundle-name))
    (begin
      (declare-bundle! bundle-name translation)
      (store-bundle! bundle-name))))

Написать

(declare-bundle! bundle-name translation)

Написать

(define-syntax localization
  (lambda (stx)
    (syntax-case stx ()
      ((_ bundle-name translation ...)
       (begin
         (declare-bundle! (syntax->datum #'bundle-name) (syntax->datum #'(translation ...)))
         (store-bundle! (syntax->datum #'bundle-name))
         #'(if (not (load-bundle! bundle-name))
               (declare-bundle! bundle-name '(translation ...))))))))

Как правильно?