Re: What an I doing wrong?

[Christian Robert]

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