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 [] | |
| ctx: context [ | |
| char: charset {([{}])"} ;" | |
| opens: charset "[(" | |
| closes: charset "])" | |
| line: 1 | |
| stack: make block! 1000 | |
| mark: comm: none | |
| instr: false | |
| inmulti: 0 |
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 program structure checker" | |
| Purpose: {Check if brackets/parens are matching in a Red file | |
| and give errors with indication of line number} | |
| Author: "Rudolf W. MEIJER" | |
| File: %check-structure.red | |
| History: [ | |
| [0.0 04-Jan-2019 {Start of project}] | |
| [0.5 05-Jan-2019 {First working version}] | |
| [0.6 01-Feb-2019 {Added %" "}] |
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 [ | |
| Author: "Toomas Vooglaid" | |
| Date: 2018-08-10 | |
| Last: 2018-08-11 | |
| Purpose: {Attempt at multi-selection text-list style} | |
| ] | |
| cnt: 0 | |
| view [ | |
| style multi-selection-text-list: text-list | |
| on-create [face/extra: object [key: none selected: none selection: copy [] nums: copy [] layer: 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 [] | |
| e.g.: :comment | |
| ; ideally not exported on the global context | |
| delta-time*: function [code count] [ | |
| start: now/precise | |
| loop count code | |
| difference now/precise start | |
| ] |
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 [ | |
| Needs: View | |
| Author: "Toomas Vooglaid" | |
| Date: 2018-01-12 | |
| Purpose: {To study conversions between datatypes} | |
| ] | |
| ctx: context [ | |
| types: compose [ | |
| hex #00000001 | |
| local-file "file.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
| Red [] | |
| e.g.: :comment | |
| delta-time: function [ | |
| "Return the time it takes to evaluate a block" | |
| code [block! word! function!] "Code to evaluate" | |
| /count ct "Eval the code this many times, rather than once" | |
| ][ | |
| ct: any [ct 1] |
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 [ |
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: "generator function experiments" | |
| Author: "Dave Andersen" | |
| Date: 27-Sep-2017 | |
| ] | |
| reload: does [do system/options/script] | |
| ; @JacobGood's closure func | |
| closure1: func [ |
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 Object Browser" | |
| author: "Gregg Irwin" | |
| needs: 'View | |
| ] | |
| e.g.: :comment | |
| map-ex: func [ | |
| "Evaluates a function for all values in a series and returns the results." |
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 [ | |
| Author: "Toomas Vooglaid" | |
| Date: "2017-05-07" | |
| Changed: "2018-07-09" | |
| Purpose: "Print a directory tree" | |
| File: "%dir-tree.red" | |
| ] | |
| context [ | |
| ; Some helpers | |
| get-char: func [hex][to-char to-integer hex] |
NewerOlder