AltME groups: search

Date: Sun, 23 Jan 2005 17:03:16 +0100
From: Bryan Rasmussen <[bry-:-itnisk-:-com]>
Reply-To: [rebolist-:-rebol-:-com]
To: [rebolist-:-rebol-:-com]
Subject: [REBOL] Intro to Rebol article for DevX



Hi, i've been asked to write an intro to rebol article for devX, 
a task for

which there are any number of people better suited and for which 
i wouldn't have

the time anyway. So if anyone is interested in writing this i can 
direct the

devx editors to you as i still follow this list well enough to know 
who knows,
even if i hardly ever use the language anymore. 


-- 
Bryan Rasmussen

oh well... I must have not been keeping up to date.

following discussion from ann-reply :
Pekr: 

>> do http://www.rebol.org/cgi-bin/cgiwrap/rebol/download-a-script.r?script-name=glayout-demo.r
connecting to: www.rebol.org
Script: "GLayout demo" (31-Oct-2006)
Script: "SLiM - STEEL | Library Manager" (14-Jul-2004)
** Script Error: Invalid path value: find-path
** Near: unless slim/find-path %GLayout.r [

    either confirm "GLayout not found. Download it from Rebol.org?" [
        either ...


hum, looking at the date besides your slim install... its a very 
old version!  I guess you had tried it out a few years back and still 
use the same rebol install or user.


just delete the slim.r file and the demo script will download it 
for you again.

What are the prerequisites?

>> do http://www.hmkdesign.dk/rebol/vid/src/vid-ext-kit.r

Script: "VID Extension Kit" Version: 0.0.1 Date: 29-Aug-2009/14:02:19+2:00
** Script error: insert-event-func has no value
** Where: catch either either applier do
** Near: catch/quit either var [[do/next data var]] [data]

what I'm saying is that these things will part of document model 
which you either define yourself, or pick and choose from 3rd party.


moliad.net is a test bed for this new remark technology and out of 
it, quite a few document models will be born.  One big feature of 
remark is that rtags use REBOL data, not HTML syntax.  so you can 
structure stuff with the cleaner rebol syntax, ex:


<!table  labels:  [ name birthdate city ]   label-styles:  [inverted-label 
label label ] column-styles: [bold-text text text ] data: <sql! select 
[name date city ] from users-table >>


note here that the <sql! tag is parsed first, so its data will be 
fetched and inserted within the table.

alternatively, for simplicity, one could build a  <!user-list> tag 
which is defined as <sql! select [name date city ] from users-table 
>  and use that simpler tag in the !table definition.

I have a slightly modified help, that does not evaluate functions 
in objects and ports and that also dumps ports like objects.
>> a: open http://www.rebol.com
connecting to: www.rebol.com
>> help a
A is a port of value:
   scheme          word!     HTTP
   host            string!   "www.rebol.com"
   port-id         integer!  80
   user            none!     none
   pass            none!     none
   target          none!     none
   path            none!     none
   proxy           object!   [host port-id user pass type bypass]
   access          none!     none
   allow           none!     none
   buffer-size     none!     none
   limit           none!     none

   handler         object!   [port-flags open-check close-check write-check 
   ini...
   status          word!     file
   size            integer!  0
   date            date!     6-Nov-2006/21:26:44
   url             string!   "http://www.rebol.com/"

   sub-port        port!     make port! [ scheme: 'tcp host: "www.rebol.com" 
   po...
   locals          object!   [list headers querying]

   state           object!   [flags misc tail num with custom index 
   func fpos i...
   timeout         integer!  30
   local-ip        none!     none
   local-service   none!     none
   remote-service  none!     none
   last-remote-service none! none
   direction       none!     none
   key             none!     none
   strength        none!     none
   algorithm       none!     none
   block-chaining  none!     none
   init-vector     none!     none
   padding         none!     none
   async-modes     none!     none
   remote-ip       none!     none
   local-port      none!     none
   remote-port     none!     none
   backlog         none!     none
   device          none!     none
   speed           none!     none
   data-bits       none!     none
   parity          none!     none
   stop-bits       none!     none
   rts-cts         logic!    true
   user-data       none!     none
   awake           none!     none

Is there interest in including in the new release?

eeek... make date allows 0 values !

>> make date! [0 0 0]
== 30-Nov-65535
>> make date! [0 0 1]
== 30-Nov-0000
>> make date! [75 0 1]
== 13-Feb-0001
>> make date! [01 0 75]
== 1-Dec-0074


sorry, but these make dates are just funny. 0 becomes a negative 
offset in time in some instances... like the last.  should I RAMBO 
this?  I would expect make date to accept only one 0 value, being 
the year... any other 0 makes no sense.

Gabriele - what's behind the date? :-) It is just that Carl decide 
to release R3 at that particular date, or has it any other internal 
meaning? :-)

or some big announcement - e.g. MS buying RT on that date :-)

>> probe info? %script.r/
make object! [
    size: 3405
    date: 12-Sep-2000/21:40:20+2:00
    type: 'file
]

>> read %script.r/
** Access Error: Cannot open /C/Dev/REBOL/script.r/
** Near: read %script.r/

Shoudn't INFO? return none (or an error) in this case ?

I've searched RAMBO about a WAIT inconsistency : the dictionnary 
says that "If the value is a DATE/TIME, wait until that DATE/TIME", 
but date! are not accepted as argument (both directly or in a block). 
If this a known bug? I can't find it in RAMBO.

Being able to wait for specified date/time would be great for doing 
cron

wait-date: func [date [date!]][wait difference date now]

re; wait till time, isn't that       add multiply subtract then/date 
now/date 86400 subtract then/time now/time


then - now * seconds per day + delta hours?   Negative time! possible, 
which it seems wait takes as zero anyway.

Thanks Gabriele;  I knew there was a more concise method of getting 
at time!  from date arithmetic, but I got sidetracked when the google 
search wanted to show me COBOL data arithmetic.   ;)  Can't ever 
know enough COBOL, err, aaah, REBOL.

The unix-timestamp could be any date/time.. so I think I have to 
work top down.. first find the year then month, day, hour, min, sec. 
    Kind of like building a binary number from a decimal.. top-down.

Yeah.  the date -> unixTime function from someone else (maybe Gabrielle) 
is..
to-unix-time: func [date] [
  date/date - 1-1-1970 * 86400 + to-integer date/time
]

O.K.
Thanks to everyone for their help.

I offer my final (not that it's the best) rendition of these conversion 
functions.


to-unix-time: func [
  "Create unix-timestamp.  Author: Gabriele_3-Aug-2002."
  date [date!] "Rebol-format date. (non-Milisecond type)."
][
  date/date - 1-1-1970 * 86400 + to-integer date/time
]

from-unix-time: func [

  "Create rebol-timestamp from unix-timestamp.  Author: Rebolers-Altme_2005."
  utime [integer!] "Unix timestamp."
][
  unixTimestampConstant + to-time utime
]  

-- OR an all-in-one --

unixTimestamp: func [

  "Rebol date to/from unix timestamp conversion.  Authors: Many rebolers.."

  varIn "Enter either a Date!type or Integer!type to convert to/from 
  unix/rebol."
][

   unixTimestampConstant: 1970-01-01/00:00:00           ;Reference.
   varOut: "ERR"

   if ((type? varIn) = date!) [                         ;from rebol, 
   to unix.

     varOut: varIn/date - 1-1-1970 * 86400 + to-integer varIn/time
   ]

   if ((type? varIn) = integer!) [                      ;from unix to 
   rebol.

     if (varIn >= 0) [                                  ;B.U.  (before 
     Unix.)
       varOut: unixTimestampConstant + to-time utime
     ]
   ]
   return varOut
]

John.

BIG TYPO on the last post.. 

unixTimestamp: func [

  "Rebol date to/from unix timestamp conversion.  Authors: Many rebolers.."

  varIn "Enter either a Date!type or Integer!type to convert to/from 
  unix/rebol."
][

   unixTimestampConstant: 1970-01-01/00:00:00           ;Reference.
   varOut: "ERR"

   if ((type? varIn) = date!) [                         ;from rebol, 
   to unix.

     varOut: varIn/date - 1-1-1970 * 86400 + to-integer varIn/time
   ]

   if ((type? varIn) = integer!) [                      ;from unix to 
   rebol.

     if (varIn >= 0) [                                  ;B.U.  (before 
     Unix.)
       varOut: unixTimestampConstant + to-time varIn
     ]
   ]
   return varOut
]

John.
BIG TYPO on the last post.. 

unixTimestamp: func [

  "Rebol date to/from unix timestamp conversion.  Authors: Many rebolers.."

  varIn "Enter either a Date!type or Integer!type to convert to/from 
  unix/rebol."
][

   unixTimestampConstant: 1970-01-01/00:00:00           ;Reference.
   varOut: "ERR"

   if ((type? varIn) = date!) [                         ;from rebol, 
   to unix.

     varOut: varIn/date - 1-1-1970 * 86400 + to-integer varIn/time
   ]

   if ((type? varIn) = integer!) [                      ;from unix to 
   rebol.

     if (varIn >= 0) [                                  ;B.U.  (before 
     Unix.)
       varOut: unixTimestampConstant + to-time varIn
     ]
   ]
   return varOut
]

John.

pekr, it calculates date, not time difference that way. you need 
to:

start: now/time/precise wait 5 print (now/time/precise - start)

it would be nice if it calculated the complete time and date difference

It states in the site that the RFC has been updated to handle security 
considterations... so our email implementation seems to be based 
on an older, out-of-date RFC.

Quick question .. how do you set the century to-date defaults to 
?

>> to-date "1/10/40"
== 1-Oct-2040

is not what I want.

>> to-date "1/10/1040"
== 1-Oct-1040

I guess that step must be made in the conversion, to check if date 
is 2 or 4 digits.

rebol[]


last-sgrp: copy ""		;global used to keep track of last selected button 
in sgrp window

reset-toggles: does [

 t1/state: t2/state: t3/state: t4/state: t5/state: t6/state: t7/state: 
 t8/state: false
]

two-digits: func [num][
	either 10 > num [num: join "0" num][num]
]


get-report-date: function [/delim][report-day day rsd today s e day-diff][
	report-day: 6			; 6 = Saturday, start day of report
	today: now/weekday
	day-diff: report-day - now/weekday

 rsd: now + day-diff		;rsd = report start date		;'difference function 
 used to do date math
	either delim [

  s: join rsd/year ["/" two-digits rsd/month "/" two-digits rsd/day]
	][
		s: join rsd/year [two-digits rsd/month two-digits rsd/day]
	
	]
	e: rsd + 6
	either delim [
		e: join e/year ["/" two-digits e/month "/" two-digits e/day]
	][
		e: join e/year [two-digits e/month two-digits e/day]
	]
	report/text: join s [" - " e]
	show report
]

clear-entry: does [
	probe t1/text probe t2/text probe t3/text probe t4/text
	print "-------"

    clear-fields bx1			;;;;;;;;;;;; Error of disappearing toggle values 
    starts here
	probe t1/text probe t2/text probe t3/text probe t4/text
	print "======="
    ;clear-fields bx2			;;;;;;;;;;;;
    ;create-dt/text: form now
    ;update-dt/text: form now
    unfocus
    show dex
]

new-ticket: does [
    ;store-entry			;stores existing entry
    clear-entry			;clears fields for new entry
    if last-sgrp <> "" [application/text: last-sgrp]
    environment/text: copy "prod"
    show [application environment]
    focus application
]

dex-pane1: layout [
	across
	label "Support Group:"	application: field return
	label "Environment:" 	environment: field return
	label "Report Dates:"	report: field return
	btn "New Ticket" [new-ticket]
	pad 20 btn "Reset Toggles" [reset-toggles]
]

dex-pane2: layout [
	across
	label "Search Criteria:"

 t1: tog "o79" [write clipboard:// join "se sa**/" [last-sgrp: t1/text 
 "ca datp/" get-report-date/delim]]

 t2: tog "p23" [write clipboard:// join "se sa**/" [last-sgrp: t2/text 
 "ca datp/" get-report-date/delim]]

 t3: tog "o88" [write clipboard:// join "se sa**/" [last-sgrp: t3/text 
 "ca datp/" get-report-date/delim]]

 t4: tog "p11" [write clipboard:// join "se sa**/" [last-sgrp: t4/text 
 "ca datp/" get-report-date/delim]]
]

