fxlocalio.bis

来自「用VB实现的编译器的源代码」· BIS 代码 · 共 83 行

// Part of the Local I/O System Framework. Do not modify.
class File
  
  <definitions>
  
  variable channel
    Integer
     [+FreefileNumber]
  end variable

  variable path
    String
    [""]
  end variable

  method linkTo
    1
    FilePath
  end method  

  method write
    1
    String
  end method

  method writeLn
    1
    String
  end method

  <methods>
  
  method void createInputBuffer
    setInput [:this.channel] [:this.path]
  end method

  method void createOutputBuffer
    setOutput [:this.channel] [:this.path]
  end method

  method void createAppendBuffer
    setAppend [:this.channel] [:this.path]
  end method

  method void linkTo
    set this.channel [+FreeFileNumber]
    set this.path [#FilePath]
  end method

  method void close
    closeFile [:this.channel]
  end method

  method void write
    write [:this.channel] [#String]
  end method

  method void writeLn
    write [:this.channel] [#String & "%0D"]
  end method

  method function readLn
    readLine [:this.channel]
    return [+Misc]
  end method

  method function readAll
    readASCIIToMisc [:this.path]
    return [+Misc]
  end method

  method function eof
    eof [:this.channel]
    return [+Misc]
  end method

  method function length
    lof [:this.channel]
    return [+Misc]
  end
end class