Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: Improved SOURCE function

From: carl:cybercraft at: 6-May-2001 17:59

On 06-May-01, Blaz Segavac wrote:
> Hello Larry > On 06-May-01, Larry Palmiter wrote: >> Hi all, >> I got tired of the SOURCE function not working for items inside >> objects, so I wrote an improved version SRC which will do so. When >> the argument is not a path, it simply calls SOURCE. I stole the >> hard part of the code from Doc Kimbel's most excellent extended >> help function which is also an object browser. Doc may be >> interested in adding a refinement (like help/s arg) which would >> cause it to display the source for items in objects. Meanwhile you >> can use my function. If you like it, just invoke the script below >> in your user.r script. >> Here are some examples: >>>> src rebol/view/vid/track >> track: func [blk][if verbose [print blk]] >> >>>> src rebol/view/vid/verbose >> verbose: false >> >>>> src ctx-viewtop/dbug >> dbug: func [msg [block! any-string!] /local dbg][ >> if not dbg: user-prefs/debug [exit] >> msg: head insert remold msg "desktop " >> either file? dbg [write/append dbg msg] [print msg] >> ] >> >>>> src cosine >> cosine: native [ >> "Returns the trigonometric cosine in degrees." >> value [number!] >> /radians "Value is specified in radians." >> ] >>>> >> > I grabbed the src.r script, put it in my rebol directory, and ran > src.r, with the following result... >>> system/version > == >>> src system > <no further output> > I presume 'src should put out an error message of some sort or does > it actually try to display what source it can find within 'system?
I wouldn't blame Larry's code for the "no further output". As he says above, if you don't give it a path it defaults to 'source, and source system will probably give you the same result. I eventually just get a not-enough-memory error. (Though that's one REBOL error I agree with in my computer's case, but it's probably not the case with yours.) -- Carl Read [carl--cybercraft--co--nz]