"

 COPYRIGHT (c) 2013 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic' }"

"{ NameSpace: Smalltalk }"

UnixOperatingSystem subclass:#OSXOperatingSystem

	instanceVariableNames:''

	classVariableNames:'NSApp'

	poolDictionaries:''

	category:'OS-Unix'

!

!OSXOperatingSystem primitiveDefinitions!

%{

#undef NO_COCOA

#ifndef __OSX__

# define NO_QUARTZ

# define NO_COCOA

#endif

#ifndef NO_COCOA

#   undef Array

#   undef Number

#   undef Method

#   undef Point

#   undef Rectangle

#   undef Block

#   undef String

#   undef Character

#   undef Message

#   undef Object

#   undef Context

#   undef Time

#   undef Date

#   undef Set

#   undef Signal

#   undef Delay

#   undef NameSpace

#   undef Process

#   undef Processor

#   undef Class

#   undef FixedPoint

#   undef true

#   undef false

#   undef INT

#   undef UINT

#include <ApplicationServices/ApplicationServices.h>

#include <CoreFoundation/CoreFoundation.h>

// #include <Foundation/Foundation.h>

#include <stdlib.h>

#include <stdio.h>

#include <IOKit/graphics/IOGraphicsLib.h>

#include <objc/runtime.h>

#include <objc/message.h>

#  ifdef __DEF_Array

#   define Array __DEF_Array

#  endif

#  ifdef __DEF_Number

#   define Number __DEF_Number

#  endif

#  ifdef __DEF_Method

#   define Method __DEF_Method

#  endif

#  ifdef __DEF_Point

#   define Point __DEF_Point

#  endif

#  ifdef __DEF_Rectangle

#   define Rectangle __DEF_Rectangle

#  endif

#  ifdef __DEF_Block

#   define Block __DEF_Block

#  endif

#  ifdef __DEF_String

#   define String __DEF_String

#  endif

#  ifdef __DEF_Character

#   define Character __DEF_Character

#  endif

#  ifdef __DEF_Message

#   define Message __DEF_Message

#  endif

#  ifdef __DEF_Object

#   define Object __DEF_Object

#  endif

#  ifdef __DEF_Context

#   define Context __DEF_Context

#  endif

#  ifdef __DEF_Date

#   define Date __DEF_Date

#  endif

#  ifdef __DEF_Time

#   define Time __DEF_Time

#  endif

#  ifdef __DEF_Set

#   define Set __DEF_Set

#  endif

#  ifdef __DEF_Signal

#   define Signal __DEF_Signal

#  endif

#  ifdef __DEF_Delay

#   define Delay __DEF_Delay

#  endif

#  ifdef __DEF_NameSpace

#   define NameSpace __DEF_NameSpace

#  endif

#  ifdef __DEF_Process

#   define Process __DEF_Process

#  endif

#  ifdef __DEF_Processor

#   define Processor __DEF_Processor

#  endif

#  ifdef __DEF_Class

#   define STX_Class __DEF_Class

#  endif

#  ifdef __DEF_FixedPoint

#   define FixedPoint __DEF_FixedPoint

#  endif

#  ifdef __DEF_true

#   undef true

#   define true __DEF_true

#  endif

#  ifdef __DEF_false

#   undef false

#   define false __DEF_false

#  endif

#  define INT STX_INT

#  define UINT STX_UINT

typedef struct CMPoint {

	double x;

	double y;

} CMPoint;

typedef struct CMSize {

	double width;

	double height;

} CMSize;

typedef struct CMRect {

	CMPoint origin;

	CMSize size;

} CMRect;

typedef struct AppDel {

	Class isa;

	// Will be an NSWindow later.

	id window;

} AppDelegate;

enum {

	NSBorderlessWindowMask          = 0,

	NSTitledWindowMask                      = 1 << 0,

	NSClosableWindowMask            = 1 << 1,

	NSMiniaturizableWindowMask      = 1 << 2,

	NSResizableWindowMask           = 1 << 3,

};

typedef id(*CMacsSimpleMessage)(id, SEL);

typedef void(*CMacsVoidMessage)(id, SEL);

typedef void(*CMacsVoidMessage1)(id, SEL, void *);

typedef id(*CMacsRectMessage1)(id, SEL, CMRect);

typedef id(*CMacsWindowInitMessage)(id, SEL, CMRect, int, int, bool);

extern CMacsSimpleMessage cmacs_simple_msgSend;

extern CMacsVoidMessage cmacs_void_msgSend;

extern CMacsVoidMessage1 cmacs_void_msgSend1;

extern CMacsRectMessage1 cmacs_rect_msgSend1;

extern CMacsWindowInitMessage cmacs_window_init_msgSend;

#endif // NO_COCOA

%}