dex: layout[
	bx1: box dex-pane1/size
    bx2: box dex-pane2/size
]

bx1/pane: dex-pane1/pane
bx2/pane: dex-pane2/pane

view dex

; A bonus tip -- each of the tog actions in dex-pane2 are essentially 
the same.  You could clean up as follows:
tog-action: [
    write clipboard:// join "se sa**/" [
        last-sgrp: face/text "ca datp/" get-report-date/delim
    ]
]

dex-pane2: layout [
    across
    label "Search Criteria:"
    t1: tog "o79" tog-action
    t2: tog "p23" tog-action
    t3: tog "o88" tog-action
    t4: tog "p11" tog-action
]

I have a text-list in a layout and I have a simple log-function:
log: func [message [string! block!]][
	append log-list/data rejoin [now/date "/" now/time " " message]
	show log-list
]

If MESSAGE is longer than the width of the text-list MESSAGE isn't 
shown. Why this? The first two parts NOW/DATE and NOW/TIME are shown.

if you load a string with a date, it will be checked:

>> load "25-mar-2006"             
== 25-Mar-2006
>> load "25-12-2006" 
== 25-Dec-2006
>> load "3-3-6" 
== 3-Mar-2006
>> error? try [load "32-13-2006"] 
== true
>> error? try [load "01-16-2006"]
== true

