Lorem ipsum dolor sit amet, consectetur adipiscing elit | Nam nec convallis purus | Curabitur urna mauris, facilisis ut scelerisque viverra, facilisis nec nunc |
---|---|---|
Nulla facilisi | Sed vehicula, sapien et consectetur vulputate, turpis ipsum viverra sem, in efficitur quam erat sit amet ligula |
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 [] | |
allow-types: function [word [any-word!] types [block!]] [ | |
obj: context? word | |
map: third find body-of :obj/on-change* 'type-checker | |
put map word func reduce [to word! word types] [] | |
] | |
restrict: function [types [block!] 'word [set-word!] value [any-type!]] [ | |
allow-types word types |
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: "object size plotter" needs 'view] | |
sizes: [] | |
plot1: [0x0] | |
plot2: [] | |
recycle/off | |
repeat i 70 [ | |
insert spec: [none] to set-word! rejoin ["word" i] | |
recycle | |
initial: stats |
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
REBOL [] Red [] | |
using-replace: func[str][ | |
replace/all str "??" #"¿" | |
replace/all str "!!" #"¡" | |
replace/all str "a'" #"á" | |
replace/all str "e'" #"é" | |
replace/all str "i'" #"í" | |
replace/all str "o'" #"ó" | |
replace/all str "u'" #"ú" | |
replace/all str "u:" #"ü" |
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: "An experiment with INTO separation"] | |
; do %/d/devel/red/common/with.red | |
buffers*: [] | |
into: func [buffer [series!]] [append/only buffers* buffer exit] | |
collect': function [code [block!]] [ | |
also buffer: any [ | |
take/last buffers* |
unordered key/value pairs with word shortcuts (original mezz impl):
apply parse [case part length input: series rules: =rule=]
path + args + k/v pairs (hybrid):
apply 'parse/:case/:part [series =rule= length]
operands then refinements (reduced k/v syntax):
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 [needs: view] | |
drawn: [translate 200x200 push [rotate 0.0 scale 1.0 1.0 text -3x-203 "L"] push [rotate 2.40612197430267 scale 0.9993330561110004 0.9993330561110004 text -3x-203 "o"] push [rotate 5.113009195393174 scale 0.9985832759130133 0.9985832759130133 text -3x-203 "r"] push [rotate 6.917600676120176 scale 0.998083734999044 0.998083734999044 text -3x-203 "e"] push [rotate 9.62448789721068 scale 0.9973348921424416 0.9973348921424416 text -3x-203 "m"] push [rotate 13.835201352240352 scale 0.9961711420696419 0.9961711420696419 text -3x-203 " "] push [rotate 15.339027586179517 scale 0.9957558462169389 0.9957558462169389 text -3x-203 "i"] push [rotate 16.542088573330854 scale 0.9954237341943969 0.9954237341943969 text -3x-203 "p"] push [rotate 19.24897579442136 scale 0.9946768870847758 0.9946768870847758 text -3x-203 "s"] push [rotate 21.655097768724026 scale 0.9940134934134055 0.9940134934134055 text -3x-203 "u"] push [rotate 24.361984989814534 scale 0.9932677043800738 0.9932677043800738 text -3x-203 "m"] |
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
; Copyright © Microsoft Corp. | |
[Theme] | |
; High Contrast White - IDS_THEME_DISPLAYNAME_HCWHITE | |
DisplayName=silvermoon | |
ThemeId={ECCE8417-4571-4413-A4AD-680D75696797} | |
; Computer - SHIDI_SERVER | |
[CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\DefaultIcon] | |
DefaultValue=%SystemRoot%\System32\imageres.dll,-109 |
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
(x >= 0) | |
(0 < length? s) | |
(none? y) | |
(none? m) | |
(same? type? X1 type? X2) | |
(xrange >= 0) | |
(frange >= 0) | |
(nmax > 0) | |
(find [binary interp jump] guess) | |
(host? host) |
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: "an experiment with adhoc protection"] | |
;; problem is that once it's assigned to a deep-reactor, protection is lost | |
;; and we can only protect series, not maps or objects like this (limitation of ownership system) | |
;; REQUIRES https://codeberg.org/hiiamboris/red-common | |
#include %common/tree-hopping.red | |
guard: object [ | |
own: func [s [series!]] [modify s 'owned reduce [self s]] |
OlderNewer