Re: Example Ada calling Gnu Scientific Library (GSL)

[hreba <f_hreba@yahoo.com.br>]

On 04/06/2017 09:30 AM, Simon Wright wrote:
> hreba <f_hreba@yahoo.com.br> writes:
>
>> gcc test_integration.o -o test_integration
>> /home/frank/Lib/Ada/Num/Tests/obj/integ_aux.o: In function
>> `integ_aux__gsl_test__integration_qng':
>> /home/frank/Lib/Ada/Num/src/gsl.adb:54: undefined reference to
>> `gsl_integration_qng'
>> collect2: error: ld returned 1 exit status
>> gprbuild: link of test_integration.adb failed
>>
>> But in GSL_Raw/src/gsl_gsl_integration_h.ads the procedure
>> gsl_integration_qng _is_ declared.
>>
>> Where might it have gone lost?
>
> Hard to say, but running nm on gsl_gsl_integration_h.o might give a
> clue. Most likely, I guess, is that that file contains the corresponding
> symbol but decorated with a prefix derived from the package name? e.g.
> gsl_gsl_integration_h__gsl_integration_qng
>

Nothing similar:

frank@pc-frank ~/Lib/Ada/Num/GSL_Raw/obj $ nm gsl_gsl_integration_h.o
0000000000000000 D gsl_gsl_integration_h_E
0000000000000124 T gsl_gsl_integration_h__gsl_integration_cquad_ivalIP
000000000000012e T gsl_gsl_integration_h__gsl_integration_cquad_workspaceIP
00000000000000d2 T gsl_gsl_integration_h__gsl_integration_glfixed_tableIP
0000000000000020 R gsl_gsl_integration_h__gsl_integration_qawo_enumN
0000000000000000 R gsl_gsl_integration_h__gsl_integration_qawo_enumS
00000000000000bc T gsl_gsl_integration_h__gsl_integration_qawo_tableIP
00000000000000b2 T gsl_gsl_integration_h__gsl_integration_qaws_tableIP
0000000000000000 T gsl_gsl_integration_h__gsl_integration_workspaceIP
00000000000000f4 T 
gsl_gsl_integration_h__Tgsl_integration_cquad_ival_c_arrayBIP
000000000000010c T 
gsl_gsl_integration_h__Tgsl_integration_cquad_ival_fx_arrayBIP
0000000000000082 T 
gsl_gsl_integration_h__Tgsl_integration_qaws_table_rg_arrayBIP
000000000000009a T 
gsl_gsl_integration_h__Tgsl_integration_qaws_table_rh_arrayBIP
0000000000000052 T 
gsl_gsl_integration_h__Tgsl_integration_qaws_table_ri_arrayBIP
000000000000006a T 
gsl_gsl_integration_h__Tgsl_integration_qaws_table_rj_arrayBIP

The missing function is declared in src/gsl_gsl_integration_h.ads as

    function gsl_integration_qng
      (f : access constant gsl_gsl_math_h.gsl_function;
       a : double;
       b : double;
       epsabs : double;
       epsrel : double;
       result : access double;
       abserr : access double;
       neval : access stddef_h.size_t) return int;
    pragma Import (C, gsl_integration_qng, "gsl_integration_qng");

So what would be the next search step?
-- 
Frank Hrebabetzky		+49 / 6355 / 989 5070