Graham Chiu gchiu
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 [ | |
| ] | |
| android-request: {{"params": ["Hello, Android!"], "id":1, "method": "makeToast"}^/} | |
| android-port: make port! tcp://192.168.1.103:4321 | |
| android-port/awake: func [event /local tcp-port] [ | |
| tcp-port: event/port | |
| print [ "port equality?" equal? tcp-port android-port ] |
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
| confirm: func [ tcp-port [port!] challenge [string!] code [string!] | |
| /local data | |
| ][ | |
| write tcp-port challenge | |
| tcp-port/awake: func [ event ][ | |
| tcp-port: event/port | |
| switch/default event/type [ | |
| wrote [ |
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
| who-is-online: func [ message-id | |
| /silent | |
| /local out page username userid len newbies addressees | |
| ][ | |
| addressees: copy "" | |
| len: length? visitors | |
| out: copy [] | |
| newbies: copy [] | |
| page: to string! read html-url | |
| parse page [ |
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 [ | |
| system: "Rebol [R3] Language interpreter" | |
| title: "Rebol 3 SMTP scheme" | |
| author: "Graham" | |
| date: [9-Jan-2010 20-Jan-2013 29-Mar-2013] | |
| rights: 'BSD | |
| name: 'smtp | |
| type: 'module | |
| version: 0.0.8 | |
| file: %prot-smtp.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
| ; mini-http is a minimalistic http implementation | |
| mini-http: func [ url [url!] method [word! string!] code [string!] timeout [integer!] | |
| /local url-obj http-request payload result port | |
| ][ | |
| http-request: {$method $path HTTP/1.0 | |
| Host: $host | |
| User-Agent: Mozilla/5.0 | |
| Accept: text/html | |
| Referer: http://$host | |
| Content-Length: $len |
gchiu
/ dragbutton.r3
Last active
December 17, 2015 13:29
create a draggable button - working version
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 [ | |
| author: "Ingo Hohmann" | |
| date: 2013-06-04 | |
| purpose: "Change html tables to asciidoc format" | |
| Version: 0.5 | |
| ] | |
| ht2at: html-table-2asciidoc: funct [ input ] [ | |
| output: copy #{} | |
| space: #{20} |
gchiu
/ clean-script.r3
Created
June 8, 2013 01:32
First attempt to port clean-script to pretty indent r3 souce
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 [ | |
| file: clean-script.r3 | |
| ] | |
| script-cleaner: make object! [ | |
| out: none ; output text | |
| spaced: off ; add extra bracket spacing | |
| indent: "" ; holds indentation tabs |
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 [] | |
| ; mini-http is a minimalistic http implementation | |
| mini-http: funct [url [url!] method [word! string!] code [string!] timeout [integer!] | |
| /callback cb | |
| /cookies cookie [string!] | |
| ] [ | |
| url-obj: http-request: payload: result: port: none | |
OlderNewer