This adds leading zeroes to MM or DD -- you could use similar logic:

http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?script=to-iso-8601-date.r

Patrick; I just looked back a little bit, your question about formatted 
time-stamps...Chris has donated an awesome date time formatter to 
the rebol.org repository.  Very close to strftime in function.  Check 
out


http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?script=form-date.r

form-date now/precise "%C%y-%m-%d-%H:%M:%S"  doh!  loses the precise, 
so...

dt: now/precise  t: dt/time  rejoin [form-date dt "%C%y-%m-%d-%H:%M:%S" 
find form t/second "."]


again, not quite right...the precision won't be right padded with 
zeros, one more step

dt: now/precise   t: dt/time   t: find form t/second "." 

rejoin [form-date dt "%C%y-%m-%d-%H:%M:%S" head change/part ".000000" 
t length? t]

I think I'll bug Chris to add %P for precise padded seconds.  :)

and of course   head change/part COPY ".000000" ... if you reuse 
the sequence...It'd be nice to be able to just use form-date now/precise 
"%C%y-%m-%d-%H:%M:%P"

btiffin -- Thank you for taking the time to explain it.  I think 
I understand it now.  I was initially confused because I tried to 
print a timestamp knowing full well that time is changing and I didn't 
understand how to get it evaluated.  I confused the assignment of 
a value with that of a function..  Good info on the date timestamp 
above.

Thank you all!

rebol.org %form-date.r updated...

Fix for time-stamps and a really nice short-cut that includes the 
zone.
%c
 outputs all the fields of now/precise  nicely formatted
%s
 outputs the seconds with nanosecond precision  nicely formatted

form-date now/precise "%C%y-%m-%d-%H:%M:%s" is now all you need for 
IBM DB2 time-stamps.

We decided to use %s for REBOL precision...no epoch seconds in form-date. 
 And yeah, I was looking at the TIME and NTP protocols...it would 
not be fun in high level REBOL, I don't think even Rebcode could 
poke the right fields for time!

Hi all -- I didn't mean to cause additional entries to other libraries 
-- just tried to format it in my own routine.  But since there is 
interest, I double checked the official IBM SQL reference manual 
for timestamps.

So for the record and for your information:


Although there are many many different forms (Japanese, Europe etc), 
I only focused on two elements, the ANSI  ISO timestamp, and IBM 
SQL timestamp standard.  So in the IBM book "DB2 UDB for iSeries 
SQL Reference V5R370" under "Data Types, Datetime values, table 10 
page 70":

_________________________________________________________________________________________________

Table 10. Formats for String Representations of Timestamps
Format Name			Time Format						Example

