[REBOL] Re: The all function.
No, adding copy didn't fix your code. Removing the 2 did. (Although, I am not really sure it is fixed...) The problem is that find takes two arguments, not three, as you seem to think in this line: find database 2 chknum This just returns the value of chknum. You had obviously set chknum sometime in your testing on the console. I'll put brackets to show how the above line was evaluated: (find database 2) (chknum) The first value returns none, the second value returns "9898", which must have been what you set it to at some point. In the 'all block, you actually had three values to check, not two, as I am sure you thought you had: rec: all [find database code find database 2 chknum] I will put brackets to show how it was evaluated. rec: all [(find database code) (find database 2) chknum] So 'all would have returned at the second value (none). Perhaps you meant to write: find database/2 chknum That means to look in the second value of the hash! Anton. > I found the solution---add the word copy. > > rec: all [find database code copy (find database chknum)] > > For some reason I keep having to learn that lesson again and again. :>) > > Louis > > At 02:43 PM 4/12/2002 -0500, you wrote: > >Rebol friends, > > > >I have the following line of code to check to make sure that a > record does > >not already exist, but it always returns none: > > > >rec: all [find database code find database chknum] > > > > >> find database code > >== make hash! ["boo" > > make object! [ > > code: "boo" > > chknum: "9898" > > date: 19-Jan-2001 > > amount: $100 > > >> find database 2 chknum > >== "9898" > > >> rec: all [find database code find database 2 chknum] > >== none ; Why is this none > > > >Futher testing shows where the failure is happening: > > > > >> rec: all [find database code] > >== make hash! ["boo" > > make object! [ > > code: "boo" > > chknum: "9898" > > date: 19-Jan-2001 > > amount: $100 > > >> rec: all [find database 2 chknum] > >== none > > >> find database 2 chknum > >== "9898" > > >> all [find database 2 chknum] > >== none > > >> find database 2 chknum > >== "9898" > > >> > > > >Why? > > > >Louis -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Info on 'list style
Actually demo-vid-list.r, not vid-usage.r :) http://anton.idatam.com.au/rebol/gui/demo-vid-list.r Anton. > If you want a list with a scrollbar, look at Anton's rebsite for > vid-usage.r and merge in its slider code. > Gezamailto:[EMAIL PROTECTED] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Searching for experiences with /Command /Pro and IOS
Hi Norman, << I would like to know from people whom are using /Command /Pro or IOS what there experiences are, and if there expectations are fullfilled? >> I have /Pro and convinced a client to get IOS. Get the one that has the features you need. I haven't had a need for /Command yet, but may. IOS is *so* much more that it's hard to compare it with the others. This client's project *needed* IOS. It saved me from building a complete infrastructure that would have been far inferior to IOS no matter what tools I used to build it. It's not perfect, nothing is, but it's pretty incredible. --Gregg -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: The all function.
I found the solution---add the word copy. rec: all [find database code copy (find database chknum)] For some reason I keep having to learn that lesson again and again. :>) Louis At 02:43 PM 4/12/2002 -0500, you wrote: >Rebol friends, > >I have the following line of code to check to make sure that a record does >not already exist, but it always returns none: > >rec: all [find database code find database chknum] > > >> find database code >== make hash! ["boo" > make object! [ > code: "boo" > chknum: "9898" > date: 19-Jan-2001 > amount: $100 > >> find database 2 chknum >== "9898" > >> rec: all [find database code find database 2 chknum] >== none ; Why is this none > >Futher testing shows where the failure is happening: > > >> rec: all [find database code] >== make hash! ["boo" > make object! [ > code: "boo" > chknum: "9898" > date: 19-Jan-2001 > amount: $100 > >> rec: all [find database 2 chknum] >== none > >> find database 2 chknum >== "9898" > >> all [find database 2 chknum] >== none > >> find database 2 chknum >== "9898" > >> > >Why? > >Louis > >-- >To unsubscribe from this list, please send an email to >[EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Searching for experiences with /Command /Pro and IOS
I am using the ODBC feature of command and the browser launch of pro ... do not use view wait for the document (the book?) [EMAIL PROTECTED] wrote: > Hello All, > > I would like to know from people whom are using /Command /Pro or IOS > what there experiences are, and if there expectations are fullfilled? > > I cant descide whether or not to buy /command or IOS or /pro yet... > > Where we...go > > (R)egards, > Norman. > > -- dinner/conversation: "How do you eat your Rebol in the morning?" > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Iterated check box anomaly
Hi Geza, List & supply is just a VID interface to face iteration in View. ("supply" is akin to a "pane func" with a little less effort needed) If you would like to dig further in iterated faces, the following Zine article may help. "Look ma, just one face" http://www.rebolforces.com/zine/rzine-1-04.html#sect4. Cheers, Allen K -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Iterated check box anomaly
Hello Romano, > you must re-initialize the check data field: > if index = 1 [face/data: find a face/text] Hmmm, tricky ;-) Thank you very much, it is a great idea! BTW What is the exact timing of the 'supply function, i.e. on what occasion (event) will it be launched? As far as I can see, it is called not only at initialization time (filling the list with items) but even when I click in the list? First I tried toggles instead of check boxes, but selecting one of them caused to redraw all toggles below the selected one in selected state :-( Is there a way - via some kind of reinitialization - to use toggles properly in an iterated list? Again, View docs are euphemically sparse on a quite difficult topic, like face iteration. -- Best regards, Gezamailto:[EMAIL PROTECTED] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Size of Rebol binary?
Hi Norman, You may find "A Day in the life of REBOL" by Carl http://www.rebolforces.com/zine/rzine-1-01.html#sect8.1 an interesting read. {Maybe today is one of those days when we need to build a new REBOL version. Link gives me access to Jeff's amazing "box builder" app that, with the single click of my mouse, fires up the "build farm" and compiles, links, tests, zips, and posts REBOL for 42 platforms. Whoops, look at that... it's reporting that one of the tests failed on NetBSD for the Dec Alpha. Couldn't be done without REBOL/Command.} Cheers, Allen K -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: serial port (was Re: metex)
It worked fine for me with mm: open/direct serial://port2/1200/8/none/1 are you sure 7 and 2 is correct for your port ? - Original Message - From: Piotr Gapiński <[EMAIL PROTECTED]> To: rebol <[EMAIL PROTECTED]> Sent: Friday, April 12, 2002 12:37 PM Subject: [REBOL] serial port (was Re: metex) > I've tested serial port status against rebol's > mm: open/direct serial://port2/1200/7/none/2 > > here is the result (serial portmon http://www.sysinternals.com logfile) > > StopBits: ERROR Parity: NONE WordLength: 7 > EOF:1a ERR:0 BRK:0 EVT:0 XON:11 XOFF:13 > Shake:9 Replace:80 XonLimit:2048 XoffLimit:1024 > Mask: RXCHAR > > looks like rebol serial setup is buggy? > at least for 2 stop-bits protocol... > > Piotr Gapiński; mailto:[EMAIL PROTECTED] > Olsztyńska Strona Rowerowa; http://www.rowery.olsztyn.pl > > - Original Message - > From: "Brett Handley" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Friday, April 12, 2002 2:40 PM > Subject: [REBOL] Re: metex > > > > Hi, > > > > Here is one idea: > > In basic believe PRINT #2, a$ will emit a line ending (CRLF?). > > > > So your insert should perhaps be > > > > insert mm #"D^/" > > > > or maybe > > > > insert mm join #"D" CRLF > > > > Sorry - thats all I can suggest right now. > > > > Brett. > > > > - Original Message - > > From: "Piotr Gapiński" <[EMAIL PROTECTED]> > > To: "rebol" <[EMAIL PROTECTED]> > > Sent: Friday, April 12, 2002 5:38 AM > > Subject: [REBOL] metex > > > > > > not long ago I've bought a metex multimeter with serial port... > > in docs I saw small basic prog/listing like > > open "com2 : 1200, N, 7, 2, RS, CS, DS, CD" AS #2 > > a$ = "D" > > print #2, a$ > > in$=input$(14, #2) > > print in$ > > close #2 > > end > > > > so I've created small rebol script... > > REBOL [] > > mm: open/direct serial://port2/1200/7/none/2 > > mm/timeout: 5 > > update mm > > insert mm #"D" > > print copy/part mm 14 > > close mm > > > > ...but it doesn't work; > > why? > > > > Piotr Gapiński; mailto:[EMAIL PROTECTED] > > Olsztyńska Strona Rowerowa; http://www.rowery.olsztyn.pl > > > > > > -- > > To unsubscribe from this list, please send an email to > > [EMAIL PROTECTED] with "unsubscribe" in the > > subject, without the quotes. > > > > > > -- > > To unsubscribe from this list, please send an email to > > [EMAIL PROTECTED] with "unsubscribe" in the > > subject, without the quotes. > > > > > > > > > > > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. > -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Prova il brivido della F1, con le leve Ferrari e il volante Thrustmaster! Ideale per giocare in simulazione sportiva con giochi di corse automobilistiche e rally Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=361&d=12-4 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Missing CGI doc
The old cgi how-to is here http://www.rebol.com/howto.html#cgi-scripts.html As for cgi-basics (was in archive) from REBOL Forces, I'll have to track down. Cheers, Allen -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: to-offset
Hi Gregg, thank, you confirm me there is not a more direct way to pick an image offset than multiply. BTW, first pos is faster than pos/x --- Ciao Romano -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Iterated check box anomaly
Hi, Geza you must re-initialize the check data field: a: copy [] q: [ ["1" "Setup"] ["2" "Install"] ["3" "Post-install"] ["4" "Run"] ] view layout [ below list 550x180 [ across origin 2x2 answer: check [ a: either answer/data [ sort unique append a answer/text ][ sort difference a compose [(answer/text)] ] show answer ] question: info wrap 500 ] supply [ if count > length? q [face/show?: false exit] face/show?: true face/text: q/:count/:index if index = 1 [face/data: find a face/text] ] ] --- Ciao Romano -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] The all function.
Rebol friends, I have the following line of code to check to make sure that a record does not already exist, but it always returns none: rec: all [find database code find database chknum] >> find database code == make hash! ["boo" make object! [ code: "boo" chknum: "9898" date: 19-Jan-2001 amount: $100 >> find database 2 chknum == "9898" >> rec: all [find database code find database 2 chknum] == none ; Why is this none Futher testing shows where the failure is happening: >> rec: all [find database code] == make hash! ["boo" make object! [ code: "boo" chknum: "9898" date: 19-Jan-2001 amount: $100 >> rec: all [find database 2 chknum] == none >> find database 2 chknum == "9898" >> all [find database 2 chknum] == none >> find database 2 chknum == "9898" >> Why? Louis -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Missing CGI doc
in the Core 2.3 User Guide, Chapter 12 'Network Protocals' -- CGI 12-49 That is a fairly simple example the hardest part is probably configuring the Webserver let us know what you need. ;-) HTH Ammon On Friday 12 April 2002 09:21 am, you wrote: > Hi rebollers, > > In RT FAQ it is mentioned that a CGI howto should be available in the howto > section. It is not. > At Rebol Forces, there is also a broken link to a cgi-basics.html. > > Is there a place where one can find these ? > > Patrick > > > > > > > ___ >___ ifrance.com, l'email gratuit le plus complet de l'Internet ! > vos emails depuis un navigateur, en POP3, sur Minitel, sur le WAP... > http://www.ifrance.com/_reloc/email.emailif -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Info on 'list style
Hello Alan, Here is a quite simple simple solution: rebol [] m-l-c: [ ["from1" "subject1" "contents1"] ["from2" "subject2" "contents2"] ["from3" "subject3" "contents3"] ] view layout [ below list 550x180 [ btn: button [probe reform [btn/text fld1/text fld2/text]] fld1: field fld2: field ] supply [ if count > length? m-l-c [face/show?: false exit] face/show?: true face/text: m-l-c/:count/:index ] ] Points to keep in mind when designing an iterated list: - harmonize the overall list size and the sizes of the individual items in the list - 'count holds the iterated row number - 'index holds the face index in the row (in the above example, as faces appear in the layout they are linked to the data consecutively: 'btn = 1, 'fld1 = 2, 'fld2 = 3 - faces WILL be iterated to the total height of the list - in the 'supply block setting the face/show? to 'false is _vital_ to hide obsolete extra (repeating the list row!) elements; in this algorithm "overflow" of the iteration is prohibited by the 'if control structure. If you want a list with a scrollbar, look at Anton's rebsite for vid-usage.r and merge in its slider code. -- Best regards, Gezamailto:[EMAIL PROTECTED] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Iterated check box anomaly
Hello REBOLers! I have a question upon a strange behavior of an iterated check box. The list contains a checkbox and an explanatory text per row. Here is the code snippet: a: copy [] q: [ ["1" "Setup"] ["2" "Install"] ["3" "Post-install"] ["4" "Run"] ] view layout [ below list 550x180 [ across origin 2x2 answer: check [ probe a: either probe answer/data [ sort unique append a answer/text ][ sort difference a compose [(answer/text)] ] show answer ] question: info wrap 500 ] supply [ if count > length? q [face/show?: false exit] face/show?: true face/text: q/:count/:index ] ] If I, e.g. select the first answer, then the check box redraws appropriately; thereafter if I select the second answer too, the check box remains in "false" state after the first click - only the second mouse click toggles it's state to "true". Probing the state of the checkbox and the list of answers reveals that the first click on the check box does not toggle it's state IF the previous selection (on another check box) resulted in the same state. I.e. YES-YES or NO-NO answers on two different checkboxes do not toggle the state of the second one, only alternating selections (YES-NO). Despite the visual fault, the action code executes properly and updates the answer block: true ["1"] false ["1" "2"] true ["1" "2"] This is strange: the checkboxes appear to behave as if they were ONE, if they were the SAME face visually but the branching upon their individual logical state executes normally and fills the answer block appropriately. Is there a way to overcome this in an iterated list or should I accept that sometimes two clicks are needed to toggle the "visual" state of a checkbox? Thanx for your ideas Geza -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] serial port (was Re: metex)
I've tested serial port status against rebol's mm: open/direct serial://port2/1200/7/none/2 here is the result (serial portmon http://www.sysinternals.com logfile) StopBits: ERROR Parity: NONE WordLength: 7 EOF:1a ERR:0 BRK:0 EVT:0 XON:11 XOFF:13 Shake:9 Replace:80 XonLimit:2048 XoffLimit:1024 Mask: RXCHAR looks like rebol serial setup is buggy? at least for 2 stop-bits protocol... Piotr Gapiński; mailto:[EMAIL PROTECTED] Olsztyńska Strona Rowerowa; http://www.rowery.olsztyn.pl - Original Message - From: "Brett Handley" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, April 12, 2002 2:40 PM Subject: [REBOL] Re: metex > Hi, > > Here is one idea: > In basic believe PRINT #2, a$ will emit a line ending (CRLF?). > > So your insert should perhaps be > > insert mm #"D^/" > > or maybe > > insert mm join #"D" CRLF > > Sorry - thats all I can suggest right now. > > Brett. > > - Original Message - > From: "Piotr Gapiński" <[EMAIL PROTECTED]> > To: "rebol" <[EMAIL PROTECTED]> > Sent: Friday, April 12, 2002 5:38 AM > Subject: [REBOL] metex > > > not long ago I've bought a metex multimeter with serial port... > in docs I saw small basic prog/listing like > open "com2 : 1200, N, 7, 2, RS, CS, DS, CD" AS #2 > a$ = "D" > print #2, a$ > in$=input$(14, #2) > print in$ > close #2 > end > > so I've created small rebol script... > REBOL [] > mm: open/direct serial://port2/1200/7/none/2 > mm/timeout: 5 > update mm > insert mm #"D" > print copy/part mm 14 > close mm > > ...but it doesn't work; > why? > > Piotr Gapiński; mailto:[EMAIL PROTECTED] > Olsztyńska Strona Rowerowa; http://www.rowery.olsztyn.pl > > > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. > > > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. > > > > -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Script Error: get_func_name has no value
Hi Richard, << get_func_name:make function! [chaine] >> Make sure you have a space after the colon. --Gregg -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Missing CGI doc
Hi rebollers, In RT FAQ it is mentioned that a CGI howto should be available in the howto section. It is not. At Rebol Forces, there is also a broken link to a cgi-basics.html. Is there a place where one can find these ? Patrick __ ifrance.com, l'email gratuit le plus complet de l'Internet ! vos emails depuis un navigateur, en POP3, sur Minitel, sur le WAP... http://www.ifrance.com/_reloc/email.emailif -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Size of Rebol binary?
I remember Carl saying once that they use a rebol script to coordinate the compiles for all the platforms. Of course there isn't just one compile. There is a compile for each platform. Anton. > Hi Norman, > > On Wednesday, April 10, 2002, 1:16:32 PM, you wrote: > > rndn> Do they have different programmers maintaining different > rndn> OS versions or are there group maintaining different OS's > rndn> or Is there ONE compile for all OS's? Im currious.. > > AFAIK, the only programmers at RT are Carl Sassenrath, Holger > Kruse, Jeff Kreis and Sterling Newton. You see, they're pretty > busy. :-) > > Regards, >Gabriele. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: to-offset
Hi Romano, << What is the best way to find the offset of a pixel in an image given a pair? to-offet: func [image [image!] pos [pair!]][ ??? ]>> I wrote an article for the latest 'zine on REBOLForces that deals with this. Here are some relevant snippets. to-index: func [pos [pair!] cols [integer!] ] [ pos/y - 1 * cols + pos/x ] pick-xy: func [data [series!] pos [pair!] cols [integer!] ] [ pick data to-index pos cols ] poke-xy: func [data [series!] pos [pair!] cols [integer!] value ] [ poke data to-index pos cols value ] These wrappers just reduce the number of parameters we have to pass, and make it clear exactly what we're doing. I.e. working with images and pixels. pick-pixel: func [img [image!] pos [pair!]] [ pick-xy img pos img/size/x ] poke-pixel: func [img [image!] pos [pair!] value [tuple!]] [ poke-xy img pos img/size/x value ] HTH! --Gregg -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Script Error: get_func_name has no value
Hi, Richard, You need at least one space after the concluding colon in a SET-WORD! value (unless there's another syntactic cue, such as the beginning of a block or string). See below... COFFRE Richard FTO wrote: > > Hi, > > I have the following code : > > REBOL[] > get_func_name:make function! [chaine] That line must read: get_func_name: make function! [chaine] > [ > guillemet: make string! {"} > >remove/part chaine 6 >foo: copy/part chaine 1 1 >if foo == guillemet >[ > remove/part chaine 1 >] >;supprimer les 2 derniers caractères >clear skip tail chaine -2 > >return chaine > ] > > test:{"123456fonction rearzer r r12"} That line really should read test: {"123456fonction rearzer r r12"} although the space isn't mandatory because of the opening brace for the string. Getting in the habit of inserting spaces will: - make your code easier to read - keep your fingers from leaving out non-optional spaces -jn- -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Script Error: get_func_name has no value
Hi, coffre get_func_name:make function! [chaine] put a space between get_func_name: make function! [chaine] --- Ciao Romano - Original Message - From: "COFFRE Richard FTO" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, April 12, 2002 3:21 PM Subject: [REBOL] Script Error: get_func_name has no value Hi, I have the following code : REBOL[] get_func_name:make function! [chaine] [ guillemet: make string! {"} remove/part chaine 6 foo: copy/part chaine 1 1 if foo == guillemet [ remove/part chaine 1 ] ;supprimer les 2 derniers caractères clear skip tail chaine -2 return chaine ] test:{"123456fonction rearzer r r12"} print get_func_name [ test ] When I run it, it raised the error : ** Script Error: get_func_name has no value ** Near: print get_func_name [test] TIA Richard Coffre France Telecom Orbiscom Tél. : 01 47 61 46 28 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] to-offset
What is the best way to find the offset of a pixel in an image given a pair? to-offet: func [image [image!] pos [pair!]][ ??? ] >> to-offset svv/radio.bmp 5x2 == 73 --- Ciao Romano -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Size of Rebol binary?
Hi Norman, On Wednesday, April 10, 2002, 1:16:32 PM, you wrote: rndn> Do they have different programmers maintaining different rndn> OS versions or are there group maintaining different OS's rndn> or Is there ONE compile for all OS's? Im currious.. AFAIK, the only programmers at RT are Carl Sassenrath, Holger Kruse, Jeff Kreis and Sterling Newton. You see, they're pretty busy. :-) Regards, Gabriele. -- Gabriele Santilli <[EMAIL PROTECTED]> -- REBOL Programmer Amigan -- AGI L'Aquila -- REB: http://web.tiscali.it/rebol/index.r -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Script Error: get_func_name has no value
The problem is that there is a space missing in your first set-word. You need to do this: get_func_name: make ... ^ (a space) See this console session: >> f:make function! [][] ; a function that does nothing... == [] >> f ** Script Error: f has no value ** Near: f >> f: make function! [][] >> f >> <--- notice no error... Anton. > I have the following code : > > REBOL[] > get_func_name:make function! [chaine] > [ > ] > print get_func_name [ test ] > > > When I run it, it raised the error : > ** Script Error: get_func_name has no value > ** Near: print get_func_name [test] > Richard Coffre -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Script Error: get_func_name has no value
Hi, I have the following code : REBOL[] get_func_name:make function! [chaine] [ guillemet: make string! {"} remove/part chaine 6 foo: copy/part chaine 1 1 if foo == guillemet [ remove/part chaine 1 ] ;supprimer les 2 derniers caractères clear skip tail chaine -2 return chaine ] test:{"123456fonction rearzer r r12"} print get_func_name [ test ] When I run it, it raised the error : ** Script Error: get_func_name has no value ** Near: print get_func_name [test] TIA Richard Coffre France Telecom Orbiscom Tél. : 01 47 61 46 28 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Rebol mailing-list archive
http://www.escribe.com/internet/rebol/index.html http://www.rebolforces.com/archive/index.html Brett. - Original Message - From: <[EMAIL PROTECTED]> To: "REBOL" <[EMAIL PROTECTED]> Sent: Friday, April 12, 2002 5:47 PM Subject: [REBOL] Rebol mailing-list archive Hi all, can someone tell me where can I find all the emails written in this mailing-list (archive or history). I wish to see all technical infos and I want to publish a document containing some useful tips & tricks extracted from this mailing-list archive, since I found here many suggestions, technical solutions not found anywhere. thank! bye! -- Alessandro -- -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Ti è capitato di cercare un libro e non riuscire a trovarlo? E' attivo il servizio TrovaLibri di Airbook.it Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=345&d=12-4 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: metex
Hi, Here is one idea: In basic believe PRINT #2, a$ will emit a line ending (CRLF?). So your insert should perhaps be insert mm #"D^/" or maybe insert mm join #"D" CRLF Sorry - thats all I can suggest right now. Brett. - Original Message - From: "Piotr Gapiński" <[EMAIL PROTECTED]> To: "rebol" <[EMAIL PROTECTED]> Sent: Friday, April 12, 2002 5:38 AM Subject: [REBOL] metex not long ago I've bought a metex multimeter with serial port... in docs I saw small basic prog/listing like open "com2 : 1200, N, 7, 2, RS, CS, DS, CD" AS #2 a$ = "D" print #2, a$ in$=input$(14, #2) print in$ close #2 end so I've created small rebol script... REBOL [] mm: open/direct serial://port2/1200/7/none/2 mm/timeout: 5 update mm insert mm #"D" print copy/part mm 14 close mm ...but it doesn't work; why? Piotr Gapiński; mailto:[EMAIL PROTECTED] Olsztyńska Strona Rowerowa; http://www.rowery.olsztyn.pl -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Retrieving mysql columns by name
Thank you for answering my question. Here's another one. - I wrote this program : ;; this is the list of columns in my Mysql request zlistechamps: copy [ "livnum" "livtit" "livaut" "livcat" "livdif" "autnum" "autabr" "autcom" ] getcol: func [ prow 'pnom ] ; prow is the row i get from mysql request ; pnom is the name of the field i want to retrieve [ use [ xind ] [ xind: index? find zlistechamps pnom pick prow xind ] ] I then get my values by : print getcol row "livnum" print getcol row "livtit" print getcol row "autcom" which is equivalent to print row/1 print row/2 print row/8 This way seems to me much more easy and self-explaining than using order numbers. It has the advantage to be request independent. Last problem to solve : How can i automatically create the list of fields in zlistechamps; can i retrieve the columns names from mysql, in a manner like "show columns from table". The difference is that the sql request is not upon a table but is a join request. Further, I think the ultimate goal would be object oriented programming, something that could look like this : rq: open_request("select .") rq/next x: rq/fields "livnum" ... It's just an idea from a newbie in Rebol (i don't even know if the syntax is correct); perhaps does this already exist ? Thank you. - Original Message - From: "Michael Wright" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, April 08, 2002 6:22 AM Subject: [REBOL] Re: Retrieving mysql columns by name > > "Select * from mydb" will return the columns in thier original order > > Try this: "select column3, column9, column2 from mydb" > Substitute your column names :) > > > >To retrieve mysql data, i wrote this program > >... > >sqlchain: "select join " > >insert db sqlchain > >fic: copy db > >foreach row fic > > print row/1 > > ... > > > >Is it possible to retrieve the columns with their name ("numliv"), rather > >than with their order number in the row? > > > >I think about a series that would contain the names of the fields; that > >would then give the order number trough a function call. > > > >How can i fill in automatically this series. > >Does a solution already exist. > > > > > >-- > >To unsubscribe from this list, please send an email to > >[EMAIL PROTECTED] with "unsubscribe" in the > >subject, without the quotes. > > > > > _ > Chat with friends online, try MSN Messenger: http://messenger.msn.com > > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. > -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Creating a list, writing it in a file
Hi, Richard, COFFRE Richard FTO wrote: > > 1. Read the line and extract (if necessary) a function name. > How? "if necessary" based on what? Do you mean some sort of syntax-driven recognition/parsing? As for the rest, let's pretend that "a function name" is the letter #"F" followed by one or more digits. Here's some sample data: 8<--begin morelines.txt-- blah blah F123 blah blah blah F45 blah blah yadda yadda F678 yadda yadda F123 yadda F678 bloop bloop bloop F bloop tada tada tada tada dum da dum dum F123 F9 dum da dum dum 8<--morelines.txt ended-- and here's the script that does what you described: 8<--begin morelines.r-- REBOL [] morelines: make object! [ names: [] digits:charset "0123456789" fnamerule: [#"F" some digits] run: func [fi [file!] fo [file!]] [ names: copy [] foreach line read/lines fi [ parse/all line [ any [ copy name fnamerule ( if not found? find names name [ append names name ] ) | skip ] ] ] write/lines fo sort unique names ] ] 8<--morelines.r ended-- after saying this at the console: >> morelines/run %morelines.txt %morelines2.txt we have 8<--begin morelines2.txt-- F123 F45 F678 F9 8<--morelines2.txt ended-- -jn- -- ; Joel Neely joeldotneelyatfedexdotcom REBOL [] do [ do func [s] [ foreach [a b] s [prin b] ] sort/skip do function [s] [t] [ t: "" foreach [a b] s [repend t [b a]] t ] { | e s m!zauafBpcvekexEohthjJakwLrngohOqrlryRnsctdtiub} 2 ] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Who knows where to get Core 2.5.1 ?
On 12-Apr-02, [EMAIL PROTECTED] wrote: > Is the IOS trial open to anyone? The Trial Download page seems more > oriented towards companies rather than individuals. I filled in the form and was offered a chance to trial it and I'm an individual, not a company. So I'd say yes, it seems to be open to anybody. Though I then had to ask for an Amiga version and am still waiting for the reply to that one - I have my doubts there's an Amiga version of IOS Link currently available... -- Carl Read -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Who knows where to get Core 2.5.1 ?
Hi Petr, Is the IOS trial open to anyone? The Trial Download page seems more oriented towards companies rather than individuals. Cheers Phil === Original Message === Anton wrote: >I saw it mentioned a few times >but I don't see it at >http://rebol.com/platforms.html >or anywhere else. > >Anton. > it is beta release to IOS users Just join IOS community ;-) -pekr- -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Creating a list, writing it in a file
Thanks a lot -Message d'origine- De : Carl Read [mailto:[EMAIL PROTECTED]] Envoyé : vendredi 12 avril 2002 10:17 À : [EMAIL PROTECTED] Objet : [REBOL] Re: Creating a list, writing it in a file On 12-Apr-02, COFFRE Richard FTO wrote: > Hi Carl and Joel > I read your last answers but I wasn't precise enough in my query. My > job is a little more complex. > Purpose: > 1. Read the line and extract (if necessary) a function name. 2. > Check if this function is already stored in my list, if not do it. > 3. Once the file is read, sort the list 4. Write the list in a file. > The step 2 explains why I can't just read the file and put it right > in a list. > However, I think I could solve my problem with the Carl's answer. Yes, you should be able to do it with open. Incidentally, there's a 'unique word in REBOL that may save you having to check if your function names are in your list. It's behaviour is... >> unique ["a" "b" "c" "a" "c"] == ["a" "b" "c"] so you could just add each function name to your block as you examine the lines then when you've finished reading the file use unique to strip out the duplicates from the block before you sort them. -- Carl Read -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Closing an Inform Box
Right, Petr. I didnt use the "return" and the process continued. But in my function of validating, the return doesn't work too. Instead "break" does the job ! Txs. Phil - Original Message - From: "Petr Krenzelok" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, April 11, 2002 6:46 PM Subject: [REBOL] Re: Closing an Inform Box > Philippe Oehler wrote: > > >That could be an opportunity (focusing back to the field) but how can you > >stop the process. > >I mean the user fill 5 fields then he press a button to validate. The > >checking process is done when he press the button. > >If there is an error, i can focus back to the field but how can I make to > >tell the process to be stop and wait on the user to correct.. > > > I don't understand ... :-) you just described your solution, no? If you > return process back to the field, then the process will stop, and you > will be able to correct info entered in the field. I have to be missing > something > > view layout [f1: field f2: field button "Start action" [if f1/text = "a" > [focus f1 return] print f2/text]] > > if you enter "a" in the first field, you will be focused back, and > nothing is printed ... if you enter anything else, then f2 field content > is printed > > -pekr- > > > > > > >Philippe > > > > > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. > -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Creating a list, writing it in a file
On 12-Apr-02, COFFRE Richard FTO wrote: > Hi Carl and Joel > I read your last answers but I wasn't precise enough in my query. My > job is a little more complex. > Purpose: > 1. Read the line and extract (if necessary) a function name. 2. > Check if this function is already stored in my list, if not do it. > 3. Once the file is read, sort the list 4. Write the list in a file. > The step 2 explains why I can't just read the file and put it right > in a list. > However, I think I could solve my problem with the Carl's answer. Yes, you should be able to do it with open. Incidentally, there's a 'unique word in REBOL that may save you having to check if your function names are in your list. It's behaviour is... >> unique ["a" "b" "c" "a" "c"] == ["a" "b" "c"] so you could just add each function name to your block as you examine the lines then when you've finished reading the file use unique to strip out the duplicates from the block before you sort them. -- Carl Read -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Some questions...
Hi Gregg, it functions! I didn't find the correct refinement [colors/1 and colors/2]. thanks. = > Hi Alessandro, > > << > 1) I want to store the name of a field in a variable and I want assign > the focus to the field whose name (or obj reference) is stored in such > variable. How can I do? > > 2) What can I do to change the color (which refiniment) of the > background of a field? > >> > > Let me know if this helps. > > view layout [ > f-1: field > f-2: field > button 200 "Goto Field 1" [focus f-1] > button 200 "Goto Field 2" [focus f-2] > button 200 "Set Field 2 color" [ > ;f-2/colors/1: red > f-2/colors: reduce [red green] > show f-2 > ] > ] > > --Gregg -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Le maglie con il numero e il nome dei tuoi campioni, sono sul Milanstore Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=313&d=12-4 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Rebol mailing-list archive
Hi all, can someone tell me where can I find all the emails written in this mailing-list (archive or history). I wish to see all technical infos and I want to publish a document containing some useful tips & tricks extracted from this mailing-list archive, since I found here many suggestions, technical solutions not found anywhere. thank! bye! -- Alessandro -- -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Ti è capitato di cercare un libro e non riuscire a trovarlo? E' attivo il servizio TrovaLibri di Airbook.it Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=345&d=12-4 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: tree style: first attemp
> -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of > Christian Langreiter > Sent: Thursday, April 11, 2002 8:18 PM > To: Robert M. Muench > Subject: [REBOL] Re: tree style: first attemp >> Any feedback? Robert > > Soon! Great! Just some information: I continued development a bit to support multiple expand/collaps (which doesn't work with the version I posted). The solution is to use a block of values for 'offset and 'barrier and sum them up at the places where these values are used now. Not perfectly working yet but IMO the solution is in this direction. Robert -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Shortage of network connections
A few weeks ago I complained about problems with unsuccessful tcp/ip connections. I said, I will check this problem in greater details at the other side too. After gaining access to the host I could see, that it was mainly a problem with Rebol alone. Therefore I wrote a client test program, that does nothing but opening a socket, transfers some bytes, reads some bytes and closes the socket again. This approach done in a loop leads very soon to connection errors. But if I place a wait before the next opening, I can open, exchange messages and close the connections in abundance, even if I use "wait 0". Probably wait seems to clear or renew some conditions needed for successful tcp/ip connections under Win/NT. If I remember right, other members of the mailing list reported similar observations too. They just succeded after adding an otherwise useless wait 0. So what does "wait 0" and should the clearance of the network status not be part of the normal port handling? AR -- GMX - Die Kommunikationsplattform im Internet. http://www.gmx.net -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: CGI
Linux permissions, Thanks!! It turns out that Apache didn't have permission to access the REBOL Executable. ;-) Thanks!! Ammon On Thursday 11 April 2002 07:43 pm, you wrote: > Hi Ammon > > > I have been attempting to set up REBOL to do GI for my Webserver (Apache) > > I keep getting this error in the Apache Error Log: > > > > [Wed Apr 10 14:05:14 2002] [error] [client 172.30.8.19] Premature end of > > script headers: /var/www/cgi-bin/login.r > > That's almost certainly an Apache/Linux permissions problem. > > Search google for "Premature end of script headers" and you'll find a long > line of people who have torn their hair out by that message.. > > You probably need to chmod, chown or chgrp your script and/or its folder. > > A brute force approach is to chown your script to apache or whatever it is > running under. You can back off on that for more secure ways. I've had this > problem when installing Vanilla on Linux. > > hth > ./Jason -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Creating a list, writing it in a file
Hi Carl and Joel I read your last answers but I wasn't precise enough in my query. My job is a little more complex. Purpose: 1. Read the line and extract (if necessary) a function name. 2. Check if this function is already stored in my list, if not do it. 3. Once the file is read, sort the list 4. Write the list in a file. The step 2 explains why I can't just read the file and put it right in a list. However, I think I could solve my problem with the Carl's answer. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Core 2.6 - Last minute requests - take your chance! - shares
That would be cool. I think 'b would have to be a new datatype. One that stored its own index and length and imposed its head and tail on the series. But what happens when elements are removed from 'a that are also in 'b ? Should the length of 'b be reduced? Rebol would have to keep track of all the shares and update them when the original series is modified. This would slow rebol down a fair bit, I reckon. Otherwise, the length of 'b wouldn't be updated and you could get the situation where the length of 'b is greater than the number of elements that 'b shows! But that might just be a totally acceptable situation too! Maybe the user could be in charge of updating the length of the share when it seems appropriate. Anton. > Hello All, > > I'm not sure if there is some workaround for this but maybe it would be > handy to have native 'share feature in the next version? > > >> a: [1 2 3 4 5 6 7 8] > == [1 2 3 4 5 6 7 8] > >> b: share 'a 3 6 > == [3 4 5 6] > >> head b > == [3 4 5 6] > >> last b > == 6 > >> length? b > == 4 > >> b/3: 10 > == [3 4 10 6] > >> probe a > == [1 2 3 4 10 6 7 8] > > BTW Anyone know how to make 'share as a mezzanine function? ;-) > > regards, > > Cyphre -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Inform broken?
How about closing the first window while the second is open ? view lay: layout [ button [ unview view lay2: layout [ field [unview] ] view lay ] ] The above situation assumes that these two windows are the only ones that will be shown. You might need to use view/new and unview/only to be more specific with your windows. Anton. > Hi all, > > I'm not having much success with 'inform' in View, it pops up a dialog OK, > but it's not modal. I tried every possible way to do this, but no luck. Is > there a work-around maybe? > > I'm using REBOL/View 1.2.1.3.1 on Win2k. > > tia, > Felix -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.