World: r3wp

Example



PRINT  (global)

In the most recent Rebol/Core 2.6 (date)
First appeared in Rebol/Core 0.005 alpha (date)
[History]



Passed all 12 unit tests on [30 versions of rebol]. (See [unit tests])


---------------------------

PARSE  (global)

In the most recent Rebol/Core 2.6 (date)
First appeared ...
[History]



Passed all 34 unit tests on [14 versions of rebol]. (See [unit tests])

Ok, created a new Qtask Rebol SIG task, with many notes extracted 
from this discussion in its description. Sitll pretty messy, but 
it's a start.
http://www.qtask.com/details.cgi?project=198&id=38061

Having done that, I can't spend much time on it now ! :-(  But it's 
good to get some of these ideas written down, and a few things worked 
out.

It's been a while, since I last used Qtask. Do I need special permission 
to see that project?

I think you just need to login before you visit that url. Did you 
have trouble accessing it ?

(Or maybe a Lead such as Reichart needs to approve the task first 
? That might take some time...)

Yes, I don't have permission.

Reeeeiiiichart! It's Anton and John caaaalling! ;)

u don't?

I think you are on REBOL SIG.

Look at the regression tests implemented in Orca they already cover 
a lot of behaviour.

http://trac.geekisp.com/orca

They can serve as a base to implement the full unit test for Rebol, 
and save time.

If you download the src code the paths is user-path/orca/trunk/orca/tests/

Isn't there a regression test "suite" for Rebol programs? IIRC someone 
made something like this.

Or was it unit-testing...

I believe there is a Unit Test framework. But no rebol specific regression 
tests have been written. At least not publicly.

Geomol, are you able to login to Qtask still ?

Reichart has approved/released the task, so all I need to do is add 
interested people as watchers.

I see "John" in qtask and added him as a watcher. (I assume that's 
you Geomol). I can add anybody else in qtask who is interested as 
watchers too.

(Geomol, you will need to accept becoming a watcher first, then you 
should be able to see the page.)

Carl used to wax lyrically about the automated Rebol test suite that 
Jeff (Kreis) wrote when he was at RT. As far as I know it was never 
publicly available.

Anton, I have access to the project on Qtask now.

and yes, I'm John in Qtask.

Ah, very good.

>> foreach f read %synapse-chat/ [ ?? f either dir? f [ print [ "directory: 
" f ]][print ["file: " f] ]]
f: %April/
file:  April/
f: %Compkarori/
file:  Compkarori/

this has me somewhat confused.

Does still?

read returns pathless filenames.

but you can see that the trailing slash is preserved ...

it checks by os-call, not filename.

missing things count as as non-dirs too.

foreach f read %./ [ print [ "directory? " dir? f ]]

So, why does this work?

because it's in the current directory ?

yes. "dir? %synapse-chat/April/" would work too.

foreach f read dir: %synapse-chat/ [ ?? f either dir? dir/:f [ print 
[ "directory: " f ]][print ["file: " f] ]]

I guess the lesson is that you need to remember where you are when 
doing these things.

It's faster to check for final slash than to use DIR?, which, as 
Volker pointed out, makes an OS call.

Yeah, I moved to doing that.

This is from the REBOL command prompt under Mac OS X. Does REBOL 
behave the same under other OSs?
>> 31-12-16383
== 31-Dec-16383
>> 1-1-16384  
** Syntax Error: Invalid date -- 1-1-16384
** Near: (line 1) 1-1-16384
>> d: 1-1-0000
== 1-Jan-0000
>> d - 1
== 31-Dec-65535

Windows:

>> 31-12-16383
== 31-Dec-16383
>> 1-1-16384
** Syntax Error: Invalid date -- 1-1-16384
** Near: (line 1) 1-1-16384
>> d: 1-1-0000
== 1-Jan-0000
>> d - 1
== 31-Dec-65535

The Gregorian Reformation occured in September 1752. This is output 
from the UNIX 'cal' command:
$ cal 9 1752
   September 1752
 S  M Tu  W Th  F  S
       1  2 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

Notice the jump from 2. to 14. Sep.!

And then some REBOL:
>> d: 2-9-1752
== 2-Sep-1752
>> d + 1
== 3-Sep-1752


Seems like the reformation didn't occur in REBOL-land. Maybe that 
should be noticed in the wikibook, Henrik?

it probably should. could you put it in? I'm a little strained for 
time

Also there is no year 0. So this is not absolutely correct:
>> 1-1-0000
== 1-Jan-0000
The year before year 1 is year -1 (or 1 BC).

I'm wondering, how REBOL handle leap year...

strange that this year was picked, since the gregorian reformation 
didn't happen everywhere at once

yeah, this is from UNIX 'man cal':

The Gregorian Reformation is assumed to have occurred in 1752 on 
the 3rd

     of September.  By this time, most countries had recognized the reforma-

     tion (although a few did not recognize it until the early 1900's.)

So most countries did.

but would it be good/bad for rebol to support it? what if you are 
calculating astronomical data or similar

It seems, REBOL handle leap years correctly. The rule is, that every 
4. year is a leap year. Every 100 year isn't a leap year though, 
unless it's divided by 400. So 2000 was a leap year, 1900 wasn't, 
but 1600 was. And so on.

Henrik, good question!

Also, REBOL does not support negative years at all