读取行并将它们放入列表中

Question

以下问题与 SMLNJ 有关。 我正在尝试编写一个函数，在调用时，将读取文本文件，并将每行放入列表中。我不断收到一些语法错误。

以下是我的代码：

有趣的读物清单（infile：string）=   让     val ins = TextIO.openIn infile     val l = TextIO.inputLine ins     val list =（l :: nil）     有趣的createlist（）=     让val l = TextIO.inputLine ins

  in case l of
       NONE => (TextIO.closeIn ins)
     | SOME l => list = l::list; createlist()

在     createlist（）   结束

以下是我的语法错误： readlist.sml：11.48错误：语法错误：插入END 未捕获的异常编译[编译：“语法错误”]

提出： ../compiler/Parse/main/smlfile.sml:15.24-15.46 ../编译器/顶层/交互/ evalloop.sml：44.55

         ../compiler/TopLevel/interact/evalloop.sml:296.17-296.20

Answer 1

听起来好像这是Looping over lines of a text file in SML/NJ的问题，它已经有了一个很好的答案。