Skip to content

Instantly share code, notes, and snippets.

;-- In %natives.reds
checksum*: func [
check? [logic!]
_tcp [integer!]
_hash [integer!]
_method [integer!]
_key [integer!]
/local
arg [red-value!]
@TimeSeriesLord
TimeSeriesLord / delimit.red
Created September 28, 2016 04:04 — forked from greggirwin/delimit.red
A `delimit` function for Red.
; This doesn't work like R3 in how negative widths work.
forskip: func [
"Evaluates a block at regular intervals in a series."
'word [word!] "Word referring to the series to traverse (modified)"
width [integer!] "Interval size (width of each skip)"
body [block!] "Body to evaluate at each position"
/local orig result op
][
either zero? width [none] [
; TBD: assert word refs series
Red [
Title: "Currency converter"
Author: ["Mark Summerfield" "Nenad Rakocevic"]
License: ["Apache 2.0" http://www.apache.org/licenses/LICENSE-2.0]
Version: 1.0.0
Needs: 'View
]
converter: context [
currencies: rates: usd: gbp: from: target: value: list: pos: e: none
@TimeSeriesLord
TimeSeriesLord / forskip.red
Created September 28, 2016 04:05 — forked from dockimbel/forskip.red
FORSKIP port from Rebol2 to Red.
Red [
Title: "FORSKIP function"
Author: "Nenad Rakocevic"
Purpose: "Direct port of the REBOL2 forskip function"
]
forskip: func [
"Evaluates a block for periodic values in a series."
'word [word!] "Word set to each position in series and changed as a result"
skip-num [integer!] "Number of values to skip each time"
@TimeSeriesLord
TimeSeriesLord / red-updater.r
Created September 28, 2016 04:05 — forked from dockimbel/red-updater.r
Red-Updater-Script: This Script updates your Red Installation with the latest master-branch binaries.
Rebol [
Title: "Red-Updater-Script"
File: %red-updater.r
Author: "Neelesh Chandola, @nc-x"
Description: {
This Script updates your Red Installation with the latest master-branch binaries.
}
Instructions: {
Please update the variable `path-to-red-executable` with appropriate
location of the Red executable on your system before running the script.