Standard escape codes are prefixed with Escape:
- Ctrl-Key:
^[ - Octal:
\033 - Unicode:
\u001b - Hexadecimal:
\x1B - Decimal:
27
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 auto-generated test" | |
| Author: "Peter W A Wood" | |
| License: "BSD-3 - https://github.com/dockimbel/Red/blob/origin/BSD-3-License.txt" | |
| Needs: [CSV JSON] | |
| ] | |
| comment { | |
| This file is generated by make-run-all-red.r |
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
| do-flush: func [ ;-- assumes frames-list buffer is built and sorted | |
| kind [integer!] ;-- 1: list, 2: reloc-list | |
| /local | |
| frm p e n node new [int-ptr!] | |
| frm-nb w cnt [integer!] | |
| ][ | |
| either kind = 1 [ | |
| n: list | |
| loop count [ | |
| node: as node! n/value |
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
| qt@DESKTOP-M49UILA:~$ ./console castr-open-url/open-url.red | |
| epoll_ctl fd: 5 op: 1 evts: 80000001 | |
| tls | |
| tls://140.82.121.4:443 | |
| tls/open | |
| tls client | |
| socket/bind | |
| epoll_ctl fd: 6 op: 1 evts: 80000004 | |
| cnt: 1 | |
| iocp: 32 |
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: "Simple HTTP server" | |
| Notes: { | |
| The compiler is not able to compile it. | |
| } | |
| ] | |
| httpd: context [ | |
| debug: :print |
qtxie
/ parse-test.r
Last active
February 8, 2021 03:45
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
| REBOL [] | |
| Red [] | |
| do { | |
| src: [ | |
| #switch OS [ | |
| Windows [#define LIBREDRT-file "libRedRT.dll"] | |
| macOS [#define LIBREDRT-file "libRedRT.dylib"] | |
| #default [#define LIBREDRT-file "libRedRT.so"] | |
| ] |
qtxie
/ draw-benchmark.red
Created
January 29, 2021 08:29
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] | |
| start?: no | |
| total1: 0 total2: 0 total3: 0 | |
| n1: n2: n3: 0 | |
| NUM: 10 | |
| view [ | |
| b1: base 500x500 on-drawing [ | |
| unless start? [exit] | |
| cmds: reduce ['pen red] |
qtxie
/ windows_nanosleep.c
Created
March 27, 2020 07:53
— forked from Youka/windows_nanosleep.c
Windows nanosleep
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
| #include <windows.h> /* WinAPI */ | |
| /* Windows sleep in 100ns units */ | |
| BOOLEAN nanosleep(LONGLONG ns){ | |
| /* Declarations */ | |
| HANDLE timer; /* Timer handle */ | |
| LARGE_INTEGER li; /* Time defintion */ | |
| /* Create timer */ | |
| if(!(timer = CreateWaitableTimer(NULL, TRUE, NULL))) | |
| return FALSE; |
qtxie
/ int64.reds
Last active
March 26, 2020 17:43
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/System [] | |
| int64!: alias struct! [ | |
| low [integer!] | |
| high [integer!] | |
| ] | |
| sub64: func [ ;-- result: a - b | |
| a [int64! value] | |
| b [int64! value] |
qtxie
/ draw image
Last active
March 11, 2020 11:33
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
| 转换的代码应该是平台无关的。Draw里只需要很少的改动。 | |
| runtime/datatypes/image.reds 里增加一个函数： | |
| ``` | |
| any-resize: func [ | |
| ;-- 4 points resize (also support 3 points) | |
| src [red-image!] | |
| dst [red-image!] | |
| crop1 [red-pair!] | |
| start [red-pair!] ;-- first point |
NewerOlder