Я хотел бы слово, как
read-site ( add n buff max -- n flag )
где «добавить n» — это буфер имени сайта, «buff max» — это буфер, в который должен быть прочитан текст ASCII, «n» — это количество прочитанных байтов, а flag истинно, если операция выполнена успешно.
Возможно ли это в Gforth в Linux, Android или Windows?
Самый простой правильный способ - использовать библиотеку HTTP-клиента (или привязку) в Forth (если есть). Похоже, что такая библиотека есть в репозитории Gforth — см. https://github.com/earl/gforth-mirror/blob/master/netlib/httpclient.fs. Очевидно, что он не работает с HTTPS.
Следующий способ — использовать подходящую внешнюю общую библиотеку, например libcurl. Это известный инструмент, поддерживающий множество протоколов (связку и некоторые примеры использования можно найти также в SP-Forth).
Следующий способ — использовать системный вызов и создать дочерний процесс (не такой эффективный подход с точки зрения использования ресурсов). Gforth имеет system< /a> слово для этого. Пример использования:
S" curl http://example.com/" system
HTML-код веб-страницы будет выведен на стандартный вывод. К сожалению, перенаправление с помощью outfile-execute не работает. работать в этом случае (выглядит как неполная или слабая реализация слова system).
Итак, следует использовать временный файл:
S" curl --silent http://example.com/ > tmp" system
После этого содержимое файла может быть прочитано в заданный буфер.
Концептуальная реализация выглядит следующим образом:
: read-url ( d-buffer d-txt-url -- d-txt-webpage )
s" curl --silent {} > tmp" interpolate system
over >r \ keep buf addr
s" tmp" open-file throw dup >r read-file throw
r> close-file throw
r> swap
;
где interpolate ( i*x d-txt1 -- d-txt2 ) расширяет данный шаблон.
