Проблемы с READ-LINE в LINUX

HaronK

Кажется нашел в чем проблема. Слово READ-LINE в реализации под Linux работает не совсем корректно.
Оно использует слово READ-FILE которое в свою очередь, используя системную функцию read, читает из входного потока. При тестировании оказалось, что из STDIN читается несколько строк, но READ-LINE берет из них только первую, а все остальные игнорируются.
Может у кого будут идеи, как это пофиксить?

UPD. Возможно проблема не совсем в READ-LINE, а в более поздней интерепретации вычитаных строк. Разбираюсь.
UPD2. Все таки проблема в READ-LINE. Он использует REPOSITION-FILE для переноса текущей позиции чтения из входного потока на конец вычитанной строки. Это работает если STDIN это файл, но, если данные пишутся напрямую, то такой подход не работает. Эта же проблема будет и в Windows версии.

HaronK

Как временное решение переопределил REFILL-STDIN:

Код:

: ACCEPT3 ( c-addr +n1 -- +n2 )
  OVER SWAP
  H-STDIN READ-FILE TRUE SWAP
  
  DUP 109 = IF DROP -1002 THEN THROW ( ~ruv)
  0= IF -1002 THROW THEN ( ~ac)
  
  TUCK TO-LOG
  EOLN TO-LOG \ Если ввод с user-device записать cr в лог, то есть нажали Enter
;

: REFILL-STDIN ( -- flag ) \  from user input
  SOURCE-ID -1 = IF FALSE EXIT THEN ( evaluate string )
  TIB C/L ['] ACCEPT3 CATCH
  \ -1002=конец файла или pipe
  \ остальные ошибки - ошибки чтения
  DUP -1002 = IF DROP 2DROP 0 0 ELSE THROW -1 THEN
  TAKEN-TIB
;

spf

HaronK писал(а):

Слово READ-LINE в реализации под Linux работает не совсем корректно.

Да, эта проблема возникает и при перенаправлении стандартного ввода, и при использовании пайпов. Решение:

Код:

REQUIRE CORE_OF_REFILL ~pinka/spf/fix-refill.f

HaronK

spf писал(а):

Да, эта проблема возникает и при перенаправлении стандартного ввода, и при использовании пайпов. Решение:

Спасибо. А почему эта проблема не решена в основной ветке SPF?

spf

HaronK писал(а):

А почему эта проблема не решена в основной ветке SPF?

Наверное, никто не заявлял до сих пор (а значит, никому не надо). На spf.sf.net работает багтрекер.

Mihail

spf писал(а):

HaronK писал(а):

Слово READ-LINE в реализации под Linux работает не совсем корректно.

Код:

REQUIRE CORE_OF_REFILL ~pinka/spf/fix-refill.f

И эта виртуализация всего ввода/вывода ради одного только READ-LINE ?
Не проще реализовать READ-LINE в виде побайтного цикла?

spf

Mihail писал(а):

И эта виртуализация всего ввода/вывода ради одного только READ-LINE ?

там буфферизация ввода, а не виртуализация.

Mihail писал(а):

Не проще реализовать READ-LINE в виде побайтного цикла?

Проще, но и на порядок медленней, наверное. Еще есть вариант через fgets из MSVCRT, но он непортабельный и вроде тоже медленней форт-реализации.

mOleg

HaronK, пожалуйста старайтесь задавать вопросы в профильных разделах

Проблемы с READ-LINE в LINUX

Кто сейчас на конференции