ANSI/ISO SQL standard	TIMESTAMP ’yyyy-mm-dd hh:mm:ss.nnnnnn’	TIMESTAMP 
’1990-03-02 08:30:00.010000’

IBM SQL			’yyyy-mm-dd-hh.mm.ss.nnnnnn’			’1990-03-02-08.30.00.010000’
14–character form		’yyyymmddhhmmss’					’19900302083000’

_________________________________________________________________________________________________


For the record, I think I confused the two types.  Notice the embedded 
space between the date and time as well as : separators for ANSI/ISO, 
while the IBM SQL standard contains it all (no embedded space) and 
uses periods to separate the time elements, which I will easily fix 
in my version. -- You may wish to do the same for any new form of 
date you have.

Patrick;  No problem about library entries.  :)  When REBOL grows 
we all benefit.  Nothing in rebol.org is 'official'.  It's a user 
maintained repository of 'stuff'.  Chris' form-date just happens 
to be one of the beauties.  It is close to but not the same as the 
C strftime function.  With form-date you can make up pretty much 
any date time output you'd like.  No one has to use form-date, I 
was just cheerleading.  So I'll cheerlead a liitle bit.  I you haven't 
yet, check out http://www.rebol.org.Sunanda and team have created 
a a world class repository of information and functionality that 
is all REBOL user community generated.

For instance.  a: now  gives you a date time field that won't change 
whenever you reference a or get a and it's type is date!   a: :now 
gives you an a that will be the current time whenever it is evaluated., 
but if you get-word a with :a or get 'a you get back the native, 
not the datetime, so a's type reports as native!  It's funky and 
fun.

>> logname: does [rejoin [now/date ".log"]]
>> to-file logname
== %1-Aug-2007.log
>> to-file :logname
== %?function?

re: comments in 'core' on the plague of MI ...

multiple inheritance works rather nicely in Curl since you are required 
to provide 'secondary'  constructors - I prefer prototype-based with 
an option for class hierarchies, personally ( try experimenting with 
Logtalk if you can find time ).  I am watching Io, the language, 
evolve as Rebol3 emerges: what is interesting to me is that I ask 
'But is that Oz ?' in Oz. ( which is multi-paradigm )  I used to 
hear a lot of 'getting it' about Prolog and Smalltalk.  After almost 
2 decades in both, I think many of them "didn't get it" ( class hierarchy 
obsessed, as ST purists are/were ).  Ruby is so much like Smalltalk 
that I am quite enjoying watching Groovy play catch-up with Ruby 

Most issues in Rebol have a parallel in Javascript; where ( for the 
neophyte) experiments with 
	typeof

in a console is about the only way for the average developer  to 
'get  it' given
	d1 = Date  // now you use d1 as a function d1()
	d2 = Date()   // d2 is a string that looks like a number   

 d3 = new Date() // d3 is an object but it is UTC but it is presented 
 local time but it is compared UTC .... 
or
	s1 = "string"
	s2 = String("string")
	s3 = new String('string')

 s3[1] = 6   // s3 is an object, as typeof of reveals; String 'equality' 
 in JavaScript even with === is no end of grief  and  for what convenience 
 ?
	s3["size"] = 6
or
	a1 = Array(42)
	a2 = new Array(42)

I think the latter 2 show just how rushed LiveScript was pushed/forced 
out to market as "LavaScript" before the Sun "StrongTalk" folks had 
much influence on the Netscape folks ....  Rebol3 is in better hands 
than 'ActionScrtpt'  as it drifts into classes - because it is being 
kept 'in hand''

The changes in Groovy as it complied with the JSR for Java scripting 
are interesting ( Groovy is almost neat as Rebol would be if it were 
confined to, say, living on  top of VisualBasic ;-)  Now to avoid 
'Rebol on Rails' ...

I think some people who adopted Spring to cope with Java would appreciate 
Rebol ( there, too, you have to 'get it ' )

 MySubClassObject.prototype = new MyParentClassObject()   // now go 
 mess with THAT object before it is useful ...
	// ...

 MySubClassObject.prototype.superclass = MyParentClass  // to fake 
 having a superclass other than Object
cannot be much easier to "get" than anything about Rebol
	use    ; now mostly use /local
and

 bind   ; modifies the block it is passed; use COPY refinement to 
 preclude this side-effect

Smalltalk80 was like "Rebol4" as compared to the first passes at 
an O-O language ...  someone who actually understands Smalltalk contexts/blocks 
and JavaScript should 'get it' with Rebol ( some of those people 
are using Seaside with Squeak, Dolphin and/or VisualWorks ST )

  my 2 cents:  a1 should have been an array of fixed size and only 
  a2 should be a Vector object

; I did a dif between the functions in VIEW and those in CORE for 
a default install.  What I get is this ( I hope it is useful to have 
al 106  in one place )

 alert  brightness?  caret-to-offset  center-face  choose  clear-face 
  clear-fields  confine  crypt-strength?

 dbug  deflag-face  desktop  dh-compute-key  dh-generate-key  dh-make-key 
  do-events  do-face  do-face-alt  do-thru  

 draw  dsa-generate-key  dsa-make-key  dsa-make-signature  dsa-verify-signature 
  dump-face  dump-pane  edge-size?  

 editor  emailer  exists-thru?  find-key-face  find-window  flag-face 
  flag-face?  flash  focus  get-face  

 get-net-info  get-style  hide  hide-popup  hilight-all  hilight-text 
  hsv-to-rgb  in-window?  inform  

 insert-event-func  inside?  install  launch-thru  layout  link-relative-path 
  load-image  load-stock  

 load-stock-block  load-thru  local-request-file  make-face  notify 
  offset-to-caret  open-events  outside?  

 overlap?  path-thru  read-net  read-thru  remove-event-func  request 
  request-color  request-date  request-dir  

 request-download  request-file  request-list  request-pass  request-text 
  reset-face  resize-face  rgb-to-hsv  

 rsa-encrypt  rsa-generate-key  rsa-make-key  screen-offset?  scroll-drag 
  scroll-face  scroll-para  set-face  

 set-font  set-para  set-style  set-user  show  show-popup  size-text 
  span?  stylize  textinfo  unfocus  

 uninstall  unlight-text  unview  vbug  view  viewed?  win-offset? 
  within?

