AltME groups: search

I mean, "/" = form word  ?

Just a comment regarding Gregg's last announcement... your point 
is much clearer, thank you... however, I tend to disagree.. and here's 
why.. 

Since the beginning of February, 94 different Rebols (which some 
call Rebolers) have visited this world.  I would say that the 80/20 
rule would be fairly accurate, where 80% of the posts are made by 
20% of the community.  I'm not exactly sure what the exact percentages 
would be, but I would say that well over half rarely, if ever, say 
a word.   I would like to hear from a few more of these folks .. 
about anything.. who are they?.. what do they do?  And if some Rebol 
chat comes from that.. all the better.  I'd like to see an eagerness 
to participate at whatever level.   


People are drawn here because of a common  interest.. Rebol.  But 
what keeps them coming back?  Is it the pure Rebol conversations? 
 I don't think so.  If that were the case, then where is the Rebol-view 
world?  That used to be the main hang out? I for one, stopped going 
there because it became dry, old, boring and censored.  I preferred 
this world because it DIDN'T have the rules.. the conversations were 
much more free and engaging.. both Rebol and non-Rebol.   I've found 
the business / marketing discussions particularily interesting.  
The 'debates' on evolution vs. creation have been stimulating TO 
ME... maybe not to you.


Rebol needs all the community it can get.  I would make few f any 
'rules', (other than the obvious).  If you want pure Rebol, then 
fire-up Rebol-view and have at it.. But if "this is not our world", 
then what the hell am I doing here?


My online community is where I touch base to see whether I'm on the 
right track, where I get support and advice, and where I learn and 
teach. In the eyes of its many users, online communication is a powerful 
medium for like-minded individuals to form virtual communities that 
provide mutual support, advice and identity.

Communications networks 
offer the prospect of greater opportunities for seeking advice, challenging 
orthodoxy, meeting new minds and constructing one's own sense of 
self. Entirely new notions of social action, based not upon proximity 
and shared physical experience but rather on remote networks of common 
perceptions, may begin to emerge and challenge existing social structures 
(Loader, 1998).

Oh boy. 


First, I *have* been contacted to ask if I could take certain actions, 
but not by RT. RT made me a world master here, which *I* consider 
to be form of moderator (with the main task being to assign and maintain 
accounts), though there is not a definite job description sitting 
on my desk. Now, I am also a regular user in this world, and there 
are definitely conflicts for me WRT those positions.


As I've said before, I enjoy a good chat as much as anyone, and I 
*don't* want to censor people here, but that may be necessary at 
some point, wouldn't you agree? If someone were quite obviously, 
in the opinion of 99.9% of the people here, abusive, rude, offensive, 
etc. should they be allowed to run rampant and ruin this world for 
everyone else? I don't think so; maybe you do.


When I joined the REBOL community, one of the main attractions was 
the high level of mutual respect, the generosity towards newcomers, 
and the complete *lack* of the venom you sometimes see unleashed 
in other language communities. *That* is what kept *me* coming back. 
The more argumentative discussions and personal jibes people see, 
the less likely they are to post, IME, because they don't want to 
be attacked themselves and if that's the tone they often see, it's 
what they will expect. 


When it comes to content, as a world master and a user *I* think 
that *most* channels here *should* be REBOL related. The world is 
called "REBOL", and I think RT created and sponsors it for the REBOL 
community. That's my view; that's how I view the ML as well. There 
are probably at least 20-25 non-REBOL, non-Technical groups here 
now; that's quite a lot IMO. There are times that I would really 
like to clean this world up a bit, and as a user I could, but as 
a world master I don't feel that I can because someone will complain 
that I'm trying to censor or control things here (so if I ever do 
that, get mad at me as a user, not as a world master :-).  


Petr, I'm sorry you feel that I'm trying to limit free speech here, 
or to control anyone's behavior; I made some *suggestions* I thought 
were appropriate. I spent a *lot* of time writing and editing my 
posts in the hope that they weren't too strong, but still got my 
view across. If you think that you should be able to use this world 
for anything you want, personally, I disagree; it's RTs world and 
we are guests in their house. If there is something specific in my 
posts that offended you, please let me know what it was.


As a user, I haven't been around much lately. Mostly my schedule 
is the cause, but maybe it's also because the technical value of 
the world has been diluted (IMO) by noise, so I'm just not as "driven" 
to come here and make time to participate. I'm normally on dial-up, 
so that affects download time, yes. Right now, I'm on a fast connection 
but the noise is still a problem because I have to visit all the 
groups that come up red to see what's new, and if I only have a small 
amount of time to spend, it may all get eaten up just skimming what 
others posted. Also, the more noise there is, and the more we get 
in the habit of talking about non-technical stuff here (again, this 
is all *my* opinion), the more chance there is for it to leak out 
into other groups, and it does. 


The camaraderie comes from the people; the technical value comes 
from the experts  who often focus on that aspect and may stop coming 
if there's too much noise here. When that happens, the value of the 
world is diminished. 


Well, my time is long gone for writing here, but I hope that helps 
clarify my position.

