umask-1.m

来自「GNU Octave is a high-level language, pri」· M 代码 · 共 16 行

umask (0);
nm = tmpnam ();
id = fopen (nm, "w");
s1 = stat (nm);
fclose (id);
unlink (nm);

umask (777);
nm = tmpnam ();
id = fopen (nm, "w");
s2 = stat (nm);
fclose (id);
unlink (nm);

strcmp (s1.modestr, "-rw-rw-rw-") && strcmp (s2.modestr, "----------")