Mercurial > octave-nkf

annotate test/octave.test/system/mk-rm-dir-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 9e3efbc3070a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2742
eeb061f9cdbf [project @ 1997-02-26 04:29:07 by jwe]
jwe
parents:
diff changeset
1 nm = tmpnam ();
eeb061f9cdbf [project @ 1997-02-26 04:29:07 by jwe]
jwe
parents:
diff changeset
2 e1 = mkdir (nm);
eeb061f9cdbf [project @ 1997-02-26 04:29:07 by jwe]
jwe
parents:
diff changeset
3 [s2, e2] = stat (nm);
eeb061f9cdbf [project @ 1997-02-26 04:29:07 by jwe]
jwe
parents:
diff changeset
4 e3 = rmdir (nm);
eeb061f9cdbf [project @ 1997-02-26 04:29:07 by jwe]
jwe
parents:
diff changeset
5 [s4, e4] = stat (nm);
eeb061f9cdbf [project @ 1997-02-26 04:29:07 by jwe]
jwe
parents:
diff changeset
6 (! e1 && strcmp (s2.modestr(1), "d") && ! e3 && e4 < 0)