AltME groups: search

While were looking at stats, it may be of some comfort to note that 
this industry SMOKES all others for the "fastest growing occupations".. 
iv'e looked a dozens of reports, and they all look like this one... 
  http://www.ctdol.state.ct.us/lmi/misc/fastest.htm

Well i mean that when i start ALTME in i.e. 500x500 and then resize 
with mouse I dont see any screen stripes while resizing, but when 
I do this with a simple window under rebol I do see lots of screen-stripes 
during resize untill I loosen my finger from the mouse button...

This is a pain!! doing a process on the Altme binary.. it does return 
i.e PID 4090.. but Altme is not on PID 4090 but on 4091 4092 4093.. 
So the main process is killed by altme or respawned.. Thats irritation 
, this means the above behaviour is unusable and thus a bug..

ok... it looks like file sharing has not been enabled here for fear 
of it becoming too big (i.e. imagine a new user syncing, there are 
already various MB to download, if you had file sharing it could 
really become too big)

big

 files are not synced by default. however, think about a thousand 
 small files (i.e. rebol scripts)

Ctrl-E

DideC: i think that's still because the install code is missing (i.e. 
the betas don't have an installer)

lad: is that from the console? try secure quero from a launcyhed 
script (i.e. a script launched by the desktop)

while I am posting this I notice the foreign characters under Linux 
is not yet solved. Using Debian Ubuntu with brazilian ABNT2 keyboard 
layout I am not able to input some usual characters in Portuguese 
such as ´a ´e ´i ´o `u `a ^o ~a .

Eeks. should this happen?
  echo -e "these are\nsome words" | rebol -q scratch.r
the script contains an error, an undefined word bang
** Script Error: bang has no value
** Near: bang
** Script Error: these has no value
** Near: these are
** Script Error: some has no value
** Near: some words

also, it's not that /direct does not work; it does, always has, in 
that it does not buffer. the problem is that it does not allow seeking, 
i.e. it only allows sequential access. so you can open a 2GB file, 
as long as you read it sequentially.

parse "12345" [copy a to 2 copy b to 3 copy c to 4 copy d to 5 copy 
e to 6]
== true
>> a
== "1"
>> b
== "2"
>> c
== "3"
>> d
== "4"
>> e
== "5"

