This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;-- In %natives.reds | |
checksum*: func [ | |
check? [logic!] | |
_tcp [integer!] | |
_hash [integer!] | |
_method [integer!] | |
_key [integer!] | |
/local | |
arg [red-value!] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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" |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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. |
OlderNewer