qtxie

; A minimal Mach-o x64 executable for OS X (also see below Mountain Lion version)
;
; $ nasm -f bin -o tiny_hello tiny_hello.s
; $ chmod +x tiny_hello
; $ ./tiny_hello
; Hello World!
; $

; c.f.
; http://osxbook.com/blog/2009/03/15/crafting-a-tiny-mach-o-executable/ ( the original tiny mach-o executable )

qtxie

CFMutableAttributedStringRef attributedString = NULL;
    CFRange stringRange = CFRangeMake(0, CFAttributedStringGetLength(attributedString));

    //color
    CGColorRef stringColor = nil;
    CGColorSpaceRef rgbColorSpace = CGColorSpaceCreateDeviceRGB();
    CGFloat colorComponents[] = {0.0f, 0.0f, 0.0f, 1.0f};
    stringColor = CGColorCreate(rgbColorSpace, colorComponents);
    CGColorSpaceRelease(rgbColorSpace);    
    

qtxie

CGFloat GetLineHeightForFont(CTFontRef iFont)
{
    CGFloat lineHeight = 0.0;
 
    check(iFont != NULL);
 
    // Get the ascent from the font, already scaled for the font's size
    lineHeight += CTFontGetAscent(iFont);
 
    // Get the descent from the font, already scaled for the font's size

qtxie

Am I out of order being annoyed at things like this? The naming has changed subtly, the direction is at the end in UIKit but at the start on AppKit. If I'm writing cross platform code then I need to either use the int values directly, which is bad practice, or use a define.


UIKit:
enum {
   NSTextAlignmentLeft      = 0,
   NSTextAlignmentCenter    = 1,
   NSTextAlignmentRight     = 2,
   NSTextAlignmentJustified = 3,
   NSTextAlignmentNatural   = 4,

qtxie

/* This is specific fix for a problem with the windows SDK headers when */
/* using MSVC with an x86 compilation target. On x64 the SDK would enable */
/* MSVC's _InterlockedSomething compiler intrinsics and use #define to make */
/* sure those are used instead of InterlockedSomething library calls. On */
/* x32 it doesn't even though MSVC does support many of those intrinsics. */
/* Including this header fixes that. */

#ifndef _MSVC_INTRINSICS_H
#define _MSVC_INTRINSICS_H

qtxie

Red [
	Title:   "Calculator"
	File:    %calculator.r
	Version: 0.0.1
	;Date:    18-Jun-2016
	Author:  [
		REBOL version ["Jeff Kreis" "Allen Kamp" "Carl Sassenrath"]
		Red port "Gregg Irwin"
	]
	Purpose: "Simple numeric calculator."

qtxie

Red [
	Title:   "Sparks demo"
	Author:  "Qingtian Xie"
	File: 	 %sparks.red
	Tabs:	 4
	Needs:	 View
]

system/view/auto-sync?: no

qtxie

// clang -fobjc-arc -framework Foundation runtime-class.m

#import <Foundation/Foundation.h>

#import <objc/runtime.h>


@interface Person : NSObject

- (id)initWithFirstName: (NSString *)firstName lastName: (NSString *)lastName age: (NSUInteger)age;

qtxie

Red/System [
	Title:   "Red/System Mac OSX Window"
	Author:  "Qingtian Xie"
	File: 	 %rs-mac-window.reds
	Type:	 'library
	Tabs:	 4
	Rights:  "Copyright (C) 2014 Qingtian Xie. All rights reserved."
	Compiling: "rebview.exe -qs red.r -t Darwin rs-mac-window.reds"
	Reference: {
		https://github.com/CodaFi/C-Macs

qtxie

Dim strCommand
Dim strFilename
Dim strOutput
Dim strLog

strFilename = App.ActiveDoc.PathName
strLog = strFilename & ".result"
strCommand = "cmd /c E:\red-043.exe {0} > {1} 2>&1"
strCommand = Replace(strCommand, "{0}", strFilename)
strCommand = Replace(strCommand, "{1}", strLog)