>> parse "abcde" [to 4 #"e"]
== false
>> parse "abcde" [to 5 #"e"]
== true

copy e to 6? Should be false imo!

I just found a file that I can READ but not OPEN a port to. This 
bug can be seen on old and new versions of Core 
and View:
>> read %"/j/anton/mp3s/more/test-copy.mp3"

== {ID3^C^@^@^@^@^F^NTMED^@^@^@^D^@^@^@DIGTLEN^@^@^@^G^@^@^@472006TCON^@^@^@^E^@^@^@miscTRCK^@^@^@^B^@^@^@5TALB^@^@^@^\^@^@^@Psych
o...
>> port: open %"/j/anton/mp3s/more/test-copy.mp3"
** Access Error: Cannot open /j/anton/mp3s/more/test-copy.mp3
** Near: port: open %/j/anton/mp3s/more/test-copy.mp3
>> port: open/binary %"/j/anton/mp3s/more/test-copy.mp3"
** Access Error: Cannot open /j/anton/mp3s/more/test-copy.mp3
** Near: port: open/binary %/j/anton/mp3s/more/test-copy.mp3
>> read/binary %"/j/anton/mp3s/more/test-copy.mp3"
== #{
4944330300000000060E544D454400000004000000444947544C454E00000007
00000034373230303654434F4E000000050000006D6973635452434B0000...

(i.e. the usage will be the same as the usage of the Default function)

Does REBOL miss a way to go up one level of blocks within blocks? 
Example:

>> blk: [[a b c] [d e f]]
== [[a b c] [d e f]]
>> p: first blk
== [a b c]


Now I would like to have p go up one level, so I can continue to 
the next block (the [d e f] block) within blk. Using blk to do it 
is not a solution, because we could have blocks within blocks within 
blocks ... to any level. What about a parent function like:

>> p: parent p

There is a difference between the IMAP protocol itself (RFC 2060) 
and the imap:// URL scheme (RFC 2192). At this time REBOL only supports 
the imap:// URL scheme, which has a subset of the full IMAP protocol 
functionality. It handles mailbox lists, message lists, retrieving 
and deleting of messages, and message searches, i.e. it is API-compatible 
to pop://, with added support for multiple mailboxes and searches. 
Move/copy/rename and other administrative IMAP functions are not 
specified in RFC 2192 and not supported by REBOL's imap:// scheme 
at this time.

but it boils down to the fact that code is data, i.e. these function 
calling can emitted from functions which are constructed on the fly, 
so there is no home to phone to.

how to add object e: 7 to a ?

a: make a [ e: 7 ]

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

i.e.  sorted by first name  within  sorted last name groups

i.e. forall blk [blk/1: 0]

Thanks Gabriele. It was the reason. But to continue regarding status 
bar functions fired by read-thru. Than it is a problem just to kBox/image: 
 read-thru/progress myUrl :myProgr . It is possible just by using 
local file i.e. kBox/image: read-thru/to/progress myUrl %tmpImg.png 
:myProgr

Help peoples..

I have the following..
  x: [a b c d]

  foreach y x [ set y make string! {} ] ;make them all empty strings.
then I process/append info into the different groups a,b,c,d.
Now, I want to write each string/list to a file of the same name.
i.e.
  foreach y x [write to-file join y ".txt" ??GETVALUE?? y]

Can someone clue me in on what I do at the ??GETVALUE?? position?

Thanks peoples.

rebol [ title: "SOCKS SERWER" ]

conn: make port! tcp://:800

proxy: make object! [ host: 208.59.117.69
                      port: 2988  ]



black-lista: [ 69.64.51.223 194.69.207.145 80.252.0.145 194.69.207.165 
217.73.17.115]




adns: open/no-wait make port! dns:///async

adns/awake: func [port /local data][                
		
		data: copy port

                print data
		
		false 
	]				

insert tail system/ports/wait-list adns





heandler: func [ port /local data dns  serwer client]

               [ serwer: first port

                          
 wait serwer
             
data: copy serwer
;data: make string! 10000
;read-io serwer data 10000
print ["data1" to-binary data]

dns: to-tuple copy/part skip to-binary  data 4 4  

insert adns dns ;print dns name



either find black-lista dns [ close serwer  print "firtled" print 
read join dns:// dns ]
                           
                            [ print "new connetion"

insert serwer  join #{005A} [debase/base  skip to-hex serwer/port-id 
4 16 to-binary dns ] 


client: make port! [ scheme: 'tcp 
                     host: system/words/proxy/host
                     port-id: system/words/proxy/port
]



;insert tail system/ports/timeout-list client

      open/no-wait/binary/async/direct client :response


client/sub-port: serwer





insert tail system/ports/wait-list  client

client/date: data

serwer/sub-port: client

serwer/awake: :request









] 



       false         
]




request: func [ port /local data  f ] 

              [ data: make string! 10000
               read-io port data 10000


if f: find data "GET /favicon.ico" [ insert port "HTTP/1.1 404 Not 
Found" 
                                      print "favicon.ico"]
 


                either (data <> {}) and not f [     print [ "data3" data  ]
                              

                                if error? try [    write-io port/sub-port data length? data ][ print 
                                "error: close serwer"]
                                   ; insert port/sub-port data 
]

                            [  close port 

                              remove find system/ports/wait-list port port
                               close port/sub-port

                              remove find system/ports/wait-list port/sub-port port/sub-port
                              print "close connetion client"

                               print length? system/ports/wait-list
                               ]

               false]




       
   


  
response: func [ port e a /local data  f  ] 

               [  switch e [ open [ insert port port/date ]
                                    
                             read [ data: copy/part port a

                                   either ( a <> 8 ) [write-io port/sub-port data length? data] 

                                                     [  insert tail system/ports/wait-list  port/sub-port ]
                                    ]
                                     
                             close [ close port 

                                     remove find system/ports/wait-list port port
                                     close port/sub-port

                                     remove find system/ports/wait-list port/sub-port port/sub-port

                                       print "close connetion serwer"

                                      print length? system/ports/wait-list]
 

                          ]   ]


start: func [] [

conn: make port! tcp://:800

conn/awake: :heandler

set-modes conn [no-wait: false]

insert tail system/ports/wait-list  conn

open/no-wait/direct/binary conn ]


stop: func [][ close conn
               remove find system/ports/wait-list conn]

set-proxy: func [ h p ] [ proxy/host: h
                          proxy/port: p ]
                          


print "proxy"

lay:  layout [ backdrop blue
              across  h3  red "PROXY" f: field 145 
              return
              button green "start" [ p: parse f/text  ":"
                                     remove find p "" 

                                     set-proxy  to-tuple p/1  to-integer p/2
                                     source p
                                    
                                     start]
              button  green "stop" [f/text: "" stop ] ]

view/offset lay 4x29 
halt

Re default: (a user poll) I wonder whether it is useful to have it 
like: 


    default [trial code here] 'error-variable [print disarm error-variable]

or in a shorter form like:

    default [trial code here] [print disarm error]


, in the last case the error variable will always be 'error, which 
will be local to the error handling block, i.e. if you want any other 
variable you have to explicitly assign the value of the 'error variable 
to it

The problem I see is that it complicates debugging.

>> 1 + index? find "abc" "e"

** Script Error: index? expected series argument of type: series 
port
** Near: 1 + index? find "abc"

>> 1 + attempt[index? find "abc" "e"]
** Script Error: Cannot use add on none! value
** Near: 1 + attempt [index? find "abc" "e"]

1 + index? any [find "abc" "e" #]

1 + any [index? find "abc" "e" 0]

>> x: context [d: does [print e]]
>> y: make x [e: 1]
>> y/e
== 1
>> y/d
** Script Error: e has no value
** Where: d
** Near: print e

because you refer to word 'e with global context

>>  x: context [d: does [print self/e]]
>>  y: make x [e: 1]
>> y/d
1

In this case it would work:
>> x: context [e: 5 d: does [print e]]
>> y: make x [e: 1]
>> y/d
1

because the 'e in function d would be bound to the context of the 
object (self)

i mean, what is the result of PICK? i.e. what is inside the arrays?

The new Core 2.6.0 in View 1.3 is running the user.r found by the 
environment variable APPDATA, it seems. On my Windows computer, it's 
in C:\Documents and Settings\John\Application Data\rebol\ , even 
if I install REBOL/View in E:\rebol\view\. Is it a good way of doing 
it? I find it a bit confusing.

(but only when doing preprocessing, i.e. some care needed anyway)

yes, I can, it just needs parentheses, i.e. may be considered less 
readable (a matter of taste, I think)

How about this for an obvious enhancement: the ability to href an 
=image (i.e. image + URL)

Heehee.  I caved, installed Wine to test the site with IE last Thursday. 
 I was moving

some windows around and just noticed the Icon that got installed 
on the KDE desktop.

Heeheehee. The big blue E upside down, spinning down the drain...had 
to chuckle.

To be honest, I'm kinda of pro/con with open source in the fortune 
500 server room.  If they kick back some of the savings into funding 
some developers....yeehah.  If they use OSS simply to increase the 
bottom line and only train their elites in it's use ... then boohiss. 
 It is the small, in their own basement  developers and the rare 
business tycoon that supports them that this issue teeters on.  Can 
freedom reach a critical mass, or are we doomed?  Today I'd bet on 
doomed, but will rail against it the whole way down.


And while I'm here, preaching to the choir, I'll cheerlead for those 
brave souls that will buck the trends at their own risk and expense. 
 Go Doc Go.   Give me an A, give me an l, a t, an M and and e.  Ashley, 
Sunanda and all the rest...GO REBOL.  All rebols and gnubies reading 
this, pat yourself on the back for the remarkable achievement of 
seeing the light through the glare.  And other stuff.

I have put my index.rhtml at the same directory of the others html 
pages i.e. /var/www

Graham;  What brand of VMWare are you running.  i.e. did you but 
it?

The Ctrl-E execute trick in Crimson is close but it is still a mental 
context switch.  Editor -> Rebol -> editor -> etc...  My old mantra 
was "Compile Link Go...Away, Go Go Go is much better"

I'm actually not using Ctrl-E in Crimson Editor. It's just not as 
simple as launching it yourself, and every editor does it differently.

rebol [
    Title: "Immersive" 
    Usage: {
>> fed
fed> p 3 This is a demo line, its not loadable :)
p with 3 " This is a demo line, its not loadable :)"
fed> print "This is pure rebol"
This is pure rebol
fed> "this too"
== "this too"
fed>
}
] 
ctx-fed: context [
    arg-lens: [p 2] 
    line: cmd: none 
    last-err: none 

    p: func [lineno line] [print ["p with" lineno mold line] exit] 
    t: func [lineno] [print ["t with" lineno] exit] 
    e: func ["format err"] [throw last-err] 
    do-line: func [line /local arg-len-pos res] [
        set [val rest] load/next line 
        either arg-len-pos: find/skip arg-lens val 2 [
            cmd: reduce [val] 
            loop arg-len-pos/2 - 1 [
                set [val rest] load/next rest 
                append cmd val
            ] 
            append cmd rest
        ] [
            cmd: load/all line
        ] 
        bind cmd self 
        case [
            error? set/any 'res try [do cmd] [
                probe disarm last-err: res
            ] 
            value? 'res [print ["==" mold :res]]
        ]
    ] 
    rebol/words/fed: func [] [
        forever [
            do-line ask "fed> "
        ]
    ]
] 
fed

Issues can actually contain spaces, but they don't parse or mold 
that way. i.e. the datatype can hold them, but the lexical form doesn't 
allow it. Meaning you can get bitten, but do tricky things. :-)

>> a: #This issue has spaces in it
** Script Error: issue has no value
** Near: issue has spaces in it
>> a: to issue! "This issue has spaces in it"
== #This
>> probe a
#This
== #This
>> b: to string! a
== "This issue has spaces in it"

A "true" dialect in REBOL follows REBOL lexical form--i.e. you use 
block parsing--which is what would be called an embedded DSL in other 
languages. The concept is often associated with Lisp and its descendants. 
REBOL takes it furhter, and makes it easier (IMHO).

But Gregg, the reference was towards a "language that combines vocabulary 
and grammar"...  sounds more like "Energy equals mass times the speed 
of light squared", rather than E = MC2

>> unmush [aBcDe/fG/h]
== [a b c d e/f g/h]

>> unmush [AbCdE/Fg/H]
== [a: b c d e/f: g/h:]

@Maxim: I've tinkered a little with the semantics, but tried to make 
it so that the abbreviated Rebmu primitives only extend the reactions 
to datatypes which Rebol currently throws errors on.  For instance, 
the letter "e" is mapped to "either-mu", which can handle things 
like constants or functions in the clause block.

data
 is somehow none.
The error happens in on-task-done event function:


 on-task-done: func [data /local valid out value ctype body headers 
 s e][
		either "HTTP" = copy/part data 4 [  ;<<<<<<<<<<
			;--- Non Parsed Header output ---
			write-client data
		][
			;--- Parsed Header output ---
			out: ctype: line: none

One option is to provide commentary text, images and links a few 
seconds after they are shown.

For synchro skating competitions that we can't attend, we follow 
them using Team Germany's Live Ticker.
http://www.teamberlin-1.de/live_frame.php?ev=2&lang=en

This is a very slick PHP application that has photos taken at the 
arena and broadcasts them  a few seconds later.

Some dedicated fans from Germany were providing the photos (JPEGs), 
scores and bilingual (at least English and German) commentaries.

When new content is published, a message appears at the top to inform 
the viewer that it is available.

They hit the refresh hyperlink and they are up-to-date.   From the 
timestamps, our lag time to Canada was sometimes as low as 45 seconds 
after the event occurred i.e. we are getting commentary results about 
a given team's skating while they are still on the ice.

This site reports http://www.teamberlin-1.de/en/cup-of-berlin/that 
4,000 viewers followed the Berlin Cup in Jan-2005 using Live Ticker.

Maybe something like that would work for DevCon2005.

it is also possible to do that after the "conference", i.e. after 
4 pm. plenty of time till night ;)

DideC: "hacking" together at a project, i.e. writing something together.

From Mario: "I think that coming in a hotel in Treviglio is cheaper. 
The return Treviglio-Milano railway ticket is around 10€ and the 
Milan 24h underground/bus/tram ticket is 3€ so DideC can save money 
as the train usually takes 30 to 45 minutes from Treviglio to Milano.


About the visit in Milano I can help for sure during the afternoon 
and evening. If there are a few people I can go with them and ttake 
them back with the car. If there are a lot of people willing to see 
Milan the days before the conference I can make a plan for Milan 
visit.


How much can be the budget for Milano tour? Leaving out the 3€ 
there are free things to visit as museums (should pay) or the castle 
(free or paid guided tour) as the Cathedral lift to see "il Duomo 
e la Madunina"...


I just need to know how much time, when, who and an aproximate budget 
per day."

#{FFFE_4C00_6900_6E00_6500_3100_0A00_0A00_4C00_6900_6E00_6500_3200}

_ ___y____L___i_____n____e____1____?____?____L____i_____n____e____2
What are those questionmarks?

#{FF_4C_69_6E_65_31_0A_0A_4C_69_6E_65_32}  <-- this is what I get 
when I use the extract routine for InText

__y__L___i___n__e__1__?__?__L__i___n__e__2   <-- The extract is clearly 
NOT skipping the newline.
What do you think?

In my example above, I have three parse rules defined.  I need to 
add several more.

Does the PARSE process the string once per rule?  i.e. Does it scan 
the string for Get-page, then Get-file, then Get-member (scan the 
string 3 times),  Or can I structure the pase rules together to process 
against the string once?

Here is simplified your problem:
ke: func[f e][ if e/type = 'time [print now/time/precise] e]
insert-event-func :ke
view layout [box with [rate: 10]]


But I cannot help you. I'm not a view guru. It looks you should not 
use insert-event-func if you don't want to get all time events.

Use somethink like:

view layout [
	box with [
		rate: 10
		feel: make feel [
			engage: func [f a e] [
				if a = 'time [print now/time/precise]
			]
		]
	]
]

If you want just blinking cursor, don't use insert-event-func, but 
just something like that:
cursorMover: func[f e][
	if e/type = 'key [
		switch e/key [
            up    [cursor/offset/y: cursor/offset/y - 10]
	        down  [cursor/offset/y: cursor/offset/y + 10]
            left  [cursor/offset/x: cursor/offset/x - 10]
            right [cursor/offset/x: cursor/offset/x + 10]
		]
		show cursor
	]
	e
]
insert-event-func :cursorMover

view layout/size [
	cursor: box 10x10 with [
		rate: 10
		colors: [0.0.0 255.255.255]
		feel: make feel [
			engage: func [f a e] [
				if a = 'time [
					f/color: first head reverse f/colors
					show f
				]
			]
		]
	]
] 400x400

It looks like the event function isn't being triggered for the box, 
but rather for system/view/screen-face or something -

>> ke: func [f e][if e/type = 'time [print f/text]]
>> insert-event-func :ke
>> view layout [box "Testing" with [rate: 1]]
none
none

None of them print "Testing", as a call from the box should

How complicated is it to make simple file transfer between two computers 
(one client and one server) in rebol?
What protocol should I use?
Any ideas?

Currently I'm sending e-mails from clients with file-atachments because 
its the simplest way of collecting data from clients. (so far they 
were doing it by hand -  so this is a big improvement :)

Files are 1-2 Mb. Ziped archives of dbf files.

As I said now I'm using small rebol script to send file as attachment, 
human on the other side is downloading them and unpacking them, and 
its working.

I planed to make a "server" side script that would download newly 
arrived attachments and unpack them in designated folders, but then 
I thought about trying some real client-server approch...

Then again, server would have to be started at the time of transfer. 
I have to know ip adresses and to make them public (hamachi jumps 
in as help)...

E-mail used as buffer for data is not bad... And it works... But 
I have to check max mailbox size .... What if workers execute sending 
script more then ones?

There is one strange thing with sending big (>1 Mb) files::

On win98 it goes without any problem. On XP at the end of transfer 
rebol returns an error message about network timeout, but the file 
is sent and all is ok..

Thanks guys... Lot of info... Will check it out and send my experiences.

i.e. you have a "table" of APPLY instructions and jump to the one 
you want.

rebcode12 added GLT (a < b < c) and GLTE (a <= b <= c). It's nice 
to have intervals, but in practice I use intervals that are open 
from one side and closed from second side or vice versa, i. e. (a 
<=b < c)

a ** b can be "translated" as follows:

log-e a
muld a b
exp a

similarly root:

log-e a
divd a b
exp a

A note about speed:
I've made an exponont function like this:

exponent: rebcode [b [decimal!] x [decimal!]] [
	eqd x 0.0
	braf 2
	return 1.0
	log-e b
	muld b x
	exp b
	return b
]

It can then be used in a rebcode function, e.g.:
apply result exponent [2.0 4.0]

An alternative way is to make a normal REBOL function:
exponent: func [b x][b ** x]
which can be used the same way:
apply result exponent [2.0 4.0]


It turns out, that using a normal REBOL function is faster in this 
example. It then occured to me, that it could be even faster, if 
APPLY was changed to support operators. Like this:
apply result ** [2.0 4.0]

Is that a good request?

bezier: rebcode [
	t	[decimal!]
	P	[block!]
	/local result m n n! i a b c d idx
][
	do result [copy [0.0 0.0]]
	length? n P
	div n 2
	set m n
	sub n 1
	;apply n! factorial [n]
	set n! 1
	repeat x n [
		mul n! x
	]
	repeatz i m [
		to-dec a n!
		;apply b factorial [i]
		set b 1
		repeat x i [
			mul b x
		]
		to-dec b b
		divd a b
		set b n
		sub b i
		;apply c factorial [b]
		set c 1
		repeat x b [
			mul c x
		]
		to-dec c c
		divd a c

		eq i 0
		braf i-not-0
		set d 1.0
		bra muld-d-a
		label i-not-0
		to-dec c i
		set d t
		;apply d power [t c]
		log-e d
		muld d c
		exp d

		label muld-d-a
		muld d a
		set a 1.0
		subd a t

		eq b 0
		braf b-not-0
		set a 1.0
		bra muld-a-c
		label b-not-0
		to-dec b b
		;apply a power [a b]
		log-e a
		muld a b
		exp a

		label muld-a-c
		muld a d

		set idx i
		mul idx 2
		pickz b P idx
		muld b a
		pick c result 1
		addd b c
		poke result 1 b

		add idx 1
		pickz b P idx
		muld b a
		pick c result 2
		addd b c
		poke result 2 b
	]
	return result
]

Ok, it's not %f in DistHelper/COMLib but %e...

I have extened the excel dialect to handle decimal! as well. The 
code in the dialect looks like this:


                | ['set | 'change] opt 'cell set row integer! set col integer! set 
                val [string! | integer! | decimal!] (
                		; ? val
                		; print [row col]
                		switch type?/word val [
                			string!  [
                				; filter all illegal characters
                				replace/all val {"} "'"
                				replace/all val {,} " -"
                				replace/all val newline "; "

                    sendValue excel-app ".ActiveSheet.Cells(%d,%d) = %s" reduce [row 
                    col val]
                			]

                   integer! [sendValue excel-app ".ActiveSheet.Cells(%d,%d) = %d" reduce 
                   [row col val]]

                   decimal! [sendValue excel-app ".ActiveSheet.Cells(%d,%d) = %e" reduce 
                   [row col val]]
                		]

http://arstechnica.com/news.ars/post/20061002-7877.html<---- Teens 
think E-mail is for Old People.

my only problem with IM is that if you are not there at the moment 
of the discussion... its often useless to try and figure out all 
the threads.  just like trying to listen to a taped meeting..   but 
you are right that e-mail in itself is not very structured  (which 
is why I like google  :-)  nothing lost, spam is not intrusive.

Carl - 10 years ago, back in days when VisCorp planned to resurrect 
the Amiga. Those days, he was writing ABL\E, predecessor of REBOL, 
together with Jim Goodnow IIRC ...

For me, it isn't about the current state of VID widgets that are 
built-in--though a better UI toolkit for more advanced apps would 
be *very* welcome--it's about how easy it is to do other things, 
and do them all in one (very nice) language. I also tihnk we're still 
just scratching the surface of REBOL, in part because it's hard to 
build things to share, and not as easy to build larger systems. When 
our mindset is in small apps, there's much less benefit in building 
big frameworks, and even reusable components to some extent. i.e. 
it's often easier, today, to write things ad-hoc, rather than building 
up a library and environment for larger scale development.

1.0.1 available at: http://www.dobeash.com/download.html


Bumped version to 1.0.x as code is no longer "beta" (I actually had 
a few people email me about that!)


Incorporates new IMPORT function (twice as fast as a tight INSERT 
loop) and Robert's nested transaction handling logic (so nested BEGIN, 
COMMIT, END and ROLLBACK statements are correctly handled). Also 
changed logging behavior so all logging is off by default (i.e. use 
/log to turn on *all* logging).

What am I doing wrong here:

rebol []
do %sqlite.r
do %rebgui.r

if not exists? %id.txt [write %id.txt 1]

db: %indodex.db
either not exists? db [
    CONNECT/create/flat/direct/format db

    SQL "create table base (id, Nama, Alamat, Telefon, Handfon, Fax, 
    Email, Tgl_Nikah, Nota)"

    SQL "create table birthdays (id, Nama, Jenis, Hubungan, Tgl_Lahir, 
    Agama, Nota)"
][
    CONNECT/flat/direct/format db
]
unless value? 'ctx-rebgui [
	either exists? %rebgui-ctx.r [do %rebgui-ctx.r] [do %rebgui.r]
]
set-colors
tab-size: 120x55
fonts: reduce [font-sans-serif font-fixed font-serif "verdana"]
do show-cc: make function! [] [
display "IndoDex Ver. 1.0.1" [
    tab-panel #HW data [
        "Add" [

            label "Title:" priority: drop-list 30 #W "Pak" data ["Pak" "Ibu" 
            "Sdr." "Sdri." "Drs." "Dr." "Tuan" "Nyonya"] 20x5
            return
            label "Nama:" nama: field 
            return
            label "Alamat:" alamat: area 50x30
            return
            label "Telefon" telefon: field
            return
            label "Handfon" handfon: field
            return
            label "Fax:" fax: field
            return
            label "E-Mail:" email: field
            return
            label "Nota:" nota: area 50x30
            return
            button "Save" [
                (id: to-integer read %id.txt)

                SQL/flat/direct {insert into base values (id, Nama, Alamat, Telefon, 
                Handfon, Fax, Email, Tgl_Nikah, Nota)}
                (write %id.txt id)
                show-text ex-status "Saved"]
        ]
        "Edit" [
            
	]
	"Search" [
	]
    ]
]
]
do-events