for example here in france macs are pretty well implented in university 
because they are simple to manage in hight number. In hoght schools 
you get windows but you get lesser computer to manage (In my hight 
school in 1997 they was only 30 computers equiped with windows with 
a controled acces for the students you can use it only on certain 
days of the weeks durring a gived time. When I ingress to university 
they was 200 macs for every one  to use every time 100 windows pc 
to be used on restricted time and 20 Alphas/linux debian + 10 Sillicon 
graphics 02 with IRIX + 3 data severs (2 sun ultra 1 (X11 sharing) 
 + 1 dec 50 (NFS, mail, web ) + 40 Xteminal box for former computer 
ingeneer  ) MAc and PC was used for office application LINUX/UNIX 
computers was used to form computer ingeneer .This shows pretty well 
I think the world clivage in informatic :)

REBOL [
	Title: "Local Index" 
	Type: 'index 
	dynamic: true 
	plugin-pane: 0.5
]

title "Local Files"
app 0.3

group "A" effect [multiply green] 
			 
group "B" icon %action.png

action "a\gitarre"    do [explore %/f/gitarre/]
action "a\view-root" do [explore view-root]
action "a\hamster"   do [call "H:\prog\Hamster\Hamster.exe"]

action "b\Internet" do [
	call "H:\Programme\offline-proxy-mm3\MM3-WebAssistant.bat"
	call "C:\Programme\discountsurfer\discountsurfer.exe"
	call "H:\Programme\Mozilla\Firefox\firefox.exe"
	call "C:\Programme\Opera75\Opera.exe"
] 


action "b\Firefox" do [	call "H:\Programme\Mozilla\Firefox\firefox.exe"] 
icon %web-surf-action.png

action "c\desktop"   do [editor view-root/desktop.r] 
action "c\imap"      do [editor %imap-handler.r] 

file "Info" %info.txt
file "T\Test" %test1.r 
file "T\Test2" %test2.r 
file "T\Test" %test3.r

; this is composed ----
file (form now/date) %dummy.r

action "Click me" #clickme do [
            alert "hi"

            [Text "This will be displayed within the desktop" [alert "ho"]]
          ]

action "Click me 2" #clickme2 do [
            alert "hi"
			; no return value, so nothing displayed in the desktop
          ]

action "PRINT" do [print "^/^/----------------------^/^/^/"]
action "prin somethin" do ["yea"]
file "t\Test" %dummy.r

; this will draw the plugin
app-draw [face /local cl-size][
   cl-size: to pair! reduce [face/size/x 50]
	face/pane: layout/offset[
		at 0x0 
	   text "00:00:00" cl-size center 255.155.40 with [
   		font: [size: 24]
	   	rate: 1
		   user-data: none
   		feel: make feel [
	   		engage: func [face action event i] [
		   		if user-data <> now/time [
			   		i: form user-data: now/time
				   	if 7 > length? i [append i ":00"]
					   face/text: i
   					show face
	   			]
		   	]
      	]
      ]
      text "TEST" 
		button "hi" [alert "you!"] 
   	button "CLOSE" [unview/all] 
	] 0x0 face/size 
]

; if you need to redraw after a resize, not yet used
app-resize [new-size][]

linux 1.3 Beta -> This exmaple for the NEW view document always displays 
32767x32767 when AWAY form the face 
view make face [
    offset: 100x100
    pane: reduce [
        make face [
            text: "Move the mouse over this"
            color: yellow
            edge: none
            feel: make feel [
                over: func [face into pos] [
                    text: reform [
                        pick ["over" "away"] into
                        pos
                    ]
                    color: pick reduce [green red] into
                    show face
                ]
            ]
        ]
    ]


]

There is a bug that is currently plaguing us though and its going 
to be difficult to corner but needs to be found.  On some systems 
then:

>> form 1.0
== "1.0"

Others:

>> form 1.0
== "1"

Actually, the latest beta acts the same on both Linux and Windows 
and uses the "1.0" form which is wrong.  Form  should return "1" 
where Mold should return "1.0"

Let's see, anton-user.r...
if find form system/product "view" [


 if (system/version * 1.1.1.0.0) < 1.2.110.0.0 [ ; View1.2.110 has 
 Romano's FTP handler built in.
		do load-thru site/patch/ftp-romano-patch/ftp-patch53.r
	]

and we should decide first and foremost if its the intented value 
of the datatype which is consistent or the actual lexical form which 
is the consistent measure.

in some types this will have a lot of meaning/differentiation  ... 
take the date for example... do we equate the number of seconds, 
or the lexical textual form... or both, depending on other type pair...

switch port/locals/access/type [
            list [
                port/locals/list: copy* []
                port/state/tail: 0

                imap-check port reform [uppercase port/locals/access/list {""}

                    imap-form-string port/locals/access/name] none [ok]
            ]
            box select-block
            iuid [
                do select-block
                port/state/tail: 1
            ]
            search [
                port/locals/msg-uids: copy* []
                do select-block

                imap-check port reform ["UID SEARCH" port/locals/access/search] none 
                [ok]
                port/state/tail: length? port/locals/msg-uids
            ]
        ]

Example:
Let's say, our date is 6 digits YYMMDD.
>> date: "230812"
We deside, it's the year 2023:
>> insert date "20"
Now dashes are inserted to form a date understandable by REBOL:
>> insert skip date 6 "-"
>> insert skip date 4 "-"
Date now looks like this:
>> date
== "2023-08-12"
And we can control, it's a valid date with:
>> to-date date
== 12-Aug-2023

If it's not a valid date, like if the original had other characters 
than digits, we'll get an error. Errors can be caught with:
>> error? try [to-date "foobar"]
== true

Hope it helps.

Graham - EMR system for doctors - http://synapsedirect.com/default.aspx


Ashley - RebGUI - alternative gui system for View, less resource 
hundry, less free form, but more complete, fine docs! - http://www.dobeash.com/


Maxim - he does stuff, no one properly understands, he is kind of 
crazy, but we like him :-) Data Flow engines etc. Look for Still, 
Liquid, Elixir, etc.

