World: r3wp

Gregg,  I do not want to criticize the REBOL object model but the 
lack of in-depth documentation leave me in the blindness.

I have no answer for you. My skill level is too low but I whish to 
increase it.

Now I have learnt that REBOL object are Prototype Based and I have 
read the Wikipedia article about this kind of object orientation. 
I know domething more.

Try to search using google: "rebol prototype based objects site:rebol.com"

You will find nothing apart "Core product information" and something 
on "Rebol/View" then only in the lower part of the page you will 
findd something in REBOL3 docs.

The transition from class-based OOP languages to non-class-based 
OOP is usually rough, because the makers of class-based OOP tend 
to teach that the only style of OOP is class-based, and that if there 
are no classes it's not OOP :(

It's even tougher in REBOL, which is not an OOP language at all.

REBOL has prototype-based objects, but that is not the primary programming 
model of REBOL.

BrianH you are right. Until your messages I didn't ever know another 
kind of OOP was possible.

There's also functional OOP, which you can sort-of do in R3 with 
closures :)

But believe me there is a deep gap between what the standard documentation 
teaches and what should be written there to fully understand not 
only objects but the full ideology behind REBOL.

Only asking to GURUS like you one can reach the level needed to have 
a upper gear in REBOL programming.

I have just added a STUB to R2 articles to write what I will discover 
about REBOL objects. The trip has just started.

Most of the inner schemes used in Rebol are hidden. Carl never talked 
a lot about them and never officialy

I think it's related to his choice to protect the sources

Giuseppe, I didn't mean to sound critical of you either. I just meant 
to pose it as a thought problem. Something fun to think about. e.g., 
in a world where you can send objects around, what does it mean if 
you can send a standalone object, versus one that needs a class to 
instantiate itself from? And what does that mean with regards to 
execution and untrusted code?

I just use this feature to spawn actors (which are rebol objects) 
at remote locations in my playing with actors system

call "C:\Program Files\Windows Media Player\wmplayer.exe"
This line does not work on Rebol2.76 ,but works well on Rebol3
Who can tell me why?

try call/show

call is broken in R2

It works. Thank you.,Graham

it's a problem since 2.7.6 ... when 'call was fixed ...

does somebody knows how to create a null-terminated string pointer 
for this api call?

winlib: load/library %user32.dll

SendMessage: make routine! [

    hWnd      [integer!]  "[in] Handle to the window whose window procedure 
    will receive the message."

    Msg       [integer!]  "[in] Specifies the message to be sent."

    wParam    [integer!]  "[in] Specifies additional message-specific 
    information."

    lParam    [integer!]  "[in] Specifies additional message-specific 
    information."

    return:   [integer!]  "The return value specifies the result of the 
    message processing; it depends on the message sent."
] winlib "SendMessageA"


the-char-result: make however the -> null-terminated string pointer 
???
creating a struct! doesn't work either.

char-len:  	SendMessage: hWnd WM_GETTEXTLENGTH 	0 		0

char-pointer:  	SendMessage: hWnd WM_GETTEXT		char-len  	the-char-result



WM_GETTEXTLENGTH is working fine but the WM_GETTEXT seems to need 
a pointer to a string.
any idea?

tom

did you see this http://www.rebol.org/ml-display-message.r?m=rmlNHMQ
?

yes but doesn't work with strings. thx graham. I have solved it by 
using another compiler, capable creating pointer etc.

TomBon... isn't "abc^(00)" a null terminated string? :-)

yes gabriele, this is of course the easier part but  where is the 
pointer? ;-)

hopefully R3 will address a better pointer, struct (nested)  etc. 
handling. being able to use the tons of C/C++ stuff outside will 
enrich professional development.

you need to use a struct to get the pointer, or define the routine 
as taking a string argument.

TomBon - unless someone writes enhanced DLL wrapper as a plug-in, 
there will be no such thing as struct!, routine! in R3. You better 
look into plug-in interface, where there is much more freedom to 
do wrapping, but otoh it requires greater skill to handle it (C IDE 
set-up, compiling, etc.)

wrt call on rebol 2.76... I've figured one way to solve some bugs... 
you use the /input/output refinements with bogus strings... the input 
string should be something like "^/^/^/^/^"  might not fix all problems, 
but it has for me on some occasions.

In Rebol 2.7.6 is it possible to set an escaped forward curly brace 
comparable to the ^} for escaping a closing curly brace?  In 2.7.7 
?  Or am I missing something.  I am trying for readability when my 
string tokens include both double-quotes and curly-braces and often 
span multiple lines.

