[REBOL] Re: convolve effect
On 15-Nov-01, Petr Krenzelok wrote:
> Core and Command both know image datatype.
Core knows the image datatype? Are you sure? I get...
>> make image! [1x1 #{00}]
** Script Error: Feature not available in this REBOL
** Near: make image! [1x1 #{00}]
Perhaps it's just Command?
--
Carl Read
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
[REBOL] Re: CoolEdit Syntax File
What, surely not the sound editing software? You got a url? This might help you create a syntax file: http://anton.idatam.com.au/FreeEditors.html http://anton.idatam.com.au/ConTEXT/Highlighters/rebol.chl The relevant part: // To extract these words I used this line of rebol in the console // (with user.r pretty much deactivated): // v: [] foreach word sort first system/words [if value? to-word word [append v word]] // Just remember to remove 'v from the results. Anton. > Does anyone have a Cool Edit syntax file for REBOL? > > Thanks!! > Ammon -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: newlines
Hi Brett, I declared B so, that no garbage collection occurred in this case, (see the 1'000 in MAKE STRING!) or in any case where not more than 1'000 elements are changed. That is why I declared it outside of CP. To measure the time I used my TIME-BLOCK function (can be found at my site http://www.sweb.cz/LMecir under benchmarks). It seems that (strangely) the speed of CHANGE/PART depends on the total size of SAMPLE only. My guess is, that similar results can be obtained using blocks too. Cheers Ladislav << The CP function code being far faster than the CHANGE native function is interesting. Was having B declared outside of CP crucial or was it just to avoid a potential unfair function overhead on CP? Both seem very quick. How did you measure the difference in speed? As you increase the size of the sample string or change the reference points to change/copy, is there changes in the results? What of blocks instead of strings? Brett. >> > according to my measurements the CP function defined as follows: > > use [b] [ > b: make string! 1'000 > cp: func [ > string [any-string!] > value [any-string!] > range [any-string! integer!] > ] [ > change string head insert/part clear b value range > ] > ] > > Where: > > sample: insert/dup "" #"x" 30'000 > > Used as: > > cp sample skip sample 1'000 skip sample 2'000 > > is almost 100 times faster than: > > change/part sample skip sample 1'000 skip sample 2'000 > > Any comments? > > Cheers > Ladislav > -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] how to resize a backdrop
I have figured out a method to make the backdrop resize. I believe there must be a better way to increase the size of the clip region and refresh, but I am using WAIT here: rebol [] view/new lay: layout [size 200x200 bd: backdrop blue effect [gradient]] lay/size: lay/size + 40x40 show lay wait 4 ; not necessary - just for demo bd/size: bd/size + 40x40 show bd wait 0 ; a WAIT here is necessary wait none ; wait for user to press close Anton -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] CoolEdit Syntax File
Hi, Does anyone have a Cool Edit syntax file for REBOL? Thanks!! Ammon -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: newlines
The CP function code being far faster than the CHANGE native function is interesting. Was having B declared outside of CP crucial or was it just to avoid a potential unfair function overhead on CP? Both seem very quick. How did you measure the difference in speed? As you increase the size of the sample string or change the reference points to change/copy, is there changes in the results? What of blocks instead of strings? Brett. - Original Message - From: "Ladislav Mecir" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, November 15, 2001 11:57 AM Subject: [REBOL] Re: newlines > Hi all, > > according to my measurements the CP function defined as follows: > > use [b] [ > b: make string! 1'000 > cp: func [ > string [any-string!] > value [any-string!] > range [any-string! integer!] > ] [ > change string head insert/part clear b value range > ] > ] > > Where: > > sample: insert/dup "" #"x" 30'000 > > Used as: > > cp sample skip sample 1'000 skip sample 2'000 > > is almost 100 times faster than: > > change/part sample skip sample 1'000 skip sample 2'000 > > Any comments? > > Cheers > Ladislav > > > -- > 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: newlines
Hi all, according to my measurements the CP function defined as follows: use [b] [ b: make string! 1'000 cp: func [ string [any-string!] value [any-string!] range [any-string! integer!] ] [ change string head insert/part clear b value range ] ] Where: sample: insert/dup "" #"x" 30'000 Used as: cp sample skip sample 1'000 skip sample 2'000 is almost 100 times faster than: change/part sample skip sample 1'000 skip sample 2'000 Any comments? Cheers Ladislav -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Rebol tutorial from IBM
A quote from one page in the tutorial. "For additional developer resources, make sure you check the developer section of http://www.rebol.com on a regular basis. There's a good (very high-volume) mailing list available, as well as several free Rebol introductory and intermediate articles of various kinds." Shows the list here is "good" :-) Regards, Greg - Original Message - From: "Cyphre" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, November 14, 2001 7:54 PM Subject: [REBOL] Rebol tutorial from IBM > Hi, > > just FYI ;) > > http://www-105.ibm.com/developerworks/education.nsf/linux-onlinecourse-bytit > le/10E39489AAEB0CB78625698B00705F79?OpenDocument > > regards, > > Cyphre > > > --- > Odchozí zpráva neobsahuje viry. > Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz). > Verze: 6.0.282 / Virová báze: 150 - datum vydání: 25.9.2001 > > -- > 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: Stock Exchange info Via TCP/Advice well taken
On Wed, Nov 14, 2001 at 06:19:19PM +, Donald Dalley wrote: > > Hi, Tim: > > On 10-Nov-01, Tim Johnson wrote: > > > Hi Donald: You're preaching to the converted, but the sermon is > >well worth hearing again from time to time! :>) > > We all tend to forget that just using the net has consequences. > > > Actually, I have a client who is using eSignal and wants to > > put data that he actually subscribes to and pays for into > > a format that eSignals can't do for him. > > Interesting. I don't know eSignal. Is this real-time data? JC I think so... http://www.esignal.com/ > > One of my approaches to this would be to intercept the data > > first (if I could). This is the foundation for my question. > > >From what I understand of REBOL's capture of data streams, this should be > possible, although how is beyond me. I am sure people who know IP stuff, such > as Holger, can help. I would need to know what (if any) I.P. address and port number that such information would be broadcast on. > > any other ideas? > > I don't know if one stream can be received by two different applications. If > both applications (eSignal & REBOL) need the info from the same port at the > same time, you might have a problem. I'm just getting into socket programming myself, but I would think if applications were just "listening". There are no doubt thousands of eSignals application "listening" right now. :>) Thanks again Donald! tj > -- > > ---===///||| Donald Dalley |||\\\===--- > The World of AmiBroker Support > http://webhome.idirect.com/~ddalley > UIN/ICQ#: 65203020 > > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. -- Tim Johnson <[EMAIL PROTECTED]> http://www.johnsons-web.com -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Debase, path! compare and import-email
Hi Mario,
I'm pleased to see that you are using some of my scripts, however I have
made a small blunder. I neglected to remove
the manipulate-emails.r script from my site and replace it with a somewhat
newer script that is on my Rebsite. This I will
rectify shortly. I also changed naming because while I was fixing some bugs
I also wanted to make it a bit more general:
http://www.codeconscious.com/rebol-library/inetmsg-model.r
http://www.codeconscious.com/rebol-library/mime-model.r
http://www.codeconscious.com/rebol-library/encodings.r
Regarding my debase claim:
This is Core 2.5:
>> debase enbase "x"
== #{78}
This is View 1.2.1
>> debase enbase "x"
Dr Watson for NT, An error has occurred.
Finally, the comparison of the mime-type (path).
Maybe I didn't pick a good type for comparisons :)
Anyway Gregg has shown how to compare them, you could also convert it back
to a string with FORM like I do
in mime-model.r
Brett.
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
[REBOL] Re: <>
Hi, Carl: On 14-Nov-01, Carl Read wrote: > I believe they wait until there's a decent number of files on any one > subject (50+ or so?) before it gets its own directory. Have they opened a PageStream/SoftLogic dir yet? They coulda/shoulda done that more than 5 years ago! The youngest TeX upload is now 116 weeks old; most are 300-400+. To their credit, Aminet has a DTP dir, which is just to say that you should not "count" on them doing what you want. It wouldn't hurt to ask the management about it, though, but, unless the programs are Amiga specific in some way, what's the point? JM2C -- ---===///||| Donald Dalley |||\\\===--- The World of AmiBroker Support http://webhome.idirect.com/~ddalley UIN/ICQ#: 65203020 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Stock Exchange info Via TCP/Advice well taken
Hi, Tim: On 10-Nov-01, Tim Johnson wrote: > Hi Donald: You're preaching to the converted, but the sermon is >well worth hearing again from time to time! :>) We all tend to forget that just using the net has consequences. > Actually, I have a client who is using eSignal and wants to > put data that he actually subscribes to and pays for into > a format that eSignals can't do for him. Interesting. I don't know eSignal. Is this real-time data? JC > One of my approaches to this would be to intercept the data > first (if I could). This is the foundation for my question. >From what I understand of REBOL's capture of data streams, this should be possible, although how is beyond me. I am sure people who know IP stuff, such as Holger, can help. > any other ideas? I don't know if one stream can be received by two different applications. If both applications (eSignal & REBOL) need the info from the same port at the same time, you might have a problem. -- ---===///||| Donald Dalley |||\\\===--- The World of AmiBroker Support http://webhome.idirect.com/~ddalley UIN/ICQ#: 65203020 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: do %image.png
Hey -
have you checked out the PNG spec? It's pretty clear about how the file is
arranged.
http://www.w3.org/TR/REC-png
Basically using a combination of read/part/skip you should be able to
navigate thru the various chunks to get to the chunk you want. The first 4
bytes of a chunk indicate its length, and the next 4 indicate the chunk
type. So - after reading the first 8 bytes of the file to verify it's a
PNG, read the next 8 bytes and take a look at them to see if the next chunk
is a "tEXt" chunk - if not use the length value as the skip in a read...
You'll have to accumulate bytes read and what not though. But - it'd avoid
you having to scan thru the file for an identifier.
- Porter
- Original Message -
From: "Ryan Cole" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, November 14, 2001 5:29 PM
Subject: [REBOL] Re: do %image.png
> Hey Jason,
> I was mistaken in that my last example only worked well in a "prefaced"
> situation. What you really want is this:
>
> garblyjunkbinaryfile
> [
> REBOL []
> confirm "This is a test."
> ]
> garblyjunkbinaryfile
>
> There is a problem I discovered, a bug probably. Seems that the null
characters
> in the png file are disrupting REBOL's ability to trigger. Without nulls
> present, the embedding works fine. Example:
>
> >> write/binary %test "^@^/[ rebol [] confirm {Works?} ]"
> >> do %test
> ** Syntax Error: Script is missing a REBOL header
> ** Where: do-boot
> ** Near: do %test
> >> write/binary %test " ^/[ rebol [] confirm {Works?} ]"
> >> do %test
> == true
> >>
>
> I sent a feedback, hopefully they get around to fixing it soon,
>
> --Ryan
>
>
> Jason Cunliffe wrote:
>
> > "Ryan Cole" <[EMAIL PROTECTED]> wrote
> > > Should be even easier than that. Just insert something like this into
> > it...
> > >
> > > REBOL[]
> > > confirm "This is a test."
> > > halt
> > >
> > > Just make sure you have the code enveloped in linefeeds. REBOL was
> > designed to
> > > do this already.
> >
> > Hi Ryyan
> > I don't quite understand you.
> > ..what "this" REBOL was design to do ?
> >
> > How will wrapping my embedded script in linefeeds help?
> > How will I know I am at the end of my script and at some space in the
middle
> > of it?
> >
> > thanks
> > - Jason
> >
> > --
> > To unsubscribe from this list, please send an email to
> > [EMAIL PROTECTED] with "unsubscribe" in the
> > subject, without the quotes.
>
> --
>
>
> Ryan Cole
> Programmer Analyst
> www.iesco-dms.com
> 707-468-5400
>
> The contradiction so puzzling to the ordinary way
> of thinking comes from the fact that we have to use
> language to communicate our inner experience
> which in its very nature transcends lingistics.
> -D.T. Suzuki
>
>
> --
> 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: do %image.png
Hey Jason,
I was mistaken in that my last example only worked well in a "prefaced"
situation. What you really want is this:
garblyjunkbinaryfile
[
REBOL []
confirm "This is a test."
]
garblyjunkbinaryfile
There is a problem I discovered, a bug probably. Seems that the null characters
in the png file are disrupting REBOL's ability to trigger. Without nulls
present, the embedding works fine. Example:
>> write/binary %test "^@^/[ rebol [] confirm {Works?} ]"
>> do %test
** Syntax Error: Script is missing a REBOL header
** Where: do-boot
** Near: do %test
>> write/binary %test " ^/[ rebol [] confirm {Works?} ]"
>> do %test
== true
>>
I sent a feedback, hopefully they get around to fixing it soon,
--Ryan
Jason Cunliffe wrote:
> "Ryan Cole" <[EMAIL PROTECTED]> wrote
> > Should be even easier than that. Just insert something like this into
> it...
> >
> > REBOL[]
> > confirm "This is a test."
> > halt
> >
> > Just make sure you have the code enveloped in linefeeds. REBOL was
> designed to
> > do this already.
>
> Hi Ryyan
> I don't quite understand you.
> ..what "this" REBOL was design to do ?
>
> How will wrapping my embedded script in linefeeds help?
> How will I know I am at the end of my script and at some space in the middle
> of it?
>
> thanks
> - Jason
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
--
Ryan Cole
Programmer Analyst
www.iesco-dms.com
707-468-5400
The contradiction so puzzling to the ordinary way
of thinking comes from the fact that we have to use
language to communicate our inner experience
which in its very nature transcends lingistics.
-D.T. Suzuki
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
[REBOL] BSTR values under Windows
Has anyone figured out how to call DLLs that work with BSTR values under Windows (i.e. pass the address of the BSTR, not the pointer, so it can be modified)? Thanks! --Gregg -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: convolve effect
Gregg Irwin wrote: >RT, et al > >A while back, I made a brief attempt at writing an edge detection filter in >REBOL but it was hideously slow so I gave up. > >I don't know how the compositing engine effects work, but would it be >feasible to expose a generic 'convolve effect that took a 3x3 kernel so we >could create new effects with it? That way RT wouldn't have to fill our >requests for new compositing effects. > Well, long time ago I asked about the feature. My friend suggested me that general native matrice operations could be used for many computational stuff, but I am no math folk, so I don't know if it would help. However - here's link Rebol is talking about upcoming effect pipeline: http://www.escribe.com/internet/rebol/m15951.html taken directly from Holger's description: - Added "func" effect. This allows you to call a REBOL function from within the effect pipeline, manipulate the current image (including its alpha information) and pass an image back to the effect pipeline. Is that what you are asking for? Or do you mean operations upon image datatype directly? Now another question popped in my mind - are Core and Command users left behind? What do I mean? Core and Command both know image datatype. But they don't know of face composition. How can we work with images using Core and Command? Hmm, shouldn't datatype manipulation functionalities be part of the kernel of the system? PS: just don't tell me to use View ;-) -pekr- >--Gregg > -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] WinInet dial/hang-up access
If anyone is interested in making a connection programmatically under Windows, here's a basic starting point you can expand upon. win-inet: context [ ConnID: 0 win-lib: load/library %wininet.dll internet-dial: make routine! [ hwndParent [integer!] Connectoid [string!] Flags [integer!] ; either string! or char* work here ;RtnConnID [string!] ; LPDWORD RtnConnID [char*] ; LPDWORD Reserved[integer!] return: [integer!] ] win-lib "InternetDial" internet-hang-up: make routine! [ ConnID [integer!] ; Connect ID from InternetDial Reserved[integer!] ; Must be 0 return: [integer!] ] win-lib "InternetHangUp" test: func [dial-up-name [string!] /local RtnConnID] [ RtnConnID: copy "^@^@^@^@" print "Dialing..." ; Pardon the magic numbers. It's a proof-of-concept thing. result: internet-dial 0 dial-up-name to-integer #8000 RtnConnID 0 print ["dial result:" result] if all [(result = 0) (RtnConnID <> "^@^@^@^@")] [ print "Hanging Up..." ConnID: to-integer to-binary head reverse RtnConnID result: internet-hang-up ConnID 0 print ["hang-up result:" result] ] ] ] win-inet/test "Your dial-up entry name here" I'd love to hear if there's a better way to handle pointer parameters (e.g. LPDWORD). --Gregg -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: do %image.png
"Ryan Cole" <[EMAIL PROTECTED]> wrote > Should be even easier than that. Just insert something like this into it... > > REBOL[] > confirm "This is a test." > halt > > Just make sure you have the code enveloped in linefeeds. REBOL was designed to > do this already. Hi Ryyan I don't quite understand you. ..what "this" REBOL was design to do ? How will wrapping my embedded script in linefeeds help? How will I know I am at the end of my script and at some space in the middle of it? thanks - Jason -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: do %image.png
> buddha.png is a PNG image file with a REBOL script embedded in it. > http://www.postcardscience/rebol/buddha.png oops.. sorry try: http://www.postcardscience.net/rebol/buddha.png ^^^ ./Jason -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: do %image.png
Should be even easier than that. Just insert something like this into it... REBOL[] confirm "This is a test." halt Just make sure you have the code enveloped in linefeeds. REBOL was designed to do this already. --Ryan Jason Cunliffe wrote: > do %image.png > > My objective is to implement a roundtrip toolkit with /Core and /View > interfaces for embedding, extracting and running REBOL scripts embedded in > images. Then the real fun can begin! > > I have made a little progess: > A tiny hardcoded test is now working :-) > > buddha.png is a PNG image file with a REBOL script embedded in it. > http://www.postcardscience/rebol/buddha.png > > I used TweakPNG (Win32only) to learn about PNG and inset my REBOL script. > http://entropymine.com/jason/tweakpng/ > > By design I insert a special keyword "REBOLscript" after the "tEXt" chunk to > help parsing. Also, a special REBOL end of script marker ";EOF" at the end > of test script itself. The helps parsing the REBOL script end from other > data or padding in the PNG file. > > It takes about 6 seconds to store 29kb image file as a string on a 500Mhz > PIII Win98se Vaio laptop. > > Lots of features and funtions to implement. > But first I need some basic advice: > > Q1. How can I improve the time to load PNG into a rebol string? > Q2. What other approach do you suggest than the one I am following? > > thanks for any feedback > - Jason > > > REBOL [ File: %buddha.r] > > ;download or read from http://www.postcardscience/rebol/buddha.png > > buddha: read/binary %buddha.png > > b: "" for i 1 length? buddha 1 [append b to-char buddha/:i] > ; 7 seconds for 29Kb image on 500MhzPIII > > ; head b ; make sure we are at the beginning when debugging in REBOL shell > > search-key: "tEXtREBOLscript" ; better than just looking for "REBOL" > header-key: "REBOL " ; space after REBOL should mean it's the > header > tail-key: ";EOF" ; by design, this marks end of REBBOl > script > > ; later probably will want to include #!path-to-rebol and find those first > > b: find next b search-key ; start of our tEXt chunk containing REBOL > script > b: find next b header-key ; start of the script > start-mark: length? b ; how many bytes to end of PNG file > > bend: find next b tail-key; end of script > end-mark: length? bend ; how many bytes to chop off > script-length: start-mark - end-mark ; how many bytes to use of 'script > > script: "" > for i 1 script-length 1 [append script b/:i] ; chop the end off so we have > pure script > write %buddha-script.r script; save it to file > > do %buddha-script.r ; test it! > > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. -- Ryan Cole Programmer Analyst www.iesco-dms.com 707-468-5400 The contradiction so puzzling to the ordinary way of thinking comes from the fact that we have to use language to communicate our inner experience which in its very nature transcends lingistics. -D.T. Suzuki -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] do %image.png
do %image.png My objective is to implement a roundtrip toolkit with /Core and /View interfaces for embedding, extracting and running REBOL scripts embedded in images. Then the real fun can begin! I have made a little progess: A tiny hardcoded test is now working :-) buddha.png is a PNG image file with a REBOL script embedded in it. http://www.postcardscience/rebol/buddha.png I used TweakPNG (Win32only) to learn about PNG and inset my REBOL script. http://entropymine.com/jason/tweakpng/ By design I insert a special keyword "REBOLscript" after the "tEXt" chunk to help parsing. Also, a special REBOL end of script marker ";EOF" at the end of test script itself. The helps parsing the REBOL script end from other data or padding in the PNG file. It takes about 6 seconds to store 29kb image file as a string on a 500Mhz PIII Win98se Vaio laptop. Lots of features and funtions to implement. But first I need some basic advice: Q1. How can I improve the time to load PNG into a rebol string? Q2. What other approach do you suggest than the one I am following? thanks for any feedback - Jason REBOL [ File: %buddha.r] ;download or read from http://www.postcardscience/rebol/buddha.png buddha: read/binary %buddha.png b: "" for i 1 length? buddha 1 [append b to-char buddha/:i] ; 7 seconds for 29Kb image on 500MhzPIII ; head b ; make sure we are at the beginning when debugging in REBOL shell search-key: "tEXtREBOLscript" ; better than just looking for "REBOL" header-key: "REBOL " ; space after REBOL should mean it's the header tail-key: ";EOF" ; by design, this marks end of REBBOl script ; later probably will want to include #!path-to-rebol and find those first b: find next b search-key ; start of our tEXt chunk containing REBOL script b: find next b header-key ; start of the script start-mark: length? b ; how many bytes to end of PNG file bend: find next b tail-key; end of script end-mark: length? bend ; how many bytes to chop off script-length: start-mark - end-mark ; how many bytes to use of 'script script: "" for i 1 script-length 1 [append script b/:i] ; chop the end off so we have pure script write %buddha-script.r script; save it to file do %buddha-script.r ; test it! -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] weird font/para facets...
Hello worlds, Is it just me or should the para facet have included alignment properties instead of the font facet!? I really am wondering why alignment specifications are not included in the paragraph (face/para)settings... Can anyone tell me why this is logical? -MAx Glass maker glass: now at version 0.3.0 :-) -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: convolve effect
YESS! please This would be usefull for preparating images used interactively later on... -MAx - Original Message - From: "Gregg Irwin" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, November 14, 2001 2:06 PM Subject: [REBOL] convolve effect > RT, et al > > A while back, I made a brief attempt at writing an edge detection filter in > REBOL but it was hideously slow so I gave up. > > I don't know how the compositing engine effects work, but would it be > feasible to expose a generic 'convolve effect that took a 3x3 kernel so we > could create new effects with it? That way RT wouldn't have to fill our > requests for new compositing effects. > > --Gregg > > -- > 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] convolve effect
RT, et al A while back, I made a brief attempt at writing an edge detection filter in REBOL but it was hideously slow so I gave up. I don't know how the compositing engine effects work, but would it be feasible to expose a generic 'convolve effect that took a 3x3 kernel so we could create new effects with it? That way RT wouldn't have to fill our requests for new compositing effects. --Gregg -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Interesting plug-in code
--- Paul Tretter <[EMAIL PROTECTED]> wrote: > http://www.reboltech.com/plugins.html for the REBOL > plugin. Right, but that doesn't tell us about the priority or progress on getting something that works with newer version of IE (which still supports plugin-like functionality via ActiveX, even though it no longer supports netscape-style plugins). Chris __ Do You Yahoo!? Find the one for you at Yahoo! Personals http://personals.yahoo.com -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: p2p search engine (not rebol)
Hi Chaz, << So, what's the best way to do a screensaver in REBOL? >> That would be OS dependent. Under Windows (if memory serves) you need to handle the following: Parse command line for -c|/c|c (configure) and -s|/s|s (save) switches. Make window style (maximized, no title bar, no border). I think you need string table resource with an item ID of 1 that starts with "SCRNSAVE" and then has the title you want to show in the Win setup dialog. Makes a few (API) calls when you start up. Shut down when you get a mouse or keyboard event. Change the EXE extension to SCR. I can't rememer what you have to do if they have a password set. --Gregg -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Debase, path! compare and import-email
Hi Mario, << 1) How can I compare two path!s? to-lit-path mime-type == 'text/plain >> How about: :mime-type == 'text/plain or :mime-type = 'text/plain I'm not a mime :) so I don't know if it should be case sensitive. --Gregg -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Is there a GUI FTP Client in REBOL
"Nenad Rakocevic" <[EMAIL PROTECTED]> wrote > This should help : http://www.rebol.com/docs/core25.html (section 1.2 Modes Available) aha.. thanks owner-read, owner-write, owner-delete, owner-execute, group-read, group-write, group-delete, group-execute, world-read, world-write, world-delete, world-execute: REBOL logic. All -read, -write and -execute modes are available in Unix, BeOS, QNX and Elate. owner-read, owner-write, owner-execute and owner-delete are available in AmigaOS. All group- and world- modes are available in AmigaOS >=V39. owner-write is also available in Windows (mapped to the inverse of the Windows "read-only" bit). But how do you set them? - Jason -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Interesting plug-in code
Speaking of the plugin, Has anyone got the plugin to work with Netscape 6.2? The only thing it wants to do is save the file. TIA, Greg Piney "Paul Tretter" <[EMAIL PROTECTED]> on 11/14/2001 07:58:42 AM Please respond to [EMAIL PROTECTED] To: [EMAIL PROTECTED] cc: (bcc: Greg Piney/McGraw-Hill/US) Subject [REBOL] Re: Interesting plug-in code : http://www.reboltech.com/plugins.html for the REBOL plugin. Paul Tretter - Original Message - From: "Cassani Mario" <[EMAIL PROTECTED]> To: "REBOL List (E-mail)" <[EMAIL PROTECTED]> Sent: Wednesday, November 14, 2001 6:39 AM Subject: [REBOL] Interesting plug-in code > Hi all, >taking a look to PNG related links i found these: > > Netscape > http://entropymine.com/jason/socket45/ > > IE 5.5+ ActiveX Nescape wrapper > http://entropymine.com/jason/replug/ > >If the second one works (I get a white page) only > one plugin is needed for REBOL. > >Anyone knows something new about REBOL plug-in > status or priority? > >Zaijian > Mario > -- > 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] Debase, path! compare and import-email
Hallo Rebolers,
I am working with Brett's mime handling scripts trying to
save attachments with /View 1.2.1.
Some scripts claim that the 'debase is buggy in this
release so I wondered why this hasn't been fixed/released,
yet o, at least, an old 1.2.0 archive wasn't left on the RT
site (the truth is that I really want to put my hands on the
next version/release :P ).
At last I used manipulate-emails.r but I still have one
problem:
1) How can I compare two path!s?
to-lit-path mime-type == 'text/plain
gives this message:
** Script Error: text has no value
** Near: part-name: join "default" mime-file-ext part-mime
to better understand a piece of the script follows...
8<--
do %manipulate-emails.r
mime-file-ext: func [mime-type] [
extension: ".bin"
if to-lit-path mime-type == 'text/plain [extension: ".txt"]
return extension
]
change-dir %/d/rebol/programs/develop/
mailfile: %/D/Archivio/MailArchive/2001/11/14/Mail/ICL/0002.txt
mmsg: import-email msg: read mailfile ; dump of a "real" message
mime-contents: extract-mime-multipart-msg mmsg
foreach [part-mime part-name part-data] mime-contents [
if none? part-name [
part-name: join "default" mime-file-ext part-mime
]
print rejoin [{Type: } part-mime newline {Name: "} part-name {"}]
save join %./ part-name part-data
]
-->8
I have a doubt: isn't the 'import-email slow? Maybe some
mail handling should be made on the "original" message (msg)?
Thanks for any suggestion/comment
Mario
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
[REBOL] Re: Is there a GUI FTP Client in REBOL
i am building on slowly - but i am a beginner so it aint going very fast .. all it does atm is connect to the ftp address [user/pass optional] and shows the top level dir at the momment. - Original Message - From: "Nenad Rakocevic" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, November 14, 2001 3:32 PM Subject: [REBOL] Re: Is there a GUI FTP Client in REBOL > > This should help : http://www.rebol.com/docs/core25.html (section 1.2 Modes Available) > > -DocKimbel > > Jason Cunliffe wrote: > [...] > > > I don't know, but it wouldn't be hard to write. However, I don't > > > think REBOL allows you to alter all the file protections, which could > > > limit its usefulness. > > > > Perhaps one could use telnet inside the same REBOL script to chown chmod > > etc? > > > > - Jason > -- > 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: Is there a GUI FTP Client in REBOL
This should help : http://www.rebol.com/docs/core25.html (section 1.2 Modes Available) -DocKimbel Jason Cunliffe wrote: [...] > > I don't know, but it wouldn't be hard to write. However, I don't > > think REBOL allows you to alter all the file protections, which could > > limit its usefulness. > > Perhaps one could use telnet inside the same REBOL script to chown chmod > etc? > > - Jason -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Is there a GUI FTP Client in REBOL
> > Is there a GUI FTP Client written in REBOL/View? > > I don't know, but it wouldn't be hard to write. However, I don't > think REBOL allows you to alter all the file protections, which could > limit its usefulness. Perhaps one could use telnet inside the same REBOL script to chown chmod etc? - Jason -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] tail-func: for the gurus
Hey all,
See below a tail-func function: it allows you to define a tail-recursive
function *with refinements*.
Refinement transferral is correct even if refinements change in a recursive
call.
You can also use it as a drop-in replacement for normal funcs, provided that
they don't do an almost tail-recursive thing as in:
f: tail-func [x] [ 1+ f x]
OTOH, this works:
f: tail-func [x /y z]
[
x: x + 1
either [ y ]
[ print [ "x: " x "z: " z] f x
[ print [ "x: " x ] f/y x x ]
]
and so do all other func definitions.
The trick is that I use an extended use context as a kinda stack frame to
implement goto like behaviour.
Also posted to the reb in the script libs as tailfunc.r
Enjoy,
Maarten
REBOL []
tail-func: func
[
{Returns a function that handles tail-recursion transparently.}
args [block!] body [block!]
/local meta-func meta-spec meta-body p1 p2
]
[
meta-spec: append/only copy [] args
meta-body: append/only copy [] body
;matches refinements and copies refinements to our command
p1: [ set r refinement!
(either get bind to-word r 'comm
[
append comm mold r
ref-mode: on
]
[ ref-mode: off ]
)
]
;matches words and copies their values to the statement if ref-mode = on
p2: [ set w word! (if ref-mode [ append/only statement get bind to-word w
'comm])]
meta-func: copy
[
;The use context is accessible from the wrapper function that
;eliminates tail recursion. It plays the role of a stack frame
;ti implement a goto like behaviour in case of tail recursion
use [ _*loop-detected _*myself _*innerfunc _*loops _*myspec _*myspec2
_*mycall]
[
;some static initialization of the use context varaiables
_*loops: 0
_*loop-detected: false
_*mycall: copy []
_*innerfunc: func (meta-spec) (meta-body)
_*myspec: copy first :_*innerfunc
_*myspec2: append copy _*myspec [/local ref-mode p1 p2 r w
comm statement
ret]
insert/only _*myspec2 [catch]
;The function that is returned from the use context
_*myself: func _*myspec2
[
;How deep in a loop am I?
_*loops: _*loops + 1
;These parse rules extract how I am called
;(which refinements and so)
p1: [(p1)]
p2: [(p2)]
ref-mode: on
;Ourt initial call
comm: copy {_*innerfunc}
;Our initial statement
statement: copy []
;Generate our statement and call
parse _*myspec [ any [ p1 | p2 ]]
insert statement to-path comm
;Copy it in the use context so it survives
;a loop (_*mycall is the 'goto args)
_*mycall: copy statement
if _*loops = 2
[
_*loops: 1
_*loop-detected: true
return
]
;Until we are no longer in loop-detection mode
until
[
_*loop-detected: false
set/any 'ret do bind _*mycall '_*loops
not _*loop-detected
]
;set/any 'ret pick ret 1
;Use context cleanup
_*loops: 0
_*loop-detected: false
_*mycall: copy []
;return our value
return get/any 'ret
];_*myself: func ...
];use context
];meta-func
;return our function
do compose/deep meta-func
]
--
[REBOL] Re: Is there a GUI FTP Client in REBOL
what limitations? I built myself a recursive file copying algorythm in order to move my glass web site and it worked flawlessly, both sites have user/passwords! I have also done transfers of 200 x 6MB data files directly with a read write pair... no problems there... the speed was not a concern either... I find these two tasks are enough for most applications! is there anything more specific you are wondering? PS: there is a gui ftp file transfer util Right in the ftp drawer of the rebol script library... -MAx - Original Message - From: "David Vydra" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, November 14, 2001 2:01 AM Subject: [REBOL] Re: Is there a GUI FTP Client in REBOL > what are the limitations of Rebols ftp implementation? > --dv > --- Carl Read <[EMAIL PROTECTED]> wrote: > > On 14-Nov-01, David Vydra wrote: > > > > > Is there a GUI FTP Client written in REBOL/View? > > > > I don't know, but it wouldn't be hard to write. > > However, I don't > > think REBOL allows you to alter all the file > > protections, which could > > limit its usefulness. > > > > -- > > Carl Read > > > > -- > > To unsubscribe from this list, please send an email > > to > > [EMAIL PROTECTED] with "unsubscribe" in the > > subject, without the quotes. > > > > > = > David Vydra > www.vydra.net > david (at) vydra (dot) net > > __ > Do You Yahoo!? > Find the one for you at Yahoo! Personals > http://personals.yahoo.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: Interesting plug-in code
http://www.reboltech.com/plugins.html for the REBOL plugin. Paul Tretter - Original Message - From: "Cassani Mario" <[EMAIL PROTECTED]> To: "REBOL List (E-mail)" <[EMAIL PROTECTED]> Sent: Wednesday, November 14, 2001 6:39 AM Subject: [REBOL] Interesting plug-in code > Hi all, >taking a look to PNG related links i found these: > > Netscape > http://entropymine.com/jason/socket45/ > > IE 5.5+ ActiveX Nescape wrapper > http://entropymine.com/jason/replug/ > >If the second one works (I get a white page) only > one plugin is needed for REBOL. > >Anyone knows something new about REBOL plug-in > status or priority? > >Zaijian > Mario > -- > 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] Interesting plug-in code
Hi all, taking a look to PNG related links i found these: Netscape http://entropymine.com/jason/socket45/ IE 5.5+ ActiveX Nescape wrapper http://entropymine.com/jason/replug/ If the second one works (I get a white page) only one plugin is needed for REBOL. Anyone knows something new about REBOL plug-in status or priority? Zaijian Mario -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] p2p search engine (not rebol)
http://www.hyperbee.com/index.html So what is HyperBee? HyperBee is an attempt to crawl the web faster and cheaper than ever thought possible. As the web continues to grow, current search engines will have a more difficult time keeping their indexes up-to-date. Most search engines today index less than 40% of the entire web! HyperBee is a peer-to-peer network that looks to solve the problems that challenge today's search engines. The idea is simple. It's screensaver that runs while you're away from your computer, helping us crawl the web faster than any other search engine can, because we crawl it with your help along with the help of many others! So, what's the best way to do a screensaver in REBOL? -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: newlines
RE: [REBOL] Re: newlines
regarding my last mail:
ups, misreaded benchmark-list.
kill the gc-notes:
<<
keep in mind not to trigger unfair gc's because of a
non-real-world amount of loops and therefore garbage.
it looks the most time competing algorithm at 1
slows down heavily with 3 without good reason.
it uses parse too, but with copy instead of markers,
so it produces more garbage. could go over a limit
with 3 so it starts triggering gc's.
so benchmarking with different loop-counts
(=different amount of garbage) is a good idea.
>>
as fast as CS is PARCHAN with every amount,
with x. and x. .
with x. its half as fast.
it uses [copy u], which fills heap too.
so gc is no problem.
and allocation should not slow down.
hmm, could both be combined?
until change/part speeds up :-)
for real-world problem, there is one replacement
each paragraph, so there are a lot more
"x" compared to ".". this should be favourable
for remove-versions, because they have a lot fewer
to do. so a benchmark with lots of "x" too?
this where PARCHAN and CS :
comment {a copy-like algorithm}
PARCHAN: [
method6: [
to "..." 2 skip t: sub |
to end
]
sub: [
any [
any #"."
copy u [
to "..." 2 skip (w: [(t: change t u)]) |
end (w: [(clear t) end skip]) |
to end (w: [(clear change t u) end skip])
]
w
]
]
parse/all s method6
]
comment {Volker's COPY-based algorithm}
CS: [
out: clear ""
parse/all s [any [
start: thru "..." end1: any "."
(insert/part tail out start back end1)
]]
insert tail out start
out
]
-Volker
[EMAIL PROTECTED] wrote:
>
> Hi, Ladislav,
>
> Ladislav Mecir wrote:
> >
> > I would like to comment the speed of the INS1 algorithm:
> >
> > <<
> > out: clear ""
> > parse/all s [
> > any [
> > start: thru "..." end1: any "." (
> > insert/part tail out start back end1
> > )
> > ]
> > ]
> > insert tail out start
> > out
> > >>
> >
> > The way the algorithm is designed gives it an unfair advantage
> > when it is timed in a loop where it is executed more than once...
> >
>
> Good observation for follow-up; thanks!
>
> I'll be glad to make a version that uses COPY "" and re-run the
> benchmarks with both.
>
> -jn-
>
> --
> This sentence contradicts itself -- no actually it doesn't.
> -- Doug Hofstadter
> joelneelyfedexcom
> --
> 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] Rebol tutorial from IBM
Hi, just FYI ;) http://www-105.ibm.com/developerworks/education.nsf/linux-onlinecourse-bytit le/10E39489AAEB0CB78625698B00705F79?OpenDocument regards, Cyphre --- Odchozí zpráva neobsahuje viry. Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz). Verze: 6.0.282 / Virová báze: 150 - datum vydání: 25.9.2001 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: newlines
RE: [REBOL] Re: newlines Hi Joel, Ladislav, keep in mind not to trigger unfair gc's because of a non-real-world amount of loops and therefore garbage. it looks the most time competing algorithm at 1 slows down heavily with 3 without good reason. it uses parse too, but with copy instead of markers, so it produces more garbage. could go over a limit with 3 so it starts triggering gc's. so benchmarking with different loop-counts (=different amount of garbage) is a good idea. also use a reasonable amout of pre-alocation, like out: make string! 5 without producing garbage.. wrong pre-allocation slows down heavy, AFAIK a bug.. i doubt you will see a slowdown by a single allocation, even if large. btw you know the trick of using[out: clear [] ] for static buffers and using [return copy out]? Gabriele noted it while ago, pretty for self-adjusting programms. after you have done this, switch to garbage-free [insert clear s out] which copies the result back to the input string, instead of allocating something. this should run at native speed. IIRC there was no notable slowdown, but i benchmarked a bit lazy. as i said, i was not aware of having the fastest looking algorithm.. -Volker [EMAIL PROTECTED] wrote: > > Hi, Ladislav, > > Ladislav Mecir wrote: > > > > I would like to comment the speed of the INS1 algorithm: > > > > << > > out: clear "" > > parse/all s [ > > any [ > > start: thru "..." end1: any "." ( > > insert/part tail out start back end1 > > ) > > ] > > ] > > insert tail out start > > out > > >> > > > > The way the algorithm is designed gives it an unfair advantage > > when it is timed in a loop where it is executed more than once... > > > > Good observation for follow-up; thanks! > > I'll be glad to make a version that uses COPY "" and re-run the > benchmarks with both. > > -jn- > > -- > This sentence contradicts itself -- no actually it doesn't. > -- Doug Hofstadter > joelneelyfedexcom > -- > 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: <>
On 14-Nov-01, [EMAIL PROTECTED] wrote: > For information, answer of Aminet FTP administrator, Urban Mueller. > I'll open my REBsite soon and ulpoad then the Amiga interesting > scripts too on Aminet So NO REBOLution on Aminet ;-( I believe they wait until there's a decent number of files on any one subject (50+ or so?) before it gets its own directory. > Arnaud aka b!gdAn > Badger Dev >> Hi Urban ! >> Could you create an util/rebol directory please ? >> name : util/dev >> description : Rebol utilities >> I have more than 50 files to upload ( .lha archives and/or .R files >> (rebol > script in ascii)) > Considering that so far only 2 rebol tools are on aminet, there > doesnt seem to be enough interest to justify a new directory. I > suggest you upload for dev/lang, and put all sources in a common > archive for now (I don't assume they're big) > -Urban -- Carl Read -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