Does REBOL provide architecture documentation/guidelines and/or frameworks 
for the development of scalable, fault tolerant, manageable, with 
hot code swapping for soft real-time 24x7 applications?
 


Petr already covered the basics (Thanks for doing that Petr!), so 
I'll just chime in with opinions. 


I've been using REBOL since 2001. No tool is perfect, and REBOL is 
no exception, but there are only a few things I think it really isn't 
suited for even in its current form. It was not designed for programming 
in the large, but that's a benefit as much as a drawback, until you 
start building larger systems. IME, REBOL does require a different 
mindset if you want to get the most out of it. You can write code 
as you would in many other languages, but you won't see the big benefits 
REBOL offers if you do. It's still a good tool, even used that way.


The docs and tools you asked about don't exist in official form, 
but there are a lot of "pieces" in the community. I'm working on 
something now that has those same goals.

Yes, but with dialects, you can be as free form as you wish ... well, 
mostly ... But of course that is different - you have to construct 
your grammar ...

What is the best way to get an formatted timestamp that matches IBM 
DB2 in this form: ccyy-mm-dd-hh:mm:ss.nnnnnn

I tried this, but I'm stuck on how to extract out the nanoseconds 
from Now/precise:


Timestamp: rejoin [ now/year "-" now/month "-" now/day "-" now/time 
".000000" ]


Also, if the month or day is less than 2 digits, I need a leading 
zero -- how can I do this easily?

You might consider that the time will march on during the course 
of your evaluation, so you might want to store it in a local variable, 
like this:


pad0: func [x n [integer!]] [head insert/dup (x: form :x) "0" (n 
- length? x)]
now-timestamp: func [/local n] [n: now/precise rejoin [

    pad0 n/1 4 "-" pad0 n/2 2 "-" pad0 n/3 2 "-" pad0 n/4 11 "000"
]]

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"

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.

delimit: func [
        "Insert a delimiter between series values."
        series [series!] "Series to delimit. Will be modified."
        value            "The delimiter to insert between items."

        /skip   ;<-- be sure to use system/words/skip in this func

            size [integer!] "The number of items between delimiters. Default 
            is 1."
    ][
        ; By default, delimiters go between each item.
        ; MAX catches zero and negative sizes.
        size: max 1 any [size 1]

        ; If we aren't going to insert any delimiters, just return the series.

        ; This check means FORSKIP should always give us a series result,
        ; rather than NONE, so we can safely inline HEAD with it.
        if size + 1 > length? series [return series]
        ; We don't want a delimiter at the beginning.
        series: system/words/skip series size

        ; Use size+n because we're inserting a delimiter on each pass,

        ; and need to skip over that as well. If we're inserting a

        ; series into a string, we have to skip the length of that

        ; series. i.e. the delimiter value is more than a single item
        ; we need to skip.
        size: size + any [

            all [list? series  0] ; lists behave differently; no need to skip 
            dlm.

            all [any-string? series  series? value  length? value]
            all [any-string? series  length? form value]
            1
        ]
        head forskip series size [insert/only series value]
    ]

fmt-for-Excel: func [blk dlm] [
	rejoin delimit collect fld [
		foreach val blk [
			val: form val
			replace/all val {"} {""}
			if find val #"," [val: rejoin [{"} val {"}]]
			fld: val
		]
	] dlm
]

fmt-for-Excel [{"A"} "B" "C,C" {"4,4"}] #","

Carl wants such a list for   form, mold, to string!,  format (but 
that's R3), add the serial form, score some points and help the beginners 
in one grand pdf-maker datatype file.  Not much to ask, is it John? 
 :)

I was just kidding...I'm about half way through using your pdf-maker 
(v2) to document the R2 datatypes regarding  to string! form mold. 
 Blog http://www.rebol.net/r3blogs/0092.htmlbut like I everything 
I do now-a-days, it comes pre-expired  :)

Robert;  By definition in REBOL the only logical false values are 
#[false] and #[none]  So for instance, integer! 0 is logcally true, 
which took me by surprise at first, but that is the way of REBOL. 
 Surprise! Usually pleasant. :)


Aside: The other words that evaluate as false; no, off (others?) 
do not have a pure lexical form so, #[off] is not a loadable value 
but the word off still evaluates to #[false].


And  to logic! get/any 'an-unset-word  will evaluate as #[true], 
as back to the defintion, only #[false] and #[none] are false.  As 
far as I understand it anyway.

