This file contains 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: "Lines of code statistics from Red files" | |
Author: "Nenad Rakocevic" | |
File: %rloc.reds | |
Tabs: 4 | |
Purpose: { | |
Counts the number of files, lines of code and inline comments in Red/Rebol files, across folders, | |
filtering files using a list of suffixes and excluding files from a given list of subfolders. | |
} | |
] |
This file contains 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 [ | |
Purpose: "PoC script for checking if brackets/parens are matching in a Red file" | |
] | |
check-brackets: function [file [file!]][ | |
line: 1 | |
stack: clear [] | |
skip-chars: complement charset "[]()^/" | |
parse read file [ |
This file contains 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
Verifying my identity on Peepeth.com 0x1e33e78b9fc22c63740b0ed0cd441acbac5109f2 |
This file contains 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 [] | |
get-arguments: routine [ | |
/local | |
list [red-block!] | |
s [red-value!] | |
t [red-value!] | |
top | |
][ | |
top: stack/ctop - 3 ;-- might need adjustments depending on interpreted vs compiled code. |
This file contains 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 [ | |
Note: "from: https://gitter.im/red/red/gui-branch?at=5afc55a05a1d895fae45588e" | |
] | |
view [ | |
area 200x100 focus wrap | |
at 10x10 base 255.255.255.254 200x100 all-over | |
draw [line-width 20 pen 200.50.50.200] | |
on-down [repend face/draw ['line event/offset event/offset]] | |
on-over [if event/down? [change back tail face/draw event/offset]] |
This file contains 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: "256-bit unsigned integer library" | |
Author: "Nenad Rakocevic" | |
File: %int256.red | |
Tabs: 4 | |
Rights: "Copyright (C) 2018 Red Foundation. All rights reserved." | |
License: { | |
Distributed under the Boost Software License, Version 1.0. | |
See https://github.com/red/red/blob/master/BSL-License.txt | |
} |
This file contains 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 [ | |
Purpose: "Tiger vector data in Draw dialect (from SVG)" | |
File: %tiger.red | |
Author: "Zamlox" | |
Tabs: 4 | |
Rights: "Copyright (C) 2013-2017 Nenad Rakocevic. All rights reserved." | |
License: { | |
Distributed under the Boost Software License, Version 1.0. | |
See https://github.com/red/red/blob/master/BSL-License.txt | |
} |
This file contains 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: "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. |
This file contains 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 [ | |
Purpose: "Implements a Pomodoro timer" | |
Note: "Original code from https://gitter.im/red/red/gui-branch?at=5ab95dae2b9dfdbc3a25636a" | |
] | |
Pomodoro: does [ | |
context [ | |
t: diff: b1: b2: end: none | |
view/no-wait [ | |
title "Pomodoro" |
This file contains 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 [] | |
dive: function [path action [block!] filter [block!]][ | |
bind action 'path | |
if filter [bind filter 'path] | |
foreach file read path [ | |
if dir? file [dive append copy path file action filter] | |
if any [not filter do filter][do action] | |
] |