Here's the latest version:

rebol []
do %sqlite.r
do %rebgui.r
unless value? 'ctx-rebgui [
	either exists? %rebgui-ctx.r [do %rebgui-ctx.r] [do %rebgui.r]
]
set-colors
tab-size: 120x55
fonts: reduce [font-sans-serif font-fixed font-serif "verdana"]

if not exists? %id.txt [write %id.txt 1]
i: to-integer read %id.txt
i: i - 1
either not exists? %indodex.db [
    CONNECT/create %indodex.db

    SQL "create table base (ID, Title, Nama, Alamat, Telefon, Handfon, 
    Fax, Email, Tgl_Nikah, Nota)"

    SQL "create table birthdays (ID, Nama, Jenis, Hubungan, Tgl_Lahir, 
    Agama, Nota)"
][
    CONNECT %indodex.db
]
do show-cc: make function! [] [
set-colors
display "IndoDex Ver. 1.0.1" [
            label 16 "ID:" id: text (to-string i)
            return

            label 16 "Title:" title: drop-list 30 #W "Pak" data ["Pak" "Ibu" 
            "Sdr." "Sdri." "Drs." "Dr." "Tuan" "Nyonya"] 20x5
            return
            label 16 "Nama:" nama: field 
            return
            label 16 "Alamat:" alamat: area 50x30
            return
            label 16 "Telefon:" telefon: field
            return
            label 16 "Handfon:" handfon: field
            return
            label 16 "Fax:" fax: fax: field
            return
            label 16 "E-Mail:" email: field
            return
            label 16 "Nota:" nota: area 50x30
            return
            button "Save" [

                ;UNCOMMENT THE FOLLOWING LINES AND YOU WILL SEE THEY DON'T WORK. 
                ANYBODY KNOW WHAT IS WRONG?

                ;SQL reduce ["insert into base values (?, ?, ?, ?, ?, ?, ?, ?, ?, 
                ?)" id/text, title/text, nama/text, alamat/text, telefon/text, handfon/text, 
                fax/text, email/text, tgl_nikah/text, nota/text]

                ;SQL {insert into base values ('Pak' 'Ibu' 'Sdr.' 'Sdri.' 'Drs.' 
                'Dr.' 'Tuan' 'Nyonya' 'Jonew')}
                (i: to-integer i)
                (i: i + 1)
                (write %id.txt i)
                (i: to-string i)
            ]
            button "GUI Info [

                print [id/text " " title/text " " nama/text " " alamat/text newline]
            ]
            button "DB Info" [
                print TABLES
                SQLite/col-info?: true
                print SQL "select * from base"
                print SQLite/columns
            ]
            button "Halt" [
                halt
            ]
            button "Quit" [
                quit
            ]
]
]
do-events

