## Improvements by Sebastian Weber <Sebastian.Weber@aventis.com> 26Aug03

sys <- if(.R.) function(command, text=NULL, output=TRUE) {
  cmd <- if(length(text))
    paste(command,text)
  else
    command

  if(under.unix)
    system(cmd, intern=output)
  else
    shell(cmd, wait=TRUE, intern=output)
} else if(under.unix) function(..., minimized) unix(...) else function(...,minimized=FALSE) dos(..., minimized=minimized)