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 [ ] | |
listen: open tcp://:8080 | |
port: open tcp://localhost:8080 | |
start: 0 | |
listen/awake: func [event] [ | |
;print "Listen Awake" | |
switch/default event/type [ | |
accept [ | |
;print "Accept" |
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: "GitHub's graphql request test" | |
author: "Oldes" | |
reference: https://developer.github.com/v4/ | |
] | |
;@@ https://developer.github.com/apps/building-oauth-apps/creating-an-oauth-app/ | |
graphql-header: [Authorization: "token YOUR_OAUTH_TOKEN_HERE"] | |
graphql-request: func[ |
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 [] | |
whitespace: charset reduce [space tab cr lf] | |
ws: [any whitespace] | |
rule-object: [ | |
ws <purchaseObject> [ | |
ws <OKPD2> [ | |
ws <code> copy *cd to "<" </code> | |
ws <name> copy *nm to "<" </name> |
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: "Get Google Images" | |
Note: "Just an experiment:)" | |
Settings: [ | |
isz: [ ;- size | |
medium: "m" | |
large: "l" | |
] | |
itp: [ ;- type | |
"photo" |
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 [ | |
Title: "HTTPD Scheme" | |
Date: 27-Mar-2019 | |
Author: [ | |
"Oldes" 27-Mar-2019 "Rewritten Chris' HTTPD Scheme" | |
"Christopher Ross-Gill" 4-Jan-2017 "Adaptation to Scheme" | |
"Andreas Bolka" 4-Nov-2009 "A Tiny HTTP Server" | |
] | |
File: %httpd.r3 | |
Version: 0.3.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
https://gitter.im/blend2d/b2d?at=5c76b021e8ea143737842e2f | |
struct StringCache { | |
#define ENTRY(ID, NAME, CONTENT) \ | |
struct NAME { \ | |
enum { kId = ID }; \ | |
char str[sizeof(CONTENT)] = CONTENT; \ | |
} | |
ENTRY(0, id, "id"); | |
}; |
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/System [ | |
title: "Typed array" | |
purpose: "Low level struct for holding typed data" | |
] | |
#enum typed-array-types! [ | |
TYPE_FLOAT32!: 1 | |
] | |
typed-array!: alias struct! [ |
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/System [ | |
Title: "Red/System libjulia binding" | |
Author: "Oldes" | |
File: %Julia.reds | |
Tabs: 4 | |
Rights: "Copyright (C) 2017 Oldes. 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/System [ | |
Title: "Red/System SQLite3 binding" | |
Author: "Oldes" | |
File: %SQLite3.reds | |
Rights: "Copyright (C) 2017 David 'Oldes' Oliva. All rights reserved." | |
License: "BSD-3 - https:;//github.com/red/red/blob/master/BSD-3-License.txt" | |
] | |
#switch OS [ |
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 [ | |
"Drag and Drop test" | |
filename: %tb.red | |
author: "Oldes" | |
version: 0.6.0 | |
date: "18-Dec-2015" | |
Needs: 'View | |
] | |
system/view/debug?: no |