Hi Bill, Christian,
thanks, fixed in SVN 1299.
Best Regards,
Jürgen Sauermann
On 6/10/20 3:40 AM, Christian Robert
wrote:
There
is a missing "errno = 0;" in cases 20 (for both monadic and
diadic) in QUAD_FIO.cc
eg:
case 15: // fseek(Bh, Ai, SEEK_END)
{
errno = 0;
FILE * file = get_FILE(*B.get());
const APL_Integer pos =
A->get_ravel(0).get_near_int();
fseek(file, pos, SEEK_END);
}
goto out_errno;
case 20: // mkdir(Bc, Ai)
{
const int mask =
A->get_ravel(0).get_near_int();
UTF8_string path(*B.get());
mkdir(path.c_str(), mask);
}
goto out_errno;
case 22: // fprintf(Bh, A)
{
errno = 0;
UCS_string UZ;
FILE * file = get_FILE(*B.get());
return do_printf(file, A);
}
On 2020-06-09 16:22, Bill Daly wrote:
FIO_Create_mask←(8⍴8)⊥0 0 0 0 0 7 7
7
FIO_Create_mask FIO∆mkdir '/home/dalyw/test/FIO_test'
¯2
FIO∆strerror ¯2
No such file or directory
FIO∆read_directory '/home/dalyw/test'
5767711 8549106885002863117 32 4 FIO_test
FIO∆rmdir '/home/dalyw/test/FIO_test'
0
FIO∆read_directory '/home/dalyw/test'
thanx
w
|