Mercurial > octave-nkf

view test/octave.test/system/unlink-1.m @ 2742:eeb061f9cdbf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-02-26 04:29:07 by jwe]
author jwe
date Wed, 26 Feb 1997 04:29:48 +0000
parents
children 6ddb5a7f399e
line wrap: on
line source

nm = tmpnam ();
if ((id = fopen (nm, "w")) > 0)
  [s, err] = stat (nm);
  if (! err && fclose (id) == 0 && unlink (nm) == 0)
    [s, err] = stat (nm);
    err < 0
  endif
endif