Concurrent Clean : for-notation

とりあえず、こんなのが動くようになった。

module Main
extension for-notation

import StdBase, OptBase, OptFile

Start w
    # (f,w) = stdio w
      f = for f
            fwrites "one for all"
              $> newline
            fwrites "all for one"
              $> newline
      (_,w) = fclose f w
    = w

• • • -

こういうのもできるようになった。

module Main
extension for-notation

import StdBase, OptBase, OptFile, OptText

Start w
    # (f,w) = stdio w
      f = for f
            fwrites "your name? "
            name <- freadline
            name = chop name
            fwrites "Hello, " $> name $> newline
      (_,w) = fclose f w
    = w