[REBOL] Re: New Beta View based on Core 2.5.2
For those interested, here are the 'what diffs:
What's different in the Beta:
[as-pair [x y]]
[attempt [value]]
[brightness? [color]]
[build-attach-body [body files boundary]]
[call {[cmd /input in /output out /error err /wait /console /shell /info]}]
[component? [name]]
[compose [value /deep /only]]
[construct [block /with object]]
[cp [value /part range /deep]]
[dump-obj [obj /match pat]]
[editor [file /app app-word]]
[extract [block width /index n]]
[focus [face /no-show]]
[ [value1 value2]]
[ [value1 value2]]
[inform [panel /offset where /title ttl /timeout time]]
[link-relative-path [file]]
[local-request-file [parms]]
[mold [value /only /all]]
[notify [str]]
[parse-header [parent data /multiple]]
[remove-each ['word data body]]
[request {[str /offset xy /ok /only /confirm /type icon /timeout time]}]
[request-file {[/title title-line button-text /file name /filter filt /keep /only
/path /save]}]
[run [arg /secure-cmd]]
[save [where value /header header-data /bmp /png /all]]
[scroll-drag [face /back /page]]
[send {[address message /only /header header-obj /attach files /subject subj /show]}]
[sign? [number]]
[suffix? [path]]
[unset-internal-words []]
What's different in the old:
[call {[cmd /input in /output out /error err /wait /console /shell]}]
[compose [value /deep]]
[demo []]
[editor [file]]
[exists-key? [keypath /hkcr /hkcu /hklm /hku /hkcc /hkdd]]
[extract [block width]]
[focus [face]]
[inform [panel /offset where /timeout time]]
[mold [value /only]]
[parse-header [parent data]]
[request [str /offset xy /ok /only /confirm /timeout time]]
[request-file {[/title title-line button-text /file name /filter filt /keep /only
/path]}]
[save [where value /header header-data /bmp /png]]
[send [address message /only /header header-obj]]
[view-install []]
Regards,
Ashley
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] CORE 2.5.2 Bugs/Enhancements
Hi! I tested core 2.5.2 right now and like most of the changes you did, thank you! Here is a list of things i still found: --- New Evaluation --- Evalutation is still not very constistent. Maybe you could have a look at http://www.fx5.de/REBOL/hot-values.r (The comments refer to Core 2.5.0, so ignore them) For example: a: first ['a] == 'a a == a I would expect == 'a , do you agree? --- Crashing: Foreach/Reduce/Do/next --- And there are still some crashes in REBOL which causes crashes, when REBOL runs bigger scripts for longer time. You can try do http://proton.cl-ki.uni-osnabrueck.de/REBOL/bug-test.r to find them. test2 ... test4 will crash REBOL. --- Bind/In --- Maybe you could allow bind to accept not only word - Values, but lit-word, set-word, too. This already works, but the definition of Bind does not allow it. -- use [a] [a: third :bind repend a/words [any-word!]] In should allow any-word!, too. -- use [a] [a: third :in repend a/word [any-word!]] Enhancement-Request: In should allow to get a word bound not only to objects, but to functions, too. Example: a: func [b] [b: 99] get in :a 'b --- Use/Repeat --- Maybe you will want use to copy/deep it's block argument before binding it (needed for recursive functions) --- FTP Protocol --- FTP-Protocol is broken, it opens a new connection for each access when using ip-addresses. Fix: use [a] [ a: second get in system/schemes/ftp/handler 'open a: next a/connections/all change/only a to-paren compose [form (first a)] ] --- throw-on-error --- Throw on error is not able to handle unset-Return-Value. Fix: throw-on-error: func [ [throw] blk [block!] ][ if error? set/any 'blk try blk [throw :blk] get/any 'blk ] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: New Beta View based on Core 2.5.2
Hello Carl On 06-May-02, Carl Sassenrath wrote: Here's a new REBOL/View that's based on Core 2.5.2 and includes the current Link 1.0 graphics changes. For testing only. No significant changes to View desktop interface. Only Windows and Linux beta versions are posted. You will find that some face/effects no longer work as expected. Try inserting a MERGE at the head of the effects block if your effect needs to modify the faces under it. effect: [merge colorize 255.0.0] http://www.rebol.com/beta-versions.html -Carl Seeing that I have View/Pro,can I install over it?Thanks and keep the ball rolling.It's still a long way to the top BUT the end is in site! Regards -- You see, wire telegraph is a kind of a very, very long cat. You pull his tail in New York and his head is meowing in Los Angeles. Do you understand this? And radio operates exactly the same way: you send signals here, they receive them there. The only difference is that there is no cat. -- Albert Einstein, when asked to describe radio sent via Yam ver2.31 on AmigaForever verV Be a Rebel get Rebol@ rebol.com UIN#=9391028 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: On Ipaq!
and... about view for iPaq? Wow! Think of creating programs with GUI for iPaq! And I will finally discard VISUAL BAxIC! Just couldn't resist it... it runs on the iPaq with PocketPC 2002 as well (Core that is). --Maarten -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. Alessandro Manotti Presidente dell'Associazione RIUSA Sito web: http://riusa.apritisesamo.net email:[EMAIL PROTECTED] mailing-list: [EMAIL PROTECTED] Telefono: 347.63.43.231 -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Se sei stanco di girare a vuoto tra i negozi di Abbigliamento e Articoli sportivi e non hai ancora Clicca qui: http://adv2.email.it/cgi-bin/foclick.cgi?mid=422d=7-5 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Assorted bugs?
Hi all,
about text-list, I found this problem (I think it is a problem!):
view layout [text-list a b a]
If a user select the first a text-list even select the third a.
It should be a good thing to manage text-list with an index and not
directly with the text (maybe creating a new component text-list-index)?
bye!
--Alessandro--
Hi Ashley,
Work around for #2 is to use the AS-IS keyword.
i.e. change the text-list to :
text-list data files as-is
Cheers Phil
=== Original Message ===
Another marathon weekend with REBOL and a few more things that don't work
the way I expect them to. Apologies in advance if some of these have
already been covered in depth (eScribe searches just don't cut it ;) ).
Problems I hit were:
1. Scrolled area text affecting other field(s)
2. text-list anomalies with first entry
3. alt-down SLOW under windows (but OK under Linux)
4. load treating a one line block as a block, but multi-lines as blocks
within a block, makes it hard to write something like:
foreach block load %test.dat [print block/1] ; this handles 0 and 1
lines but not 1 line
Anyway, the code to demo these problems is given below, any advice on
simple work-arounds / misconceptions greatly appreciated. If any need
to go
to feedback let me know. (On a related matter, how can one tell what has
already been sent to feedback . . . is there a reported bug summary of
some sort?).
code
REBOL []
files: copy []
foreach file read %. [
insert tail files reform [o^- file]
]
view center-face layout [
text 200 {Click Area then type two lines of text in the area,
close and reopen the window.
Notice how the field text has been repositioned.}
button 200 Area [
view/new center-face layout [
field 50 Text
area 50x30
]
]
text 200 {Notice how the first tab is ignored.}
text-list data files
text 200 {Click rapidly with the left then right mouse buttons.
Notice how left clicks are faster than right clicks [on
Windoze].}
box blue 200x50 Click here with [
data: now/time/precise
feel: make feel [
engage: func [face action event] [
if action = 'alt-down [
print reform [Right now/time/precise -
face/data] face/data: now/time/precise
]
if action = 'down [
print reform [Left now/time/precise -
face/data] face/data: now/time/precise
]
]
]
]
text 200 {The first result counts values within a block, the
second the number of blocks.}
button 200 Load block(s) [
write/lines %test.dat remold [now now]
print length? load %test.dat
write/append/lines %test.dat remold [now now]
print length? load %test.dat
]
]
/code
Regards,
Ashley
--
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.
Alessandro Manotti
Presidente dell'Associazione RIUSA
Sito web: http://riusa.apritisesamo.net
email:[EMAIL PROTECTED]
mailing-list: [EMAIL PROTECTED]
Telefono: 347.63.43.231
--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f
Sponsor:
Divertiti a sfrecciare nel traffico cittadino o sui marciapiedi, con il monopattino
Crazy!
Clicca qui: http://adv2.email.it/cgi-bin/foclick.cgi?mid=423d=7-5
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] Re: How to remove the last item of a serie ?
Hi Gabriele, what you say is one of many other useful information found in this mailing-list. Why nobody writes a technical book (HTML?) about these advanced information?! If Rebol has these great features, but nobody will list and explain them, these features will be lost! If I project a new car, with many enhancements, many features, in order to better sell my new creature, I must publicize these features! Air bags, ABS, etc... bye! --Alessandro-- Hi Jason, On Sunday, May 05, 2002, 9:30:04 PM, you wrote: JC cool.. So why can't I also use a similar syntax to do remove tail test -2 remove skip tail test -2 JC Can you elaborate on that a little please. Most scripting languages are rather slow even if they can be compiled. Java is rather slow even with the JIT compiler. Why? Because there's a lot of implicit copying of data. I ask you, what happens when you write: $s .= append; in PHP? What happens when you do assignments in a lot of languages? I'll tell you: a lot of data are being copied around. Without you even realizing, and worse, without you being able to do anything with it. REBOL is very different here. Data is not usually copied implicitly; i.e. something like: a: b is always O(1) whatever datatype B is. (The only implicit copying occurring in REBOL is during reallocation, when you grow a series out of its limits. Even in this case, anyway, you are able to avoid it, by preallocating the right amount of memory for your series.) This means that in REBOL you are really able to control the complexity of your algorithms, if you are willing to. Most other scripting languages I know are doing too much things behind the scenes to make this easy/feasible. I really think simplicity has too much advantages. :-) 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. Alessandro Manotti Presidente dell'Associazione RIUSA Sito web: http://riusa.apritisesamo.net email:[EMAIL PROTECTED] mailing-list: [EMAIL PROTECTED] Telefono: 347.63.43.231 -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Vorresti trasformare il tuo salotto in un cinema? Clicca qui: http://adv2.email.it/cgi-bin/foclick.cgi?mid=402d=7-5 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Blocks of strings in text-lists.
On 07-May-02, Gregg Irwin wrote: Hi Jason, How about this? view layout [text-list data [[a ^-bb][cc ^-dd]]] How do you suggest to set/align the TABS when there are long words? That can be a bit of work with proportional fonts. If you just count chars and spaces, it's not so bad. You just decide at what position the tabs should fall, subtract the length of the leading string, and pad accordingly. A smart tab feature would look at all the items in the list and find the longest one, using that as a guide. You could think of it like padding with spaces, but tabs count for n spaces, instead of one. First up, thanks to Anton for the suggestion to put tab-characters in the string. (blush:) Is it you Gregg who says we tend to look for the hard way to do things too often? As to Jason's question, you use 'para to set the tabs to the positions you want. (Just looked it up.) ie... view layout [ text-list para [tabs: [20 40 110 150]] data [ [a ^-b ^-c ^-d ^-e] [1 ^-2 ^-3 ^-4 ^-5] ] ] As Gregg said, you'd need to measure the strings if you want to set the tabs based on their lengths. See the recent Proportional-spaced fonts with accent marks thread for a discussion on measuring the pixel-length of strings. -- Carl Read -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: REBOL/Core 2.5.2 Released
Hi Carl, I have Rebol/View/Command version of Rebol. Can I install it without loosing my licence? thank you! --Alessandro-- Core 2.5.2 is the next beta release leading up to Core 2.6. There are some important changes in this release. Please give it a try. You can download an executable beta version from: http://www.rebol.com/downloads/core2502031.exe Detailed information and examples about changes can be found at http://www.rebol.com/docs/core-252.html If you find any new bugs, please let us know via feedback. -Carl Carl Sassenrath REBOL Technologies -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. Alessandro Manotti Presidente dell'Associazione RIUSA Sito web: http://riusa.apritisesamo.net email:[EMAIL PROTECTED] mailing-list: [EMAIL PROTECTED] Telefono: 347.63.43.231 -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Clicca qui: http://adv2.email.it/cgi-bin/foclick.cgi?mid=d=7-5 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: return to the red pill
Hi Carl, I love IT, and this is the why I always look for new languages, new technologies. I think Rebol is a very good system, but it is not very famous, and I'm afraid... why? Think about BeOS... wonderful OS, but unknown OS... I'm afraid Rebol could follow the same way. And this is the why I think you should publicize your product. In my company, I already developed a small but very efficient application (my boss told me it was very actractive!). My client told me it was functional. But the problem is the same: my boss does not let me create large applications since he thinks Rebol is still to precarius! So I wanted to do somethink to help you to spread Rebol (I think even other people in this ML think the same). So my question is easy: What can I do to help you to spread Rebol? What do you suggest? bye! --Alessandro-- Unfortunately, it takes time. But, little by little the rest of the world starts to understand and changes happen. So, here's a bit of news that a REBOL consultant recently sent to us and perhaps it can help with your pitch: The Price Waterhouse Coopers Technology Outlook for 2002-2004 has listed REBOL as one of nine companies creating the next generation of distributed Internet application platforms. A good thing. Folks are starting to get it. Finally. -Carl At 5/7/02 09:55 AM +0800, you wrote: At 09:07 PM 5/6/2002 +0200, you wrote: I can't seem to lose my REBOL addiction . All the others don't have the same feature set in one compact interpreter. Or no GUI, no encryption, no neat networking Just played with IOS on the DEV server, so cool But I still think Core needs to be Core Pro (and View Pro) for everyone with ssl support... For my case, I have been quietly observing the list and the various responses. Much of my time is spend trying to sell REBOL IOS to paying customers. -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Se cerchi degli Integratori Alimentari allora Oliviero.it è il posto giusto per te.. Clicca qui: http://adv2.email.it/cgi-bin/foclick.cgi?mid=421d=7-5 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Proportional-spaced fonts with accent marks
Hi Carl, Romano, and Greg, Many thanks for the help! You guys never cease to amaze me. I'm having to do some traveling, so can't program for a few days. I have more questions, but I want to play around with your code before asking them. Also, almost all my code so far has used Core only, so I need to study View a little (a lot! :)) One question, however, I will ask now. Can Rebol manipulate unicode characters provided it doesn't have to print them to screen or paper? Or is this just not possible at all yet? Also, would pdf-maker.r be of any help in this project? Thanks again, Louis At 07:30 PM 5/6/2002 +1200, you wrote: Thanks Romano - that's nice. I didn't realise text faces were quite that dynamic as I'm used to having to set aside space for them in a layout to stop them being trimed when they're viewed. On 06-May-02, Romano Paolo Tenca wrote: Hi Carl, My biggest worry with this approach is you'll be making an awful lot of faces, (one per word in your book), just to get their length. You can always use the same faces: layout [ word1: text no-wrap font-size 16 word2: text no-wrap font-size 18 ] for n 1 8 1 [ word1/text: line1/:n word2/text: line2/:n word-w: max first size-text word1 first size-text word2 append line-tabs 6 + word-w + last line-tabs ] -- 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: spam
Hi Graham, I had been thinking about it but then stumbled across mailwasher which does it all for me. http://www.mailwasher.net It even bounces email, which is a great way to cut spam. Cheers, Allen K - Original Message - From: Graham Chiu [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, May 07, 2002 1:38 PM Subject: [REBOL] spam I get so much of it these days :( Has anyone written a utility that scans one's pop or imap mail box, and removes these things before one get to lay one's eyes on them? -- Graham Chiu -- 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: CORE 2.5.2 Bugs/Enhancements
Hi Frank, I second to this. It looks that you forgot to append first [a:] to the examples. - Original Message - From: Frank Sievertsen [EMAIL PROTECTED] To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Tuesday, May 07, 2002 8:42 AM Subject: [REBOL] CORE 2.5.2 Bugs/Enhancements Hi! I tested core 2.5.2 right now and like most of the changes you did, thank you! Here is a list of things i still found: --- New Evaluation --- Evalutation is still not very constistent. Maybe you could have a look at http://www.fx5.de/REBOL/hot-values.r (The comments refer to Core 2.5.0, so ignore them) For example: a: first ['a] == 'a a == a I would expect == 'a , do you agree? --- Crashing: Foreach/Reduce/Do/next --- And there are still some crashes in REBOL which causes crashes, when REBOL runs bigger scripts for longer time. You can try do http://proton.cl-ki.uni-osnabrueck.de/REBOL/bug-test.r to find them. test2 ... test4 will crash REBOL. --- Bind/In --- Maybe you could allow bind to accept not only word - Values, but lit-word, set-word, too. This already works, but the definition of Bind does not allow it. -- use [a] [a: third :bind repend a/words [any-word!]] In should allow any-word!, too. -- use [a] [a: third :in repend a/word [any-word!]] Enhancement-Request: In should allow to get a word bound not only to objects, but to functions, too. Example: a: func [b] [b: 99] get in :a 'b --- Use/Repeat --- Maybe you will want use to copy/deep it's block argument before binding it (needed for recursive functions) --- FTP Protocol --- FTP-Protocol is broken, it opens a new connection for each access when using ip-addresses. Fix: use [a] [ a: second get in system/schemes/ftp/handler 'open a: next a/connections/all change/only a to-paren compose [form (first a)] ] --- throw-on-error --- Throw on error is not able to handle unset-Return-Value. Fix: throw-on-error: func [ [throw] blk [block!] ][ if error? set/any 'blk try blk [throw :blk] get/any 'blk ] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Sentences
Here's a early Sentences implementation in Rebol. This script just displays a sentences database: [ Rebol [ Name: 'Triple Title: Triple File: %Triple.r ] ;File: %Flight.r File: %Bookseller.r Liquid: melt load File I: 0 foreach Drop Liquid [ I: I + 1 if block? Drop [ print [I Drop] ] ] save File freeze sort Liquid halt ] These next values are the contents of %Flight.r: arrived at at Flight BA1234 London, Heathrow on [./3 ./1 ./4] [./6 ./5 12-Aug-1998] [./7 ./2 10:25] and these values are the contents of %Bookseller.r: Amazon America at Book Bookpages Britain Country customer of Date Dr No from has earned in is a Legal Entity lives in Mary Davis on orders Person Points Price sells Simon Williams Spycatcher worth [./1 ./14 ./15] [./1 ./23 ./10] [./1 ./23 ./25] [./2 ./14 ./7] [./5 ./14 ./15] [./5 ./23 ./10] [./5 ./23 ./25] [./6 ./14 ./7] [./10 ./14 ./4] [./15 ./23 ./4] [./17 ./8 ./1] [./17 ./14 ./20] [./17 ./16 ./2] [./20 ./8 ./15] [./20 ./16 ./7] [./24 ./8 ./5] [./24 ./14 ./20] [./24 ./16 ./6] [./25 ./14 ./4] [./28 ./13 ./2] [./28 ./13 ./6] [./28 ./26 75] [./29 ./13 ./2] [./29 ./13 ./6] [./29 ./26 50] [./32 ./13 ./2] [./32 ./13 ./6] [./32 ./26 35] [./33 ./13 ./2] [./33 ./26 35] [./36 ./13 ./7] [./36 ./26 ./21] [./37 ./12 750] [./37 ./19 ./25] [./40 ./12 ./21] [./40 ./19 ./4] [./42 ./12 1200] [./42 ./19 ./10] [./46 ./11 1-Mar-2000] [./47 ./11 1-Jan-2000] [./49 ./11 1-Jun-2000] [./50 ./11 1-Jun-2000] [./52 ./11 1-Jan-2000] [./53 ./11 1-Jan-2000] [./55 ./11 1-Jun-2000] [./57 ./11 ./9] [./60 ./18 19-Oct-2000] [./62 ./18 ./9] [./64 ./18 10-Oct-2000] [./65 ./3 $16.00] [./66 ./3 $10.00] [./67 ./3 $12.00] [./68 ./3 $7.00] [./69 ./3 $14.00] [./70 ./3 $8.00] [./71 ./3 $13.00] [./72 ./3 ./22] [./73 ./3 $12.00] [./74 ./3 ./22] [./75 ./3 $10.00] You'll also need %Melt.r: [ Rebol [ Name: 'Melt Title: Melt File: %Melt.r Author: Andrew Martin eMail: [EMAIL PROTECTED] Date: 5/May/2002 Acknowledgements: Romano Paolo Tenca ] make object! [ Magic: '.; This must be the same as the 'Freeze function! Melt-Value: function [Ice [block!] Berg] [Value Path] [ Value: :Berg if all [ path? :Berg Magic = first :Berg ] [ Path: :Berg if all [ 2 = length? :Path integer? second :Path ] [ Value: pick Ice second :Path if all [ 3 = length? :Path integer? third :Path ] [ Value: at Value third :Path ] ] ] :Value ] set 'Melt function [ Melts Object Ice Ice [block!] ] [Block Object] [ foreach Berg Ice [ type? Berg switch type?/word :Berg [ block! [ Block: Berg forall Block [ Block/1: Melt-Value Ice pick Block 1 ] ] object! [ first Object: Berg foreach Word next first Object [ set in Object Word Melt-Value Ice get in Object Word ] ] ] ] Ice; At this point, the 'Ice has become sea. :) ] ] ] And %Freeze.r: [ Rebol [ Name: 'Freeze Title: Freeze File: %Freeze.r Author: Andrew Martin eMail: [EMAIL PROTECTED] Date: 7/May/2002 Acknowledgements: Romano Paolo Tenca ] make object! [ Magic: '.; This must be the same as the 'Melt function! Find-Same: func [Series [series!] Value [any-type!]] [ forever [ if any [ not found? Series: find/only/case Series :Value same? first Series :Value ] [ break/return Series ] Series: next Series ] ] Freeze-Value: function [ Sea [block!] Fish ] [Path Value Index] [ if all [ not lit-path? :Fish not path? :Fish any [ function? :Fish object? :Fish series? :Fish ] ] [ Path: make path! reduce [Magic] Value: either series? :Fish [head :Fish] [:Fish] either found? Index: Find-Same Sea :Value [ Index: index? Index ] [ append/only Sea :Value Index: length? Sea ] append :Path Index if all [ series? :Fish 1 Index: index? Fish ] [ append/only :Path Index ] Fish: :Path ] :Fish ] set 'Freeze function [
[REBOL] Re: Proportional-spaced fonts with accent marks
On 07-May-02, Dr. Louis A. Turk wrote: One question, however, I will ask now. Can Rebol manipulate unicode characters provided it doesn't have to print them to screen or paper? Or is this just not possible at all yet? I know next to nothing about unicode, but assuming you're just dealing with the Greek unicode characters, you could perhaps have a lookup-table of the two (or more?) bytes that represent each of the characters. You could then single out the characters from a binary-string of unicode by using that lookup-table (or parse-rules) to do what you wish with them. And if you could grab each character's image from somewhere you could print them to screen (as images - not text) too... -- Carl Read -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: CORE 2.5.2 Bugs/Enhancements
BTW, your error! result looks arguable to me. - Original Message - From: Frank Sievertsen [EMAIL PROTECTED] To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Tuesday, May 07, 2002 8:42 AM Subject: [REBOL] CORE 2.5.2 Bugs/Enhancements Hi! I tested core 2.5.2 right now and like most of the changes you did, thank you! Here is a list of things i still found: --- New Evaluation --- Evalutation is still not very constistent. Maybe you could have a look at http://www.fx5.de/REBOL/hot-values.r (The comments refer to Core 2.5.0, so ignore them) For example: a: first ['a] == 'a a == a I would expect == 'a , do you agree? --- Crashing: Foreach/Reduce/Do/next --- And there are still some crashes in REBOL which causes crashes, when REBOL runs bigger scripts for longer time. You can try do http://proton.cl-ki.uni-osnabrueck.de/REBOL/bug-test.r to find them. test2 ... test4 will crash REBOL. --- Bind/In --- Maybe you could allow bind to accept not only word - Values, but lit-word, set-word, too. This already works, but the definition of Bind does not allow it. -- use [a] [a: third :bind repend a/words [any-word!]] In should allow any-word!, too. -- use [a] [a: third :in repend a/word [any-word!]] Enhancement-Request: In should allow to get a word bound not only to objects, but to functions, too. Example: a: func [b] [b: 99] get in :a 'b --- Use/Repeat --- Maybe you will want use to copy/deep it's block argument before binding it (needed for recursive functions) --- FTP Protocol --- FTP-Protocol is broken, it opens a new connection for each access when using ip-addresses. Fix: use [a] [ a: second get in system/schemes/ftp/handler 'open a: next a/connections/all change/only a to-paren compose [form (first a)] ] --- throw-on-error --- Throw on error is not able to handle unset-Return-Value. Fix: throw-on-error: func [ [throw] blk [block!] ][ if error? set/any 'blk try blk [throw :blk] get/any 'blk ] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Core 2.5.2 feedback with Rugby
I tested 2.5.2 with Rugby, which is fairly complex code. It runs without
modification. Thumbs up!
Note that Rugby does NOT take advantage of REBOLs new serialization features.
The only way this manifests is that you can't pass series with their index
out of the box. But then again, I heard nobody complain that you can only
send complete series ;-)
Another thing that is good to know: you cannot (nor could you) pass function
values in Rugby, unless you wrap them yourself in a block or a string. Why?
Rugby looks at the number of arguments and evaluates only that number of
arguments. In the case of a molded func {func [][]} it only evaluates the
word func, for example.
If Rugby wouldn't do that you might send malicious code as extra arguments
that would be evaluated, which would be the REBOL alternative to a buffer
overflow.
TO BE CLEAR: this restriction has nothing to do with 2.5.2 and has always been
in place.
--Maarten
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] Core 2.5.2 - Less aggressive evaluation - howto evaluate ?
Hi Carl, Rebols, it may be that I don't see the obvious, but given a: context[ b: context[ c: 1]] f: func ['word] [print word] f a/b/c a/b/c what do I have to do to get 'word evaluated? Thanks in advance, Ingo -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Graph Drawing /View Performance
Hi Christian, Nice script ;-) I haven't time to look into its guts but I'll try to find some improvements for better performance(if it will be possible) during the weekend... I thought that Rebol has slow math but while doing some speed tests I noticed that the most CPU power takes visualization. Relatime(with dynamic buffer ;-) ) calculating rotation of DRAW block containing 10 filled polygons around 360 degrees(with step of 1 degree) takes less than half second on Celeron 533Mhz...that could be theoreticaly about 600fps! but when you want to visualize it the performance goes down to about 15-20fps. (Watch the upcomming release of Rebol/Zine #6 where you can try the example script with such 2D vector DRAW buffered generator..) I always thought that rebol has slow math but now I see that the performance slowdown is in the visualisation part. I'm still dreaming about HW accelerated View port (OpenGL or DirectX)I think that without hw accelerated graphics(at least on some Rebol ports where it is possible) we couldn't have even smooth 2D plain vectors. I wish RT would have time to wrap at least Windows and Xwin ports for such HW acceleration I believe there won't be any platform issues because you can write the same View code...The result would differ only in the rendering part of Rebolon hw accelerated systems your code would fly! ;) regards, Cyphre - Original Message - From: Christian Langreiter [EMAIL PROTECTED] To: rebol-list [EMAIL PROTECTED] Sent: Monday, May 06, 2002 8:22 PM Subject: [REBOL] Graph Drawing /View Performance I've spent most of today with porting the algorithm behind the fantastic TouchGraph applet (http://www.touchgraph.com) to REBOL/View. Originally I intended only to output the node coordinates after, say, 1000 iterations to handle final display to Flash or whatever. http://www.langreiter.com/rebol/txrx/txrx-1.r Just to make sure everything was okay I visualized the result with REBOL/View, and - shock! - was just amazed at how fast it was (I've also ported the algorithm to Flash/ActionScript - it's pretty much impossible to increase the number of nodes to over 15 or even 20 - REBOL/View seems to be a whole lot faster). But then, when I tried to figure out a way to implement edge drawing, all my /Viewnduced happiness came tumbling down. I can't seem to figure out a way to _quickly_ (REALLY quickly) draw lines in /View. My first naive attempts involved the effect facet and the Draw Dialect, but performance was just - horrendous. The best thing I can come up with is creating and setting images as often as needed, but there _must_ be a better (i.e. faster) way ... Some way that allows me to directly act upon an existing image. f/image/clear f/image/line 200x200 150x300 Comment the line f/image: to-image edge-layout to see how fast node layouting is with edge drawing turned off. I hope one of the Masters of /View can guide me through this semi-documented dark cave of poor performance. Otherwise, enjoy ;-) -- Chris -- http://www.langreiter.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: REBOL/Core 2.5.2 Released
Congratulations! My preliminary tests are showing, that integer operations are as fast as they were, but floating point operations look like being two times slower than before? -Ladislav - Original Message - From: Carl Sassenrath [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, May 07, 2002 1:01 AM Subject: [REBOL] REBOL/Core 2.5.2 Released Core 2.5.2 is the next beta release leading up to Core 2.6. There are some important changes in this release. Please give it a try. You can download an executable beta version from: http://www.rebol.com/downloads/core2502031.exe Detailed information and examples about changes can be found at http://www.rebol.com/docs/core-252.html If you find any new bugs, please let us know via feedback. -Carl Carl Sassenrath REBOL Technologies -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Rebol/view 2.5.2 crashes !
Hi rebollers, I have just reported the following problem to feedback. rebol 2.5.2 Save as in the desktop editor. Save as opens a file selector where the button Ouvrir should be labelled Enregistrer. Tested with Windows 98 (french version). Ouvrir is the french for Open (Enregistrer/Save). -- rebol 2.5.2 Incorrect slider in the desktop editor When editing a source code with the desktop editor (right click, button edit), if the source is too long to fit in the window then the slider is not correct: the moving part occupies all the space. You have to click on it once. After that it is smaller and moving correctly. -- Rebol 2.5.2 Big crash in REBOL.EXE at 017f:00443ee2. The following error occurs while running a program. I have reduced the program as much as I could. The crash occurs only if the following line is uncommented. ; bitmap: make image! none REBOL a causé une défaillance de page dans le module REBOL.EXE à 017f:00443ee2. Registres : EAX= CS=017f EIP=00443ee2 EFLGS=00010246 EBX=0001 SS=0187 ESP=006bf070 EBP=00de6140 ECX=0007 DS=0187 ESI=00e311a8 FS=0fb7 EDX=00d035e0 ES=0187 EDI=00e777e8 GS= Octets à CS : EIP : 08 58 0d 8b 46 04 08 58 0d ff 4c 24 14 83 c6 10 État de la pile : 00de6140 00e777c8 00e2878c 0001 00443edb 0004 0006 00de6140 00e77818 0071fe38 0001 00443edb 000b 0005 0071ed34 006d0610 Rebol [] tl-critere: [1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16] obj: make object! [ c: array 16 ;-- :( uncommenting - crash ! ! ! bitmap: make image! none layout1: layout [ style mytext text 100x18 right style mycheck check 18x18 vignette: box 256x320 yellow below guide mytext tl-critere/1 mytext tl-critere/2 mytext tl-critere/3 mytext tl-critere/4 return c1: mycheck c2: mycheck c3: mycheck c4: mycheck do [ c/1: c1 c/2: c2 c/3: c3 c/4: c4 ] return do [ print layout 4.01] ;debug mytext tl-critere/5 mytext tl-critere/6 return button That's all folks ! [unview] do [ print layout 4.02] ;debug ] ] view center-face obj/layout1 __ 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: spam
I had been thinking about it but then stumbled across mailwasher which does it all for me. http://www.mailwasher.net It even bounces email, which is a great way to cut spam. Hi Allen, I had a quick look .. but I don't think it will suit my needs. I don't really want to run an interactive gui for this, just a core script that runs all the time examining my pop account and removing all the obvious spam, and email addresses that have been blacklisted. The trouble with ADSL/cable is that being on the internet all the time, means you get spam all the time :( I'm not that optimistic that bouncing spam results in removal from any distribution lists ( all the emails are on cdrom from what I can tell ), and maybe just adds to traffic. If the return address is forged, does it then bounce back to me ?? -- Graham Chiu -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: transferring files
Hi Graham, Graham Chiu wrote: What do ppl use to transfer files across a network? Here're two minimalistic scripts I once used - sending -- #!/bin/r REBOL [] print File Send Utility ^/ fn: ask Filename: if #% = first fn [ remove/part fn 1 ] fn: to-file fn sv: ask Server : data: read/binary fn p: open/binary join tcp:// [sv : 4321] insert p data - end sending -- - recieving -- REBOL [] print File Recieve Utility fn: ask Filename: if #% = first fn [ remove/part fn 1 ] fn: to-file fn sp: open/binary tcp://:4321 wait sp cp: first sp while [data: copy cp] [ write/append/binary fn data ] - end recieving -- I turned 'em into a single script that may act as sender or reciever, depending on how you call it, too. If anyone is interested, I'll send it along ... Kind regards, Ingo -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: CORE 2.5.2 Bugs/Enhancements
On Tue, 7 May 2002, Ladislav Mecir wrote: BTW, your error! result looks arguable to me. The error! result is ehhh... an error :) -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: CORE 2.5.2 Bugs/Enhancements
Hi, -- use [a] [a: third :bind repend a/words [any-word!]] Interesting, it works also in current version, but more interesting: use [a] [a: third :bind repend a/words [any-word!] change a/known-word reduce [any-word!] ] b: 2 o: context [a: 1 b: 1 ] probe get bind 'b first bind [:a] in o 'a probe get bind 'b first bind [a:] in o 'a probe get bind 'b first bind ['a] in o 'a Eureka! --- Ciao Romano -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Rebol 2.5.2 Make-doc-pro gives an error
Hi rebollers, Hi Robert Using make-doc-pro (version: 0.9.8 from the rebol library, or version 1.0.0) on a very simple text gives an error. There is no error with rebol 2.5. The Error is : Unknown TAG found: to-word join sect num The text is : 8- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Rebol 2.5.2 test author: Patrick Philipot date: 7-may-2002 =toc ===Make-doc-pro gives an error Unknown TAG found: to-word join sect num ===I am using Version: 1.0.0 bye! ### 8- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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: Core 2.5.2 - Less aggressive evaluation - howto evaluate ?
Hi Ingo and all, I hit this problem in January and Carl answered: Not quite ready yet... but very soon you will be able to use DO to evaluate such paths. However it looks we still have to use for example: z: to-path 'system/schemes == system/schemes less agressive evaluation results: type? z == path! type? do z == path! I've found only two possibilities how to evaluate such paths: type? do compose [(z)] == object! or type? first reduce compose [(z)] == object! Anyone? regards, Cyphre - Original Message - From: Ingo Hohmann [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, May 07, 2002 11:34 AM Subject: [REBOL] Core 2.5.2 - Less aggressive evaluation - howto evaluate ? Hi Carl, Rebols, it may be that I don't see the obvious, but given a: context[ b: context[ c: 1]] f: func ['word] [print word] f a/b/c a/b/c what do I have to do to get 'word evaluated? Thanks in advance, Ingo -- 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.
