home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / elvis22g.zip / lib / elvis.bwf < prev    next >
Text File  |  2002-04-10  |  377b  |  11 lines
  1. " Check for changed timestamp (unless it was never set, or forced write)
  2. if !bang && edited && timestamp != "" && time(filename) != timestamp
  3. then error file's timestamp has changed
  4. " Maybe make a backup
  5. if backup && !newfile
  6. then {
  7.  switch os
  8.  case unix eval ! cp (filename) (filename).bak
  9.  default   eval ! copy (filename) (dirname(filename) / basename(filename)).bak >NUL
  10. }
  11.