Skip to content

Instantly share code, notes, and snippets.


iArnold iArnold

  • Freelance ICT Specialist
  • Netherlands
View GitHub Profile
iArnold /
Last active Apr 11, 2018 — forked from dockimbel/
Test script for Red/View Android backend
Red [
Title: "Red Android bridge demo"
Author: "Nenad Rakocevic"
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.
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
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
View gist:2ef23f8d16c002c96934a1c8015e4ec6
(define (abs x)
(cond ((> x 0) x)
((= x 0) 0)
((< x 0) (- x))))
(define (average x y)
(/ (+ x y) 2))
iArnold / get-date
Created May 9, 2017
Red date retrieve
View get-date
get-date: function [
"Get date from"
return: [string!]
datestring [string!]
page: read
get-today-rule: [ thru {seconds since Jan 01 1970. (UTC)} thru {<h3 class="text-danger">} copy datestring to " @ " to end]
iArnold /
Created May 8, 2017 — forked from toomasv/
Print a directory tree
Red [
Author: "Toomas Vooglaid"
Date: "2017-05-07"
Changed: "2017-05-08"
Purpose: "Print a directory tree"
File: ""
context [
; Some helpers
get-char: func [hex][to-char to-integer hex]
Red [
Title: "CSV Handling Tools"
Author: "Brian Hawley"
Date: "20-Mar-2017"
Version: 1.2.0
Purpose: "Loads and formats CSV data, for enterprise or mezzanine use."
Library: [
level: 'intermediate
platform: 'all
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"
Version: 0.4.0
Date: "24-Nov-2016"
Rights: "(c) Copyright 2016 Rudolf W. MEIJER"
History: [
iArnold / maskinput
Last active Nov 4, 2016
Masked input
View maskinput
Red [
date: "4-Nov-2016"
Needs: 'View
star-replace: func [
/local stars
iArnold /
Created Oct 18, 2016
How to go about adding tab functionality?
;do %/c/../ ;-- Everything before the Red header is not a comment!!
Red [
window-actors: object [ ;-- actors for the window
on-key: func [face [object!] event [event!]][
case [
event/key = #"^-" [
print "TAB key caught by window face!"