World: r3wp

what do you want to do?

do [ d: 5 ]

>> d
== 5

>> word: "d"
== "d"
>> integer: 5
== 5
>> set to-set-word word integer
== 5
>> d
== 5

Or did you mean something more like...

foreach [word integer] [a 1 b 2 c 3] [
    print ["Word: " to string! word newline "Integer: " integer]
]

I'm getting a confusing error about using paths on a logic! object 
when trying to use the methods of a created object. I figure I'm 
missing something obvious, but I can't figure out what it is:

test-result: make object! [
    run-count: 0
    error-count: 0

    test-started: does [
        run-count: run-count + 1
    ]

    test-failed: does [
        error-count: error-count + 1
    ]

    summary: does [
        return join  run-count [ " run, " error-count " failed" ]
    ]
]


; ...


            ed: make test-result [ ]
            ed/test-started
            ed/test-failed
            assert [ ed/summary == "1 run, 1 failed" ]

; output of code:

[[wisti-:-us1-dhcp-227-65] xUnit]$ rebol xunit.r
** Script Error: Cannot use path on logic! value
** Where: test-failed-result-formatting
** Near: ed/test-started
ed/test-failed
assert [ed/summary == "1 run, 1 failed"]

The code is just me working my way through the book "Test-Driven 
Development" by Kent Beck. I like applying educational exercises 
to new languages as I find them :-)

Where is 'ed defined?

ed: make test-result [ ]

beginning of the second block

Ah, so it is. ;~>

Hm...  I end up with...

** Script Error: assert has no value
** Near: assert [ed/summary == "1 run, 1 failed"]

So 'ed must be defined somewhere else as well?  Have you tried using 
another word?

Let me make the whole script available. I was hoping it was a very 
simple logic error in those lines.

http://coolnamehere.com/rebol/xunit.r

The "probe result" line at the end is usually "print probe disarm 
result", but I set it back while trying to poke at this issue.

Ahah!

aha? Yes, yes?

A favorite subject of mine. ;-)

heh.

in 'test-case-test, you are redefining 'test-result as a function, 
not globaly so you aren't actually changing the definition but adding 
a new one to the current context.

oh jeez. Thanks :-)

so when you 'make 'test-result you are making a function not the 
object that you thought that you were making...

Is there a flag I can set to warn when something is being redefined?

I changed function 'test-result to function 'test-result-summary 
and everything is golden again.

You can keep your current set up with the redefined 'test-result 
but you will need to run 'compose on the spec block being passed 
to 'test-case-test and enclose 'test-result in a paren

Not for something like this, particularly since you aren't actually 
redefining anything! ;~>

You're creating a NEW definition in a NEW context.

so ...

test-case-test: make test-case compose([ ... ])

Did I understand that correctly?

almost

'compose evaluates any parens in the block passed to it.  If you 
are passing 'compose a block containing blocks that contain values 
you would like composed then you need to use the /deep refinement 
of compose

ow.

; (i.e. 
test-case-test: make test-case compose/deep [
    ...
    test-result-formating: func [/local ed][
        ed: make (test-result)
        ...
    ]
]

I think I'll avoid 'compose for now, and leave it for when I'm done 
with the basic stuff in the test book.

but that's good to know, thanks again.

Np, you're welcome!

obj-spec: func [
    "Returns the object spec as a single line (flat) string."
    obj [object!]
    /only "no surrounding brackets"
    /mold "Multi-line MOLDed format"
    /local res
][
    res: copy find/tail system/words/mold obj "make object! "
    if not mold [trim/lines res]
    if only [res: trim/auto next head remove back tail next res]
    res
]

remove-words: func [

    "Returns a copy of the object with the specified words removed."
    object [object!]
    words  [word! block!] "The word, or words, to remove"
    /local spec
][
    spec: load obj-spec object
    foreach word compose [(words)] [
        remove/part find spec to set-word! word 2
    ]
    make object! spec
]

how to count difference time
 x:  now/precise
== 15-Mar-2005/11:01:58.139+1:00
 y: now/precise
== 15-Mar-2005/11:02:38.733+1:00

x - y  =

help difference

subtract

difference now/precise now/precise

block: [ "a:" "string1" "b:" "string2"    ]

Fremowe: func [x y][return remove remove find x  y ]

Fremowe block "a:"

not remove a ?

what this function does not act ?

1) You don't have to use return word ...., function does return the 
last point of its evaluation

and besides that, it works here ...

He guys, I need you !!!

ping?

I want to get in a Rebol script what I print on a standard windows 
printer.

I use Redmon (part of ghostview) to redirect what the printer get 
to my rebol script
RedMon : http://www.cs.wisc.edu/~ghost/redmon/index.htm
I'm under Windows.

How can I get data from the standard input ?

I have tried "copy system/standard/input" and also "input", but get 
nothing !!
plis help ;-)