greggirwin

Red []

do %step.red

; Wrapper that hides the detail of whether a value is indirectly referenced.
arg-val: func [arg][
	either any [any-word? arg  any-path? arg] [get arg][arg]
]

test-step: func [arg /by amt][

greggirwin

Red []

;styles: keys-of system/view/vid/styles
style-name: [
	'base | 'button | 'text | 'field | 'area | 'rich-text | 'toggle
	| 'check | 'radio | 'progress | 'slider | 'scroller | 'camera
	| 'calendar | 'text-list | 'drop-list | 'drop-down | 'panel
	| 'group-box | 'tab-panel | 'h1 | 'h2 | 'h3 | 'h4 | 'h5 | 'box
	| 'image
]

greggirwin

Red []

; A quick hack for capturing VID set-words into a context, and limiting their global damange.

view-ctx: function [
	"View a layout, binding set-words in it to a returned context."
	spec [block!] "VID layout spec; LAY will refer to the root of the face tree in the result."
][
	words: collect-words/set/deep spec		; what about draw words though?

greggirwin

Red [
	Title:   "BMR (Basal Metabolic Rate) Calculator"
	Author:  "Gregg Irwin"
	File: 	 %bmr-calc.red
	Needs:	 View
	Comment: {
		An experiment in reactivity and data modeling.

		TBD: Caloric calcs based on activity level.

greggirwin

Red [
	Title:   "BMR (Basal Metabolic Rate) Calculator"
	Author:  "Gregg Irwin"
	File: 	 %bmr-calc.red
	Needs:	 View
	Comment: {
		An experiment in reactivity and data modeling.

		TBD: Caloric calcs based on activity level.

greggirwin

Comment {
APPLY is coming! To keep it simple, it won't support named args in
the initial release. These are experiments for how we can think of
ways to do that at the mezz level and play.

APPLY is an avanced func and may be used in both very dynamic code
(think thunks) but also code that requires high performance. We may
not get all the features to do both without some effort, but some
of the ideas here may give you clues about how to do things to your
taste, that meets your needs.

greggirwin

Red [
	Title:  "Gradient Lab"
	Author: "Gregg Irwin"
	File: 	%gradient-lab.red
	Needs:	View
	Notes: {
		Found Carl's old R2 version after starting this from %fill-pen-lab.red,
		so took some ideas from that too.
	}
]

greggirwin

Red []

; We should give our survey a name so we can identify
; responses for it.

survey-name: "Ren datatype survey"

types: [
    none
    true

greggirwin

Red [
	Title:	 "Hunt the Wumpus"
	;Date:	 25-Jun-2016
	Author:  "Gregg Irwin"
	Version: 1.0.2
	Comment: {
		2001 Notes:
		I found an old version, in C (by Eric Raymond), which was adapted from
		an even older version, in BASIC (by Magnus Olsson), that had been found
		in a SIMTEL archive. It's got lineage.

greggirwin

; This was developed for Windows only, as far as specific names
; the OS uses. For cross-platform use we need to add lists of
; reserved names, and maybe more complex rule checks. It also
; takes a "lowest common denomitator" approach, in that it doesn't
; express illegal chars by OS, the idea being that a good goal is
; to create portable filenames.
safe-filename: function [
	"Changes invalid characters to underscores, limits length; reserved OS names return none."
	file [any-string!] "Unqualified filenames."
	/local mark