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

World: r4wp

[Ann-Reply] Reply to Announce group

Kaj
19-Oct-2012
[831]
Please also test the Red/System examples. They're more extensive
Arnold
19-Oct-2012
[832]
Just noticed I have a folder (Red and within that there is a folder 
System)  :D
Kaj
19-Oct-2012
[833x2]
That's probably because you downloaded manually. If you check out 
with Fossil, that won't happen
I promise Fossil will work better for you than Git :-)
AdrianS
19-Oct-2012
[835]
Kaj, the fossil source browser that you linked to has a download 
option for the current version as an archive - for those who don't 
want to bother installing fossil - i.e. they don't need to install 
file by file
Arnold
19-Oct-2012
[836]
I believe you!
DocKimbel
19-Oct-2012
[837]
Henrik: error reproduced on a Windows XP SP3...it is strange because 
such function is supposed to be part of Windows since Windows 95: 
http://msdn.microsoft.com/en-us/library/239ffwa0(v=vs.80).aspx
Arnold
19-Oct-2012
[838]
Kaj, How do you want the results of the Red/System test back?
Kaj
19-Oct-2012
[839]
Yes, there are always download links in Fossil. But it's really not 
much harder to install it - easier if you need to update or keep 
the files in order
DocKimbel
19-Oct-2012
[840]
From http://msdn.microsoft.com/en-us/library/abx4dbyh(v=vs.80).aspx:


What is the difference between msvcrt.dll and msvcr80.dll?

The msvcrt.dll 
is now a 

known DLL," meaning that it is a system component owned and built 
by Windows. It is intended for future use only by system-level components."


Looks like another Windows oddity, so I guess XP users needs to install 
msvcr80.dll...testing that on my fresh new XP image.
Kaj
19-Oct-2012
[841]
Arnold, please try to give a description of what works and what doesn't. 
But only after installing the relevant libraries
Henrik
19-Oct-2012
[842]
DocKimbel, glad I could help. Consider that my first contribution 
to Red. :-)
DocKimbel
19-Oct-2012
[843]
Henrik: thanks! :-)
Arnold
19-Oct-2012
[844x4]
Fossil without problems?
Last login: Fri Oct 19 21:59:19 on ttys002

MacBook-van-Arnold-160:~ Arnold$ /Users/Arnold/Downloads/fossil ; 
exit;
dyld: unknown required load command 0x80000022
Trace/BPT trap
logout

[Proces voltooid]
I have to put it on my $PATH. Downloads is not in the $PATH Ooops!
That was not it :(
Kaj, Installing relevant libraries? So how do I get dyld: Library 
not loaded: /usr/lib/libgthread-2.0.dylib
for RedSystem/hello-GTK-world
Kaj
19-Oct-2012
[848x5]
As I told Henrik above, it's from GLib, included in GTK+ distributions
In most cases, the name of the binding tells you which library you 
need. Then find the official site, the official download for your 
system and see if you need any dependencies
Do you have OS X 10.5 yet?
Here's a workaround you could try:
http://asqueella.blogspot.nl/2010/12/dyld-unknown-required-load-command.html
Arnold
20-Oct-2012
[853]
10.6 upgrade is on its way to here.
MaxV
25-Oct-2012
[854x3]
Maybe is better the follwong one for wikibook:
Rebol [Purpose: {make wikibook entry}
Author: "Max Vessi"
version: 2.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 "^/"
            ]
        ]
    ]
    append temp "^/= Source code =^/"
    append temp  reduce ["<pre>" join word ": "]
    if not value? word [print "''undefined''" exit]
    either any [native? get word op? get word action? get word] [
        append temp reduce ["native" mold third get word]
    ] [append temp reduce  [ mold get word "</pre>"] ]
    editor temp
    ;write clipboard://  temp
    exit
]
OK, I uploaded the script, it's better... :-P
Gregg
25-Oct-2012
[857]
Thanks Max!
Ladislav
31-Oct-2012
[858]
Sorry for replying in Announce, does anybody know more about the 
ALIVE? variable?
MaxV
31-Oct-2012
[859]
>> source alive?
alive?: true
Ladislav
31-Oct-2012
[860x2]
>> source alive?
alive?: false


however, that does not matter. what matters is some *description*, 
the "ALIVE? is ... TRUE" sentence does not explain anything
E.g. the 'ON variable is just a "synonym" for #[true], exactly like 
the 'TRUE variable. However, that hardly is the case of the 'ALIVE? 
variable.
MaxV
31-Oct-2012
[862]
OK, I think that you are welcome to register, login and add the description 
you prefer. It's a wiki, not an hand made Bible. ;-)
Ladislav
31-Oct-2012
[863]
I cannot add it, I do not know it
Endo
31-Oct-2012
[864x2]
'alive? is in SDK, viewtop, connect.r file on line 33. it shows if 
the internet (or network) connection is available.
And used in viewtop's emailer.r and main.r file to show if there 
is connection or not.
Ladislav
31-Oct-2012
[866]
connect.r file? - I do not see such a file in the SDK
Arnold
31-Oct-2012
[867]
>>source dead?
dead?: not alive?

I think it means that if alive? is just true you do not need 'alive? 
Most of the time when you run your code it should state that it is 
alive? 

But it is not a value that is always true, like Endo's example for 
a connection status shows.
BrianH
31-Oct-2012
[868]
Ladislav, it's in the viewtop directory.
Ladislav
31-Oct-2012
[869]
Thanks, Endo, I updated the description.
Pekr
1-Nov-2012
[870]
as I can now see it, MSDOS is really pretty bad option for Red. It 
has really zero connection with MSDOS, surely it is normal windows 
probram, maybe just in console mode ...
Endo
5-Nov-2012
[871]
So, who do you think to suggest as "masters"? DocKimbel has time 
for it?
DocKimbel
5-Nov-2012
[872]
Nope. :-)
Endo
5-Nov-2012
[873x2]
Alright, I won't suggest you then :)
BrianH, Ladislav, Kaj?
DocKimbel
5-Nov-2012
[875x2]
I would be glad to apply, but I really don't have enough time for 
that, especially if it requires reviewing/testing others code.
However, I could help with bugfixing.
Endo
5-Nov-2012
[877x2]
That would be great. All the people in the community would do something 
more or less, I think.
Gabriele, Robert, Cyphere?
BrianH
5-Nov-2012
[879]
I'm up for it. The rest of those suggestions sound good to me too.
AdrianS
5-Nov-2012
[880]
I'd like to add my vote for Endo's suggestions, as well. Should these 
nominations not be done as emails to Carl, though?