World: r3wp

>> ?? mod
mod: func [
    "Compute a nonnegative remainder of A divided by B."
    [catch]
    a [number! money! time!]
    b [number! money! time!] "Must be nonzero."
    /local r
][
    all [negative? r: a // b r: r + b]
    a: abs a
    either all [a + r = (a + b) positive? r + r - b] [r - b] [r]
]
>> ?? modulo
modulo: func [

    {Wrapper for MOD that handles errors like REMAINDER. Negligible
^-^-values (compared to A and B) are rounded to zero.}
    [catch]
    a [number! money! time!]
    b [number! money! time!] "Absolute value will be used"
    /local r
][
    throw-on-error [
        any [number? a b: make a b]
        r: mod a abs b
        either any [a - r = a r + b = b] [make r 0] [r]
    ]
]

? //
USAGE:
    value1 // value2

DESCRIPTION:
     Returns the remainder of first value divided by second.
     // is an op value.

ARGUMENTS:
     value1 -- (Type: number pair char money time tuple)
     value2 -- (Type: number pair char money time tuple)

so:
-10 // -3 == -1

the // is same like the mod(a, n) = a - n * floor(a / n) (from the 
Wiki page above)

Ladislav spent a lot of time, and much discussion was had, on those 
functions.

Yeah, I've grown to like the REBOL definitions since yesterday.  
:)

To Oldes, any way to create general event (not gui) port? And create 
on demand events (fire and receive). Can such a port be global accesible 
to independent rebol processes? Can some scheme solve this?

Must this be a TCP port?

Or can it be memory to memory somehow?

I don't think it can be memory to memory between independent processes.

Maybe the system port could be used, but I'm not sure.

the easiest way is via TCP or a file, I think

TCP should be functional, but for the curious guy How to put valid 
event into system port (not to mesh with other system events) and 
how to wait for it?

Is it possible to build own class of events in system port? To easy 
ignore other plenty of events.

I never used system port so I don't know

insert-event-func  ??

But, R2 doesn't allow event insertion though, only monitoring.

afaik

Does anybody built an event marshaller (in Amiga words broker) for 
interprocess comuncation? Any coments welcome.

IIRC I posted this topic once but there was no real good solution 
to it. I often face the following problem:


My app performs a bunch of calculations based on user input. Now, 
if a user hacks in extremly big numbers, the app crashes because 
of "math overflow".


The hard part is that it's mostly impossible to predict at which 
calculation step this will happen. Making code "division by zero" 
proof is not problem, but how do I make my code "math overflow" proof?

Trapping the error is not good enough?

Pavel, I've done various things for IPC. There is no standard REBOL 
solution I know of though. How best to do it depends on the rest 
of your app, it's design, and what you mean by "event marshaller". 
Simple TCP has worked well for me in the past.

I'm still hoping for ARexx type support built in to REBOL.

Graham, well how do you trap the error if you have hundreds of calculations? 
Just on the global level? That's what I do. But overall the app than 
fails.

To be really save, one has to check for overflow for every single 
operation.

What about having a central calculation engine in the app, and passing 
everything through that?

How does this help? You still have to check for an overflow either 
while doing every single operation or upfront.

Example: We have this simple formular:

result: (a * b) + (c * d)

There are three points of failure:
1. a * b overflows
2. c * d overflows
3. (a * b) + (c * d) overflows


And if you need to give feedback to the user you have to check every 
single operation.

I'd suggest something like this:

-- calculations are done in a special function that is passed a string, 
eg
   ans: calc "(a * b) + (c + d)"
-- the 'calc DOes the string, protected by an 'attempt
-- if it succeeds, it passes back the result

-- if not, it throws an error report. If necessary, you can parse 
the original string and try each part of the calculation to find 
the first failure....Recursively via 'calc to drill down nested parentheses 
of course.

**

Two obvious drawbacks to this suggestion:

1. all variables need to be global -- unless you do a lot of other 
work

2. beware side effects of malformed calc strings. You would not like 
it to be "delete/any *.*"

Maybe you can use an expression dialect to do the calculation.

If you want to provide exact details, you're going to have to do 
some analysis and processing yourself.

>> read http://store.apple.com

connecting to: store.apple.com
connecting to: store.apple.com

** User Error: Error.  Target url: http://store.apple.com/1-800-MY-APPLE/WebObjects/AppleStore
could not be retrieved.  Server response...
** Near: read http://store.apple.com

That's not a particularly useful error?

Nice thread contrasting LISP and REBOL:

http://coding.derkeiler.com/Archive/Lisp/comp.lang.lisp/2008-02/msg00756.html

Would be cool to reduce that argument (debate) to a table (like Gregg 
did for Python).  If someone does that part, I will update the Qwiki...

Would love to have a collection of REBOL vs EVERYTHING

Henrik, btw, R3 can read that URL.

I can read it from R2 as well

And one can always use  trace/net on  to see, where is a problem

must have been while the store was down. some one came up with a 
bash script to check when it would come up again, and thought it 
would be easy to do in rebol, but no. :-/

but maybe it's because I'm using my own version of http scheme

works in standard R2 right now

when the store is down, the replace the page with a message. it's 
not like the site goes entirely down.

they replace

ah... you have to use modified scheme for that if the site is responding 
something with error message.

interesting. would it be qualified for 2.7.6?

or you can use this:

if error? set/any 'err try [read http://store.apple.com][  err: disarm 
err probe err/arg1]

the server response is truncated only in console... I've just tested 
it with a very long invalid local url.

and someone should fix the altme to display correctly urls... is 
it just me who don't like it? Such a visible thing:/

yes, I don't like it either...

and it's such a simple fix.. it just needs to enhance the width of 
the face which is used to measure the width of the text.... I bet 
it's just a one byte fix.

let's bring it to the 2.7.6 group and point it out there.