Можно ли протестировать процедуры, использующие операцию read?
ex.
(define (foo prompt)
(display prompt)
(read))
Я пытался использовать write, но read, кажется, создает блок, так что write запускается только после того, как я ввожу что-то вручную
Когда вы вызываете внутренний read в своем коде, этот вызов будет читать не из стандартного ввода, а из самого вашего файла, потому что читатель, который преобразует входной файл в список s-exps, будет использовать ту же функцию чтения. Так что да, вы можете использовать его, если переопределите его, иначе результат будет труднее предвидеть. Вот пример read.scm:
(define (foo m)
(display m)
(read))
(display (foo "input:"))
200
(newline)
Пример использования:
% mit-scheme --silent < read.scm
input:200
Значение 200 будет прочитано вызовом функции, оно не будет возвращено в итоговом списке, представляющем код.
Чтобы определить собственные read-keyboard функции, вы можете взять в качестве образца это.
read с ракеткой и r5rs, похоже, используют стандартный ввод (т.е. он дает мне поле ввода текста)
- person Alter; 22.01.2020
(read)для возврата любого желаемого значения. например(define (read) "Hello!"). - person Flux schedule 20.01.2020