rgchris

Red [
    Title: "Embed Image"
    Date: 12-Sep-2017
    Author: "Christopher Ross-Gill"
]

help-image: load/as 64#{
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAAAYFBMVEVHcExzqnN6
xHptvm1fwl9FoUVJk0kgLiCKtIophSkmYyYIVggRMREBRAECFQIxPTEPag9wkXC9
1L3Y7tjf8t+jx6PM4cxJdknn9efu+O5caVxETkT2/PYZHBlTYFP+//5Z4eYoAAAA

rgchris

Red [
    Notes: {
        Is a reimagining of the Eve-style Clock demo without
        using words to access UI elements. Adaptation of:
        http://www.red-lang.org/2016/07/eve-style-clock-demo-in-red-livecoded.html
    }
]

clock-demo: {
    base 200x200 transparent rate 1 now draw [

rgchris

#!/usr/local/bin/rebview -iqvs

Rebol [
    Title: "Parrot Field"
    Date: 2-Jan-2017
    Author: "Christopher Ross-Gill"
    Link: http://rebolforum.com/index.cgi?f=printtopic&permalink=OneArb2-Jan-2017/11:14:53-8:00&archiveflag=archive
    Notes: http://www.rebol.com/docs/view-face-events.html
]

rgchris

#!/usr/local/bin/red

Red [
    Title:   "Isle of Arran"
    Date:    16-April-2001
    Version: 1.1.0
    File:    %arran.red
    Home:    http://www.ross-gill.com/
    Author:  "Christopher Ross-Gill"
    Owner:   "Arran Multimedia Studio"

rgchris

#!/usr/local/bin/ren-c

Rebol [Type: module]

tokenizer: make object! [
    use: func ['state [word!]][probe to tag! state]
]

tokenizer/use foo

rgchris

<states>
data: rcdata: rawtext: script-data: script-data: plaintext:
tag-open: end-tag-open: tag-name: rcdata-less-than-sign: rcdata-end-tag-name: rawtext-less-than-sign:
rawtext-end-tag-open: rawtext-end-tag-name: script-data-less-than-sign: script-data-end-tag-open: script-data-end-tag-name: script-data-escape-start:
script-data-escape-start-dash: script-data-escaped: script-data-double-escaped: script-data-escaped: script-data-escaped-dash: script-data-escaped-dash-dash:
script-data-escaped-less-than-sign: script-data-escaped-end-tag-open: script-data-escaped-end-tag-name: script-data-double-escape-start: script-data-double-escaped: script-data-double-escaped-dash:
script-data-double-escaped-dash-dash: script-data-double-escaped-less-than-sign: script-data-double-escape-end: before-attribute-name: attribute-name: after-attribute-name:
before-attribute-value: attribute-value-double-quoted: attribute-value-single-quoted: attribute-value-unquoted: character-reference-in-attribute-value: after-attribute-value-

rgchris

#!/usr/local/bin/ren-c

Rebol [
    Title: "HTTPd Example"
    Date: 7-Feb-2018
    Author: "Christopher Ross-Gill"
    File: %httpd-example.reb
    Rights: http://opensource.org/licenses/Apache-2.0
    Needs: [<httpd>]
]

rgchris

Rebol [
    Title: "Simple IMF Parser"
    Author: "Christopher Ross-Gill"
    Date: 11-Feb-2018
    Home: https://github.com/rgchris/Scripts
    File: %simf.reb
    Rights: http://opensource.org/licenses/Apache-2.0
    Type: module
    Name: rgchris.simf
    Exports: [load-message]

rgchris

Rebol [
    Title: "Parser"
    Author: "Christopher Ross-Gill"
    Date: 13-Feb-2018
    Home: https://github.com/rgchris/Scripts
    File: %parser.reb
    Version: 0.1.0
    Purpose: {Incremental Parser}
    Rights: http://opensource.org/licenses/Apache-2.0
    Type: module

rgchris

#!/usr/local/bin/rebol -qs parser.test.reb

Rebol [
    Title: "Parser"
    Author: "Christopher Ross-Gill"
    Date: 13-Feb-2018
    Home: https://github.com/rgchris/Scripts
    File: %parser.r
    Version: 0.1.0
    Purpose: {Incremental Parser}