topic Re: Is fglrendermode a function or subroutine? in Software Archive

Is fglrendermode a function or subroutine?

Intel_C_Intel — Fri, 02 Feb 2001 09:06:01 GMT

Hi
I am trying to use fglrendermode option. The Opengl book says its a function and the help library says its a function, but the compiler wants it declared as a subroutine. As a function it is supposed to return the number of mouse hits. I am confused as to how this option is to be used. Can someone help me?

Thanks
Kausik

Re: Is fglrendermode a function or subroutine?

nijhuis — Fri, 02 Feb 2001 18:58:14 GMT

fglrendermode is indeed a function but the interface in module Dfopngl is not correct.
I solved it by making a separate module with a function ownfglrendermode in which the interface is stated in the right way.
It looks as follows:

integer*4 function ownfglRenderMode  (mode ) 
!DEC$IF DEFINED(_X86_) 
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_glRenderMode@4' :: fglRenderMode 
!DEC$ELSE 
!DEC$ ATTRIBUTES STDCALL, ALIAS :  'glRenderMode'   :: fglRenderMode 
!DEC$ENDIF 
 
integer*4 mode 
 
  ownfglRenderMode = fglRenderMode(mode) 
 
end function ownfglRenderMode

I hope this will help you.

Guus Nijhuis

Re: Is fglrendermode a function or subroutine?

nijhuis — Fri, 02 Feb 2001 19:13:19 GMT

Sorry for the mess in the first line of the example in the prior message.
Every "!" should start a new line, but I don't know how to get it right.

Guus

Re: Is fglrendermode a function or subroutine?

Steven_L_Intel1 — Fri, 02 Feb 2001 23:51:32 GMT

I'll fix it - the best way to show code is to bracket it in

 ... .

I agree that the declaration in DFOPNGL is wrong. We'll fix DFOPNGL in a future update. 

Steve

Re: Is fglrendermode a function or subroutine?

Intel_C_Intel — Sat, 03 Feb 2001 04:52:39 GMT

Hi
I pasted your fix into dfopngl.f90 and then ran my project by invoking

hits=ownfglrendermode(GL_RENDER)
(where hits is an integer)

But I still get the linker error. Am I missing something?

Thanks
Kausik

Re: Is fglrendermode a function or subroutine?

Steven_L_Intel1 — Sat, 03 Feb 2001 05:35:19 GMT

What is the linker error?

If you are not also using DFOPNGL, you'll want to add opengl32.lib, glaux.lib and glu32.lib to the list of libraries you link against.

Steve

Re: Is fglrendermode a function or subroutine?

Intel_C_Intel — Sat, 03 Feb 2001 06:08:56 GMT

Hi
I pasted the fix in Dfopngl.f90 just beneath the interface for "fglrendermode" and I ran my project by invoking "ownfglrendermode". But I get the following linker error:

Linking...
xtalmouse.obj : error LNK2001: unresolved external symbol _OWNFGLRENDERMODE@4
Debug/xtaldraw_w.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

Should I make any changes to "dfopngl.mod" or any others in addition to modifying dfopngl.f90?

Thanks
Kausik

Re: Is fglrendermode a function or subroutine?

Steven_L_Intel1 — Sat, 03 Feb 2001 07:38:26 GMT

Don't paste the code in DFOPNGL.F90 - that won't do a thing for you. Put it in your own code, in the routine that calls fglRenderMode.

Steve

Re: Is fglrendermode a function or subroutine?

Intel_C_Intel — Sat, 03 Feb 2001 07:50:23 GMT

Hi
When I paste the following code in my routine:

interface
integer*4 function ownfglRenderMode (mode )
!DEC$IF DEFINED(_X86_)
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_glRenderMode@4' :: fglRenderMode
!DEC$ELSE
!DEC$ ATTRIBUTES STDCALL, ALIAS : 'glRenderMode' :: fglRenderMode
!DEC$ENDIF
integer*4 mode
ownfglRenderMode = fglRenderMode(mode)
end function ownfglRenderMode
end interface

I get a compiler error :

Error: This statement is invalid in an INTERFACE block.
ownfglRenderMode = fglRenderMode(mode)
^

Can someone help me ?

Thanks
Kausik

Re: Is fglrendermode a function or subroutine?

Steven_L_Intel1 — Sat, 03 Feb 2001 08:01:41 GMT

Oh, I see. I didn't look at Guus' suggestion closely enough.

Use this instead:

interface
integer*4 function ownfglRenderMode  (mode )  
!DEC$IF DEFINED(_X86_)  
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_glRenderMode@4' :: ownfglRenderMode  
!DEC$ELSE  
!DEC$ ATTRIBUTES STDCALL, ALIAS :  'glRenderMode'   :: ownfglRenderMode  
!DEC$ENDIF   
integer*4 mode 
end function ownfglRenderMode  
end interface

Steve