rebolek

Red[
    Title: "Where"
    Purpose: "Find where function is defined"
    Author: "Boleslav Březovský"
]

where: function [
    "Return file where function is defined or NONE, if the definition can't be found"
    'name
    /in

rebolek

```
      mal-scalar: [
         any whitespace [
            p: (probe p)
            "nil" keep ('nil)
            | "true" keep ('true)
            | "false" keep ('false)
            | tmp: mal-number keep (to-integer tmp)
            | tmp: mal-string keep (tmp)
            | tmp: mal-keyword keep (to-get-word tmp)

rebolek

Red[]

count-lines: func [
	filename
	/local
		file count ws
][
	ws: charset " ^-"
	file: read/lines filename
	count: 0

rebolek

console.log("%main.js");

rooms = null;
users = null;

// load room names
load_rooms = function (){
	d3.csv("data/room-list.csv", function(error, data) {
		if (error) throw error;
		console.log("loading rooms");

rebolek

Red[]

reduce+: func [
	"Reduce with unset!, error! -> none! conversion"
	block
	/local value new-block
][
	new-block: block
	collect [
		until [

rebolek

Red [
    file: %base32.red
    date: 17-Sep-2015
    author: "Graham Chiu"
    red-version: "Boleslav Březovský"
    version: 0.0.3
    notes: {
        encodes string to base32 or base32hex
        padding to 5 characters is not required in this method
        >> to-base32/decode/hex to-base32/hex "yessir"

rebolek

Red [
  Title: "Replace with /CASE support"
]

replace: func [
    "Returns the series where a value is found, or NONE. "
    series [series!] 
    pattern 
    value 
    /all 

rebolek

Red[]

join: func [ 
	"Reduce values in a block and joins them into a string" 
	block [block!] 
	/with "Add delimiter between values" 
		delimiter 
	/trim "Remove NONE values" 
] [ 
	if empty? block [return ""] 

rebolek

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"

rebolek

Red []

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