main_osx.m

   1 #include <Cocoa/Cocoa.h>
   2 #include <OpenGL/gl.h>
   3
   4 #define CAML_NAME_SPACE
   5
   6 #include <sys/types.h>
   7 #include <sys/socket.h>
   8 #include <pthread.h>
   9 #include <string.h>
  10
  11 #include <caml/mlvalues.h>
  12 #include <caml/memory.h>
  13 #include <caml/callback.h>
  14 #include <caml/alloc.h>
  15 #include <caml/fail.h>
  16
  17 enum {
  18   EVENT_EXPOSE = 1,
  19   EVENT_RESHAPE = 3,
  20   EVENT_MOUSE = 4,
  21   EVENT_MOTION = 5,
  22   EVENT_PMOTION = 6,
  23   EVENT_KEYDOWN = 7,
  24   EVENT_ENTER = 8,
  25   EVENT_LEAVE = 9,
  26   EVENT_WINSTATE = 10,
  27   EVENT_QUIT = 11,
  28   EVENT_SCROLL = 12,
  29   EVENT_ZOOM = 13,
  30   EVENT_OPEN = 20
  31 };
  32
  33 enum {
  34   BUTTON_LEFT = 1,
  35   BUTTON_RIGHT = 3,
  36   BUTTON_WHEEL_UP = 4,
  37   BUTTON_WHEEL_DOWN = 5
  38 };
  39
  40 static int terminating = 0;
  41 static pthread_mutex_t terminate_mutex = PTHREAD_MUTEX_INITIALIZER;
  42 static int server_fd = -1;
  43 static CGFloat backing_scale_factor = -1.0;
  44
  45 #if __MAC_OS_X_VERSION_MAX_ALLOWED >= 10120
  46
  47 #define NS_CRITICAL_ALERT_STYLE NSAlertStyleCritical
  48 #define NS_FULL_SCREEN_WINDOW_MASK NSWindowStyleMaskFullScreen
  49 #define NS_DEVICE_INDEPENDENT_MODIFIER_FLAGS_MASK NSEventModifierFlagDeviceIndependentFlagsMask
  50 #define NS_FUNCTION_KEY_MASK NSEventModifierFlagFunction
  51 #define NS_ALTERNATE_KEY_MASK NSEventModifierFlagOption
  52 #define NS_COMMAND_KEY_MASK NSEventModifierFlagCommand
  53 #define NS_CLOSABLE_WINDOW_MASK NSWindowStyleMaskClosable
  54 #define NS_MINIATURIZABLE_WINDOW_MASK NSWindowStyleMaskMiniaturizable
  55 #define NS_TITLED_WINDOW_MASK NSWindowStyleMaskTitled
  56 #define NS_RESIZABLE_WINDOW_MASK NSWindowStyleMaskResizable
  57
  58 #else
  59
  60 #define NS_CRITICAL_ALERT_STYLE NSCriticalAlertStyle
  61 #define NS_FULL_SCREEN_WINDOW_MASK NSFullScreenWindowMask
  62 #define NS_DEVICE_INDEPENDENT_MODIFIER_FLAGS_MASK NSDeviceIndependentModifierFlagsMask
  63 #define NS_FUNCTION_KEY_MASK NSFunctionKeyMask
  64 #define NS_ALTERNATE_KEY_MASK NSAlternateKeyMask
  65 #define NS_COMMAND_KEY_MASK NSCommandKeyMask
  66 #define NS_CLOSABLE_WINDOW_MASK NSClosableWindowMask
  67 #define NS_MINIATURIZABLE_WINDOW_MASK NSMiniaturizableWindowMask
  68 #define NS_TITLED_WINDOW_MASK NSTitledWindowMask
  69 #define NS_RESIZABLE_WINDOW_MASK NSResizableWindowMask
  70
  71 #endif
  72
  73 void Abort (NSString *format, ...)
  74 {
  75   va_list argList;
  76   va_start (argList, format);
  77   NSString *str = [[NSString alloc] initWithFormat:format arguments:argList];
  78   va_end (argList);
  79   NSLog (@"%@", str);
  80   NSAlert *alert = [[NSAlert alloc] init];
  81   [alert addButtonWithTitle:@"Quit"];
  82   [alert setMessageText:@"Internal Error"];
  83   [alert setInformativeText:str];
  84   [alert setAlertStyle:NS_CRITICAL_ALERT_STYLE];
  85   [alert runModal];
  86   [NSApp terminate:nil];
  87 }
  88
  89 void *caml_main_thread (void *argv)
  90 {
  91   @autoreleasepool {
  92     caml_main (argv);
  93     pthread_mutex_lock (&terminate_mutex);
  94     if (terminating == 0) {
  95       terminating = 1;
  96       [NSApp performSelectorOnMainThread:@selector(terminate:)
  97                               withObject:nil
  98                            waitUntilDone:NO];
  99     }
 100     pthread_mutex_unlock (&terminate_mutex);
 101   }
 102   pthread_exit (NULL);
 103 }
 104
 105 NSCursor *GetCursor (int idx)
 106 {
 107   static NSCursor *cursors[5];
 108   static BOOL initialised = NO;
 109
 110   if (initialised == NO) {
 111     cursors[0] = [NSCursor arrowCursor];
 112     cursors[1] = [NSCursor pointingHandCursor];
 113     cursors[2] = [NSCursor arrowCursor];
 114     cursors[3] = [NSCursor closedHandCursor];
 115     cursors[4] = [NSCursor IBeamCursor];
 116     initialised = YES;
 117   }
 118
 119   return cursors[idx];
 120 }
 121
 122 @implementation NSWindow (CategoryNSWindow)
 123
 124 - (BOOL)isFullScreen
 125 {
 126   return ([self styleMask] & NS_FULL_SCREEN_WINDOW_MASK) == NS_FULL_SCREEN_WINDOW_MASK;
 127 }
 128
 129 @end
 130
 131 @implementation NSView (CategoryNSView)
 132
 133 - (NSPoint)locationFromEvent:(NSEvent *)event
 134 {
 135   NSPoint point =
 136     [self convertPointToBacking:[self convertPoint:[event locationInWindow] fromView:nil]];
 137   NSRect bounds = [self convertRectToBacking:[self bounds]];
 138   point.y = bounds.size.height - point.y;
 139   return point;
 140 }
 141
 142 - (NSRect)convertFrameToBacking
 143 {
 144   return [self convertRectToBacking:[self frame]];
 145 }
 146
 147 @end
 148
 149 @implementation NSEvent (CategoryNSEvent)
 150
 151 - (int)deviceIndependentModifierFlags
 152 {
 153   return [self modifierFlags] & NS_DEVICE_INDEPENDENT_MODIFIER_FLAGS_MASK;
 154 }
 155
 156 @end
 157
 158 @interface Connector : NSObject
 159
 160 - (instancetype)initWithFileDescriptor:(int)fd;
 161
 162 - (void)notifyReshapeWidth:(int)w height:(int)h;
 163 - (void)notifyExpose;
 164 - (void)keyDown:(uint32_t)key modifierFlags:(NSEventModifierFlags)mask;
 165 - (void)notifyQuit;
 166 - (void)mouseEntered:(NSPoint)loc;
 167 - (void)mouseExited;
 168 - (void)mouseMoved:(NSPoint)aPoint modifierFlags:(NSEventModifierFlags)flags;
 169 - (void)mouseDown:(NSUInteger)buttons atPoint:(NSPoint)aPoint modifierFlags:(NSEventModifierFlags)flags;
 170 - (void)mouseUp:(NSUInteger)buttons atPoint:(NSPoint)aPoint modifierFlags:(NSEventModifierFlags)flags;
 171 @end
 172
 173 @implementation Connector
 174 {
 175   NSMutableData *data;
 176   NSFileHandle *fileHandle;
 177 }
 178
 179 - (instancetype)initWithFileDescriptor:(int)fd
 180 {
 181   self = [super init];
 182   data = [NSMutableData dataWithLength:32];
 183   fileHandle = [[NSFileHandle alloc] initWithFileDescriptor:fd];
 184   return self;
 185 }
 186
 187 - (void)setByte:(int8_t)b offset:(int)off
 188 {
 189   [data replaceBytesInRange:NSMakeRange (off, 1) withBytes:&b];
 190 }
 191
 192 - (void)setShort:(int16_t)s offset:(int)off
 193 {
 194   [data replaceBytesInRange:NSMakeRange (off, 2) withBytes:&s];
 195 }
 196
 197 - (void)setInt:(int32_t)n offset:(int)off
 198 {
 199   [data replaceBytesInRange:NSMakeRange (off, 4) withBytes:&n];
 200 }
 201
 202 - (void)writeData
 203 {
 204   [fileHandle writeData:data];
 205 }
 206
 207 - (void)notifyReshapeWidth:(int)w height:(int)h
 208 {
 209   [self setByte:EVENT_RESHAPE offset:0];
 210   [self setShort:w offset:16];
 211   [self setShort:h offset:18];
 212   [self writeData];
 213 }
 214
 215 - (void)notifyExpose
 216 {
 217   [self setByte:EVENT_EXPOSE offset:0];
 218   [self writeData];
 219 }
 220
 221 - (void)keyDown:(uint32_t)key modifierFlags:(NSEventModifierFlags)mask
 222 {
 223   [self setByte:EVENT_KEYDOWN offset:0];
 224   [self setInt:key offset:16];
 225   [self setInt:mask offset:20];
 226   [self writeData];
 227 }
 228
 229 - (void)notifyWinstate:(BOOL)fullScreen
 230 {
 231   [self setByte:EVENT_WINSTATE offset:0];
 232   [self setInt:fullScreen offset:16];
 233   [self writeData];
 234 }
 235
 236 - (void)notifyQuit
 237 {
 238   [self setByte:EVENT_QUIT offset:0];
 239   [self writeData];
 240 }
 241
 242 - (void)mouseEntered:(NSPoint)loc
 243 {
 244   [self setByte:EVENT_ENTER offset:0];
 245   [self setShort:loc.x offset:16];
 246   [self setShort:loc.y offset:20];
 247   [self writeData];
 248 }
 249
 250 - (void)mouseExited
 251 {
 252   [self setByte:EVENT_LEAVE offset:0];
 253   [self writeData];
 254 }
 255
 256 - (void)mouseDragged:(NSPoint)aPoint modifierFlags:(NSEventModifierFlags)flags
 257 {
 258   [self setByte:EVENT_MOTION offset:0];
 259   [self setShort:aPoint.x offset:16];
 260   [self setShort:aPoint.y offset:20];
 261   [self setInt:flags offset:24];
 262   [self writeData];
 263 }
 264
 265 - (void)mouseMoved:(NSPoint)aPoint modifierFlags:(NSEventModifierFlags)flags
 266 {
 267   [self setByte:EVENT_PMOTION offset:0];
 268   [self setShort:aPoint.x offset:16];
 269   [self setShort:aPoint.y offset:20];
 270   [self setInt:flags offset:24];
 271   [self writeData];
 272 }
 273
 274 - (void)mouseDown:(NSUInteger)buttons atPoint:(NSPoint)aPoint modifierFlags:(NSEventModifierFlags)flags
 275 {
 276   [self setByte:EVENT_MOUSE offset:0];
 277   [self setShort:1 offset:10];
 278   [self setInt:buttons offset:12];
 279   [self setShort:aPoint.x offset:16];
 280   [self setShort:aPoint.y offset:20];
 281   [self setInt:flags offset:24];
 282   [self writeData];
 283 }
 284
 285 - (void)mouseUp:(NSUInteger)buttons atPoint:(NSPoint)aPoint modifierFlags:(NSEventModifierFlags)flags
 286 {
 287   [self setByte:EVENT_MOUSE offset:0];
 288   [self setShort:0 offset:10];
 289   [self setInt:buttons offset:12];
 290   [self setShort:aPoint.x offset:16];
 291   [self setShort:aPoint.y offset:20];
 292   [self setInt:flags offset:24];
 293   [self writeData];
 294 }
 295
 296 - (void)scrollByDeltaX:(CGFloat)deltaX deltaY:(CGFloat)deltaY
 297 {
 298   [self setByte:EVENT_SCROLL offset:0];
 299   [self setInt:(int32_t) deltaX offset:16];
 300   [self setInt:(int32_t) deltaY offset:20];
 301   [self writeData];
 302 }
 303
 304 - (void)zoom:(CGFloat)z at:(NSPoint)p
 305 {
 306   [self setByte:EVENT_ZOOM offset:0];
 307   [self setInt:(int32_t) (z * 1000) offset:16];
 308   [self setShort:p.x offset:20];
 309   [self setShort:p.y offset:22];
 310   [self writeData];
 311 }
 312
 313 - (void)openFile:(NSString *)filename
 314 {
 315   const char *utf8 = [filename UTF8String];
 316   unsigned len = [filename lengthOfBytesUsingEncoding:NSUTF8StringEncoding];
 317   [self setByte:EVENT_OPEN offset:0];
 318   unsigned off = 0;
 319   unsigned data_len = [data length] - 4;
 320   while (off < len) {
 321     unsigned chunk_len = MIN (data_len - 4, len - off);
 322     [self setShort:chunk_len offset:2];
 323     [data replaceBytesInRange:NSMakeRange (4, chunk_len) withBytes:(utf8 + off)];
 324     [self writeData];
 325     off += chunk_len;
 326   }
 327   [self setShort:0 offset:2];
 328   [self writeData];
 329 }
 330
 331 @end
 332
 333 @interface MyDelegate : NSObject <NSApplicationDelegate, NSWindowDelegate>
 334
 335 - (int)getw;
 336 - (int)geth;
 337 - (void)swapb;
 338 - (void)applicationWillFinishLaunching:(NSNotification *)not;
 339 - (void)applicationDidFinishLaunching:(NSNotification *)not;
 340 - (BOOL)applicationShouldTerminateAfterLastWindowClosed:(NSApplication *)theApplication;
 341 - (void)makeCurrentContext;
 342
 343 @end
 344
 345 @interface MyWindow : NSWindow
 346
 347 @end
 348
 349 @interface MyView : NSView
 350 {
 351   Connector *connector;
 352   NSCursor *cursor;
 353 }
 354
 355 - (instancetype)initWithFrame:(NSRect)frame connector:(Connector *)aConnector;
 356 - (void)setCursor:(NSCursor *)aCursor;
 357
 358 @end
 359
 360 @implementation MyView
 361
 362 - (instancetype)initWithFrame:(NSRect)frame connector:(Connector *)aConnector
 363 {
 364   self = [super initWithFrame:frame];
 365
 366   if (self != NULL) {
 367     connector = aConnector;
 368     cursor = [NSCursor arrowCursor];
 369     self.acceptsTouchEvents = YES;
 370   }
 371
 372   return self;
 373 }
 374
 375 - (void)setCursor:(NSCursor *)aCursor
 376 {
 377   cursor = aCursor;
 378 }
 379
 380 -(void)resetCursorRects
 381 {
 382   [self addCursorRect:[self bounds] cursor:cursor];
 383 }
 384
 385 - (void)drawRect:(NSRect)bounds
 386 {
 387   // NSLog(@"drawRect: %@", [NSValue valueWithRect:bounds]);
 388   [connector notifyExpose];
 389 }
 390
 391 - (void)viewWillMoveToWindow:(NSWindow *)newWindow {
 392   NSTrackingArea* trackingArea = [[NSTrackingArea alloc]
 393                                    initWithRect:[self bounds]
 394                                  options:(NSTrackingMouseEnteredAndExited | NSTrackingActiveInActiveApp | NSTrackingInVisibleRect)
 395                                           owner:self
 396                                        userInfo:nil];
 397   [self addTrackingArea:trackingArea];
 398 }
 399
 400 - (void)keyDown:(NSEvent *)event
 401 {
 402   // int key = [event keyCode];
 403   NSEventModifierFlags mask = [event deviceIndependentModifierFlags];
 404   NSString *chars = [event charactersIgnoringModifiers];
 405   const uint32_t *c = (uint32_t *) [chars cStringUsingEncoding:NSUTF32LittleEndianStringEncoding];
 406   while (*c) {
 407     if (*c == 0x7f && !(mask & NS_FUNCTION_KEY_MASK)) {
 408       [connector keyDown:0x8 modifierFlags:mask];
 409     } else {
 410       [connector keyDown:*c modifierFlags:mask];
 411     }
 412     c++;
 413   }
 414 }
 415
 416 - (void)flagsChanged:(NSEvent *)event
 417 {
 418   NSEventModifierFlags mask = [event deviceIndependentModifierFlags];
 419   NSLog (@"flagsChanged: 0x%lx", mask);
 420   if (mask != 0) {
 421     [connector keyDown:0 modifierFlags:mask];
 422   }
 423 }
 424
 425 - (void)mouseDown:(NSEvent *)event
 426 {
 427   [connector mouseDown:BUTTON_LEFT
 428                atPoint:[self locationFromEvent:event]
 429          modifierFlags:[event deviceIndependentModifierFlags]];
 430 }
 431
 432 - (void)mouseUp:(NSEvent *)event
 433 {
 434   [connector mouseUp:BUTTON_LEFT
 435              atPoint:[self locationFromEvent:event]
 436        modifierFlags:[event deviceIndependentModifierFlags]];
 437 }
 438
 439 - (void)rightMouseDown:(NSEvent *)event
 440 {
 441   [connector mouseDown:BUTTON_RIGHT
 442                atPoint:[self locationFromEvent:event]
 443          modifierFlags:[event deviceIndependentModifierFlags]];
 444 }
 445
 446 - (void)rightMouseUp:(NSEvent *)event
 447 {
 448   [connector mouseUp:BUTTON_RIGHT
 449              atPoint:[self locationFromEvent:event]
 450        modifierFlags:[event deviceIndependentModifierFlags]];
 451 }
 452
 453 - (void)rightMouseDragged:(NSEvent *)event
 454 {
 455   [connector mouseDragged:[self locationFromEvent:event]
 456             modifierFlags:[event deviceIndependentModifierFlags]];
 457 }
 458
 459 - (void)mouseDragged:(NSEvent *)event
 460 {
 461   [connector mouseDragged:[self locationFromEvent:event]
 462             modifierFlags:[event deviceIndependentModifierFlags]];
 463 }
 464
 465 - (void)mouseMoved:(NSEvent *)event
 466 {
 467   [connector mouseMoved:[self locationFromEvent:event]
 468           modifierFlags:[event deviceIndependentModifierFlags]];
 469 }
 470
 471 - (void)mouseEntered:(NSEvent *)event
 472 {
 473   [connector mouseEntered:[self locationFromEvent:event]];
 474 }
 475
 476 - (void)mouseExited:(NSEvent *)event
 477 {
 478   [connector mouseExited];
 479 }
 480
 481 - (void)scrollWheel:(NSEvent *)event
 482 {
 483   CGFloat deltaX = [event scrollingDeltaX];
 484   CGFloat deltaY = -[event scrollingDeltaY];
 485
 486   if ([event hasPreciseScrollingDeltas]) {
 487     [connector scrollByDeltaX:(backing_scale_factor * deltaX)
 488                        deltaY:(backing_scale_factor * deltaY)];
 489   } else {
 490     NSPoint loc = [self locationFromEvent:event];
 491     NSEventModifierFlags mask = [event deviceIndependentModifierFlags];
 492     if (deltaY > 0.0) {
 493       [connector mouseDown:BUTTON_WHEEL_DOWN atPoint:loc modifierFlags:mask];
 494       [connector mouseUp:BUTTON_WHEEL_DOWN atPoint:loc modifierFlags:mask];
 495     } else if (deltaY < 0.0) {
 496       [connector mouseDown:BUTTON_WHEEL_UP atPoint:loc modifierFlags:mask];
 497       [connector mouseUp:BUTTON_WHEEL_UP atPoint:loc modifierFlags:mask];
 498     }
 499   }
 500 }
 501
 502 - (void)magnifyWithEvent:(NSEvent *)event
 503 {
 504   [connector zoom:[event magnification] at:[self locationFromEvent:event]];
 505 }
 506
 507 @end
 508
 509 @implementation MyWindow
 510
 511 - (BOOL)canBecomeKeyWindow
 512 {
 513   return YES;
 514 }
 515
 516 @end
 517
 518 @implementation MyDelegate
 519 {
 520   char **argv;
 521   MyWindow *window;
 522   NSOpenGLContext *glContext;
 523   pthread_t thread;
 524   Connector *connector;
 525 }
 526
 527 - (instancetype)initWithArgv:(char **)theArgv fileDescriptor:(int)fd
 528 {
 529   self = [super init];
 530   if (self != NULL) {
 531     argv = theArgv;
 532     connector = [[Connector alloc] initWithFileDescriptor:fd];
 533   }
 534   return self;
 535 }
 536
 537 - (void)setTitle:(NSString *)title
 538 {
 539   [window setTitle:title];
 540 }
 541
 542 - (void)mapwin
 543 {
 544   [window makeKeyAndOrderFront:self];
 545 }
 546
 547 - (int)getw
 548 {
 549   return [[window contentView] convertFrameToBacking].size.width;
 550 }
 551
 552 - (int)geth
 553 {
 554   return [[window contentView] convertFrameToBacking].size.height;
 555 }
 556
 557 - (void)applicationWillFinishLaunching:(NSNotification *)not
 558 {
 559   NSLog(@"applicationWillFinishLaunching");
 560   id menubar = [NSMenu new];
 561   id appMenuItem = [NSMenuItem new];
 562   id fileMenuItem = [NSMenuItem new];
 563   id windowMenuItem = [NSMenuItem new];
 564   id helpMenuItem = [NSMenuItem new];
 565   [menubar addItem:appMenuItem];
 566   [menubar addItem:fileMenuItem];
 567   [menubar addItem:windowMenuItem];
 568   [menubar addItem:helpMenuItem];
 569   [NSApp setMainMenu:menubar];
 570   id appMenu = [NSMenu new];
 571   id appName = [[NSProcessInfo processInfo] processName];
 572   id aboutMenuItem = [[NSMenuItem alloc] initWithTitle:[@"About " stringByAppendingString:appName]
 573                                                 action:@selector(orderFrontStandardAboutPanel:)
 574                                          keyEquivalent:@""];
 575   id hideMenuItem = [[NSMenuItem alloc] initWithTitle:[@"Hide " stringByAppendingString:appName]
 576                                                action:@selector(hide:)
 577                                         keyEquivalent:@"h"];
 578   id hideOthersMenuItem = [[NSMenuItem alloc] initWithTitle:@"Hide Others"
 579                                                      action:@selector(hideOtherApplications:)
 580                                               keyEquivalent:@"h"];
 581   [hideOthersMenuItem setKeyEquivalentModifierMask:(NS_ALTERNATE_KEY_MASK | NS_COMMAND_KEY_MASK)];
 582   id showAllMenuItem = [[NSMenuItem alloc] initWithTitle:@"Show All"
 583                                                   action:@selector(unhideAllApplications:)
 584                                            keyEquivalent:@""];
 585   id quitMenuItem = [[NSMenuItem alloc] initWithTitle:[@"Quit " stringByAppendingString:appName]
 586                                                action:@selector(terminate:)
 587                                         keyEquivalent:@"q"];
 588   [appMenu addItem:aboutMenuItem];
 589   [appMenu addItem:[NSMenuItem separatorItem]];
 590   [appMenu addItem:hideMenuItem];
 591   [appMenu addItem:hideOthersMenuItem];
 592   [appMenu addItem:showAllMenuItem];
 593   [appMenu addItem:[NSMenuItem separatorItem]];
 594   [appMenu addItem:quitMenuItem];
 595   [appMenuItem setSubmenu:appMenu];
 596
 597   id fileMenu = [[NSMenu alloc] initWithTitle:@"File"];
 598   id openMenuItem = [[NSMenuItem alloc] initWithTitle:@"Open..."
 599                                                action:@selector(openDocument:)
 600                                         keyEquivalent:@"o"];
 601   id closeMenuItem = [[NSMenuItem alloc] initWithTitle:@"Close"
 602                                                 action:@selector(performClose:)
 603                                          keyEquivalent:@"w"];
 604   [fileMenu addItem:openMenuItem];
 605   [fileMenu addItem:[NSMenuItem separatorItem]];
 606   [fileMenu addItem:closeMenuItem];
 607   [fileMenuItem setSubmenu:fileMenu];
 608
 609   id windowMenu = [[NSMenu alloc] initWithTitle:@"Window"];
 610   id miniaturizeMenuItem = [[NSMenuItem alloc] initWithTitle:@"Minimize"
 611                                                    action:@selector(performMiniaturize:)
 612                                             keyEquivalent:@"m"];
 613   id zoomMenuItem = [[NSMenuItem alloc] initWithTitle:@"Zoom"
 614                                                action:@selector(performZoom:)
 615                                         keyEquivalent:@""];
 616
 617   [windowMenu addItem:miniaturizeMenuItem];
 618   [windowMenu addItem:zoomMenuItem];
 619   [windowMenuItem setSubmenu:windowMenu];
 620
 621   id helpMenu = [[NSMenu alloc] initWithTitle:@"Help"];
 622   id reportIssueMenuItem = [[NSMenuItem alloc] initWithTitle:@"Report an issue..."
 623                                                       action:@selector(reportIssue:)
 624                                                keyEquivalent:@""];
 625   [helpMenu addItem:reportIssueMenuItem];
 626   [helpMenuItem setSubmenu:helpMenu];
 627
 628   window = [[MyWindow alloc] initWithContentRect:NSMakeRect(0, 0, 400, 400)
 629                                        styleMask:(NS_CLOSABLE_WINDOW_MASK | NS_MINIATURIZABLE_WINDOW_MASK | NS_TITLED_WINDOW_MASK | NS_RESIZABLE_WINDOW_MASK)
 630                                          backing:NSBackingStoreBuffered
 631                                            defer:NO];
 632
 633   [window center];
 634   [window setAcceptsMouseMovedEvents:YES];
 635   [window setDelegate:self];
 636
 637
 638   [[NSNotificationCenter defaultCenter] addObserver:self
 639                                            selector:@selector(didEnterFullScreen)
 640                                                name:NSWindowDidEnterFullScreenNotification
 641                                              object:window];
 642   [[NSNotificationCenter defaultCenter] addObserver:self
 643                                            selector:@selector(didExitFullScreen)
 644                                                name:NSWindowDidExitFullScreenNotification
 645                                              object:window];
 646
 647   MyView *myView = [[MyView alloc] initWithFrame:[[window contentView] bounds]
 648                                        connector:connector];
 649
 650   [window setContentView:myView];
 651   [window makeFirstResponder:myView];
 652
 653   [myView setWantsBestResolutionOpenGLSurface:YES];
 654
 655   NSOpenGLPixelFormatAttribute attrs[] =
 656     {
 657       NSOpenGLPFAAccelerated,
 658       NSOpenGLPFADoubleBuffer,
 659       NSOpenGLPFAColorSize, 24,
 660       NSOpenGLPFAAlphaSize, 8,
 661       NSOpenGLPFADepthSize, 24,
 662       0
 663     };
 664   NSOpenGLPixelFormat *pixFormat = [[NSOpenGLPixelFormat alloc] initWithAttributes:attrs];
 665   glContext = [[NSOpenGLContext alloc] initWithFormat:pixFormat shareContext:nil];
 666   GLint swapInt = 1;
 667   [glContext setValues:&swapInt forParameter:NSOpenGLCPSwapInterval];
 668   [glContext setView:myView];
 669
 670   backing_scale_factor = [window backingScaleFactor];
 671 }
 672
 673 - (void)reshape:(NSValue *)val
 674 {
 675   // NSLog (@"reshape: %@ isFullScreen: %d", val, [window isFullScreen]);
 676   if ([window isFullScreen]) {
 677     [window toggleFullScreen:self];
 678   }
 679   [window setFrame:[window frameRectForContentRect:[val rectValue]]
 680            display:YES];
 681 }
 682
 683 - (void)makeCurrentContext
 684 {
 685   [glContext makeCurrentContext];
 686   NSLog (@"OpenGL Version: %s", glGetString(GL_VERSION));
 687 }
 688
 689 - (void)swapb
 690 {
 691   [glContext flushBuffer];
 692 }
 693
 694 - (void)didEnterFullScreen
 695 {
 696   // NSLog (@"didEnterFullScreen: %d", [window isFullScreen]);
 697   [connector notifyWinstate:YES];
 698 }
 699
 700 - (void)didExitFullScreen
 701 {
 702   // NSLog (@"didExitFullScreen: %d", [window isFullScreen]);
 703   [connector notifyWinstate:NO];
 704 }
 705
 706 - (void)fullscreen
 707 {
 708   // NSLog (@"fullscreen: %d", [window isFullScreen]);
 709   if ([window isFullScreen] == NO) {
 710     [window toggleFullScreen:self];
 711   }
 712 }
 713
 714 - (void)setCursor:(NSCursor *)aCursor
 715 {
 716   [[window contentView] setCursor: aCursor];
 717   [window invalidateCursorRectsForView:[window contentView]];
 718 }
 719
 720 - (void)windowDidResize:(NSNotification *)notification
 721 {
 722   [glContext update];
 723   NSRect frame = [[window contentView] convertFrameToBacking];
 724   [connector notifyReshapeWidth:frame.size.width height:frame.size.height];
 725 }
 726
 727 - (void)windowDidMove:(NSNotification *)notification
 728 {
 729   [glContext update];
 730 }
 731
 732 - (void)applicationWillTerminate:(NSDictionary *)userInfo
 733 {
 734   pthread_mutex_lock (&terminate_mutex);
 735   if (terminating == 0) {
 736     terminating = 1;
 737     [connector notifyQuit];
 738   }
 739   pthread_mutex_unlock (&terminate_mutex);
 740   pthread_join (thread, NULL);
 741 }
 742
 743 - (void)windowDidChangeOcclusionState:(NSNotification *)notification
 744 {
 745 }
 746
 747 - (void)applicationDidFinishLaunching:(NSNotification *)not
 748 {
 749   NSLog(@"applicationDidFinishLaunching");
 750   int ret = pthread_create (&thread, NULL, caml_main_thread, argv);
 751   if (ret != 0) {
 752     Abort (@"pthread_create: %s.", strerror (ret));
 753   }
 754 }
 755
 756 - (BOOL)applicationShouldTerminateAfterLastWindowClosed:(NSApplication *)theApplication
 757 {
 758   return YES;
 759 }
 760
 761 - (BOOL)application:(NSApplication *)theApplication openFile:(NSString *)filename
 762 {
 763   NSLog (@"openFile: %@", filename);
 764   [connector openFile:filename];
 765   return YES;
 766 }
 767
 768 - (void)openDocument:(id)sender
 769 {
 770   NSOpenPanel *openPanel = [NSOpenPanel openPanel];
 771   [openPanel beginSheetModalForWindow:window
 772                     completionHandler:^(NSInteger result){
 773       if (result == NSFileHandlingPanelOKButton) {
 774          NSString *filename = [[[openPanel URLs] objectAtIndex:0] path];
 775          if (filename != nil) {
 776            [self application:NSApp openFile:filename];
 777          }
 778       }
 779     }];
 780 }
 781
 782 - (void)reportIssue:(id)sender
 783 {
 784   [[NSWorkspace sharedWorkspace]
 785     openURL:[NSURL URLWithString:@"https://github.com/moosotc/llpp/issues"]];
 786 }
 787
 788 @end
 789
 790 CAMLprim value ml_mapwin (value unit)
 791 {
 792   CAMLparam1 (unit);
 793   [(MyDelegate *)[NSApp delegate] performSelectorOnMainThread:@selector(mapwin)
 794                                                    withObject:nil
 795                                                 waitUntilDone:YES];
 796   CAMLreturn (Val_unit);
 797 }
 798
 799 CAMLprim value ml_swapb (value unit)
 800 {
 801   CAMLparam1 (unit);
 802   [(MyDelegate *)[NSApp delegate] swapb];
 803   CAMLreturn (Val_unit);
 804 }
 805
 806 CAMLprim value ml_getw (value unit)
 807 {
 808   return Val_int([(MyDelegate *)[NSApp delegate] getw]);
 809 }
 810
 811 CAMLprim value ml_geth (value unit)
 812 {
 813   return Val_int([(MyDelegate *)[NSApp delegate] geth]);
 814 }
 815
 816 CAMLprim value ml_makecurrentcontext (value unit)
 817 {
 818   CAMLparam1 (unit);
 819   [(MyDelegate *)[NSApp delegate] makeCurrentContext];
 820   CAMLreturn (Val_unit);
 821 }
 822
 823 CAMLprim value ml_settitle (value title)
 824 {
 825   CAMLparam1 (title);
 826   NSString *str = [NSString stringWithUTF8String:String_val(title)];
 827   [(MyDelegate *)[NSApp delegate] performSelectorOnMainThread:@selector(setTitle:)
 828                                                    withObject:str
 829                                                 waitUntilDone:YES];
 830   CAMLreturn (Val_unit);
 831 }
 832
 833 CAMLprim value ml_reshape (value w, value h)
 834 {
 835   CAMLparam2 (w, h);
 836   NSRect r = NSMakeRect (0, 0, Int_val (w), Int_val (h));
 837   [(MyDelegate *)[NSApp delegate] performSelectorOnMainThread:@selector(reshape:)
 838                                                    withObject:[NSValue valueWithRect:r]
 839                                                 waitUntilDone:YES];
 840   CAMLreturn (Val_unit);
 841 }
 842
 843 CAMLprim value ml_fullscreen (value unit)
 844 {
 845   CAMLparam1 (unit);
 846   [(MyDelegate *)[NSApp delegate] performSelectorOnMainThread:@selector(fullscreen)
 847                                                    withObject:nil
 848                                                 waitUntilDone:YES];
 849   CAMLreturn (Val_unit);
 850 }
 851
 852 CAMLprim value ml_setcursor (value curs)
 853 {
 854   CAMLparam1 (curs);
 855   // NSLog (@"ml_setcursor: %d", Int_val (curs));
 856   NSCursor *cursor = GetCursor (Int_val (curs));
 857   [(MyDelegate *)[NSApp delegate] performSelectorOnMainThread:@selector(setCursor:)
 858                                                    withObject:cursor
 859                                                 waitUntilDone:YES];
 860   CAMLreturn (Val_unit);
 861 }
 862
 863 CAMLprim value ml_get_server_fd (value unit)
 864 {
 865   CAMLparam1 (unit);
 866   CAMLreturn (Val_int (server_fd));
 867 }
 868
 869 CAMLprim value ml_get_backing_scale_factor (value unit)
 870 {
 871   CAMLparam1 (unit);
 872   CAMLreturn (Val_int ((int) backing_scale_factor));
 873 }
 874
 875 CAMLprim value ml_nslog (value str)
 876 {
 877   CAMLparam1 (str);
 878   NSLog (@"%s", String_val (str));
 879   CAMLreturn (Val_unit);
 880 }
 881
 882 // HACK to eliminate arg injected by OS X -psn_...
 883 int adjust_argv (int argc, char **argv)
 884 {
 885   if (argc > 1 && strncmp (argv[1], "-psn", 4) == 0) {
 886     for (unsigned i = 1; i < argc - 1; i ++) {
 887       argv[i] = argv[i+1];
 888     }
 889     argv[-- argc] = 0;
 890   }
 891   for (int i = 0; i < argc; i ++) {
 892     NSLog (@"arg %d: %s", i, argv[i]);
 893   }
 894   return argc;
 895 }
 896
 897 int main(int argc, char **argv)
 898 {
 899   @autoreleasepool {
 900     int sv[2];
 901     int ret = socketpair (AF_UNIX, SOCK_STREAM, 0, sv);
 902     if (ret != 0) {
 903       Abort (@"socketpair: %s", strerror (errno));
 904     }
 905     // NSLog (@"socketpair sv0 %d sv1 %d", sv[0], sv[1]);
 906     server_fd = sv[0];
 907     argc = adjust_argv (argc, argv);
 908     [NSApplication sharedApplication];
 909     [NSApp setActivationPolicy:NSApplicationActivationPolicyRegular];
 910     id delegate = [[MyDelegate alloc] initWithArgv:argv fileDescriptor:sv[1]];
 911     [NSApp setDelegate:delegate];
 912     [NSApp activateIgnoringOtherApps:YES];
 913     [NSApp run];
 914   }
 915   return EXIT_SUCCESS;
 916 }