4

我在这个模块中有这个功能

require 'dl'
require 'dl/import'

module LibCalendars
  extend DL::Importer
  dlload './cal2jd.o'

  extern 'int iauCal2jd(int, int, int, double *, double *)'
end

如何在模块中进行设置以访问指针？

里面有我需要的部分吗？我只是不确定。这是如何正确完成的？确切的代码在http://www.iausofa.org/2013_1202_C/sofa/cal2jd.c 我需要知道如何访问这些地址指针。验证测试在这里http://www.iasofa.org/2013_1202_C/sofa/t_sofa_c.c

一个几乎等效的 main C 看起来像下面的代码。我刚刚制作了 cal2jd.c 文件的副本，并将 main 函数添加到它的底部。

#include <stdio.h>
int
main()
{
 int y = 2003, m = 6, d = 1;
 int j;
 double djm0, djm;
 double *pdjm0 = &djm0;
 double *pdjm  = &djm;  

 printf("values are: y == %d, m == %d, d == %d\n", y, m, d);

 j = iauCal2jd(y, m, d, &djm0, &djm);

 printf("j == %d\n", j);
 printf("address of &djm0 == %p, size of pointer == %d\n", &djm0, sizeof(*pdjm0));
 printf("address of &djm  == %p, size of pointer == %d\n", &djm, sizeof(*pdjm0));
 printf("value from &djm0 == %.20g, size of djm0 == %d\n", *pdjm0, sizeof(djm0));
 printf("value from &djm  == %.20g, size of djm  == %d\n", *pdjm, sizeof(djm));
 printf("value from &djm0 == %.3f\n", (float)*pdjm0);
 printf("value from &djm  == %.3f\n", (float)*pdjm);

 return 0;
 }

我用 > gcc -o cal2jd cal2jd.c 编译它

这是我的输出

$ cal2jd
values are: y == 2003, m == 6, d == 1
j == 0
address of &djm0 == 0022FF30, size of pointer == 8
address of &djm  == 0022FF28, size of pointer == 8
value from &djm0 == 2400000.5, size of djm0 == 8
value from &djm  == 52791, size of djm  == 8
value from &djm0 == 2400000.500
value from &djm  == 52791.000

状态良好，djm0 由头文件 sofam.h 中的常量设置为 2400000.5，您可以从源文件中的注释中看到它应该始终如此。您可以从验证测试文件中看到 djm 应该是什么。

我试图一次做太多事情。我在使用 SOFA 代码并尝试将其包装在 Ruby 中时正在学习一些 C 代码。（实际上是 JRuby）所以我会回答 C 部分、DL 或 FFI 或一些好的参考链接。

我也在考虑 ffi 方法。这是一个开始。

require 'ffi'

module MyLibrary
  extend FFI::Library
  ffi_lib "cal2jd.so"
  attach_function :iauCal2jd, [:int, :int, :int, :pointer, :pointer], :int
end

我真的在 JRuby 中尝试过这个。因为我迷路了，我该从哪里开始。请问我可以举一些好的例子吗？提前致谢。

4

2 回答 2

1

我发现了一种方法来做我最近打算做的事情。在这里，我将与您分享，以防有人想尝试。首先，您必须将 C 库编译为共享对象文件。询问 C 程序员如何做到这一点。这就是我使用 cal2jd.so 的方式。

require 'ffi'

module Calendars
  extend FFI::Library

  ffi_lib 'cal2jd.so'

  attach_function :iauCal2jd, [:int, :int, :int, :pointer, :pointer ], :int

end

mp1 = FFI::MemoryPointer.new(:double, 8)
mp2 = FFI::MemoryPointer.new(:double, 8)
cal = Calendars.iauCal2jd(2014, 4, 6, mp1, mp2 )
puts cal

puts mp1.get_double, mp2.get_double

我的输出是

0 # return result good
2400000.5
56753.0  # pretty soon we're gonna have a straight 56789 ;-)

希望这可能对某人有所帮助，并感谢所有人的帮助。继续留下更多评论或更好的答案，我们可以投票。

于 2014-04-11T03:55:05.667 回答
1

由于 ruby​​ 和 jruby 标签，不确定是否理解您的问题，但如果您问的是 C，那么：cfunction是指向函数的指针。

假设您有另一个函数 f 以函数指针作为参数：

void f(void (*)(int , int , double *));

你可以打电话f给：

f(cfunction);
于 2014-04-02T20:23:22.450 回答