• Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

World: r4wp

[Announce] Announcements only - use Ann-reply to chat

Kaj
10-Oct-2012
[124x6]
The locations of the repositories on the web are unchanged. I need 
the Red- prefixes there to make the repository names unique in the 
Fossil server
So the following Fossil repository:
http://red.esperconsultancy.nl/Red-common
needs to be checked out in the subdirectory "common" for other bindings 
to find it. I use a parent directory Red:
Red/common/
The Red directory may be named differently, but the other bindings 
should also be checked out in it, in subdirectories corresponding 
to their names
NickA
11-Oct-2012
[130x2]
The guys at Etsy added Chris's library and my tutorial to their developer 
pages.  https://www.etsy.com/developers/documentation/resources/developer_resources
 I really think there's a marketing opportunity for REBOL, doing 
these sorts of tutorials for other web APIs
REBOL publishing libraries and tutorials like this for other popular 
web APIs.  Get a bunch of big web sites linking to REBOL sites, and 
their developer communities all taking a look at REBOL, and there 
will be curiosity and added traffic.
MaxV
11-Oct-2012
[132]
Published the new R3D library with guide and demo video: http://rebol2.blogspot.it/2012/10/r3d.html
, you'll find the same guide on www.rebol.org
Kaj
11-Oct-2012
[133x7]
I fixed support for push/pull connections in the ZeroMQ bindings 
for R2, R3 and Red/System:
http://rebol.esperconsultancy.nl/extensions/0MQ/
http://syllable.cvs.sourceforge.net/viewvc/syllable/syllable/system/apps/utils/Builder/packages/ZeroMQ-Binding--current/
http://rebol.esperconsultancy.nl/REBOL-2-ZeroMQ-binding
http://red.esperconsultancy.nl/Red-ZeroMQ-binding
Also did some maintenance on the R2 binding. Simplified the send/receive 
interface and added the ventilator source/workers/sync example for 
parallel computing from the 0MQ guide
That's source/workers/sink
Kaj
15-Oct-2012
[140x4]
I've started using a Fossil repository to sync and archive test binaries. 
In case anyone wants to run them:
http://red.esperconsultancy.nl/Red-test
This is Red development stuff, so at any moment in time they may 
be broken
Currently most of them work
MaxV
17-Oct-2012
[144x2]
I just update the http://www.rebol.org/view-script.r?script=advanced-r3d.r
   R3D demo, may you test the models on your PCs and give me a feedback 
