Процедура списка чтения логотипа UCB не работает, как пример в книге, говорит, что она должна
Я прорабатываю стиль логотипа в компьютерных науках, используя UCB Logo 6.0 на Win10
Один из примеров - extractпроцедуру на этой странице: https://people.eecs.berkeley.edu/~bh/v2ch1/files.html
Моя проблема в том, что он будет читать только одну строку из файла, когда я думаю, что он должен читать все до конца файла. Я создал файл-образец (обычную текстовую адресную книгу) с помощью Notepad.exe с двумя записями, разделенными клавишей жесткого возврата (ENTER).
Вот процедура и пример ее использования из книги:
to extract :word :file
openread :file
setread :file
extract1 :word
setread []
close :file
end
to extract1 :word
local "line
if eofp [stop]
make "line readlist
if memberp :word :line [print :line]
extract1 :word
end
Чтобы использовать это:? extract "brian "phonelist (с phonelist имя файла)
И результат должен быть:
Brian Harvey 555-2368
Brian Silverman 555-5274
В моем образце файла были 2 строки Брайана, но извлекается только первая. Есть идеи, что происходит? - Спасибо