! !

!OSXOperatingSystem primitiveFunctions!

%{

#ifndef NO_COCOA

CGEventRef

myCGEventCallback(CGEventTapProxy proxy, CGEventType type,

		  CGEventRef event, void *refcon)

{

    // Paranoid sanity check.

    if ((type != kCGEventKeyDown) && (type != kCGEventKeyUp))

	return event;

    // The incoming keycode.

    CGKeyCode keycode = (CGKeyCode)CGEventGetIntegerValueField(event, kCGKeyboardEventKeycode);

    //Keypress code goes here.

    // We must return the event for it to be useful.

    return event;

}

BOOL

AppDel_didFinishLaunching(AppDelegate *self, SEL _cmd, id notification) {

//    self->window = cmacs_simple_msgSend((id)objc_getClass("NSWindow"), sel_getUid("alloc"));

//

//    /// Create an instance of the window.

//    self->window = cmacs_window_init_msgSend(self->window, sel_getUid("initWithContentRect:styleMask:backing:defer:"), (CMRect){0,0,1024,460}, (NSTitledWindowMask | NSClosableWindowMask | NSResizableWindowMask | NSMiniaturizableWindowMask), 0, false);

//

//    /// Create an instance of our view class.

//    ///

//    /// Relies on the view having declared a constructor that allocates a class pair for it.

//    id view = cmacs_rect_msgSend1(cmacs_simple_msgSend((id)objc_getClass("View"), sel_getUid("alloc")), sel_getUid("initWithFrame:"), (CMRect){ 0, 0, 320, 480 });

//

//    // here we simply add the view to the window.

//    cmacs_void_msgSend1(self->window, sel_getUid("setContentView:"), view);

//    cmacs_simple_msgSend(self->window, sel_getUid("becomeFirstResponder"));

//

//    // Shows our window in the bottom-left hand corner of the screen.

//    cmacs_void_msgSend1(self->window, sel_getUid("makeKeyAndOrderFront:"), self);

    return YES;

}

#endif // NO_COCOA

%}

! !

!OSXOperatingSystem class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2013 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    a small number of OS-X specific redefinitions here.

    [Author:]

	Claus Gittinger

"

! !

!OSXOperatingSystem class methodsFor:'initialization'!

initializeCodeset

    super initializeCodeset.

    Codeset := #'utf8-mac'.

    CodesetEncoder := nil.

! !

!OSXOperatingSystem class methodsFor:'cocoa - events'!

finishLaunching

    "tell the system, that I have finished my startup phase.

     OSX will stop bounding the launch icon then."

    NSApp isNil ifTrue:[

        self getNSApp

    ].

%{

#ifndef NO_COCOA

    id NSApp = __externalAddressVal(@global(NSApp));

    objc_msgSend(NSApp, sel_getUid("finishLaunching"));

    RETURN(self);

#endif // NO_COCOA

%}.

    "/ if compiled without COCOA support (which you should not),

    "/ the icon will probably continue to bounce...

    "/ ... but we do not want an error here.

    "/ self primitiveFailed

    "

     self finishLaunching

    "

    "Modified: / 28-02-2017 / 10:59:15 / cg"

!

generateButtonEvent:button down:down x:screenX y:screenY

    "synthesize and send a button event to the screen"

%{

#ifndef NO_COCOA

    if (__bothSmallInteger(screenX, screenY)

     && __isSmallInteger(button)) {

	CGPoint pt;

	pt.x = __intVal(screenX);

	pt.y = __intVal(screenY);

	CGEventType evType;

	CGMouseButton evButton = __intVal(button);

	switch (evButton) {

	    case 1:

		evType = (down == true) ? kCGEventLeftMouseDown : kCGEventLeftMouseUp;

		evButton = 0;

		break;

	    case 2:

		evType = (down == true) ? kCGEventRightMouseDown : kCGEventRightMouseUp;

		evButton = 1;

		break;

	    case 3:

		evType = (down == true) ? kCGEventOtherMouseDown : kCGEventOtherMouseUp;

		evButton = 2;

		break;

	    default:

		evType = (down == true) ? kCGEventOtherMouseDown : kCGEventOtherMouseUp;

		evButton = __intVal(button) - 1;

		break;

	}

	CGEventRef theEvent = CGEventCreateMouseEvent(NULL, evType, pt, evButton);

	CGEventSetType(theEvent, evType);

	CGEventPost(kCGHIDEventTap, theEvent);

	CFRelease(theEvent);

	RETURN(self);

    }

#endif // NO_COCOA

%}.

    self primitiveFailed

    "

     OperatingSystem generateButtonEvent:1 down:true x:150 y:150.

     OperatingSystem generateButtonEvent:1 down:false x:150 y:150.

     OperatingSystem generateButtonEvent:2 down:true x:150 y:150.

     OperatingSystem generateButtonEvent:2 down:false x:150 y:150.

    "

    "Created: / 28-02-2017 / 00:15:18 / cg"

