Get Object

get-object.reb

#!/usr/local/bin/rebol -cs

Rebol [
    Title: "Get Object"
    Author: "Christopher Ross-Gill"
]

do %httpd.r
do %altjson.r

bulbs: [
    [one][two][three][four]
]

open/custom httpd://:8080 [
    path: parse/all next any [request/target "/"] "/"

    response/type: "application/json"
    response/content: to-json switch/default take path [
        "lights" [
            switch/default take path [
                "3" [bulbs/3]
                "4" [bulbs/4]
                #[none] [bulbs]
            ][
                ["Not Found"]
            ]
        ]
    ][
        ["Not Found"]
    ]
]

browse http://127.0.0.1:8080/lights/4
wait []