r3wp [groups: 83 posts: 189283]
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

World: r3wp

[!REBOL2 Releases] Discuss 2.x releases

TomBon
6-Aug-2009
[443]
yes but doesn't work with strings. thx graham. I have solved it by 
using another compiler, capable creating pointer etc.
Gabriele
7-Aug-2009
[444]
TomBon... isn't "abc^(00)" a null terminated string? :-)
TomBon
7-Aug-2009
[445x2]
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.
Gabriele
8-Aug-2009
[447]
you need to use a struct to get the pointer, or define the routine 
as taking a string argument.
Pekr
8-Aug-2009
[448]
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.)
Maxim
8-Aug-2009
[449]
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.
RobertS
10-Aug-2009
[450]
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.
BrianH
10-Aug-2009
[451]
^{ sounds like a good idea for 2.7.7.
Gabriele
11-Aug-2009
[452]
^{ is already supported, it's just the console code that is buggy.
RobertS
14-Aug-2009
[453]
it looks like some issues remain in the R3 console ...
PeterWood
15-Aug-2009
[454]
As far as I know the current R3 console is a  temporary version.
WuJian
22-Aug-2009
[455]
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
Sunanda
22-Aug-2009
[456]
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?
WuJian
22-Aug-2009
[457]
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
amacleod
22-Aug-2009
[458]
How can I get the windows version my app is running on....XP or Vista?
Graham
22-Aug-2009
[459]
a windows call?
ManuM
23-Aug-2009
[460]
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
Gabriele
23-Aug-2009
[461]
correct, an ip address can only have one PTR record, so for virtual 
hosting it's impossible for the reverse lookup to work.
WuJian
23-Aug-2009
[462x2]
I see, thank you all
amacleod:   Do you mean the download address?   
http://rebol.com/view-platforms.html
http://rebol.com/platforms.html
Gregg
23-Aug-2009
[464x2]
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]]
amacleod
23-Aug-2009
[466x2]
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...
BrianH
28-Dec-2009
[468]
Here is the group for discussing R2 releases and plans.
Graham
28-Dec-2009
[469]
What happended to the r2beta world?
Will
28-Dec-2009
[470]
please remove the .3 seconds delay on call/wait
Graham
28-Dec-2009
[471]
We already have a list of priorities there.
BrianH
28-Dec-2009
[472]
Too closed. We can use the R3 development infrastructure for R2 releases. 
That means here, chat, CureCode.
Carl
28-Dec-2009
[473]
Ok, just a little background info/goals:
Graham
28-Dec-2009
[474]
we can pull the data in from there then.
Carl
28-Dec-2009
[475]
1. I would like to release this week.
2. BrianH will set the priorities.

3. I can post any code needed to fix problems. But, if you make a 
change, be sure to test it really well. I do not have the time to 
test.
4. We can release again next month, and each month after that.
Terry
28-Dec-2009
[476]
What do you mean by "remove the restrictions on the special features 
in View"
Carl
28-Dec-2009
[477]
Right now it requires a license key for special features.
BrianH
28-Dec-2009
[478]
That release schedule sounds good to me. That way we can triage and 
schedule changes.
Graham
28-Dec-2009
[479]
rebcmdview ?
Carl
28-Dec-2009
[480]
Last year we sold very few View/Pro licenses (maybe 2?)  People buy 
the SDK or Command.
Steeve
28-Dec-2009
[481]
SSL and other protocols will come from the SDK too ?
Graham
28-Dec-2009
[482]
Is there any difference between the free View now and Pro ??
Terry
28-Dec-2009
[483]
Without sounding too critical, it's taken this long to make what 
seems to be THE most important decision in the last 10 years? (IMO)
Carl
28-Dec-2009
[484x2]
G: no diff, just license key.
T: I agree. Sorry.
Graham
28-Dec-2009
[486]
Sorry, I thought you released all the pro features a while ago ...
Carl
28-Dec-2009
[487x2]
S: SSL, not sure about others.
G: did we?
Graham
28-Dec-2009
[489x2]
That was my impression ... sound ports, library calls
that was part of /Pro and is now free
Carl
28-Dec-2009
[491]
Good, then mainly SSL.
Graham
28-Dec-2009
[492]
The only significant thing you can do now is release SSL and OBDC 
free