some of you know my http://www.fm.tul.cz/~ladislav/rebol/lfunc.r
script defining a "luxury function" with initialization of "static 
variables". Example of the behaviour:

    f: lfunc [] [a: 0] [a: a + 1]
    f ; == 1
    f ; == 2


; etc. The behaviour is caused by the fact, that the initialization 
block causes all variables in it to become "static local variables", 
i.e. in this case A is static and local. It looked "natural" for 
me to define it this way.

Rebol3 is going to have CLOSURE-type functions for which initialization 
may be "cheap". Example:

    c: closure [/local a] [a: 0] [a: a + 1]

The difference lies in the fact, that the behaviour would be:

    c ; == 1
    c ; == 1


, i.e. the value will be reset to initial value every time a closure 
is called.

f: closure [/local e] [e: exp 1 print e]
g: closure [/local e] [e: exp 1] [print e]

i.e. if we come up with a really ambitious func spec dialect, should 
we propose it now, for R4, or never (and just mezz it in for those 
who want to use it)?

http://www.rebol.com/docs/cgi-bbs.htmlworks here. WOuld be nice 
if the seperat e files would be included too

i.e. there is no common ground between PS and HTML and so on.

Graham, what I meant is that even to the unit is a *point* the fact 
is that you can more than 72 pixels in a inch. For example laserprinters 
have 300 to 1200. And there is some displays that 96dpi, and I have 
seem e-ink that gives you 150dpi(s).