Hi Gregg, I googled it - I picked that out because it was dated 2006/2007 
- some of the older stuff 2000/2001 seems a bit out of date.

james;  My quick test worked out ok.  Do you have a local template.html 
maybe?  Which version did you snag.  I just pulled one out of rebol.org 
with Version: 2.5.7  Date: 10-Mar-2007  And then saved the MakeDoc 
Example from http://www.rebol.net/docs/makedoc/fastmd.htmland it 
worked as expected.

Yes, pdf-tables, date 24-Jul-2003

Or, from the index page, click the date column [far right] for a 
group -- that takes you to the end too.

#!/sbin/rebol  -qw
Rebol [
 file: %update.r

 purpose: {Update the system clock based upon the nist.gov time server}
 author: {Graham Chiu}
 date: 15-Apr-2007
]

get-nist-correction: func [/local nist-time cpu-time mjd hms] [
 nist-time: read daytime://time-a.nist.gov
 cpu-time: now

 parse/all nist-time [skip copy mjd 5 skip 2 thru " " copy hms 8 skip]
 nist-time: 17/Nov/1858 + to integer! mjd
 nist-time/time: to time! hms
 nist-correction: difference nist-time cpu-time
]

forever [
 if error? set/any 'err try [
 print [ "Current time was: " now ]
 current-time: now + get-nist-correction
 print [ "New time is: " current-time ]

 s: rejoin [ "date -s " {"} current-time/month "/" current-time/day 
 "/" current-time/year " " current-time/time {"} ]
 probe s
 call s 
 ][ probe mold disarm err ]
 wait 00:02:00 ;; wait 2 mins
]

Ahh. Google has options for date range.

Anyone know of any issues getting the time and date under Wine?

Budzinski: REBOL's shortcomings wrt to "multiplatformness" are mainly 
due to Carl not having the time/resources to really keep all platforms 
up to date. Design wise, I think that we don't have the problems 
Java had/has; they do, though, have enough manpower to fix all of 
them, no matter how awful things end up being. ;)

A live boot cd is probably out of date ...

http://www.lexicon.net/antonr/rebol/gui/demo-direction-pointer.r
make object! [
    size: 1333
    date: 13-Jul-2005/2:01:33
    type: 'file
]

http://www.lexicon.net/antonr/rebol/gui/direction-pointer.rmake 
object! [
    size: 2033
    date: 13-Jul-2005/2:01:25
    type: 'file
]

rebol [
	date: 24-Jul-2005 
	author: "Anton Rolls"
	comment: {

  Investigating why adding/removing 'merge from effect block seems 
  to change line-width on
		arc, circle etc.:

		ToDo:
		  - try to 

  - It looks like the AGG anti-aliasing is with the default window 
  background color ?

    When MERGE is added, then it's with the actual color that is merged 
    (seems ok and good to me).

    - so try to set b1/color so it's the same as the color anti-aliased 
    against in the merged version

    Perhaps default window background color (200.200.200) is close to 
    the default agg anti-aliasing color ?
		  (do not use custom window color)
		- try a simple LINE
		- report to RAMBO or AGG group
		- submit to RAMBO


  This shows that the addition of 'merge seems to add 0.5... (?) or 
  some scaled factor to the line-width:
	}
]

effect-blk: [
	draw [
		pen black
		line-width 0
		translate 25x25
		scale 1 1 
		circle 0x0 24 ;arc 0x0 24x24 0 270
	]
]
make-2nd-effect: func [/local result][
	result: copy/deep effect-blk
	insert result 'merge

 ;result/draw/line-width: result/draw/line-width - 0.5 ; <- even with 
 this they don't look quite the same

 result/draw/line-width: result/draw/line-width - any [attempt [correction-scr/data 
 * 0.1 + 0.5] 0]
	result
]
refresh: does [
	b2/effect: make-2nd-effect
	show [b1 b2]
	big1/image: to-image b1
	big2/image: to-image b2
	diff/image: xor big1/image big2/image
	same-txt/text: join "same? " big1/image = big2/image
	show [big1 big2 diff same-txt]
]
view/new window: center-face layout compose/only [
	across
	label 80 "scale"
	scroller 200x20 with [data: 1][
		change/dup next find b1/effect/draw 'scale face/data 2
		refresh
	]
	return
	label 80 "line-width"
	scroller 200x20 [
		b1/effect/draw/line-width: face/data * 4
		refresh
	]
	return
	label "line-width correction"
	correction-scr: scroller 200x20 [
		refresh
	]
	return
	b1: box 50x50 [refresh] effect (effect-blk)
	b2: box 50x50 [refresh] effect (make-2nd-effect)
	same-txt: text 200
	return
	big1: image 200x200
	big2: image 200x200
	return
	diff: image 200x200
]
refresh
do-events

REBOL [
 Author: "Shadwolf"
 Starting_Date: 21-05-2005
 Purpose: {Research work on rebol draw capability to be 
 used to write a Ritch text editor} 
]

papersize A4 fontsize 11 class letter
                use fancyhdr
                my-address
                consultation-date
                signature
                begin
                    provider-address
                    Dear Provider
                    patient-table
                    diagnoses&medications
                    body
                end

\documentclass[a4paper,11pt]{letter}

%frenchspacing
\pagestyle{plain}
\usepackage{fancyhdr}

\address{Upper Hutt Health Centre\\P.O. Box 40-044\\Upper Hutt\\
\\tel: 04 920-1800\\
fax: 04 920-1808}

\date{1-Apr-2005}
\signature{Dr Graham Chiu}

\begin{document}

\begin{letter}{Dr CP ANYON\\
Ropata Village Medical Centre\\577 High Street\\
Lower Hutt, }
\opening{Dear Dr Anyon,}

\begin{quote}
\begin{tabular} {ll}
Cap. James Tiberius \textbf{Kirk} Dob: 22-Mar-2233& \\
Captain's Quarters, Starship Enterprise& \\
\end{tabular}
\end{quote}\begin{quote}
\begin{tabular} {ll}

\textbf{Diagnoses}&\textbf{Medications}\\Prolonged posttraumatic 
stress disorder&Methotrexate 12.5 mg Mondays only\\Other specified 
parasitic infections&Folic Acid 1 mg daily except Mondays\\ &Fosamax 
70 mg Tuesdays only\\
\end{tabular}
\end{quote}
James needs a new hip!
\closing{Best Regards,}

\end{letter}

\end{document}

This seems more up to date:
http://www.gbiv.com/protocols/uri/rfc/rfc3986.html

REBOL [
    Title: "Http tools"
    Date: 14-Dec-2000
    Version: 0.0.3
    File: %http-tools.r
    Author: "Graham Chiu"

No date checking on files .. only size checking.

REBOL [
>         Title:          "RSS Generator for Carl's Blog"
>         Date:           31-Dec-2004
>         File:           %carl-rss.r
>         Home:           http://www.livejournal.com/~premshree
>         Author:         ["Premshree Pillai" "Gregg Irwin"]
>         Version:        0.0.3

>         Purpose: {Generate valid RSS 2.0 feeds for Carl's blogs}
>     Comment: {

>         0.0.2 Massive code changes for instructional purposes. 
--Gregg

>         0.0.3 More changes, knowing Carl actually wants to use 
it. :) --Gregg
>     }
> ]

#!/usr/bin/rebol -cs
rebol []

print "Content-type: text/html^/"
print {
<<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD><TITLE>Rebol CGI test page</TITLE></HEAD>
<BODY>}

print ["Server date time is:" now]

print {</BODY></HTML>}

<html><head>Test Magic</head>
<body>
Magic fonctionne t'il ?<P/>
<REBOL>
	print [

  "<b>Oui il fonctionne !</b><BR>Date et heure du serveur : <i>" now 
  </i> <P/>
		"Configuration actuelle :<BR>"
		"m-library-path : " m-library-path <BR>
		"m-session-path : " m-sessions-path <BR>
		"curdir : " curdir <BR>
		"home : " system/options/home <BR>
	]
</REBOL>
</body>
</html>

Best MVC example: OSX. The thing is not the separation all speak 
about (Model = Date, View = GUI, Control = App logic) but how to 
get it to work together. And this is (normally) done by passing messages 
between these three.


Like you click a button and a "loadrecord" message is sent to the 
Data part. IIRC the nice thing is, that more than one "function, 
object, ..." can react on such a message.

If you can get to them from the root, then they are fair game, unless


.....they have a rel=nofollow......We have that on a few simply because 
they duplicate content (eg viewing a script, viewing a script in 
color, downloading a script


....Mailing list -- best to index either the individual posts (http://www.rebol.org/ml-display-message.r) 
or the complete threads (http://www.rebol.org/ml-display-thread.r) 
but not both.


....you may get a __lot__ of duplication when spidering the AltME 
archive as every post has a URL, but we display in batches of 50.....So 
perhaps only spider URLs like
http://www.rebol.org/aga-display-posts.r?post=r3wp291xNNNN
when NNNN is 1, 51, 101, 151, etc....


....I think You already have indexed the ML as on REBOL.,net and 
Carl's latest 300 AltME messages, eg
   http://mail.rebol.net/cgi-bin/mail-list.r?msg=45305
   http://host4.altme.com/altweb/rebol3/chat771.html

It would be better _not_ to have index those; it just creates duplicates 
once you have indexed the equivalents on REBOL.org (especially as 
the AltMe last 300 goes out of date so quickly).

Tell me what is unclear there!

I use a unique identifier such as a date, followed by a textual description 
in the rest of the URL

STEEL web site - tools for REBOL is now moved and completely refreshed.


currently has up to date information on liquid, slim  and reTools. 
 Will be uploading some GLayout docs next week.

Ever wanted well behaved dates and times, padded with leading zeroes? 
 Check out form-date.r

in the rebol.org library.  It just went in.  Closely compatible with 
strftime.  Thanks to Chris.

geomol,

interesting concept. It will also be interesting to see the performance 
and behavior with
different filesystems like: ZFS,REISER, NFS XFS, CFS, GFS etc.

in mysql you can choose the database engine, with nicomDB you choose 
the filesystem 

for different features. (e.g. REISER for speed, NFS for distributed 
networking, CFS/EncFS 
for crypto, GFS for cluster etc. :-) 
any aprox. date when it will be available?

http://iamjamie.com/index.php?date=2006-03-02

http://iamjamie.com/index.php?date=2006-03-03

http://iamjamie.com/index.php?date=2006-03-04

ResHacker has been around for a long time. Unsupported now, but works 
against most PE files. ResourceTuner seems more up to date, but costs 
(they have a trial I think).


There are some other links here: http://www.thefreecountry.com/programming/resourceeditors.shtml

I'm also getting a lot of "misplaced item" errors but again only 
in encapped version....

Unknown word or style: rejoin
Misplaced item: ["This version: " this_version]
Unknown word or style: rejoin
Misplaced item: ["Last Update: " last_db_update/date]
Misplaced item: 150
Misplaced item: "6-TOWE"
Misplaced item: [get_sections cur_chap: copy face/text]
Misplaced item: 450
Unknown word or style: red
Unknown word or style: font-size
Misplaced item: 25
Unknown word or style: bold
Unknown word or style: underline
Unknown word or style: chtit
Misplaced item: 0.0
Misplaced item: 255.100.100
Misplaced item: 90.90.90
Unknown word or style: rejoin

Misplaced item: ["14." " " "MAINTENANCE OF PORTABLE ALUMINUM LADDERS"]

Misplaced item: [my-scroll-panel/access/set-scroll-offset my-scroll-panel 
0x-1 * 699x15723 focus]
Misplaced item: 0x0
Unknown word or style: edge
Misplaced item: [color: black size: 2x2]
Unknown word or style: effect
Misplaced item: [merge luma -80]

Title:  "REBOL/View"
	Version: 2.7.6

 Rights: "Copyright REBOL Technologies 2008. All rights reserved."
	Home: http://www.rebol.com
	Date: 14-Mar-2008

REBOL [
Title: "ARCFOUR and CipherSaber"
Date: 17-Jan-2004
File: %arcfour.r
Author: "Cal Dixon"

Purpose: {Provides encryption and decryption using the ARCFOUR algorithm}

Note: {this implementation can decrypt data at about 40KB/s on my 
1Ghz AMD Duron system with Rebol/View 1.2.10.3.1}
Library: [
level: 'advanced
platform: 'all
type: [function module protocol]
domain: [encryption scheme]
tested-under: [view 1.2.10.3.1 on [W2K] by "Cal"]
license: 'PD
support: none
]
]


;ARCFOUR specification: http://www.mozilla.org/projects/security/pki/nss/draft-kaukonen-cipher-arcfour-03.txt

;CipherSabre specification: http://ciphersaber.gurus.com/faq.html#getrc4


arcfour-short: func [key [string! binary!] stream [binary! string!] 
/mix n /local state i j output swap addmod sz][

swap: func [a b s /local][ local: sz s a poke s a + 1 to-char sz 
s b poke s b + 1 to-char local ]
addmod: func [ a b ][ a + b // 256 ]
sz: func [ s a ][ pick s a + 1 ]

state: make binary! 256 repeat var 256 [ insert tail state to-char 
var - 1 ]

j: 0 loop any [ n 1 ] [ i: 0 loop 256 [ swap i j: addmod j add sz 
state i sz key i // length? key state i: i + 1] ]
i: j: 0 output: make binary! length? stream
repeat byte stream [
swap i: addmod i 1 j: addmod j sz state i state

insert tail output to-char xor~ byte to-char sz state addmod (sz 
state i) (sz state j)
]
clear state
return output
] 

make root-protocol [
addmod: addmod: func [ a b ][ a + b // 256 ]
sz: func [ s a ][ pick s a + 1 ]

swap: func [a b s /local][ local: sz s a poke s a + 1 to-char sz 
s b poke s b + 1 to-char local ]
ins: get in system/words 'insert
i: 0 j: 0
open: func [port][
port/state/tail: 2000
port/state/index: 0
port/state/flags: port/state/flags or port-flags

port/locals: context [ inbuffer: make binary! 40000 state: make binary! 
256]
use [key n i j] [
key: port/key
n: port/strength
repeat var 256 [ ins tail port/locals/state to-char var - 1 ]
j: 0 loop any [ n 1 ] [
i: 0 loop 256 [

swap i j: addmod j add sz port/locals/state i sz key i // length? 
key port/locals/state i: i + 1
]
]
]
i: j: 0
]
insert: func [port data][
system/words/insert tail port/locals/inbuffer data do []
]
copy: func [port /local output][
output: make binary! local: length? port/locals/inbuffer
loop local [

swap i: addmod i 1 j: addmod j sz port/locals/state i port/locals/state

ins tail output to-char sz port/locals/state addmod (sz port/locals/state 
i) (sz port/locals/state j)
]
local: xor~ output port/locals/inbuffer
clear port/locals/inbuffer
local
]

close: func [port][ clear port/locals/inbuffer clear port/locals/state 
clear port/url clear port/key]
port-flags: system/standard/port-flags/pass-thru
net-utils/net-install arcfour self 0
]

arcfour: func [key stream /mix n /local port][
port: open compose [scheme: 'arcfour key: (key) strength: (n)]
insert port stream
local: copy port
close port
return local
]


; CipherSaber is an ARCFOUR stream prepended with 10 bytes of random 
key data
ciphersaber: func [ key stream /v2 n ][

arcfour/mix join key copy/part stream 10 skip stream 10 either v2 
[ any [ n 42 ] ][ 1 ]
]

Geomol: nice, I've made a print version of a nice doc I've found 
here http://www.codeconscious.com/rebol/parse-tutorial.html, but 
I don't know if it's up to date.

That should be up to date too.

You mean something like:

>> rejoin ["Date: " now/date " Time: " now/time]
== "Date: 8-Feb-2009 Time: 23:18:12"

Some use COMPOSE, that will return a block:

>> compose ["Date:" (now/date) "Time:" (now/time)]
== ["Date:" 8-Feb-2009 "Time:" 23:21:57]

That you can turn into a string with useful spaces by:

>> form compose ["Date:" (now/date) "Time:" (now/time)]
== "Date: 8-Feb-2009 Time: 23:21:08"

If you just wanna print the result, PRINT can work on a block, which 
will be reduced and spaces included in the output:

>> print ["Date:" now/date "Time:" now/time]
Date: 8-Feb-2009 Time: 23:24:27

so if you want to write a document, bring up a piece of "paper" which 
uses a type setting service. if you want to print, you call a printing 
service. if you want to spell check, you call a spell checking service. 
if you want dynamic content in your document, you can call services 
which can respond to various input with an output, tied dynamically 
to the paper, such as the current date, or a customer database entry

new google search parameter to return what pages are newly indexed 
[almost the same as new] on the site:

http://www.mattcutts.com/blog/useful-google-feature-better-date-search/
eg, for rebol.net
http://www.google.com/search?q=site:rebol.net&as_qdr=d7

Ch v6.0 is out.  Slower than 5.5 on my Win98 machine, but they fixed 
a few bugs, probably added others.

I still get freaked out by Ch.   Mixing shell, C and C++ at a console 
feels weird
C:/ch/> char *s = `date`
C:/ch/> s
Wed Apr 16 03:33:37 Eastern Daylight Time 2008
C:/ch/> free(s)

111 before the cut off date ..

no release date set yet. just stay tuned... :)

So anyone know of a rough date for 3.0 ?

So now we know the target date for R3 release :-) DevCon 2007 holds 
first conference session - By Carl Sassenrath - "Introducing REBOL 
3.0"

Is the date (May 10-11) fixed?

New Cheyenne test release 0.9.19 available. Please report any bug 
or regresson here.

Changelog (diff from previous one) :


  o RSP: fixed a security issue allowing access to /webapp/private/ 
  sub-folders content.
	 

  o RSP/CGI: fix for HTTP 'Date header not being returned in some cases.(Will)
	 

  o RSP Sessions: fixed an issue with init flag when saving sessions 
  on disk.(Will)
	 
	 o RSP: now you can declare folders as valid login URL.(Will)
	 
	 	Ex: auth "/admin/login/"
	 	

  o RSP: a new session word 'from has been added. It's set to the referring 
  URL on login.

    After login, you can now redirect to the referring page (in case 
    of session timeouts
	   for example).(Will)
	   

  o RSP: a webapp can now be called without the ending slash.(Will)
	 

  o RSP: the root "/" webapp can now be declared (needs testing).(Will)
	 	 

  o RSP: new 'SID-domain config keyword added allowing to share sessions 
  between
	   sub-domains.(Will)
	 

  o RSP: now session ID can be passed as URL or POST data in addition 
  to cookie.(Will)
	 

  o New 'charset config keyword added. It allows to define specific 
  charset sent through
	   HTTP headers for 'text/htlm resources.(Will)
	   

  o RSP: Added a new function no-log in Response object. Use it to 
  avoid writing
	   log info to disk for the current request.(Will)
	   
	   		Ex: response/no-log


  o New 'mod-expire module for HTTPd. Allow configuring 'Expires HTTP 
  header. 
	   See %Cheyenne/mods/mod-expire.r for more info.(Will)

New Cheyenne v0.9.19 test release available at http://cheyenne-server.org/tmp/cheyenne-r0919.zip.
This should be the last one before making 0.9.19 the new official 
version. 

ChangeLog (diff from previous one) :


    o RSP: fix in request/query-string allowing processing parameters 
    values passed through 'validate filter.
	   

  o RSP: output of RSP scripts is now compressed (using deflate) if 
  the client supports it.
	   

  o Default static files memory cache now set to 4Mb accepting files 
  up to 64Kb.
	   

  o Mod-static: fixed a bug in Last-Modified date forming when seconds 
  = 0.

The cookie setter can specify a deletion date, in which case the 
cookie will be removed on that date. If the cookie setter does not 
specify a date, the cookie is removed once the user quits his or 
her browser.

So either lost or survive until a given date.

HTTP/1.1 200 OK
Content-Type: text/html; charset=UTF-8
Date: Wed, 19 Aug 2009 07:41:04 GMT
Expires: Wed, 19 Aug 2009 07:41:04 GMT
Cache-Control: private, max-age=0
X-Content-Type-Options: nosniff
Server: GFE/2.0
Via: 1.1 bc3
Content-Length: 0
Connection: Keep-Alive
Set-Cookie: cookies here ... 

Set-Cookie: user=; Expires=Tue, 18-Aug-2009 07:41:04 GMT; Path=/; 
HttpOnly

Set-Cookie: login=; Expires=Tue, 18-Aug-2009 07:41:04 GMT; Path=/; 
HttpOnly

stated release date for "select developers" is june 1st

Can we just move them all to Rebol.org (for example)?
Throw them on a page in a simple clean table


[Date and time of talk | Name of speaker | subject | link to movie 
]

three columns if you want to store the date at which the tag was 
set.