// Ignore the spaces before the attribute names
// -- it's an artefact of the syntax highlighting script
[< Cmdlet("Touch", "File", DefaultParameterSetName = "Path")>]
type TouchFileCmdlet = class
  inherit PSCmdlet

  val mutable path : String
  val mutable fileInfo : FileInfo
  val mutable date : DateTime

  new() = {path = null; fileInfo = null; date = DateTime.Now}

  [<Parameter(ParameterSetName = "Path", Mandatory = true, Position = 1, ValueFromPipeline = true, ValueFromPipelineByPropertyName = true)>]
  [<ValidateNotNullOrEmpty>]
  [<Alias([|"FullName"|])>]
  member x.Path
    with get () = x.path
    and set p = x.path <- p

  [<Parameter(ParameterSetName = "FileInfo", Mandatory = true, Position = 1, ValueFromPipeline = true)>]
  member x.FileInfo
    with get () = x.fileInfo
    and set p = x.fileInfo <- p

  [<Parameter>]
  member x.Date
    with get () = x.date
    and set p = x.date <- p

  // perform the cmdlet function
  override x.ProcessRecord () =…