从 fortran 调用 C 的 open() 函数时文件权限不正确

Question

我有一个 Fortran 程序，它调用 C 函数并使用 open()

main.f90 打开一个文件：

PROGRAM TEST

    integer                        :: oflag, mode

    !Set oflag to O_CREAT|O_RDWR
    oflag = 66   
    mode = 600 

    call test2("test.txt", oflag, mode)

END PROGRAM

test.c:

#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <sys/types.h>

#pragma weak test2_     = test2
#pragma weak test2__    = test2
#pragma weak TEST2      = test2

void test2(char* filename, int* flag, int* mode)
{
    int fd; 
    if(-1 == (fd = open(filename, *flag, *mode)))
        puts("Returned -1");
}

编译为：

gcc -c test.c
gfortran main.f90 test.o

当我运行该程序时，它会创建文件 test.txt，但权限不正确：

---x--x--T 1 xyz users    0 2011-09-24 16:40 test.txt

我 如果我从另一个 C 程序调用这个函数，它应该可以

-rw------- 1 xyz users    0 2011-09-24 16:45 test.txt

正常工作。有人可以指出出了什么问题吗？

规格： 64位Linux GNU Fortran (SUSE Linux) 4.5.0、GCC (SUSE Linux) 4.5.0

谢谢， 克什蒂吉

Answer 1

您的常量是错误的，因为权限通常以八进制指定。试试这个程序：

#include <stdio.h>
#include <fcntl.h>

int main(void)
{
 printf("oflag=%d mode=%d\n", O_CREAT|O_RDWR, S_IRUSR|S_IWUSR);
}

我得到：

oflag=66 模式=384

600 八进制等于 384 十进制。

Answer 2

open 期望您为它提供八进制模式的值，而不是十进制（这就是为什么在处理 C 代码中的模式时您基本上总是看到一个额外的前导零，因为在 C 中您编写了一个八进制带前导零的文字）。

十进制的 600 八进制的 1130。 1130 对应于 ---x-wx--T，并且您的 umask 可能为 022，留下 ---x--x--T 。

我相信您可以在 Fortran 中指定一个八进制值，如下所示：o'600'（即字母 o，然后是单引号内的八进制值）。或者，正如 David Schwartz 在他的回答中建议的那样，您可以只使用所需模式的十进制等效值。不过，当您稍后回顾时，这可能会令人困惑。

编辑：MSB指出，虽然GNU Fortran可能是更宽松，为了符合标准，您必须在 data 语句中声明一个八进制常量，或者（自 Fortran 2003 起）如下int(o'600')。

Answer 3

下面是一个使用 Fortran ISO C 绑定作为标准和标准的示例。 Fortran 和 C 部分之间的可移植接口。在我的计算机上，我发现 O_CREAT|O_RDWR 有不同的值，即 514，因此将标志设置为特定值是不可移植的。

PROGRAM TEST

    use iso_c_binding

    implicit none

    interface test2_interface

       subroutine test2 ( filename, flag, mode )  bind (C, name="test2")

       import

       character (kind=c_char, len=1), dimension (100), intent (in) :: filename
       integer (c_int), intent (in), VALUE :: flag, mode

       end subroutine test2

    end interface test2_interface


    integer (c_int) :: oflag, mode
    character (kind=c_char, len=100) :: filename


    !Set oflag to O_CREAT|O_RDWR
    oflag = 66  ! incorrect value ... not used
    mode = int ( o'600', c_int)

    filename = "test.txt" // C_NULL_CHAR

    call test2 (filename, oflag, mode)

END PROGRAM

和

#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <fcntl.h>

void test2(char* filename, int flag, int mode)
{
    int fd;
    printf ( "filename = '%s'\n", filename );
    flag = O_CREAT | O_RDWR;
    printf ( "flag = %d\n", flag );
    printf ( "mode = octal %o\n", mode );
    if(-1 == (fd = open(filename, flag, mode)))
        puts("Returned -1");
}