dander’s gists

dockimbel / load-any.red

Created March 22, 2017 07:31

Experimental generic loader for non-Red input text.

	Red []

	load-any: function [input [string!]][
	out: make block! 100
	junk: none

	until [
	result: load/trap/next input 'pos
	either error? result/3 [
	append any [junk junk: make string! 20] result/2/1

greggirwin / datatype-help.red

Created March 25, 2017 21:57

Small GUI experiment for showing datatype information.

	Red []

	form-all: func [blk][
	forall blk [blk/1: form blk/1]
	blk
	]

	types-of: function [value [typeset!]][
	; typesets don't support reflection
	third load mold value

toomasv / regex.red

Last active November 20, 2017 18:22

Regex to parse translator

	Red [
	Author: "Toomas Vooglaid"
	file: "%regex.red"
	Purpose: {Regex to parse converter}
	History: {Started: 2017-05-09
	v.0.1: 2017-05-12 -- first working version with:
	start `^^` and end `$` anchors,
	non-capturing groups (one level) with alterns,
	quantifiers (possessive),
	some character-classes.

rebolek / incredidle.red

Created May 15, 2017 17:12

Simple tool to show how faces work

	Red []

	inc-value: func [
	face
	color-id
	dest-face
	/local value rate
	] [
	unless face/extra [face/font/color: 255.255.255]
	overflow?: false

rebolek / nsource.red

Last active June 19, 2019 20:11

Provides source of Red native functions

	Red [
	Title: "Nsource - native source"
	Purpose: "Print source for native functions"
	Author: "Boleslav Březovský"
	Date: "8-6-2017"
	]

	indent: func [
	"(Un)indent text by tab"
	string [string!] "Text to (un)indent"

greggirwin / red-object-browser.red

Last active October 16, 2020 17:48

Red Object Browser

	Red [
	title: "Red Object Browser"
	author: "Gregg Irwin"
	needs: 'View
	]

	e.g.: :comment

	map-ex: func [
	"Evaluates a function for all values in a series and returns the results."

greggirwin / compare-times.red

Last active October 28, 2017 22:23

compare-times perf test idea for Red

	; Stats added by @toomasv
	compare-times: func [
	blocks "Block of code blocks to performance compare"
	/count ct
	/local t n baseline res blk stats1 memory time code template
	][
	ct: any [ct 1]
	t: now/time/precise
	loop ct [do []]
	baseline: now/time/precise - t

dockimbel / closure-by-value.red

Last active October 4, 2017 16:19

"Capture by value" closure generator

	Red [
	Purpose: {Implementation of a "capture-by-value" closure generator}
	Date: 4-Oct-2017
	]

	collect-words: function [
	spec [any-list!]
	/deep
	/set
	/to-set

dockimbel / parse-info.red

Last active October 24, 2017 08:46

Function to get stats about internal parse states usage for a given parsing job.

	Red [
	Title: "Parse Info"
	Purpose: {
	Provides some stats about internal parse states usage for a given parsing job.
	Could be used as a way to compare efficiency of different parsing strategies.
	}
	Date: 06-Oct-2017
	]

	context [

greggirwin / profile.red

Last active December 28, 2020 06:17

Basic profiling for Red code comparisons

	Red []

	e.g.: :comment

	delta-time: function [
	"Return the time it takes to evaluate a block"
	code [block! word! function!] "Code to evaluate"
	/count ct "Eval the code this many times, rather than once"
	][
	ct: any [ct 1]

Dave Andersen dander