!

getNSApp

%{

#ifndef NO_COCOA

    Class AppDelClass = NULL;

    id NSApp = NULL;

    id poolClass = objc_getClass("NSAutoreleasePool");

    if (poolClass == NULL) {

        fprintf(stderr, "OSX: Unable to get NSAutoreleasePool\n");

        RETURN(false);

    }

    id pool = objc_msgSend(poolClass, sel_registerName("alloc"));

    if (pool == NULL) {

        fprintf(stderr, "OSX: Unable to create NSAutoreleasePool\n");

        RETURN(false);

    }

    objc_msgSend(pool, sel_registerName("init"));

#if 0 /* not needed */

    AppDelClass = objc_allocateClassPair((Class)objc_getClass("NSObject"), "AppDelegate", 0);

    class_addMethod(AppDelClass, sel_getUid("applicationDidFinishLaunching:"), (IMP)AppDel_didFinishLaunching, "i@:@");

    objc_registerClassPair(AppDelClass);

#endif

    NSApp = objc_msgSend((id)objc_getClass("NSApplication"), sel_getUid("sharedApplication"));

    if (NSApp == NULL) {

        fprintf(stderr,"OSX: Failed to initialize NSApplication\n");

        RETURN(false);

    }

    @global(NSApp) = __MKEXTERNALADDRESS(NSApp);

    id req = objc_msgSend(NSApp,sel_getUid("requestUserAttention:"),0);

    objc_msgSend(NSApp,sel_getUid("cancelUserAttentionRequest:"),req);

#if 0 /* not needed */

    id appDelInst = objc_msgSend((id)objc_getClass("AppDelegate"), sel_getUid("alloc"));

    objc_msgSend(appDelInst, sel_getUid("init"));

    objc_msgSend(NSApp, sel_getUid("setDelegate:"), appDelInst);

#endif

    objc_msgSend(pool, sel_registerName("release"));

    RETURN(true);

#endif // NO_COCOA

%}.

    self primitiveFailed

    "

     self getNSApp

    "

    "Modified: / 28-02-2017 / 13:45:39 / cg"

!

receiveNextEvent

%{

#ifndef NO_COCOA

    CFMachPortRef      eventTap;

    CGEventMask        eventMask;

    CFRunLoopSourceRef runLoopSource;

    // Create an event tap. We are interested in key presses.

    eventMask = ((1 << kCGEventKeyDown) | (1 << kCGEventKeyUp));

    eventTap = CGEventTapCreate(kCGSessionEventTap, kCGHeadInsertEventTap, 0,

				eventMask, NULL, myCGEventCallback);

    if (!eventTap) {

	fprintf(stderr, "failed to create event tap\n");

    } else {

	fprintf(stderr, "ok\n");

	// Create a run loop source.

	runLoopSource = CFMachPortCreateRunLoopSource( kCFAllocatorDefault, eventTap, 0);

	// Enable the event tap.

	CGEventTapEnable(eventTap, true);

    }

#endif // NO_COCOA

%}.

    self primitiveFailed

    "Modified: / 28-02-2017 / 01:05:04 / cg"

! !

!OSXOperatingSystem class methodsFor:'dummy shell operations'!

openApplicationHelperCommand

    "Return a command line helper to open a default application for file or URL"

    (self canExecuteCommand: 'open') ifTrue:[

	^ 'open'

    ].

    ^ nil

    "Created: / 13-01-2015 / 09:23:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

openTerminalWithCommand:shellCommand inBackground:inBackground

    "open a new terminal, which executes a command"

    |cmd|

    cmd := 'osascript -e ''tell application "Terminal" to do script "%1"''' bindWith:shellCommand.

    inBackground ifTrue:[

	^ self

	    startProcess:cmd

	    inputFrom:nil

	    outputTo:nil

	    errorTo:nil

	    auxFrom:nil

	    environment:nil

	    inDirectory:nil

    ] ifFalse:[

	^ self executeCommand:cmd

    ].

    "

     OSXOperatingSystem openTerminalWithCommand:'ls -l' inBackground:true

    "

! !

!OSXOperatingSystem class methodsFor:'file queries'!

caseSensitiveFilenames

    "return true, if the OS has caseSensitive file naming.

     On MSDOS, this will return false;

     on a real OS, we return true.

     Be aware, that OSX can be configured to be either.

     Also, that it actually depends on the mounted volume"

    "/ actually, this is wrong and depends on the mounted volume;