interrupting native code

The problem is that my package uses an external pointer to keep track of a 
structure created by the lp_solve library. If I use R_CheckUserInterrupt in 
the lp_solve abort function it leaves the structure in a messed-up state 
after an interrupt occurs. I am not even able to free the memory allocated in 
the structure. I need to be able to tell the lp_solve functions to interrupt 
themselves if I am going to support interrupts at all.

I took a longer look at errors.c and it seems my solution should work as long 
as neither HAVE_AQUA nor Win32 are defined. Under the circumstances, I think 
that's the best I can do.

Any suggestions for a UI independent way to check for interrupts would be 
appreciated.

Thanks,
Kjell

On 15 mai 08, at 16:41, Prof Brian Ripley wrote:

How is R_interrupts_pending going to be set?

It is set in the interrupt handler for SIGINT, but that is not the only way 
to indicate an interrupt, and it is not necessarily available to users of 
GUIs and embedded R.

Without servicing the GUIs all interaction will be dead, including sending 
an interrrupt from menus/buttons/keyboard.  See the comment in the code for 
R_CheckUserInterrupt.

On Thu, 15 May 2008, Kjell Konis wrote:

Hello,

I have some native code that I would like to allow users to interrupt. 
However, I would like to do it more gracefully than with 
R_CheckUserInterrupt(). The solution I came up with is to call the 
following abort function periodically - if it returns 1 then I clean up 
and return.

int __WINAPI RlpSolveAbortFunction(lprec *lp, void *userhandle)
{
if(R_interrupts_pending)
return(1);

return(0);
}

This seems to work fine on Mac (sans Aqua) and Linux. Is this going to be 
portable?  Also, is there anything else I need to do?  For instance set 
R_interrupts_pending to 0 after I respond to it?

Thanks.
Kjell

-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595