World: r4wp

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

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)

I've updated the above test binaries for the Red 0.3.0 alpha 1 release. 
Please test

MaxV: I see you wrote: "ALIVE? is a logic of value: true" - I think 
that this needs a more thorough explanation, though.

>> source alive?
alive?: true

Is there anything else about ALIVE? ?

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

I've updated the test binaries for Red/System fix #279, fixing GTK 
window icon loading

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

License announced: http://www.rebol.com/article/0517.html
It is Apache 2.0

email suggestions on directors to [open-:-rebol-:-com]

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"

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!

Hmm, as I see it, you described R2. Now the question is whether it 
makes sense to add R3 description, eventually how.

Max did you start from R2's on-line dictionary?

it has a lot more than just the function's prototype and source.

it includes related,  examples and some usage text.

I made this: http://prezi.com/xyuhedfy0wmu/rebol/

what do you think?

It's public and you can copy and modify it

Excellent Max - well done - that is a really cool demo for beginners 
or those curious

After the mirror game and the chessboard interface, the Red compiler 
script and various cgi scripts and showing all how radio buttons 
work in VID, I can now introduce to you the application to play checkers 
(10x10 international, in dutch dammen). Not bad for a REBOL newbie 
right? Wait a moment with all of your nominations please, because:

There is a tiny issue left with the moving of the pieces when playing 
against the computer but it is minor compared to all other issues 
I have already fixed ;-)


You can download the zip file with the program here http://arnoldvanhofwegen.com/stuff/damscripts.zip

Program is started with do %damb.r and you can play after setting 
the color the computer has to play with on the panel you get when 
you click the top-left button. You can look under the hood and see 
the values the program gives the legal moves. You can put your own 
positions on the board and continue from that point.
Enjoy!

The minor issue is fixed, your nominations are welcome ;D

http://www.rebol.org/view-script.r?script=nistclock.r

https://groups.google.com/forum/?fromgroups=#!topic/Rebol/3-HC7YyJajs

Thanks Ladislav - I use that script!

I updated my Fossil introduction for Syllable 0.6.7 and modified 
the example to be specifically for the Red test binaries, so it can 
now be used as a guide for getting the Red test programs:

http://rebol.esperconsultancy.nl/documentation/how-to-use-Fossil.html

MaxV, the Prezi way of presentation is cool indeed. Only problem 
for me to use it is that you need to be online when viewing. Been 
hoping this woul dbe possible using REBOL itself. Btw can you point 
me to the code of the example with the moving road?

Look here: http://www.rebol.net/demos/download.html

and here: http://www.rebol.net/demos/7B191CB087929081/christmas-drive2.0.1.r

Please use Ann-Reply to chat. Thanks

My game, Stunt Ace, has been released to iOS (iPhone, which also 
works on iPad).


Stunt Ace is a retro type game. REBOL was used in the development 
process to make a prototype and for the level editor. I also used 
the REBOL DRAW dialect to create the logo, icon and presentation 
graphics.


Stunt Ace can be found on Apple's App Store. The Android version 
can be found on Google Play.

Homepage: http://niclasen.name/stuntace.html

Stunt Ace was made using:
- Deluxe Paint on an Amiga
- GIMP
- Waldorf Pulse analogue synthesizer
- TimewARP 2600 analogue soft synth
- Roland A-90 keyboard
- A Mac
- A PC
- REBOL
- In-house software

Have fun!

Congrats John!  Is World part of your development process for iOs?

I've uploaded new script:

https://github.com/Oldes/rs/blob/master/projects-rswf/pack-assets/latest/pack-assets.r
which I'm using with this one:

https://github.com/Oldes/rs/blob/master/projects-rswf/form-timeline/latest/form-timeline.r

to pack assets (bitmaps and animations) for prototype of Adobe AIR 
framework I'm working on which can be seen here:

https://github.com/Oldes/Starling-timeline-example(as a Flashdevelop 
project)

ech.. f..ing altme links..
I've uploaded new script:

https://github.com/Oldes/rs/blob/master/projects-rswf/pack-assets/latest/pack-assets.r

which I'm using with this one:

https://github.com/Oldes/rs/blob/master/projects-rswf/form-timeline/latest/form-timeline.r


to pack assets (bitmaps and animations) for prototype of Adobe AIR 
framework I'm working on which can be seen here:

https://github.com/Oldes/Starling-timeline-example(as a Flashdevelop 
project)

Today I have put version 1.0.0 of the 10x10 checkers (damspel) out. 
The script on rebol.org points to the download location on my website 
(because it is a package of scripts more than a single script)
You can find it on http://arnoldvanhofwegen.com/stuff/damgame.zip

I'm offering another matching funds drive to help keep Doc working 
on Red.  I'll match funds donated to him by December 25, 2012, up 
to a total of $1000.  If you're interested in Red, please help Doc 
focus his efforts on the project.

I released a camera app for iPhone today.


The DRAW dialect of REBOL was used for all interface graphics. Also 
the presentation graphics was made using DRAW (except the actual 
photos, which were taken using the app). See:
http://niclasen.name/gcam.html


I like the results of the iPhone 4S and iPhone 5 smartphone images. 
It's hard to see, they're made with DRAW and not just photos.


GCam is waiting for review at Apple and will be available on the 
App Store typically within a week from now.

From Carl:

made good progress over the holiday, powered by turkey sandwiches 
from France.


Prep of C source nearly done. See, not just a dump and run. Sure, 
a few problems came up, but I'm not going to hold up the release 
for them. You can decide.


Grabbed latest git source and built it for this dev box (which did 
not support 1.8 version as bin.)


Once released, I've got a number of notes to write up. Like how to 
quickly port R3. Takes about 5 mins if you know what you're doing. 
Got it up on ARM & MIPS Linux.


Also, I have some goals in mind. Android and iphone, that kind of 
thing. Getting graphics and sound back up. GUI and tinyGUI. A micro-R3 
for smallish embedded systems.

There's a lot you can help with. Delegation, right?

Cool.    See the source...

Created a new project at http://github.com/SteeveGit/R3-CODE-EDITOR

For now, only the vertical scrolling is worth testing (still random 
crashes).
For windows users with the saphirion's R3 version found at
http://www.saphirion.com/development/downloads-2/
(pick the first .zip)

Today I updated my Red compiler script on rebol.org. The script now 
can now also compile Red scripts, not just Red/System scripts.

You can find the new script here http://www.rebol.org/view-script.r?script=redcompiler.r

Gregg Irwin has rewritten the redcompiler.r script on rebol.org and 
I now added a help screen, a check for a red.r compilerscript in 
the selected directory, support for Red source only compilation, 
the option --red-only Doc recently added. 

You can still find the new script here http://www.rebol.org/view-script.r?script=redcompiler.r

I've updated the Red(/System) test binaries. Instructions are in 
my recent Syllable article:

http://web.syllable.org/news/2012-11-18-20-47-Red-high-level-programming-language-first-alpha.html

If you want to help ensure the quality of the upcoming Red 0.3.1 
release, please test the example programs

A kind reminder to subscribe to the Red mailing list at https://groups.google.com/forum/?hl=en&fromgroups#!forum/red-lang
is you haven't done so already.

Here's a 6502 CPU emulator written in Red/System: