private void SetupUnixDevice()
{
IntPtr suicidePointer = this.engine.DangerousGetHandle("ptr_R_Suicide");
suicideDelegate = (ptr_R_Suicide)Suicide;
IntPtr newSuicide = Marshal.GetFunctionPointerForDelegate(suicideDelegate);
Marshal.WriteIntPtr(suicidePointer, newSuicide);
IntPtr showMessagePointer = this.engine.DangerousGetHandle("ptr_R_ShowMessage");
showMessageDelegate = (ptr_R_ShowMessage)ShowMessage;
IntPtr newShowMessage = Marshal.GetFunctionPointerForDelegate(showMessageDelegate);
Marshal.WriteIntPtr(showMessagePointer, newShowMessage);
IntPtr readConsolePointer = this.engine.DangerousGetHandle("ptr_R_ReadConsole");
readConsoleDelegate = (ptr_R_ReadConsole)ReadConsole;
IntPtr newReadConsole = Marshal.GetFunctionPointerForDelegate(readConsoleDelegate);
Marshal.WriteIntPtr(readConsolePointer, newReadConsole);
IntPtr writeConsolePointer = this.engine.DangerousGetHandle("ptr_R_WriteConsole");
writeConsoleDelegate = (ptr_R_WriteConsole)WriteConsole;
IntPtr newWriteConsole = Marshal.GetFunctionPointerForDelegate(writeConsoleDelegate);
Marshal.WriteIntPtr(writeConsolePointer, newWriteConsole);
IntPtr writeConsoleExPointer = this.engine.DangerousGetHandle("ptr_R_WriteConsoleEx");
writeConsoleExDelegate = (ptr_R_WriteConsoleEx)WriteConsoleEx;
IntPtr newWriteConsoleEx = Marshal.GetFunctionPointerForDelegate(writeConsoleExDelegate);
Marshal.WriteIntPtr(writeConsoleExPointer, newWriteConsoleEx);
IntPtr resetConsolePointer = this.engine.DangerousGetHandle("ptr_R_ResetConsole");
resetConsoleDelegate = (ptr_R_ResetConsole)ResetConsole;
IntPtr newResetConsole = Marshal.GetFunctionPointerForDelegate(resetConsoleDelegate);
Marshal.WriteIntPtr(resetConsolePointer, newResetConsole);
IntPtr flushConsolePointer = this.engine.DangerousGetHandle("ptr_R_FlushConsole");
flushConsoleDelegate = (ptr_R_FlushConsole)FlushConsole;
IntPtr newFlushConsole = Marshal.GetFunctionPointerForDelegate(flushConsoleDelegate);
Marshal.WriteIntPtr(flushConsolePointer, newFlushConsole);
IntPtr clearerrConsolePointer = this.engine.DangerousGetHandle("ptr_R_ClearerrConsole");
clearerrConsoleDelegate = (ptr_R_ClearerrConsole)ClearErrorConsole;
IntPtr newClearerrConsole = Marshal.GetFunctionPointerForDelegate(clearerrConsoleDelegate);
Marshal.WriteIntPtr(clearerrConsolePointer, newClearerrConsole);
IntPtr busyPointer = this.engine.DangerousGetHandle("ptr_R_Busy");
busyDelegate = (ptr_R_Busy)Busy;
IntPtr newBusy = Marshal.GetFunctionPointerForDelegate(busyDelegate);
Marshal.WriteIntPtr(busyPointer, newBusy);
IntPtr cleanUpPointer = this.engine.DangerousGetHandle("ptr_R_CleanUp");
cleanUpDelegate = (ptr_R_CleanUp)CleanUp;
IntPtr newCleanUp = Marshal.GetFunctionPointerForDelegate(cleanUpDelegate);
Marshal.WriteIntPtr(cleanUpPointer, newCleanUp);
IntPtr showFilesPointer = this.engine.DangerousGetHandle("ptr_R_ShowFiles");
showFilesDelegate = (ptr_R_ShowFiles)ShowFiles;
IntPtr newShowFiles = Marshal.GetFunctionPointerForDelegate(showFilesDelegate);
Marshal.WriteIntPtr(showFilesPointer, newShowFiles);
IntPtr chooseFilePointer = this.engine.DangerousGetHandle("ptr_R_ChooseFile");
chooseFileDelegate = (ptr_R_ChooseFile)ChooseFile;
IntPtr newChooseFile = Marshal.GetFunctionPointerForDelegate(chooseFileDelegate);
Marshal.WriteIntPtr(chooseFilePointer, newChooseFile);
IntPtr editFilePointer = this.engine.DangerousGetHandle("ptr_R_EditFile");
editFileDelegate = (ptr_R_EditFile)EditFile;
IntPtr newEditFile = Marshal.GetFunctionPointerForDelegate(editFileDelegate);
Marshal.WriteIntPtr(editFilePointer, newEditFile);
IntPtr loadHistoryPointer = this.engine.DangerousGetHandle("ptr_R_loadhistory");
loadHistoryDelegate = (ptr_R_loadhistory)LoadHistory;
IntPtr newLoadHistory = Marshal.GetFunctionPointerForDelegate(loadHistoryDelegate);
Marshal.WriteIntPtr(loadHistoryPointer, newLoadHistory);
IntPtr saveHistoryPointer = this.engine.DangerousGetHandle("ptr_R_savehistory");
saveHistoryDelegate = (ptr_R_savehistory)SaveHistory;
IntPtr newSaveHistory = Marshal.GetFunctionPointerForDelegate(saveHistoryDelegate);
Marshal.WriteIntPtr(saveHistoryPointer, newSaveHistory);
IntPtr addHistoryPointer = this.engine.DangerousGetHandle("ptr_R_addhistory");
addHistoryDelegate = (ptr_R_addhistory)AddHistory;
IntPtr newAddHistory = Marshal.GetFunctionPointerForDelegate(addHistoryDelegate);
Marshal.WriteIntPtr(addHistoryPointer, newAddHistory);
}
private void SetupUnixDevice()
{
suicideDelegate = (ptr_R_Suicide)Suicide;
IntPtr newSuicide = Marshal.GetFunctionPointerForDelegate(suicideDelegate);
this.engine.WriteIntPtr("ptr_R_Suicide", newSuicide);
showMessageDelegate = (ptr_R_ShowMessage)ShowMessage;
IntPtr newShowMessage = Marshal.GetFunctionPointerForDelegate(showMessageDelegate);
this.engine.WriteIntPtr("ptr_R_ShowMessage", newShowMessage);
readConsoleDelegate = (ptr_R_ReadConsole)ReadConsole;
IntPtr newReadConsole = Marshal.GetFunctionPointerForDelegate(readConsoleDelegate);
this.engine.WriteIntPtr("ptr_R_ReadConsole", newReadConsole);
// Candidate fix for https://github.com/rdotnet/rdotnet/issues/131
// Not sure when behavior changed in R character handling, but it seems that at some point
// having R_outputfile set to not NULL e.g.:
// in src/unix/system.c
// R_Outputfile = stdout;
// R_Consolefile = stderr;
// took precedence over setting ptr_R_WriteConsole with a callback.
// We need to reset these two values to a nullptr:
this.engine.WriteIntPtr("R_Outputfile", IntPtr.Zero);
this.engine.WriteIntPtr("R_Consolefile", IntPtr.Zero);
writeConsoleDelegate = (ptr_R_WriteConsole)WriteConsole;
IntPtr newWriteConsole = Marshal.GetFunctionPointerForDelegate(writeConsoleDelegate);
this.engine.WriteIntPtr("ptr_R_WriteConsole", newWriteConsole);
writeConsoleExDelegate = (ptr_R_WriteConsoleEx)WriteConsoleEx;
IntPtr newWriteConsoleEx = Marshal.GetFunctionPointerForDelegate(writeConsoleExDelegate);
this.engine.WriteIntPtr("ptr_R_WriteConsoleEx", newWriteConsoleEx);
resetConsoleDelegate = (ptr_R_ResetConsole)ResetConsole;
IntPtr newResetConsole = Marshal.GetFunctionPointerForDelegate(resetConsoleDelegate);
this.engine.WriteIntPtr("ptr_R_ResetConsole", newResetConsole);
flushConsoleDelegate = (ptr_R_FlushConsole)FlushConsole;
IntPtr newFlushConsole = Marshal.GetFunctionPointerForDelegate(flushConsoleDelegate);
this.engine.WriteIntPtr("ptr_R_FlushConsole", newFlushConsole);
clearerrConsoleDelegate = (ptr_R_ClearerrConsole)ClearErrorConsole;
IntPtr newClearerrConsole = Marshal.GetFunctionPointerForDelegate(clearerrConsoleDelegate);
this.engine.WriteIntPtr("ptr_R_ClearerrConsole", newClearerrConsole);
busyDelegate = (ptr_R_Busy)Busy;
IntPtr newBusy = Marshal.GetFunctionPointerForDelegate(busyDelegate);
this.engine.WriteIntPtr("ptr_R_Busy", newBusy);
cleanUpDelegate = (ptr_R_CleanUp)CleanUp;
IntPtr newCleanUp = Marshal.GetFunctionPointerForDelegate(cleanUpDelegate);
this.engine.WriteIntPtr("ptr_R_CleanUp", newCleanUp);
showFilesDelegate = (ptr_R_ShowFiles)ShowFiles;
IntPtr newShowFiles = Marshal.GetFunctionPointerForDelegate(showFilesDelegate);
this.engine.WriteIntPtr("ptr_R_ShowFiles", newShowFiles);
chooseFileDelegate = (ptr_R_ChooseFile)ChooseFile;
IntPtr newChooseFile = Marshal.GetFunctionPointerForDelegate(chooseFileDelegate);
this.engine.WriteIntPtr("ptr_R_ChooseFile", newChooseFile);
editFileDelegate = (ptr_R_EditFile)EditFile;
IntPtr newEditFile = Marshal.GetFunctionPointerForDelegate(editFileDelegate);
this.engine.WriteIntPtr("ptr_R_EditFile", newEditFile);
loadHistoryDelegate = (ptr_R_loadhistory)LoadHistory;
IntPtr newLoadHistory = Marshal.GetFunctionPointerForDelegate(loadHistoryDelegate);
this.engine.WriteIntPtr("ptr_R_loadhistory", newLoadHistory);
saveHistoryDelegate = (ptr_R_savehistory)SaveHistory;
IntPtr newSaveHistory = Marshal.GetFunctionPointerForDelegate(saveHistoryDelegate);
this.engine.WriteIntPtr("ptr_R_savehistory", newSaveHistory);
addHistoryDelegate = (ptr_R_addhistory)AddHistory;
IntPtr newAddHistory = Marshal.GetFunctionPointerForDelegate(addHistoryDelegate);
this.engine.WriteIntPtr("ptr_R_addhistory", newAddHistory);
}
