toomasv

Red []
ctx: context [
	char: charset {([{}])"} ;"
	opens: charset "[("
	closes: charset "])"
	line: 1
	stack: make block! 1000
	mark: comm: none
	instr: false
	inmulti: 0

meijeru

Red [
	Title: 		"Red program structure checker"
	Purpose:	{Check if brackets/parens are matching in a Red file
				 and give errors with indication of line number}
	Author:		"Rudolf W. MEIJER"
	File:		%check-structure.red
	History:	[
					[0.0 04-Jan-2019 {Start of project}]
					[0.5 05-Jan-2019 {First working version}]
					[0.6 01-Feb-2019 {Added %" "}]

toomasv

Red [
	Author: "Toomas Vooglaid"
	Date: 2018-08-10
	Last: 2018-08-11
	Purpose: {Attempt at multi-selection text-list style}
]
cnt: 0
view [
	style multi-selection-text-list: text-list 
		on-create [face/extra: object [key: none selected: none selection: copy [] nums: copy [] layer: none]]

giesse

Red []

e.g.: :comment

; ideally not exported on the global context
delta-time*: function [code count] [
    start: now/precise
    loop count code
    difference now/precise start
]

toomasv

Red [
	Needs: View
	Author: "Toomas Vooglaid"
	Date: 2018-01-12
	Purpose: {To study conversions between datatypes}
]
ctx: context [
	types: compose [
		hex #00000001
		local-file "file.red"

greggirwin

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]

dockimbel

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 [

dander

Red [
	Title: "generator function experiments"
	Author: "Dave Andersen"
	Date: 27-Sep-2017
]

reload: does [do system/options/script]

; @JacobGood's closure func
closure1: func [

greggirwin

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."

toomasv

Red [
	Author: "Toomas Vooglaid"
	Date: "2017-05-07"
	Changed: "2018-07-09"
	Purpose: "Print a directory tree"
	File: "%dir-tree.red"
]
context [
	; Some helpers
	get-char: func [hex][to-char to-integer hex]