iArnold

Red [
	Needs: 'View
]

system/view/debug?: yes

workstation?: system/view/platform/product = 1

print [
	"Windows" switch system/view/platform/version [

iArnold

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

iArnold

Red [
	Needs: 'View
]

system/view/debug?: yes

workstation?: system/view/platform/product = 1

print [
	"Windows" switch system/view/platform/version [

iArnold

string-to-integer: function [
	input [string!]
	return: [integer! none!]
	/local
	total [integer!]
	in-char [char! string!]
	cipher [integer!]
	is-number [logic!]
][
	is-number: false

iArnold

found?: func [
    "Returns true if value is not NONE."
    value
][
    not none? :value
]