^{ sounds like a good idea for 2.7.7.

^{ is already supported, it's just the console code that is buggy.

it looks like some issues remain in the R3 console ...

As far as I know the current R3 console is a  temporary version.

Is there anything wrong?  In my  Rebol2.76 for Windows
>> print read dns://www.rebol.com
205.134.252.23
>> print read dns://205.134.252.23
gs28.inmotionhosting.com

the 205.134.252.23 isn't the  correct address

I see the expected result in R2.7.6:
>> print read dns://www.rebol.com
205.134.252.23
>> print read dns://205.134.252.23
www.rebol.com

Maybe you have a firewall, proxy server, etc?

As you say, the ip address is correct.  but  I didn't use a firewall 
,nor  a proxy . I think  the problem  comes from my ISP

How can I get the windows version my app is running on....XP or Vista?

a windows call?

WuJian: The same result here >>print read dns://205.134.252.23 gs28.inmotionhosting.com. 
I think this is correct, is the server at hosting company

correct, an ip address can only have one PTR record, so for virtual 
hosting it's impossible for the reverse lookup to work.

I see, thank you all

amacleod:   Do you mean the download address?   
http://rebol.com/view-platforms.html
http://rebol.com/platforms.html

Alan, let me know if this works for you.

make-char-elements: func [name count /local result][
    result: copy []
    loop count [insert tail result reduce [:name [char!]]]
    result
]


OSVERSIONINFO: make struct! compose [
    OSVersionInfoSize [integer!]
    MajorVersion      [integer!]
    MinorVersion      [integer!]
    BuildNumber       [integer!]
    PlatformId        [integer!]
    (make-char-elements 'CSDVersion 128)
] none
OSVERSIONINFO/OSVersionInfoSize: length? third OSVERSIONINFO


;-- Requires NT 5.0 (NT4 SP6) or later
OSVERSIONINFOEX: make struct! compose [
    OSVersionInfoSize [integer!]
    MajorVersion      [integer!]
    MinorVersion      [integer!]
    BuildNumber       [integer!]
    PlatformId        [integer!]
    (make-char-elements 'CSDVersion 128)
    SvcPackMajor      [short]
    SvcPackMinor      [short]
    SuiteMask         [short]
    ProductType       [char!]
    Reserved          [char!]
] none
OSVERSIONINFOEX/OSVersionInfoSize: length? third OSVERSIONINFOEX


;---------------------------------------------------------------

lib: load/library %kernel32.dll

GetVersion: make routine! compose/deep [
    lpVerInfo [struct! [(OSVERSIONINFO)]]
    return: [integer!]
] lib "GetVersion"

GetVersionEx: make routine! compose/deep [
    lpVerInfo [struct! [(OSVERSIONINFOEX)]]
    return: [integer!]
] lib "GetVersionExA"


; load the OS version info data.
OSVI: OSVERSIONINFOEX
if 0 = GetVersionEx OSVI [
    OSVI: OSVERSIONINFO
    GetVersion OSVI
]

free lib

;---------------------------------------------------------------

get-CSDVersion: func [OSVer-struct [struct!]] [
    trim/tail to string! copy/part at third OSVer-struct 18 128
]

ExInfoAvailable?: equal? third OSVI third OSVERSIONINFOEX


OSPlatform: [
    0 Win32s    ; Win32s Win32s on Windows 3.1.
    1 Win32     ; Win32 on 95, 98, SE, or Me.
    2 WinNT     ; WinNT Win32 on Windows NT.
]

major-ver: OSVI/MajorVersion
minor-ver: OSVI/MinorVersion

major-ver?: func [val [integer!]] [major-ver = val]
minor-ver?: func [val [integer!]] [minor-ver = val]


PlatWin32s?: does ['Win32s = select OSPlatform OSVI/PlatformId]
PlatWin32?:  does ['Win32  = select OSPlatform OSVI/PlatformId]
PlatWinNT?:  does ['WinNT  = select OSPlatform OSVI/PlatformId]

Win95?: does [all [PlatWin32?  major-ver? 4  minor-ver? 0]]
Win98?: does [all [PlatWin32?  major-ver? 4  minor-ver? 10]]
WinMe?: does [all [PlatWin32?  major-ver? 4  minor-ver? 90]]

WinNT?: does [all [PlatWinNT?  major-ver <= 4]]
WinNT351?: does [all [PlatWinNT?  major-ver? 3  minor-ver? 51]]

Win2K?: does [all [PlatWinNT?  major-ver? 5  minor-ver? 0]]
WinXP?: does [all [PlatWinNT?  major-ver? 5  minor-ver? 1]]

WinServer2003?: does [all [PlatWinNT?  major-ver? 5  minor-ver? 2]]

WuJian, No I was looking for a way for my app to know what it is 
running on...Thanks though..

Gregg, That looks far more intricate than I need but I will definitly 
keep it in mind.

I used a simple method...

first i used system/version to see what version of rebol is running 
so I can see if its Windows , Mac or Linux.

2nd- If its Windows I use 'Call/output "ver" win_ver' to get the 
windows version. I parse out what I need from the output. I just 
need to know if its vista as it has some file structure differences 
that screw up my "install".

Thanks for hte help...

Here is the group for discussing R2 releases and plans.

What happended to the r2beta world?

please remove the .3 seconds delay on call/wait

We already have a list of priorities there.