I have written an alternate form of the func WHAT  that dumps to 
a file ( I have only 481 global functions at startup )

I will try to find time to build a page that gives clicks for SOURCE 
and HELP for each func in a given file dump (and maybe group them)
I tried messing with PRINT but that broke HELP and SOURCE ;-)

; this is handy if you are new as am I

>> foreach t (sort/compare datatypes func [a b] [ (form a) < (form 
b)]) [print mold t]

I have to design a complex form with lots of boxes and text. Is there 
a dialect to define that ? thxs

;***** Conversion function from/to CSV format
csv-to-block: func [

 "Convert a string of CSV formated data to a Rebol block. First line 
 is header."
	csv-data [string!] "CSV data."

 /separator separ [char!] "Separator to use if different of comma 
 (,)."
	/without-header "Do not include header in the result."

 /local out line start end this-string header record value data chars 
 spaces chars-but-space

 ; CSV format information http://www.creativyst.com/Doc/Articles/CSV/CSV01.htm
] [
	out: copy []
	separ: any [separ #","]
	

 ; This function handle replacement of dual double-quote by quote 
 while copying substring
	this-string: func [s e] [replace/all copy/part s e {""} {"}]
	; CSV parsing rules

 header: [(line: copy []) value any [separ value] (if not without-header 
 [append/only out line])]

 record: [(line: copy []) value any [separ value] (append/only out 
 line)]

 value: [any spaces data any spaces (append line this-string start 
 end)]

 data: [start: some chars-but-space end: | #"^"" start: any [some 
 chars | {""} | #"," | newline] end: #"^""]
	chars: complement charset rejoin [ {"} separ newline]
	spaces: charset exclude { ^-} form separ
	chars-but-space: exclude chars spaces
	
	parse/all csv-data [header any [newline record] any newline end]
	out
]

block-to-csv: func [
	"Convert a block of blocks to a CSV formated string." 
	blk-data [block!] "block of data to convert"
	/separator separ "Separator to use if different of comma (,)."
	/local out csv-string record value v
] [
	out: copy ""
	separ: any [separ #","]
	; This function convert a string to a CSV formated one

 csv-string: func [val] [head insert next copy {""} replace/all copy 
 val {"} {""} ]
	record: [into [some [value (append out #",")]]]

 value: [set v string! (append out csv-string v) | set v any-type! 
 (append out form v)]
	

 parse/all blk-data [any [record (remove back tail out append out 
 newline)]]
	out
]

I guess I need to form it before I add them to the macros block.

I am using an adapted form of it commercially so far.  I have implemented 
full schema validation and loading (in rebol) but its proprietary 
code I can't release.  So guys, it can be done !

guru question;  Will a utype! definition be allowed to wrap builtins? 
 SNMP MIBs require a fairly heavy weight tuple!  But will a short 
MIB conflict with internal scans of tuple! or do utype! scans take 
some form of precedent?  I've become curious, yet remain dumb enough 
to not know.

Alternative:
parse form [1 2 3] ["1" "2" "3"]

curl is a command line tool for transferring files with URL syntax, 
supporting FTP, FTPS, HTTP, HTTPS, GOPHER, TELNET, DICT, FILE and 
LDAP. Curl supports HTTPS certificates, HTTP POST, HTTP PUT, FTP 
uploading, HTTP form based upload, proxies, cookies, user+password 
authentication (Basic, Digest, NTLM, Negotiate, kerberos...), file 
transfer resume, proxy tunneling and a busload of other useful tricks.

is that the same for the action of a form ?

Yes, I just changed my header analysis lookup form to use this ...

what you'd do in your case is have a template with everything in, 
and the code selects what to show. from the point of view of the 
code, you just have abstract entities ("login form", "list of accounts", 
"list of messages" and so on) and you habdle that. how they are implemented 
in HTML is not something you need to worry about, except in some 
rare cases or when you are in a hurry and do QAD things ;)

Hmm.. for <form name="def" id="def" action=planet.cgi?1213&adr method=POST 
autocomplete=off>, the server doesn't seem to like   read/custom 
http://www.territories3069.com/3.x/planet.cgi?1213&adr[POST {ddr=1212}]

It gives a 405 error (Method not allowed)

The approach I have is that  every session has a cookie and disk 
storage associated to the cookie. When I define a web form, the action 
method gets a continuation id as a cgi parameter, so if at that point 
you clone the browser window, you as a user have to continuation 
ids

When the user posts a form ,  the form cgi stores the continuation 
id and a rebol block with name-value pairs

If you post the second form also (something you would do e.g. when 
checking flights in a reservation engine, as Jaime's reference paper 
suggests) a second continuation id and rebol block would be stored 
for the same session

That's a form of cloaking. Google does not like cloaking, even "white 
hat" cloaking of the sort you are suggesting:
http://www.google.com/support/bin/answer.py?answer=745


Better to respond to Google's if-modified-since header -- it may 
reduce total bandwith by a great deal:
http://www.google.com/webmasters/guidelines.html


Also consider supplying a Google Sitemap -- and that can have modification 
dates embedded in it too. It may reduce googlebot's visits to older 
pages
http://www.google.com/webmasters/sitemaps/login

Is there any script for multipart/form-data upload from Rebol to 
server?

My understanding is, that sessions=cookies (or hidden form field, 
url, or combination of those ones) plus storage/invocation mechanism

How to reset variables sent from a form using POST method without 
redirecting into new page? I mean how to prevent, that using reload 
will resend the values again. I usualy just set location to other 
page after processing, but now I have case when I need to display 
informations without change of the location. I think I've seen somewhere 
that it's possible using http response, but cannot find it:(

with rebol/VM 1.2.116.3.1 and windows XP SP2 ( i don't experiment 
those bugs by my own there where submitted in the Form of rebolfrance.org 
website by cr8825.)

Roadmap updated. The only thing I have left to do is fill in all 
the "Features" and "To Do" entries, which I need to think on for 
a while.


shadwolf: Good work, you can get the complete widget set from the 
updated roadmap (table 3.4). With regards to the DokWiki ... build 
it and they will come, but you may want to refresh folks memory (mine 
included) with how to register / access (point form summary). Also, 
it's not just widgets that need more work ... localization could 
do with some native language assistance. ;)

No need to register to post .. Well it's better that's sure ... So 
to register go to this page http://www.rebolfrance.info/rebolfrance.info?do=register
you fill the form with login, Real Name and e-mail.

Once you have filled the form you need to send your password by mail 
to the administrator of the dokuwiki :) (register have some problems 
...so we make it manually ...)

If the memory is allocated (in local variables) then you can't. Cos 
it is still in use.
Otherwise, try recycle/torture


But first, try to work out what stats is saying (cos I don't understand 
it) --- look at this:
  stats

  longstring: form now/precise loop 20 [append longstring random longstring]
  stats

Longstring is some 25meg long and not very compressible , but the 
2nd stats returns (for me) a slighly larger number than the 1st time.


Stats has some refinements now -- try help stats -- they might be 
more useful for tracking memory.

And maybe switch to core group for a general discussion.

>> stats
== 4190349

>>   longstring: form now/precise loop 20 [append longstring random 
longstring]

== {19-Jun-2005/12:18:31.453+2:001.439u-:-3150/2n20810:1:52+0J120:-:+/-05n5222:-1401358.:J0:191u.5n0J9:23082/u11+343
0-105335400-21u...
>>   stats
== 51939328
>> length? longstring
== 30408704
>> 51939328 - 4190349
== 47748979

Reasons:

	1) Solid authoring tools
	2) Access to a large number of existing SVG icons (if needed)
	3) The standard for vector graphics
	4) Interoperability

 5) Publicity ("we support SVG icons", as opposed to, "our icons are 
 just REBOL blocks")


If we generate our own content then there is nothing stopping us 
having icons in source form (SVG) *and* pre-compiled form (draw block).

Normand I'm glad to see that some of the UI ideas form MDP-GUI have 
been retaked into BibleX ;à

Ashley, I've also come across the need to use width keywords.  I'm 
still not sure what the best method may be, but I'm leaning toward 
devising a generic UI grid.  At its simplest, it'd be like a 2-cell 
(four guideline) html table with labels on the left, controls on 
the right.  But this could also broken and repeated across the width 
of a form, with keywords/parameters used to position elements across 
the guidelines.  This is a thought in progress, unfleshed.

Somewhat in the mold of a Wordprocessor, but with form elements instead 
of paragraphs...

Column resizing and sorting now work correctly. In addition a number 
of useful accessor functions exist to more easily manage the data. 
From the online doco:

5.24 Table


Columns and rows of values formatted according to a header definition 
block.

Specification
 	action	block to execute when an item is selected. 	
 	data 	block of values. 	

  options 	Optional multi word followed by column header entries in 
  the form: 	
		string specifying column title
		word specifying column alignment
		decimal specifying column width as a percentage

Runtime
 	data 	block of values to display. 	
 	picked 	block of currently selected row number(s). 	
 	selected 	block of currently selected data. 	
 	redraw 	function to redraw widget after data changes.

One of the most difficult fields was date entry field 99.99.9999, 
with VO we had three or more implementations. Native one pretty sucked 
- it is all about what chars you allow, what happens if you press 
tab, del, how is field hilighted by default, what part is hilighted, 
if your backspace key deleting letters stops at dot or not etc ec. 
With date field - do you want to allow user to enter any number? 
67 or other number is surely not a good day-number, is it? :-) Now 
do you want to disallow user to type nonsense directly? How do you 
know without linking it to calendar? Or do you do your validation 
when leaving your field? Some ppl do validation once per form, e.g. 
when you try to press "Save" button (not my preferred way, at least 
for some field-types, but some do prefer that) ...

Good questions.....A zio code format depends on the country....even 
if you switch masks vy country name, the country name may be entered 
after the zip code.

You'll only handle that correctly with post-form completion validation.

Got some bug when I create a form with a radio button where the pf 
in the engage function is none.

By the way, if the block is required to be a literal, numeric offsets 
could be decided to be specified in either absolute or relative form. 
If you allow the block to specified through a word, absolute numeric 
offsets are the only practical option - this is probably another 
negative for label blocks in a word.

Is there someone interested in making dialect form making rebcodes? 
Or someone already doing it?

form = for

so, this instruction is used to addapt the result in a bcd form

for example if you add 06h and 04h, you get 0Ah which is the correct 
result in byte form, using DAA after such addition, convert the result 
into 10h which is the correct result in BCD form

Is this an accepted method of populating the fields of a view form 
or is there a more precise method?

btn-next: func[][
   if (counter  < (length? db)) [
    counter: counter + 1
    lname/text: db/:counter/2
    fname/text: db/:counter/3
    spouse/text: db/:counter/4
    email/text: db/:counter/5
    hphone/text: db/:counter/6
    cphone/text: db/:counter/7
    addr/text: db/:counter/8
    city/text: db/:counter/9
    state/text: db/:counter/10
    zip/text: db/:counter/11
    
    show window
    ]
]

Priorities would mean more special cases for the evaluation - instead 
of a consistent op! behaviour.

It's not just + * - /, it's for // ** and or xor = > >= <= <> == 
=? too.

The left to right rule is itself quite an improvement in readability 
over the pure form:
>> * + 3 2 5
== 25

test: form ps [
	font Times-Roman 40
	linewidth 0
	at 72x720 "REBOL PostScript Dialect"
	at 72x716 line 520x716	
	font Times-Roman 16

 at 96x680 "With this dialect it's possible to easily produce PostScript 
 output."
	font Courier 24
	at 96x600 "You can use different fonts."
	font Times-Roman 16
	gsave
	at 120x550 rotate -30 
	"Make"
	grestore
	gsave
	at 160x450 rotate 30 scale 2 4 "transformations"
	grestore
	at 96x400 "And do graphics:"
	at 100x320 box 200x40 stroke
	gsave
	at 180x240 rotate 20 
	setgray .6 
	box 100x80 fill
	grestore
	at 150x250 line 200x290 180x305 194x340
	font Helvetica-Oblique 12
	at 72x72 "Postscript is copyright Adobe."
]

test3: form ps/header [
	gsave
	translate 72x72
	at 0x0 box 72x72 stroke
	grestore
	showpage
]

test3: form ps/header [
	gsave
	translate 72x72
	newpath
	at 0x0 box 72x72 stroke
	grestore
	showpage
]

make-circles: func [ count /local out ][
	out: copy []
	loop count [

  repend out [ 'newpath 'circle to-pair reduce [ random 700 random 
  700 ] random 40 
			'color 
			to-tuple rejoin [ random 255 "." random 255 "." random 255 ]
			'fill
		] 
	]
	out
]

test5: form ps/header compose [
	gsave
	(make-circles 500)
	grestore
	showpage
]

reading your Synapse link reference - actually that is the quesiton 
of POV, for me the first paragraph has completly reverse meaning 
"The advantage of using PostScript is that Synapse EMR can display 
them nativey, and does not use PDF for printing.". I think that most 
ppl and platforms do have PDF Reader of some form, which means - 
I've got a preview mechanism, avoiding user to easily modify the 
output.

stringwidth returns the width and some form of Y value that is not 
the height, but something else.

though not in that form

now it would be nice with some form of margin management

It's not a short paste...
[HTTPd] ================== NEW REQUEST ==================

                                                         [HTTPd] Request Line=>GET /testapp/ HTTP/1.1

                                                                                                     [HTTPd] Request Headers=>
Host: localhost:8080

User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.3) Gecko/20070310 
Iceweasel/2.0.0.3 (Debian-2.0.0.3-1)

Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive


[HTTPd] Phase url-to-filename done ( mod-alias )

                                                [HTTPd] Phase url-to-filename done ( mod-rsp )

                                                                                              [HTTPd] Phase url-to-filename done ( mod-fastcgi )
   [HTTPd] Phase url-to-filename done ( mod-static )

                                                    [HTTPd] Phase access-check done ( mod-action )

                                                                                                  [HTTPd] Phase set-mime-type done ( mod-action )
    [HTTPd] Phase make-response done ( mod-rsp )

                                                [HTTPd] Response=>

                                                                  HTTP/1.1 302 Moved Temporarily
Server: Cheyenne/0.9.11
Connection: close
Location: /testapp/login.rsp


[HTTPd] Phase logging done ( mod-static )

                                         [HTTPd] Phase clean-up done ( mod-rsp )

                                                                                [HTTPd] Connection closed

[HTTPd] ================== NEW REQUEST ==================        
                                        /

                                                         [HTTPd] Request Line=>GET /testapp/login.rsp HTTP/1.1

                                                                                                              [HTTPd] Request Headers=>
Host: localhost:8080

User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.3) Gecko/20070310 
Iceweasel/2.0.0.3 (Debian-2.0.0.3-1)

Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive


[HTTPd] Phase url-to-filename done ( mod-alias )

                                                [HTTPd] Phase url-to-filename done ( mod-rsp )

                                                                                              [HTTPd] Phase url-to-filename done ( mod-fastcgi )
   [HTTPd] Phase url-to-filename done ( mod-static )

                                                    [HTTPd] Phase access-check done ( mod-action )

                                                                                                  [HTTPd] Phase set-mime-type done ( mod-action )
    [HTTPd] Phase make-response done ( mod-rsp )
[HTTPd] Response=>
                  HTTP/1.1 200 OK
Server: Cheyenne/0.9.11
Content-Length: 482
Content-Type: text/html
Connection: Keep-Alive

Set-Cookie: RSPSID=EISPOMAZTPDFKVIWJAFONZDE; expires=Sat, 02 Jun 
2007 11:54:30 GMT; path=/testapp; HttpOnly
Pragma: no-cache
Cache-Control: no-cache, must-revalidate
Expires: Thu, 01 Dec 1994 16:00:00 GMT


[HTTPd] Phase logging done ( mod-static )

                                         [HTTPd] Phase clean-up done ( mod-rsp )

                                                                                [HTTPd] Phase task-done done ( mod-rsp )

[HTTPd] ================== NEW REQUEST ==================        
                                                       \

                                                         [HTTPd] Request Line=>POST /testapp/login.rsp HTTP/1.1

                                                                                                               [HTTPd] Request Headers=>
Host: localhost:8080

User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.3) Gecko/20070310 
Iceweasel/2.0.0.3 (Debian-2.0.0.3-1)

Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://localhost:8080/testapp/login.rsp
Content-Type: application/x-www-form-urlencoded
Content-Length: 23


[HTTPd] Phase url-to-filename done ( mod-alias )

                                                [HTTPd] Phase url-to-filename done ( mod-rsp )

                                                                                              [HTTPd] Phase url-to-filename done ( mod-fastcgi )
   [HTTPd] Phase url-to-filename done ( mod-static )

                                                    [HTTPd] Posted data=>login=test&pass=letmein

                                                                                                [HTTPd] Phase access-check done ( mod-action )
 [HTTPd] Phase set-mime-type done ( mod-action )

                                                [HTTPd] Phase make-response done ( mod-rsp )
[HTTPd] Response=>
                  HTTP/1.1 301 Moved Permanently
Server: Cheyenne/0.9.11
Connection: close
Location: /testapp/

Set-Cookie: RSPSID=YDADUIONKJPHLFBWEDZDFCXN; expires=Sat, 02 Jun 
2007 11:54:37 GMT; path=/testapp; HttpOnly


[HTTPd] Phase logging done ( mod-static )

                                         [HTTPd] Phase clean-up done ( mod-rsp )

                                                                                [HTTPd] Phase task-done done ( mod-rsp )

                                                                                                                        [HTTPd] Connection closed
    [HTTPd] ================== NEW REQUEST ==================

                                                             [HTTPd] Request Line=>GET /testapp/ HTTP/1.1

                                                                                                         [HTTPd] Request Headers=>
Host: localhost:8080

User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.3) Gecko/20070310 
Iceweasel/2.0.0.3 (Debian-2.0.0.3-1)

Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://localhost:8080/testapp/login.rsp


[HTTPd] Phase url-to-filename done ( mod-alias )

                                                [HTTPd] Phase url-to-filename done ( mod-rsp )

                                                                                              [HTTPd] Phase url-to-filename done ( mod-fastcgi )
   [HTTPd] Phase url-to-filename done ( mod-static )

                                                    [HTTPd] Phase access-check done ( mod-action )

                                                                                                  [HTTPd] Phase set-mime-type done ( mod-action )
    [HTTPd] Phase make-response done ( mod-rsp )

                                                [HTTPd] Response=>

                                                                  HTTP/1.1 302 Moved Temporarily
Server: Cheyenne/0.9.11
Connection: close
Location: /testapp/login.rsp


[HTTPd] Phase logging done ( mod-static )

                                         [HTTPd] Phase clean-up done ( mod-rsp )

                                                                                [HTTPd] Connection closed

                                                                                                         [HTTPd] ================== NEW REQUEST ==================

                     [HTTPd] Request Line=>GET /testapp/login.rsp HTTP/1.1

                                                                          [HTTPd] Request Headers=>
Host: localhost:8080

User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.3) Gecko/20070310 
Iceweasel/2.0.0.3 (Debian-2.0.0.3-1)

Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://localhost:8080/testapp/login.rsp


[HTTPd] Phase url-to-filename done ( mod-alias )

                                                [HTTPd] Phase url-to-filename done ( mod-rsp )

                                                                                              [HTTPd] Phase url-to-filename done ( mod-fastcgi )
   [HTTPd] Phase url-to-filename done ( mod-static )

                                                    [HTTPd] Phase access-check done ( mod-action )

                                                                                                  [HTTPd] Phase set-mime-type done ( mod-action )
    [HTTPd] Phase make-response done ( mod-rsp )

                                                [HTTPd] Response=>

                                                                  HTTP/1.1 200 OK
Server: Cheyenne/0.9.11
Content-Length: 482
Content-Type: text/html
Connection: Keep-Alive

Set-Cookie: RSPSID=RTJSUKAVYBNOLCJCJBSTNUHP; expires=Sat, 02 Jun 
2007 11:54:37 GMT; path=/testapp; HttpOnly
Pragma: no-cache
Cache-Control: no-cache, must-revalidate
Expires: Thu, 01 Dec 1994 16:00:00 GMT


[HTTPd] Phase logging done ( mod-static )

                                         [HTTPd] Phase clean-up done ( mod-rsp )

                                                                                [HTTPd] Phase task-done done ( mod-rsp )

I've been playing.

login.rsp

<%
	user: "test"
	pass: "letmein"

        print [<html> <body> <pre>]
        help request
        help request/content
        help session
        help session/content
        print [</pre> </body> </html>]

	in-user: select request/content 'login
	in-pass: select request/content 'pass
	
	if all [user = in-user pass = in-pass][
		session/content/login?: yes
		response/redirect "/testapp"
	]
%>

REQUEST/CONTENT is a block of value: []

Everytime through...first time and after filling in the login form.

My working login.rsp script ...

<%
		in-user: select request/content 'login
		in-pass: select request/content 'pass
		encoding-salt: to-binary "My encryption string"


  print [ <p/> "Login is: " in-user " and pass is " in-pass <p/> ]
				
		encode-pass: func [
			pass [string!]
			salt [binary!]
		] [
			checksum/secure append to binary! pass salt
		]

		
		if all [ in-user in-pass ][
			print <pre>


   qry: rejoin [ {select staffname, sid, fullname from staff where staffname 
   = '} in-user {' and pwd = '} form encode-pass in-pass encoding-salt 
   {'} ]

			probe qry
			print </p>
			
			sql: do-sql 'remr qry 
			print [ "Query result: " sql ]
			print </pre>	
			if found? sql/1 [
				response/redirect "/testapp/"
			]
		]
%>

If I turn on debug in webapp in httpd.cfg I get the  Redirection 
catched  everytime.


The contents are empty, before and after the "POST", but I'm not 
sure since the

redirect is plopping me back at login.rsp.   Even empty when I change 
the form
to method="GET" and hit return...

<html>
<head>
<% include-file %button-header.js %>

	<title>Welcome to TestApp web application</title>
</head>
<body>
<img src="logo.png">
<center>
<% include-file %button-form.js %>
<a href="logout.rsp">Logout</a>
</center>
</body>
</html>

I also did an html-encode to allow easier form interaction... does 
anyone find a use for that?

Take a look at testapp/login.rsp.  I think you just need to session/content/login?: 
yes and response/redirect/ "/theapp/" to get round a login form.

I don't have any ready, but you can easily try by using the show.rsp 
script as the target of a form uploading files.

To test file uploading, here's a short HTML form (put it in %www/) 
:

<form action="show.rsp" method="POST" enctype="multipart/form-data">
	<input type="file" name="ufile" size="16" />
	<input type="submit" name="usubmit" value="upload" />
</form>

Maybe I should try and simulate a multipart form post on the client 
side instead??

Graham, the only problem with that Rebol lies in such cases -- it 
automatically sends 'Content-Type: application/x-www-form-urlencoded', 
even if you try to override it.

For RSP users, watch out the new way GET and POST parameters are 
unified, it may break some of your scripts (the ones using POSTed 
form data).

This is with the latest beta ...

>> page: read http://127.0.0.1/show.cgi
URL Parse: none none 127.0.0.1 none none show.cgi
Net-log: ["Opening" "tcp" "for" "HTTP"]
connecting to: 127.0.0.1
Net-log: {GET /show.cgi HTTP/1.0
Accept: */*
Connection: close
User-Agent: REBOL View 1.3.2.3.1
Host: 127.0.0.1
}
Net-log: "HTTP/1.1 200 OK"
Net-log: ["low level read of " 2048 "bytes"]
Net-log: ["low level read of " 2048 "bytes"]

== {<HTML><BODY><FONT FACE='ARIAL' SIZE='-1'><a href="/">Back</a><br><br>
<B>Script path :</B> /E/cheyenne916/Cheyenne/www/ <BR><BR...

>> page: read/custom http://127.0.0.1/show.cgireduce ['post join 
"content=" url-encode content ]
URL Parse: none none 127.0.0.1 none none show.cgi
Net-log: ["Opening" "tcp" "for" "HTTP"]
connecting to: 127.0.0.1
Net-log: {POST /show.cgi HTTP/1.0
Accept: */*
Connection: close
User-Agent: REBOL View 1.3.2.3.1
Host: 127.0.0.1
Referer: http://127.0.0.1/show.cgi
Content-Type: application/x-www-form-urlencoded
Content-Length: 147479
}
Net-log: none

** User Error: Error.  Target url: http://127.0.0.1/show.cgicould 
not be retrieved.  Server response: none

** Near: page: read/custom http://127.0.0.1/show.cgireduce ['post 
join "content=" url-encode content]
>>

path: form to-local-file req/in/file

path: form to-local-file get-modes req/in/file 'full-path

Agreed...Cheyenne is simple to deploy and setup and great if you 
plan to use rebol for RSP...You will always need an HTML server to 
deliver content but the form of the content?  Is Cheyenne, knowing 
that its Rebol based and supports RSP, does it offer something that 
is ground breaking..or unusual...not seen before.

It's also for wannabe pirates:) No for everybody.. it's a form of 
advertisiment.

Yes, and the trailing "e" which is the feminine form

The archangel uses the e-less form