property NoWritingFiles {
  requires FileNames;
  precode RFileSystem.openOverwrite (file: RFile), 
          RFileSystem.openCreate (file: RFile),
          RFileSystem.openAppend (file: RFile) {
    violation ("Attempt to write file: " + file.getName ());
  }
}
Naccio Home Page
University of Virginia, Computer Science