diff R/cocoa/src/package.m @ 0:0cfcc391201f

initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:26:28 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R/cocoa/src/package.m	Thu Mar 19 22:26:28 2015 +0100
@@ -0,0 +1,29 @@
+/** ===========================================================================
+ ** R-Package: cocoa
+ ** File: coca/src/package.m
+ ** Description: R package registry and initialization of NSAutoreleasePool
+ **
+ ** Copyright (C) 2009 Daniel Adler
+ **/
+#include <Rinternals.h>
+#include <R_ext/Rdynload.h>
+#include <stdio.h>
+#import  <Foundation/NSAutoreleasePool.h>
+#import  <AppKit/NSApplication.h>
+NSAutoreleasePool* pool;
+
+void R_init_cocoa(DllInfo* info)
+{
+  [[NSAutoreleasePool alloc] init];
+  NSApplicationLoad();
+  // [NSApplication sharedApplication];
+  // [NSApp run];
+  printf("init\n");
+
+}
+
+void R_unload_cocoa(DllInfo* info)
+{
+  [pool drain]; 
+}
+