Josh is it possible to call rebol function from javascript ? i.e. 
expose a function "eval" so when I click an html button I can call 
a rebol function.

Pekr: Backwards-compatibility w/REBOL, AFAIK, is only broken with 
the first digit changing (i.e. 1.x to 3.x). We'll follow that process 
with the plugin -- automatic updates from 1.2 to 1.3, 1.3 to 1.4, 
etc., but a new manual download for 3.0 (including new HTML, side-by-side 
listing in "Downloaded Program Files", etc.)

Here's a few components of Trusted Scripts (this is only a draft 
-- open for feedback):
	* Default security model is tight -- how tight is TBD.

 * Developers that want to take advantage of Trusted Scripts, i.e. 
 to lower security for a production app, first must buy a license.key 
 from RT.

 * license.key unlocks  "features" and "permissions". Features are 
 things like encryption within the script. Permissions include file 
 sandbox, domain restrictions, dll loading permissions, etc.

 * license.key will contain contact info, so we can track down the 
 author of a malicious signed script if necessary.

Volker, good point. We may also provide a certificate verification 
dialog, i.e. "Joe Shmo from company XYZ produced this verified REBOL 
script. Would you like to allow it to run?" or something to that 
effect....I'm not positive here....just tossing ideas out there.

Pekr: If there's something critical for the plugin (I.e. get-net-info), 
we will look at that now.

We didn't forget all the changes and new features we talked about 
[i.e. security, trusted scripts, etc.], but we're putting those on 
hold while we focus on REBOL 3.0 features.

Question: On these systems that need full proxy support, are you 
running the latest OS? (i.e. WinXP SP1+, Win2k3, or WIn2k SP3+)? 
If so, there is OS support in those systems that may make this significantly 
simpler...

You would have only the capability of HTTP and FTP requests via Proxy, 
we're not talking about proxy-enabling the whole network stack. I'm 
not sure that makes sense anyway (i.e. if the cache server serves 
you a cached page, you're not going to communicate with the actual 
server anyway).....

The problem involves not just the auto-configuration script....there 
are also options to use multiple proxy servers, exclusion lists, 
etc. In addition, there are custom authentication schemes, i.e. NTLM 
and Kerberos, that REBOL may not fully support natively. With this 
approach, you receive full support for all of the above.

tries to convert by system and then fix that e-02 based on strings? 
oops, i overlooked the result is completely messed up. you get

Is the reboot done ? I get "La connexion avec le serveur a été réinitialisée 
pendant le chargement de la page." while trying the confirmation 
link.