Nenad Rakocevic dockimbel
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: "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. |
dockimbel
/ pomodoro.red
Last active
March 27, 2018 03:48
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 [ | |
| 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 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 [] | |
| 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] | |
| ] |
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 [ | |
| Purpose: "Demo how to serialize/deserialize a face tree on disk" | |
| ] | |
| mold-face: function [root [object!] return: [string!]][ | |
| foreach-face root [ | |
| face/parent: none face/state: none | |
| if font: face/font [font/parent: none font/state: none] | |
| if para: face/para [para/parent: none] | |
| ] |
dockimbel
/ parse-info.red
Last active
October 24, 2017 08:46
Function to get stats about internal parse states usage for a given parsing job.
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: "Parse Info" | |
| Purpose: { | |
| Provides some stats about internal parse states usage for a given parsing job. | |
| Could be used as a way to compare efficiency of different parsing strategies. | |
| } | |
| Date: 06-Oct-2017 | |
| ] | |
| context [ |
dockimbel
/ closure-by-value.red
Last active
October 4, 2017 16:19
"Capture by value" closure generator
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 [ | |
| Purpose: {Implementation of a "capture-by-value" closure generator} | |
| Date: 4-Oct-2017 | |
| ] | |
| collect-words: function [ | |
| spec [any-list!] | |
| /deep | |
| /set | |
| /to-set |
dockimbel
/ sum-bench.red
Created
October 1, 2017 16:38
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 [ | |
| Note: "https://gitter.im/red/red?at=59d0e788f7299e8f539496d3" | |
| ] | |
| time-it: func [block /count ct /local t baseline][ | |
| ct: any [ct 1] | |
| t: now/time/precise | |
| loop ct [do []] | |
| baseline: now/time/precise - t | |
| t: now/time/precise |
dockimbel
/ logo_turtle.red
Last active
November 23, 2017 23:56
— forked from mydoghasworms/logo_turtle.red
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
| turtle: #() | |
| win: layout [ panel [ | |
| tfield: base 500x500 white draw [] | |
| origin tfield/offset tlayer: base 500x500 255.255.255.255 draw [] ] | |
| panel [ | |
| text "History" return history: text-list 200x350 data [] return | |
| panel [ button "Save" [save request-file history/data] | |
| button "Load" [commands: load request-file foreach cmd commands [process-cmd cmd]] ] | |
| return status: text "" 200x25 ] |
dockimbel
/ dyn-board.red
Last active
July 8, 2017 15:52
Dynamic View usage example: drawing a board of buttons
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: "Dynamic View usage example" | |
| Author: "Nenad Rakocevic" | |
| Date: 08/07/2017 | |
| ] | |
| generate: function [board [pair!] sz [pair!] return: [block!]][ | |
| pane: make block! sz/x * sz/y | |
| pos: 1x1 | |
| count: 1 |
dockimbel
/ arity-of.red
Created
April 24, 2017 02:51
— forked from greggirwin/arity-of.red
Red arity-of function
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
| ; We have other reflective functions (words-of, body-of, etc.), but | |
| ; this is a little higher level, sounded fun to do, and may prove | |
| ; useful as we write more Red tools. It also shows how to make your | |
| ; own typesets and use them when parsing. | |
| arity-of: function [ | |
| "Returns the fixed-part arity of a function spec" | |
| spec [any-function! block!] | |
| /with refs [refinement! block!] "Count one or more refinements, and add their arity" | |
| ][ |