if it's all good? With off models I turned off backface culling and 
it can be hard for some pc... maybe...
just push "load OFF file" and test the models
Kaj
18-Oct-2012
[146x3]
I've added a build script to the above testing repository, to build 
all my Red examples in one go
I've added executables for all six current Red target platforms: 
Syllable, Linux, Linux-ARM, Android, Darwin (OS X) and MSDOS (Windows)
I need volunteers to test these examples on their platforms
Kaj
19-Oct-2012
[149x6]
For testing some of the bindings, here is information where to get 
the C, cURL and 0MQ libraries:
http://rebol.esperconsultancy.nl
For checking out the complete repository and simply keeping them 
up to date for new test versions:
http://rebol.esperconsultancy.nl/documentation/how-to-use-Fossil.html
I've updated the binaries for the latest Red fixes
To get a clue which binding/library an example program uses, look 
in build.r
MaxV
25-Oct-2012
[155x5]
http://en.wikibooks.org/wiki/REBOL_Programmingnow it's a good guide 
on Rebol: what do you think?
I have to finish to add all "reserved" words description. You may 
help me if you want... ;-)
You can use the following code to make word description entry in 
the wikibook:
Rebol [Purpose: {make wikibook entry}
Author: "Max Vessi"
version: 1.0.0
]
my?: func [
    "Prints information about words and values."
    'word [any-type!]

    /local value args item type-name refmode types attrs rtype temp
][       
    temp:  copy ""
    if all [word? :word not value? :word] [word: mold :word]

    if any [string? :word all [word? :word datatype? get :word]] [
        types: dump-obj/match system/words :word
        sort types
        if not empty? types [
            print ["Found these words:" newline types]
            exit
        ]
        print ["No information on" word "(word has no value)"]
        exit
    ]
    type-name: func [value] [
        value: mold type? :value
        clear back tail value
        join either find "aeiou" first value ["an "] ["a "] value
    ]
    if not any [word? :word path? :word] [
        append temp reduce [mold :word "is" type-name :word]
        exit
    ]

    value: either path? :word [first reduce reduce [word]] [get :word]
    if not any-function? :value [

        append temp reduce [uppercase mold word "is" type-name :value "of 
        value: "]

        append temp either object? value [ reduce ["^/" dump-obj value] ] 
        [mold :value]
        exit
    ]
    args: third :value
    append temp  "= USAGE: = ^/ "

    if not op? :value [append temp reduce [ uppercase mold word " "] 
    ]
    while [not tail? args] [
        item: first args
        if :item = /local [break]

        if any [all [any-word? :item not set-word? :item] refinement? :item] 
        [
            append temp reduce [append mold :item " "]

            if op? :value [append temp reduce [append uppercase mold word " "]
	    value: none]
        ]
        args: next args
    ]
    append temp  "^/" 
    args: head args
    value: get word
    append temp "^/= DESCRIPTION: = ^/"
    either string? pick args 1 [
        append temp reduce [first args]
        args: next args
    ] [
        append temp "^/''(undocumented)''^/"
    ]

    append temp reduce [ "^/^/"uppercase mold word " is " type-name :value 
    " value."]
    if block? pick args 1 [
        attrs: first args
        args: next args
    ]
    if tail? args [exit]
    while [not tail? args] [
        item: first args
        args: next args
        if :item = /local [break]
        either not refinement? :item [

            all [set-word? :item :item = to-set-word 'return block? first args 
            rtype: first args]
            if none? refmode [
		append temp "^/= ARGUMENTS: =^/"
                refmode: 'args
            ]
        ] [
            if refmode <> 'refs [
                append temp "^/= REFINEMENTS: =^/"
                refmode: 'refs
            ]
        ]
        either refinement? :item [	   	  
            append temp reduce ["*'''" mold item "'''"]

            if string? pick args 1 [append temp reduce [" -- " first args] 
	    args: next args]
            append temp "^/"
        ] [
            if all [any-word? :item not set-word? :item] [
                if refmode = 'refs [append temp "*"]
                append temp reduce ["*'''" :item "''' -- "]

                types: if block? pick args 1 [args: next args first back args]

                if string? pick args 1 [append temp reduce [first args ""] 
		args: next args]
                if not types [types: 'any]
                append temp rejoin [" (Type: " types ")"]
                append temp "^/"
            ]
        ]
    ]
    if rtype [append temp reduce ["^/RETURNS:^/^-" rtype]]
    if attrs [
        append temp "^/= (SPECIAL ATTRIBUTES) =^/"
        while [not tail? attrs] [
            value: first attrs
            attrs: next attrs
            if any-word? value [
                append temp reduce  ["*'''" value "'''"]
                if string? pick attrs 1 [
                    append temp reduce [" -- " first attrs]
                    attrs: next attrs
                ]
                append temp "^/"
            ]
        ]
    ]
    editor temp
    exit
]
Usage, for example:
my?  view
Arnold
25-Oct-2012
[160]
I have put a script similar to the chess script on rebol org. It 
is a script to determine all possible moves in the international 
10x10 checkers game (dammen). It needs some improvement in how to 
represent the moves themselves, but the basics work. I'll post a 
board and simple board evaluating script soon. 
http://www.rebol.org/view-script.r?script=dam1.r

(I need also to find out how exactly to make a package from all needed 
files)
Kaj
29-Oct-2012
[161]
I've updated the above test binaries for the Red 0.3.0 alpha 1 release. 
Please test
Ladislav
30-Oct-2012
[162]
MaxV: I see you wrote: "ALIVE? is a logic of value: true" - I think 
that this needs a more thorough explanation, though.
MaxV
31-Oct-2012
[163x2]
>> source alive?
alive?: true
Is there anything else about ALIVE? ?
Kaj
31-Oct-2012
[165x2]
I've added Windows binaries for most dependency libraries to the 
above Red test program collection: cURL, SQLite, 0MQ, SDL and GTK 
and dependencies. With that, it becomes very easy to test them on 
Windows
I'm particularly interested in results for MSDOS/RedSystem/read-web-page 
and play-SDL-WAV. I haven't been able to use cURL to read a web page 
yet, and playing sample.wav appears in the Windows 7 mixer, but I 
haven't had audible sound yet
Kaj
2-Nov-2012
[167]
I've updated the test binaries for Red/System fix #279, fixing GTK 
window icon loading
Kaj
4-Nov-2012
[168]
I've cleaned up the Red bindings for the #enum passing bug that was 
fixed in Red/System 0.3.0. Most of the bindings need Red 0.3.0 now
GiuseppeC
5-Nov-2012
[169]
License announced: http://www.rebol.com/article/0517.html
It is Apache 2.0
GrahamC
5-Nov-2012
[170]
email suggestions on directors to [open-:-rebol-:-com]
Ladislav
6-Nov-2012
[171]
Reposting Carl Read's: "For those wanting an email list again, note 
there's already one on Google Groups: groups.google.com/forum/?fromgroups#!forum/rebol"
MaxV
7-Nov-2012
[172]
I just finished the full Rebol disctionary on: http://en.wikibooks.org/wiki/REBOL_Programming/Dictionary
there you can find also the source of the functions. 

It's a public wiki, you can add examples, correct bugs, add topics: 
you are welcome!
Ladislav
7-Nov-2012
[173]
Hmm, as I see it, you described R2. Now the question is whether it 
makes sense to add R3 description, eventually how.