如何解决检测是否可以在 Scheme
我目前正在处理一个项目,我正在逐行读取文件中的内容。在执行此操作之前,我想检查文件是否可以打开或存在。类似于在 C++ 中检查 fopen() 的返回内容,但在 Scheme 中。
到目前为止我有:
(define (perform action fileName . args)
(if (file-exists? fileName)
((define in-file (open-input-file fileName))
(do ((line (read-line in-file) (read-line in-file))) ((eof-object? line))
(display line)
(newline)))
(map display
(list "Unable to open " fileName " for reading\n"))
)
)
然而,所有这些代码都是在文件中逐行读取并尝试检查文件是否存在。但是它不起作用,因为我收到“;无法在空语法环境中绑定名称:文件内#[reserved-name-item 13]”错误。
我意识到当文件无法打开时,会根据 MIT Scheme Documentation 发出类型为 condition-type:file-operation-error 的错误信号;但是,我无法弄清楚如何处理此异常,因此我的解决方法是。
任何帮助将不胜感激。
解决方法
您的代码有一个问题。您不能在代码中随意添加括号来制作 if
的单个表达式,因为括号是函数调用。要制作单个表达式,您需要使用 begin:
(define (perform action fileName . args)
(if (file-exists? fileName)
(begin
(define in-file (open-input-file fileName))
(do ((line (read-line in-file) (read-line in-file))) ((eof-object? line))
(display line)
(newline)))
(map display
(list "Unable to open " fileName " for reading\n"))
)
)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。