iArnold

Red [
title: "Red CGI test input from POST and/or GET using input from ansi.red"
]

#include %../../../fossil/C-library/ansi.red

standard-input: input
env-vars: get-env "REQUEST_METHOD"

print "Content-Type: text/html^/"  ;-- Required Page Header

iArnold

Red [
	Title:   "Red Android bridge demo"
	Author:  "Nenad Rakocevic"
	File: 	 %eval2.red
	Config:	 [type: 'dll libRed?: no libRedRT?: yes export-ABI: 'cdecl]
	Tabs:	 4
	Needs:	'View
	Rights:  "Copyright (C) 2013-2017 Nenad Rakocevic. All rights reserved."
	License: {
		Distributed under the Boost Software License, Version 1.0.

iArnold

Red [
	Author: "Toomas Vooglaid"
	Date: 25-9-2017
	Description: {Experiments with L-System}
]
ctx: context [
	scale: origin: length: len: angle: width: delta-width: times-length: delta-length: delta-angle: aliasing?: stack: commands: none
	defaults: [
		scale 	2.0
		origin 	300x500

iArnold

Red []
set-iso-week: function [
	"Returning a new date set on the first day of that week for a given date and weeknumber"
	date [date!] 
	/week weeknumber [integer!]
	/local resultdate ordinal jan4 dec31 daysinyear daysinlastyear
][
	jan4: dec31: resultdate: now/date
	jan4/day: 4
	jan4/month: 1

iArnold

; https://repl.it/languages/scheme

(define (abs x)
  (cond ((> x 0) x)
        ((= x 0) 0)
        ((< x 0) (- x))))

(define (average x y)
  (/ (+ x y) 2))

iArnold

get-date: function [
	"Get date from unixtimestamp.com"
	return: [string!]
	/local
		page
		datestring [string!]
		datearray
][
	page: read http://www.unixtimestamp.com/index.php
	get-today-rule: [ thru {seconds since Jan 01 1970. (UTC)} thru {<h3 class="text-danger">} copy datestring to " @ " to end]

iArnold

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

iArnold

Red [
	Title: "CSV Handling Tools"
	Author: "Brian Hawley"
	File: %csv-tools.red
	Date: "20-Mar-2017"
	Version: 1.2.0
	Purpose: "Loads and formats CSV data, for enterprise or mezzanine use."
	Library: [
		level: 'intermediate
		platform: 'all

iArnold

comment {
Code By Rebolek
"It's a terrible version, that I use just for short strings, so it's certainly very unoptimalized, but here you go:"
Thank you for sharing!
}

rejoin: func [ 
	"Crude REJOIN version, because I can't live without it" 
	block [block!] 
	/local 

iArnold

Red [
	Title: 		"Partial grep implementation" 
	Purpose:	{To search the input for lines containing a match
				 to the given pattern, specified as a regular expression} 
	Author:		"Rudolf W. MEIJER"
	File:		%grep.red
	Version:	0.4.0 
	Date:		"24-Nov-2016"
	Rights:		"(c) Copyright 2016 Rudolf W. MEIJER"
	History:	[