Mercurial > pub > dyncall > bindings
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]; +} +