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

World: r4wp

[Ann-Reply] Reply to Announce group

AdrianS
19-Oct-2012
[809]
In process explorer, I see the process start, then exit
Kaj
19-Oct-2012
[810]
I would expect errors, as Henrik got
AdrianS
19-Oct-2012
[811]
I don't have the required libs at this point so I'm expecting failure
Kaj
19-Oct-2012
[812]
Do you execute them from the prompt?
AdrianS
19-Oct-2012
[813]
yes
Kaj
19-Oct-2012
[814]
Odd. In any case, those two need libraries, so you would have to 
install those first
AdrianS
19-Oct-2012
[815]
was executing them from a console wrapping cmd.exe - there is a popup 
when executing directly
Henrik
19-Oct-2012
[816]
---------------------------
PeterPaint-SDL.exe - Unable To Locate Component
---------------------------

This application has failed to start because SDL.DLL was not found. 
Re-installing the application may fix this problem. 
---------------------------
OK   
---------------------------
Kaj
19-Oct-2012
[817]
Yes, please install SDL
DocKimbel
19-Oct-2012
[818]
AdrianS: since Vista, Windows is hiding some runtime errors from 
console, you can check in "Event Viewer" if you think a crash occured.
Kaj
19-Oct-2012
[819]
Sigh
DocKimbel
19-Oct-2012
[820]
Henrik: I'm installing an XP SP3 image to try to reproduce your issue.
Henrik
19-Oct-2012
[821]
ok, I'll stop posting errors now :-)
Kaj
19-Oct-2012
[822]
Please do if they're not about libraries you don't have :-)
Henrik
19-Oct-2012
[823x2]
I don't think I have any other types of errors.
Tested all examples now, only library missing errors.
Kaj
19-Oct-2012
[825]
Yes, that would be the first error. You can only really test it once 
the libraries are installed
AdrianS
19-Oct-2012
[826]
the regular windows console doesn't block the output, so false alarm
Arnold
19-Oct-2012
[827]
Kaj how is the progress in testing on all platforms?
Kaj
19-Oct-2012
[828]
You tell me :-)
Arnold
19-Oct-2012
[829x2]
I ran just the three Red Samples on my Mac, that was enough?
What I saw, I liked.
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?