[REBOL] Re: [ANN] nonblocking client side WHOIS lookup script for plugin
Hello Anton, Friday, May 14, 2004, 3:02:42 PM, you wrote: AR That's great Oldes! AR Fast response and auto-expanding too. :) AR Anton. But will have to improve it as well to get better info about domains (not just about domain providers) And a core version as well of course... -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: ANN: IP-info plugin version
Hello Maxim, Friday, May 7, 2004, 7:28:04 PM, you wrote: MOA one word: MOA AWESOME! thanks, check it now - large earth maps used as well -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: ANN: 3D game engine
Hello Roland, Tuesday, May 11, 2004, 11:06:00 AM, you wrote: RH http://www.errru.net/rebol/fun/rdm.r it's really nice:) Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] [ANN] nonblocking client side WHOIS lookup script for plugin
Hello rebol-list, for these whou are not on AltMe: http://oldes.multimedia.cz/rss/builds/whois/ It's not finished completely but it works to me (and crashes for someone) But if we want stable plugin, we need to make apps to stress the plugin to find all the weak points (and strong as well) for these who don't know for which this script may be useful: 1. best tool for fight against spam 2. free open source version of Netgeo or GeoMap in the future (just to find out how to get lat/long data from city result PS: if there are any PHP guys, I was inspired to make this script after reading PHPwhois project files from sourceFroge, (which are quite unreadable) and has about 176kB of unzipped code Viva la Rebolution - it's still Alive! -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] ANN: IP-info plugin version
Hello rebol-list, IP-info version 0.0.2 is now available http://oldes.multimedia.cz/rss/builds/ipinfo/ -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] ANN: Color-lab plugin version
Hello rebol-list, I've just updated my old Color-lab script to be working with new versions of Rebol - plugin version is available at http://oldes.multimedia.cz/rss/builds/color-lab/ Cheers Oldes -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: MD5 Lib and other questions
Hello Robert, Tuesday, March 30, 2004, 8:29:25 AM, you wrote: RMM On Sat, 27 Mar 2004 20:18:29 +0100, rebOldes [EMAIL PROTECTED] wrote: Now just how to count MD5 on file with size like 600MB :( RMM Hi, I don't know anything about your use-case but if you use a MD5 to RMM check for errors or difference, it's normally not necessary to use the RMM whole file. If you take the first 100KB of each file and make a MD5 the RMM chances are very high to get a unique MD5. If the files are euqal for a RMM lot of content, than just pick serveral 100KB slices. Robert MD5 is used to sign files that there were not modified by someone else. If you take a look at some Linux distribution, you can see that there are MD5 checksums of these ISO images (or other files), so you can check if the file is not modified even if you download it from different location (mirror). I don't need this in Rebol (because I have another utility to count MD5 (even on large files), I'm just pointing to a possible problem with Rebol - using MD5 in Rebol on large file is useless:( -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: MD5 Lib and other questions
Hello Gabriele,
Saturday, March 27, 2004, 12:32:48 PM, you wrote:
GS Hi reboler,
GS On Saturday, March 27, 2004, 11:29:16 AM, you wrote:
r 1. Do you have a lib to generate MD5 from Rebol?
checksum/method Your data 'MD5
GS == #{E4C59D4886A08FC06A4F37FACE87A26C}
Now just how to count MD5 on file with size like 600MB :(
--
Best regards,
rebOldes -[ http://oldes.multimedia.cz/ ]
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] ANN: R-Box2 plugin version
Hello rebol-list, R-Box2 is back again (now with network saving/score) - http://oldes.multimedia.cz/rbox2/ Cheers Oldes PS: please let me know if you will find some bug, it's not well tested yet. -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] [ANN] Rebol/Flash dialect updated
Hello rebol-list, just want to let you know that new version of my Rebol/Flash dialect is available - now in all-in-one-script version with some minor fixes. just do: do load-thru http://oldes.multimedia.cz/rss/builds/rswf_latest.r swf: create-swf 100x100 [background 60.60.60 showFrame end] write/binary %test.swf swf ...to create new Flash file PS: This is a context version - that means that there is a 'rswf object where almost all RSWF words are closed. There should be only these words defined in the global context: rswf rswf-root-dir rswf-project-dir create-swf make-swf exam-swf PPS: Source files at the RSWF site are now a little bit obsolete. If you would like source scripts not packed in one file, let me know. -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] SQLite - pointer to function question
Hello rebol-list,
I've been playing a bit with SQLite.dll ( http://sqlite.org ) and
even I'm not expert in this filed at all, I manage to open db and
execute SQL commands using this DLL. But the problem is that if you
want to use SELECT command you must send pointer to a callback
function which should be evaluated for each result row.
Is there any change to get a pointer to a Rebol function?
Here are are my SQLite routine(s)!
==
rebol []
sqlite: load/library %/j/sqlite.dll
sqlite_open: make routine! [
zFilename [string! ]
mode [integer!]
pzErr [string! ]
return: [integer!]
] sqlite sqlite_open
sqlite_close: make routine! [db [integer!]] sqlite sqlite_close
sqlite_exec: make routine! [
db[integer!] pointer to open database
sql [string! ] SQL to be executed
callback [integer!] pointer to Callback function
cb_arg[integer!] 1st argument to callback function
errmsg[string! ] Error msg written here
return: [integer!]
] sqlite sqlite_exec
sqlite_version: make routine! [
return: [string!]
] sqlite sqlite_libversion
sqlite_error_string: make routine! [
int [integer!]
return: [string! ]
] sqlite sqlite_error_string
err: copy
db: sqlite_open test 0 err
sqlite_exec db create table t (f text); 0 0 err
sqlite_exec db insert into t values('test'); 0 0 err
--
Best regards,
rebOldes -[ http://oldes.multimedia.cz/ ]
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: REBOL/View 1.3 - invalid word datatype
Hello Gabriele, Thursday, December 18, 2003, 10:42:33 AM, you wrote: GS Hi rebOldes, GS On Tuesday, December 16, 2003, 6:09:34 PM, you wrote: r I can, but it's much more slower and it would mean to make it r completely again. Maybe I could use load/next but how to convert r invalid word to word? to word! whatever you wish GS == whatever you wish to word! 1,4 GS == 1,4 to word! fun(call, me, args) GS == fun(call, me, args) It's interesting, but how to use it? If you put load (or load/next) it would throw the error anyway:( x: 1 2 3 == 1 2 3 while [not empty? x][ [ set [y x] load/next x [ print [mold y mold x] [] 1 2 3 2 3 3 x: 1 2 a,b,c 3 4 d/:i._x == 1 2 a,b,c 3 4 d/:i._x while [not empty? x][ [ set [y x] load/next x [ print [mold y mold x] [] 1 2 a,b,c 3 4 d/:i._x 2 a,b,c 3 4 d/:i._x ** Syntax Error: Invalid word -- a,b,c ** Near: (line 1) a,b,c 3 4 d/:i._x Anyway it would be useful only if the unknow! datatype would hold all value which would cause the problem: For example in: load d/1.item._x ** Syntax Error: Invalid tuple -- 1.item._x ** Near: (line 1) d/1.item._x Would return 'd/1.item._x' not only '1.item._x' -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: REBOL/View 1.3 - invalid word datatype
Hello Gabriele, Thursday, December 18, 2003, 10:42:33 AM, you wrote: GS Hi rebOldes, GS On Tuesday, December 16, 2003, 6:09:34 PM, you wrote: r I can, but it's much more slower and it would mean to make it r completely again. Maybe I could use load/next but how to convert r invalid word to word? to word! whatever you wish GS == whatever you wish to word! 1,4 GS == 1,4 to word! fun(call, me, args) GS == fun(call, me, args) Very interesting. Thanks GS Regards, GSGabriele. GS -- GS Gabriele Santilli [EMAIL PROTECTED] -- REBOL Programmer GS Amiga Group Italia sez. L'Aquila --- SOON: http://www.rebol.it/ -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: REBOL/View 1.3 - invalid word datatype
Hello Carl, Tuesday, December 16, 2003, 8:45:56 AM, you wrote: CR On 16-Dec-03, rebOldes wrote: Hello Carl, As you are preparing new build of Rebol, I would like to ask you, If it would be possible to change somehow handling of invalid datatypes As I'm working on a probably the largest known dialect using Rebol - the Rebol/Flash dialect ( http://oldes.multimedia.cz/swf/ ), I still feel very limited because of impossibility to use some words. For example I would like to have in my dialect code words like this one: objects/1._x ** Syntax Error: Invalid decimal -- 1._x ** Near: (line 1) objects/1._x As you can see, it's recognized as an invalid decimal. So here comes the question. Would it be possible to change this behavior to something which we could use? There were already some discussions on mailing list about this issue months ago, but I still don't know your opinion. I think the best way would be to handle these 'invalid' words as a special word which would not be able to hold some values but I would be able to parse this word as a normal string. If it will be a problem maybe it would help to use some refinement in the 'load function not to throw these invalid datatype errors and convert these invalid datatypes. If you would make this change, I would be able to make for example functions as are known in other languages for example: myFunc(a, 2, a + b) because loading such a dialect would not throw error like: load [myFunc(a, 2, a + b)] ** Syntax Error: Invalid word -- a, ** Near: (line 1) load [myFunc(a, 2, a + b)] CR The problem would be that real errors wouldn't be caught. Maybe we CR need a special type of block that would allow this? (Which would CR require a new datatype - well, two new datatypes - the special block CR and an unknown! datatype.) CR Which is non-trivial I suspect. unknown! is a good name. For me it would be enough if such a datatype would be recognized during 'load function - so it seems not to be such a problem to me. Now we have a name as well:) CR For your Flash dialect Oldes, have you thought about a two-pass CR approach? The first pass would parse the file as a string, CR converting your myFunc(a, 2, a + b)s and so on to strings (or what CR datatypes or group of datatypes best suit them), with the second pass CR performing the main parse. It's not a solution for something like objects/:i._x which I would like to parse as _x possition of object i from array of objects. Something what's not possible even in Rebol, but something, what could be parsed in dialect easily if I would be able to load such a code. Now I need to write: tmp: objects/:i tmp._x CR -- CR Carl Read -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] REBOL/View 1.3 - invalid word datatype
Hello Carl, As you are preparing new build of Rebol, I would like to ask you, If it would be possible to change somehow handling of invalid datatypes As I'm working on a probably the largest known dialect using Rebol - the Rebol/Flash dialect ( http://oldes.multimedia.cz/swf/ ), I still feel very limited because of impossibility to use some words. For example I would like to have in my dialect code words like this one: objects/1._x ** Syntax Error: Invalid decimal -- 1._x ** Near: (line 1) objects/1._x As you can see, it's recognized as an invalid decimal. So here comes the question. Would it be possible to change this behavior to something which we could use? There were already some discussions on mailing list about this issue months ago, but I still don't know your opinion. I think the best way would be to handle these 'invalid' words as a special word which would not be able to hold some values but I would be able to parse this word as a normal string. If it will be a problem maybe it would help to use some refinement in the 'load function not to throw these invalid datatype errors and convert these invalid datatypes. If you would make this change, I would be able to make for example functions as are known in other languages for example: myFunc(a, 2, a + b) because loading such a dialect would not throw error like: load [myFunc(a, 2, a + b)] ** Syntax Error: Invalid word -- a, ** Near: (line 1) load [myFunc(a, 2, a + b)] Thank you for your response, David Oliva alias Oldes -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: Gregg's Article in OnLamp
Hello Martin, Friday, October 31, 2003, 11:11:32 PM, you wrote: AJM Gregg wrote: To me, one of REBOL's greatest strengths is the ability to use words-- AJM Yes, I agree. I'd like Rebol to be more versatile in this area. I'm sure AJM with improvements to the current parser in Rebol, then words like: AJM C# AJM can become valid Rebol word! values. I'd like it if any combination of AJM printable characters that aren't all ready another Rebol datatype are AJM treated as a valid word! value. YES... I would appreciate it as well.. and #, character as a word as well so I could use it in my dialect. It would be good to send it to the feedback again. -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: check me? deleting files based on a pattern
Hello Tom, Tuesday, October 28, 2003, 3:02:40 PM, you wrote: TF Anton Rolls wrote: Looks pretty safe to me. You are just in one directory. This will delete all files with editpost in the name somewhere. I would catch errors while deleting the file so you are not interrupted by a single file access error because one file is in use. foreach file read base [ if find file editpost [ if error? set/any 'err try [delete base/:file][ print mold disarm err ] ] ] You can, by the way, say this: home: %~/ base: join home %attempt-it/ How many files? Anton. TF Thanks Anton, TF 7500 files. TF the task is finished, I risked it. I'll use your suggestions. I TF especially like the error checking. TF I've been a reboler for years and I'm still *very* clueless. TF you brushed up against a question I've had for a while. How can I TF elimintate most of the rejoins that I use? TF I rejoin everything. If all you have is a hammer... TF thanks again, TF -tom If there is too many files you may try to open the directory as a port without buffering: files: open/direct base while [not tail? files][ file: first files if find file editpost [ if error? set/any 'err try [delete base/:file][ print mold disarm err ] ] files: next files ] close files -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: reading back checksum/secure
Hello SunandaDH,
Tuesday, October 21, 2003, 11:30:24 PM, you wrote:
Sac The other problem is that URLs pass through a host of intervening machines
Sac downstream of you and your server. So:
Sac http://www.myserver.com/mycgi.r?username=carlospassword=#{A8C40A306844B07D7B3
Sac C733C3A9EF479ADAFAC1D}
Sac will be seen by many machines en route. To be truly safe, you'd want to make
Sac sure that
Sac password=#{A8C40A306844B07D7B3C733C3A9EF479ADAFAC1D}
Sac only works once -- on the next request it is a different checksum value.
Sac Otherwise, someone could simply spoof you by copying the value.
so it can work for example like this:
Client - Server -- wants connect
Server - Client -- sends session ID (SID)
Client - Server -- sends SID, checksum/secure join SID mypass
Server compares if (checksum/secure join SID mypass) is correct.
This is good way how to prevent sending pure passwords thru web. This is
trivial scenario. You can make it more difficult as well but than be
careful to stay able to connect to your app:))
--
Best regards,
rebOldes -[ http://oldes.multimedia.cz/ ]
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: Quickest way home using bitsets...
Hello Rebolinth,
Tuesday, October 14, 2003, 10:10:42 PM, you wrote:
R Hello All,
R After discovering the world of bitsets (they must have eaten Kellogs that morning
at rebol ;-)
R I was wondering how crispy it could get?
R What im trying to accomplish is to reverse a bitset!
R Or better.. to extract to complete contence from a bitset!
R Bitsets are pritty hard on the mind and thow should not work on it all day :-)
R ..Still i was not able to lauch a trick to do a reverse bitset..
R Assume this is the bitset:
R make bitset! #{
R 010032D19C00
R }
R How do i get back its contents? Shifting my way back through all 256 bits?
R I cant believe thats the only way to do it...uhum..
R For those who dont know how bitsets work:
R a bitset is always a multiply of length? 8 (they all go by eight those little
drawfs..)
R dwarf: make bitset! 8 will become #{00}
R To be able to insert some dwarfs in the bitset you can use 'insert like:
R insert dwarf 0 (that is, dwarf 0 is the smalest and 7 is the talest in a range of
8 dwarfs..)
R will result in #{01}
R insert dwarf 7 (after inserting a 1 into the dwarf..will become) #{81}
R etc...etc...
dwarf: make bitset! 8
== make bitset! #{00} ;is something like: 2#{}
insert dwarf 0
== make bitset! #{01} ;is something like: 2#{0001}
this seems to be a bug to me... send it to the feedback
It looks that now there is used 0 for first bit. You can use only
range 0 - 7 to set bits in this bitset
it should be 1 - 8 to be more consistent, but who use it anyway?
It's used only for parsing (charset is only shortcut for bitset)
--
Best regards,
rebOldes -[ http://oldes.multimedia.cz/ ]
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] ANN: UCS-2 encoder/decoder
Hello Reboler, Just want to let you know, that I just uploaded UCS-2 encoder/decoder which is able to convert strings to UCS-2 octet bytes according specified character map. http://www.reboltech.com/library/scripts/ucs2.r It's not well tested so if you will find some bug, just let me know. Of courcse you will need the utf-8 encoder/decoder as well for other processing. http://www.reboltech.com/library/scripts/utf-8.r and use the ucs2 object rather then the to-ucs2 function in utf-8 if you need other charmap then Latin-1 PS: on rebol's library page I can see: Updated: 29-May-2003 :((( someone should run the script which updates these pages as well -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: Cookies and Redirected URLs
Hello Reboler,
Sunday, September 21, 2003, 8:17:20 PM, you wrote:
R Hi Folks!,
R Sorry to bother you, but I'm really needing of your guru advices.
R How can I read all the cookies set by the server?
R I'm reading an URL that sets a cookie, then redirects to another URL, set
R another cookie, then redirects to another URL and set another cookie, this
R process takes five steps.
R I just can read the first URL, because after I set the cookie it redirects
R to another url, then I receive the error 404.
R I've also tried:
R port: open http://www.somesite.com/?xasfsnfÇNDF;;;
R headers: port/locals/headers
R urls: port/locals/list
R if empty? urls [ urls: port/url ]
R close port
R If I could get all the new urls and the cookies great, but it's not working.
R Any tips?
R What about RebOldes' cookie-daemon?
R Thanks in advance,
R Best Regards,
R --DJ
The cookies-daemons was not able to staore cookies during redirection,
but it was not difficult to fix it. Just try the latest version
bellow. The %http-patch.r also contains Rebol's http bug fix related
to setting proper referer value (it was not possible to set custom referer
value if you were using POST command).
1. run %cookies-daemon.r
2. read the page - all related cookies should be sent with the request and
new one stored in the cookies-daemon/cookies block.
If you set trace/net on you can see something like that:
URL Parse: none none 127.0.0.1 85 test/ redirect.php
Net-log: [Opening tcp for HTTP]
connecting to: 127.0.0.1
Net-log: {GET /test/redirect.php HTTP/1.0
Accept: */*
Connection: close
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
Host: 127.0.0.1:85
}
Net-log: HTTP/1.1 302 Found
Net-log: [Cookie new {redirected=yes; expires=Mon, 22-Sep-2003 08:37:38 GMT;
path=/; domain=127.0.0.1}]
URL Parse: none none 127.0.0.1 85 test/ cookie.php
Net-log: [Opening tcp for http]
connecting to: 127.0.0.1
Net-log: {GET /test/cookie.php HTTP/1.0
Accept: */*
Connection: close
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
Host: 127.0.0.1:85
Cookie: redirected=yes
}
Net-log: HTTP/1.1 200 OK
Net-log: [Cookie new {name1=hura; expires=Mon, 22-Sep-2003 08:37:38 GMT; path=/;
domain=127.0.0.1}]
Net-log: [Cookie new {name2=hura2; expires=Mon, 22-Sep-2003 08:36:08 GMT;
path=/test/}]
Net-log: [Cookie new {name2=test; expires=Mon, 22-Sep-2003 08:36:08 GMT;
path=/test}]
Net-log: [Cookie new {TestCookie2=hodnota; expires=Mon, 22-Sep-2003 08:36:08 GMT}]
Net-log: [low level read of 2048 bytes]
Net-log: [low level read of 2048 bytes]
and here is the cookies-daemon:
change-dir dirize to-file ask Choose directory to extract:
write/binary %cookies-daemon_0.3.1.rip #{
5B0A202020205245424F4C205B0A20202020202020205469746C653A20225245
424F4C2053656C662D65787472616374696E672042696E617279204172636869
766520285249502922200A2020202020202020446174653A2032322D5365702D
323030332F31303A33323A33352B323A3030200A202020202020202046696C65
3A2025636F6F6B6965732D6461656D6F6E5F302E332E312E726970200A202020
20202020204E6F74653A207B546F20657874726163742C207479706520524542
4F4C20636F6F6B6965732D6461656D6F6E5F302E332E312E726970206F722072
756E205245424F4C20616E6420747970653A20646F20636F6F6B6965732D6461
656D6F6E5F302E332E312E7269707D5D200A2020202066696C653A2025636F6F
6B6965732D6461656D6F6E5F302E332E312E726970200A2020202073697A653A
2034343036200A20202020706174683A2025636F6F6B6965732D6461656D6F6E
2F302E332E312F200A20202020766572626F73653A206E6F7420616C6C205B73
797374656D2F7363726970742F617267732073797374656D2F7363726970742F
61726773203D202771756965745D200A2020202066696C65733A205B25687474
702D70617463682E7220323735322025636F6F6B6965732D6461656D6F6E2E72
20313635345D200A20202020636865636B3A2035363936303239200A20202020
6966206E6F74206578697374733F2070617468205B6D616B652D6469722F6465
657020706174685D200A20202020617263686976653A20726561642F62696E61
72792066696C65200A20202020617263686976653A206E6578742066696E642F
636173652F7461696C206172636869766520746F2D62696E617279206A6F696E
202221444154412220223A22200A20202020696620636865636B203C3E206368
65636B73756D2061726368697665205B7072696E74205B22436865636B73756D
206661696C65642220636865636B20636865636B73756D20617263686976655D
2068616C745D200A20202020666F7265616368205B66696C65206C656E5D2066
696C6573205B0A2020202020202020696620766572626F7365205B7072696E74
205B7461622066696C655D5D200A2020202020202020656974686572206C656E
203D2027444952205B0A2020202020202020202020206966206E6F7420657869
7374733F20706174682F3A66696C65205B6D616B652D6469722F646565702070
6174682F3A66696C655D5D205B0A202020202020202020202020646174613A20
6465636F6D707265737320636F70792F706172742061726368697665206C656E
200A202020202020202020202020617263686976653A20736B69702061726368
697665206C656E200A20202020202020202020202065697468657220616E7920
5B0A202020202020202020202020202020206E6F74206578697374733F207061
74682F3A66696C65200A20202020202020202020202020202020636F6E666972
6D207265666F726D205B66696C652022616C726561647920657869737473202D
[REBOL] [ANN] Rebol/Flash dialect updated
Hello rebol-list, just want to inform you, that updated files related to my rebol/flash dialect are uploaded... I fixed some bugs as usually, add possibility to create mx2004 (swf7) files and sound support (mp3 streaming) with new examples. cheers oldes -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: [ANN] TTF-parser 0.0.1
Hello Anton, Thursday, September 11, 2003, 5:22:57 PM, you wrote: AR Hi Oldes, AR That seems to complete successfully for those fonts, AR as well as pala.ttf of 479k. AR Will you be making a ttf writer as well? AR Then we could perhaps make a font editor. AR I see there are many variables to consider, though! :) No.. the reason I made this script was to try to understand how ttf works. I had problems with one font which I wanted to modify in fontographer so I wanted to see what's going on. I found that it's too difficult to get the glyphs outlines (so I'm even not sure if I would be able to use ttf fonts in my rebol/flash dialect without other tool:( At this moment i'm not going to spend more time for that script. oldes AR Anton. AR Looks interesting. I'll just post a bug report AR for the first two fonts I tried: AR %/c/windows/fonts/outlook.ttf AR %/c/windows/fonts/wingdng3.ttf Yes... I found it as well (that was because I closed the variables in the ttf object context but since I was working still in same console window I didn't found that some of them are still not replaced) this one is fixed: rebOldesmailto:[EMAIL PROTECTED] -- Best regards, rebOldes -[ http://oldes.multimedia.cz/ ] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: World Wide Rabbit - and what can be done to fix it?
Hello Jason, Sunday, October 20, 2002, 1:38:41 AM, you wrote: JC Hi JC After playing with Java Web Start, it is clear that REBOL better get its JC View/Desktop act together fast or else be run over by a fleet of snarling JC coffee-cups. ... JC doh..why why why ??? Because Rebol is just a Rebol and Sun is Sun. I'm not sure you can compare these two companies. Sun is the Goliash and Rebol is David. Few years ago I was claning windows (to clean my head) with my friens who works as climbers on one of large Sun's HQ building in Prague. There must be a lot of such a Sun buildings all over the world and in each of such a building there are working a lot of smart heads. How many people is developing Rebol? 5 or less in RT? And then few of us making it more as a hobby then full time job. I think there are no changes in the desktop, because nobody needs them so much. It's not such a difficult to make it. You just have to spend some time to analyse/change the code of 'ctx-viewtop object/block. You can make your own desktop just replacing the ctx-viewtop on startup (in the user.r file) source desktop desktop: func [][ if block? ctx-viewtop [ctx-viewtop: context ctx-viewtop] ctx-viewtop/init-desktop do-events ] so for example place this into %user.r : ctx-viewtop: make block! [ init-desktop: func[][ ;place here your own desktop layout view/new layout [text Hello button hmm [print now]] ] ] Can you do that in the Java Web Start? PS: I don't know like you, but I prefere Carl working on more important parts of the Rebolution then making another View/desktop - for example if Carl is working on radio-line style (improved radio style) for VID he cannot work for example on Rebol integration into browsers:-( -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: diff or compare
Hello Graham, Sunday, October 6, 2002, 10:09:04 PM, you wrote: GC Has anyone written a compare utility that reports where GC two text files are the same? GC -- GC Graham Chiu I wanted to make it but didn't started yet:-( -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: HTTP-Post Error
Hello Matthew, Saturday, October 19, 2002, 2:41:08 PM, you wrote: MK To be quite honest, I'm still a newbie at REBOL and I find the code you MK posted, very difficult to understand! I wish I were a REBOL genious! =) Everything needs some time:-) I had to spend a lot of my time to find how to use the /custom switch, because I havn't seen any documentation on it. Important is, that if you just need to post data, you can do: read/custom url [post data=value] In the more complex example I've send I use 'open port, because I needed to get the cookie. This is set in the port/locals/headers as the 'set-cookie value (if there is some cookie) To post the cookie with your data, you have to use: read/custom url [post data=value header [Cookie: cookie_name=value]] I was using the %http-post.r script as well but since there is support directly in Rebol, why not to use it. -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: HTTP-Post Error
Hello Graham, Thursday, October 17, 2002, 9:25:00 AM, you wrote: It's been working beautifully in the past with some help from you REBOL genious' but now occasionally I seem to get a HTTP/1.1 500 Internal Server Error. http://216.129.53.44:8080/cgi-bin/send_sm_rogers.new? GC Perhaps the server code is dying because of the extra ? GC you've added here. The ? is used when using the GET GC method, but not with POST. GC Also, have you tried using 'read as in GC read/custom GC http://216.129.53.44:8080/cgi-bin/send_sm_rogers.new [ ... GC ] GC to POST your message? GC -- GC Graham Chiu Yes, the read/custom and open/custom is very useful, some pages needs to be accesed only from some pages so the 'Referer and 'Host in the header must be set correctly, I'm using for example this code (and will have to add this to my %reb-web-bot.r script as well): This is not complete code, because first I want to make some code cleaning before puclicating it:-) only important parts are here now: port: open/direct/binary/custom http://www2.eurotel.cz/sms/index.html?n_pagestyle=new2 [ header [ User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98) Referer: http://www2.eurotel.cz/sms/index.html?n_pagestyle=new2; Host: www2.eurotel.cz ] ] probe port/locals cookie: port/locals/headers/set-cookie buffer: make binary! 8000 set-modes port/sub-port [lines: false binary: true no-wait: true] until [ if not data: wait [60 port/sub-port] [data: true break] if data: copy port/sub-port [append buffer data] not data ] close port ;some page parsing is here. ;...after the parsing I have: poststr with the url-encoded postdata ;so I can send them: print read/custom rejoin [http:// port/host %/sms/index.html] x: compose/deep [ header [ User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98) Referer: http://www2.eurotel.cz/sms/index.html?n_pagestyle=new2; Host: www2.eurotel.cz Cookie: (cookie) ] post (poststr) ] buffer: make binary! 8000 set-modes port/sub-port [lines: false binary: true no-wait: true] until [ if not data: wait [60 port/sub-port] [data: true break] if data: copy port/sub-port [append buffer data] not data ] close port print buffer: to-string buffer -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: using struct! to convert values to binary! datatype
Hello Brett, Thursday, October 17, 2002, 12:03:59 AM, you wrote: thanks to discussion about the system-port I just found that the struct! BH is free in Rebol, BH It does not work Core or in Base - so don't throw away your functions just BH yet. BH Still your findings are very handy to know. BH Regards, BH Brett. Hmm... that's right, I started to make the Rebol/Flash dialect for Core but now I use it only in Rebol/View 1.2.1 (because I didn't fixed the %img-to-bll.r script to be working in the new Rebol/View yet and I most cases I need to work with images:( I will add some version testing. -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: using struct! to convert values to binary! datatype
Hello Gregg,
Wednesday, October 16, 2002, 11:20:49 PM, you wrote:
GI Hi Oldes,
GI Excellent! Do you need to use COPY in cases where you're returning the
GI entire element, as in:
GI int-to-ui32-st: func[i][ui32-struct/value: i copy third ui32-struct]
GI Eliminating COPY, if you can, should add even a little more speed.
GI --Gregg
In most cases it is needed. I was using it without copy, but I had
some related bugs. Look at this example:
ui32-struct: make struct! [value [integer!]] none
int-to-ui32-st: func[i][ui32-struct/value: i copy third ui32-struct]
int-to-ui32-st 100
== #{6400}
rejoin [int-to-ui32-st 1 int-to-ui32-st 2]
== #{01000200}
int-to-ui32-st: func[i][ui32-struct/value: i third ui32-struct]
rejoin [int-to-ui32-st 3 int-to-ui32-st 4]
== #{04000400}
I'm not sure, if it's not a Rebol bug, maybe it's just by design.
--
do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] using struct! to convert values to binary! datatype
Hello rebol-list,
thanks to discussion about the system-port I just found that the struct! is free in
Rebol,
so I started to play with it and found, that it's realy good for
converting values to binary! format. For example the first thing in
my %make-swf.r file - converting integer! to Unsigned 32-bit integer
value:
I was using this ugly function:
int-to-ui32: func[i [number!]][head reverse load rejoin [#{ to-hex to-integer i
}]]
t: now/time/precise loop 10 [int-to-ui32 100] now/time/precise - t
;== 0:00:02.143
;With the struct! I can do:
int-to-ui32-st: func[n][third make struct! [n [integer!]] to block! n]
t: now/time/precise loop 10 [int-to-ui32-st 100] now/time/precise - t
;== 0:00:00.6
As you can see, it's much more faster, but I'm still creating new
struct! - why not to use just one:
ui32-struct: make struct! [value [integer!]] none
int-to-ui32-st: func[i][ui32-struct/value: i copy third ui32-struct]
int-to-ui32-st 100
;== #{6400}
t: now/time/precise loop 10 [int-to-ui32-st 100] now/time/precise - t
;== 0:00:00.19
;Isn't it nice? It's faster!
;In the same way I can replace my old slow functions as well:
int-to-ui16: func[i [number!]][head reverse load rejoin [#{ skip mold to-hex to
integer! i 5 }]]
int-to-ui8: func[i [number!]][load rejoin [#{ skip mold to-hex to integer! i 7
}]]
int-to-bits: func[i [number!] bits][skip enbase/base load rejoin [#{ to-hex to
integer! i }] 2 32 - bits]
;to these new one:
ui16-struct: make struct! [value [short]] none
int-to-ui16-st: func[i][ui16-struct/value: i copy third ui16-struct]
int-to-ui8-st: func[i][ui16-struct/value: i copy/part third ui16-struct 1]
int-to-bits-st: func[i [number!] bits][skip enbase/base head reverse int-to-ui32-st
i 2 32 - bits]
t: now/time/precise loop 10 [int-to-ui16 100] now/time/precise - t
;== 0:00:02.344
int-to-ui16-st 100
;== #{6400}
t: now/time/precise loop 10 [int-to-ui16-st 100] now/time/precise - t
;== 0:00:00.201
t: now/time/precise loop 10 [int-to-ui8 100] now/time/precise - t
;== 0:00:02.173
int-to-ui8-st 100
;== #{64}
t: now/time/precise loop 10 [int-to-ui8-st 100] now/time/precise - t
;== 0:00:00.351
int-to-bits 100 16
;== 01100100
t: now/time/precise loop 10 [int-to-bits 100 16] now/time/precise - t
;== 0:00:02.404
int-to-bits-st 100 16
;== 01100100
t: now/time/precise loop 10 [int-to-bits-st 100 16] now/time/precise - t
;== 0:00:00.801
I'm really happy to see, that we are going faster and faster:-))
The %make-swf.r file should be uploaded with this improvement and you can
just download it from here:
http://oldes.multimedia.cz/swf/make-swf.r
cheers Oldes
--
do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] REBOL/BASE testing
Hello rebol-list, I've finally found some time to test the Rebol/base... I choosed one of my cgi scripts and set the Rebol/base as the interpreter, I had to add decode-cgi function to this script to make it working and run this simple test: t: now/time/precise loop 1000 [read http://127.0.0.1/cgi-bin/system/poc3.r?i=rur-tes] t2: now/time/precise - t == 0:00:36.552 t: now/time/precise loop 1000 [read http://127.0.0.1/cgi-bin/system/poc.r?i=rur-tes] t2: now/time/precise - t == 0:01:11.342 As you can see the Rebol/BASE is almost 3 times faster. It really worhts to rewrite some of the server-side scripts to be runable with it:-)) PS: I'm now thinking about some way how to find and import the missing functions into the Rebol/Base from Core, do you have any ideas? -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: rebol and kiosk systems embedding ...
Hello Jason and Pekr, Sunday, October 13, 2002, 12:54:35 AM, you wrote: JC Petr Krenzelok wrote: OK, I know flash is the option - the problem is that I don't have designer fluent at Flash right now. Anyway, thanks for the tip. OTOH I JC I'm available if you are interested.. me too think that flash is overhyped, well - that's just me :-) If I would use something for really cool presentations - I would go with Scala. One has to see it first to believe it - viva old good Amiga days :-) You can learn Scala in few hours to do basic stuff, all scripts are just that - editable scripts, etc. I think that Scala will be a little bit expensive (but maybe I'm wrong), Flash files I can make for free using my own Rebol's dialect:-) JC Shared object is a cache support system for flash to enable persistence across JC sessions. JC Local Connection Object allows message passing between any flash movies being JC server from the same server. You can call functions between separate flash JC movies on separate machines in close to real-time. JC Both of these onlly require a few lines fo code to implement. I'm not such a FlashMX fun (I still rather do code compatible with Flash5 but I've already explored some of the new features as well: http://oldes.multimedia.cz/swf/mx-sharedobject.html http://oldes.multimedia.cz/swf/mx-localconn.html JC I think MM have a linux flash6 player out now, but not tested it yet. If so JC would likely run in Mozilla too! Best of all worlds maybe... I was using Flash5 with Netscape under RedHat6.1 few months ago and on my old PC on 233Mhz it was faster than under M$ WinNT (in my opinion the fastest M$ OS). If I would like to make kiosks, I would use Linux for them! cheers Oldes -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: REBOL/BASE testing
R As you can see the Rebol/BASE is almost 3 times faster. It really worhts to R rewrite some of the server-side scripts to be runable with it:-)) but the problem may be, that there is no Linux version of Rebol/Base yet :( -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] The system port
Hello rebol-list, I'm back in the rebolution so ...is there already some doc about the system port? I can see that this port is in the Rebol/base so it's clear that must be VERY important. I'm looking forward to found more (or at least some) info about it -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] ANN: Rebol/flash dialect updated
Hello rebol-list, I've fixed some small bugs in the dialect I will be offline a few weeks so don't expect any updates soon. -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: ANN: IP-atlas
Hello Alan, Saturday, August 31, 2002, 6:14:07 PM, you wrote: AC At 03:24 PM 8/31/02 +0200, you wrote: Hello rebol-list, just to let you know that I've just uploaded Rebol version of IP-atlas. You may find it here: do load-thru http://oldes.multimedia.cz/utils/ip-atlas.r ;enter ip adress or url as www.rebol.com and press submit, if there is an record, you may see red cross on the map I am having some weird things happening with this! When I first used it gave me the correct location for Rebol.I then checked my ISP and got the correct map location.Checking Amiga.com AC returned nothing.Exited the program and tried again starting with Rebol and AC this time the location was wrong.Here is the text: AC 4.82.101.70 [ELNKMSWH2000 64.82.0.0 - 64.82.127.255 PASADENA AC CALIFORNIA US 34.15 -118.09 City 03-Jul-2001 ARIN Block AC Allocation none corp.earthlink.net OK] AC I also noticed that the Rebol icon in the bottom right was also not always AC there? Hmm it's first version, there is no progressbar for fetching the data and probably a cache error as well try to: do load-thru/update http://oldes.multimedia.cz/utils/ip-atlas.r the data are provided by caida organisation: http://netgeo.caida.org/ a lot of data are not accessible :( but there is still a lot of ips-record that have latitude and longitude :-) with amiga the record is: print read http://netgeo.caida.org/perl/netgeo.cgi?target=209.15.183.102 connecting to: netgeo.caida.org !DOCTYPE HTML PUBLIC -//IETF//DTD HTML//EN HTMLHEADTITLENetGeo Results/TITLE /HEADBODY VERSION=1.0br p TARGET:209.15.183.102br NAME: br NUMBER:209.15.183.0br CITY: br STATE: br COUNTRY: br LAT: 0.00br LONG: 0.00br LAT_LONG_GRAN: br LAST_UPDATED: br NIC: APNICbr LOOKUP_TYPE: Block Allocationbr RATING:br DOMAIN_GUESS: br STATUS:OKbr /BODY/HTML so there will be no cross on the map:( looking at whois gives me no results % [whois.apnic.net node-1] % How to use this serverhttp://www.apnic.net/db/ % Whois data copyright termshttp://www.apnic.net/db/dbcopyright.html %ERROR:101: no entries found % % No entries found in the selected source(s). -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: ANN: IP-atlas
Hello Anton, Saturday, August 31, 2002, 5:38:04 PM, you wrote: A Great! I wanted to do this one day. A You beat me to it. :) A Anton. me too:-)) I'm now working on a Flash visualization as well: http://oldes.multimedia.cz/ipatlas/ipatlas.html -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: ANN: IP-atlas
Hello Anton,
Monday, September 2, 2002, 9:49:22 PM, you wrote:
A Oldes...
me too:-)) I'm now working on a Flash visualization as well:
http://oldes.multimedia.cz/ipatlas/ipatlas.html
--
do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT
REgArrrD, RebOldes]
A Cool, all those ip's - where did you get them, I ask.
A I guessed that you are using your flash dialect so
A I looked where the source for the flash is, and added
A an r - he he, and you keep your rswf files on the
A server ? :)
A read http://oldes.multimedia.cz/ipatlas/ipatlas.rswf
A == {rebol [
A ^-title: IP atlas
A ^-type: 'swf5
A ^-file: %ipatlas.swf
A ^-background: 0.0.0
A ^-rate: 40
A ^-size: 800x400
A ^-author: oldes...
A Looking through the above code I found the filename
A that contains the ip data.
A http://oldes.multimedia.cz/ipatlas/data.txt
A I assume you are using your previous script to
A determine longitude latitude of each ip.
A They *look* like locations of rebol programmers on
A this list. Is this what you have done?
A How did you parse your mail, grabbing the domains
A of the mail provider of each listmember so you ended
A with a unique list of ip addresses?
A :)
A Anton.
yes the data are from my counter at rebol/flash dialect... I use a
little bit improved ipatlas.r script to try to display the ip log/lat
on the map an then I just parse the cache file (set in the settings)
to make the ur-encoded data file:-)...but unfortunately a lot of
ips-records from netgeo is without the lon/lat informations :-(
--
do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] ANN: IP-atlas
Hello rebol-list, just to let you know that I've just uploaded Rebol version of IP-atlas. You may find it here: do load-thru http://oldes.multimedia.cz/utils/ip-atlas.r ;enter ip adress or url as www.rebol.com and press submit, if there is an record, you may see red cross on the map feel free to visualize other received data as well (i will make some detailed maps - thnaks to Jose-Alvarez for good map links:-)) -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Event transparent faces
Hello Gabriele, Tuesday, August 27, 2002, 12:19:32 PM, you wrote: GS Hi RebOldes, GS On Monday, August 26, 2002, 1:41:44 PM, you wrote: R view layout [ Rbutton my button 100 [print now] Rat 80x0 box 20x50 effect [merge colorize 200.0.0] R ] GS Well, a rough approximation would be: GS view layout [ GSbtn: button my button 100 [print now] GSat 80x0 box 20x50 effect [merge colorize 200.0.0] feel [ GSengage: func [face action event] [ GSbtn/feel/engage btn action event GS] GS] GS ] GS It has a number of problems, but should get you going. Also, of GS course the right solution would be for RT to provide event GS transparency in some way. Hmm... it's working but does not solve the problem, because in the real usage I don't know what is bellow the box. I would expect that if I set feel: none in the box, it will acts as it is not present, but it kills the event-ray-process as well:( And except of that i would like to have possibility to decide if the face is event transparent or not - for example if the pixel of some image in the face is transparent, then not to stop the event-ray. We will have to wait for some RT solution and I think it is very important. -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: locale
Hello Andrew, Monday, August 26, 2002, 7:22:59 AM, you wrote: AM Just thinking out loud. AM What about an automatic language translation of Rebol code? With a language AM field set in the header of the script? Like: AM Rebol [ AM Name: 'Test AM Language: 'English; Could be Czech, Spanish, AM ] AM For example, a Czech person (is there a better phrase?) gets a Rebol script AM written in English, and wants the display in Czech. And so they use a AM English to Czech translator script that uses, say, Babelfish or other online AM resource to translate individual string! values (or individual words within AM the string! value) into Czech. After some minutes searching, I can across AM this URL: AM http://www.mtranslations.cz/scripts/dict/en/query_new.idc?Slovo=Hellolang=c AM zdia=on which translates English/Czech words, and can be easily plugged AM into Rebol. :-))) I was working for mtranslations (now moravia-it:) ... I would like to see them when they recognize that the server log is full of Other browsers not just M$IE but I think there are better translators (and Cyphre has somewhere his rebol gui for them) Anyway, I'm not sure if such a translation will provide good results (especially czech language has quite complicated grammer) I was using these two ways to make multilangual scripts: 1. for generating pages I have: languages: [cz en] languageid: 2 ;for english localized: func [msg /local txt][ msg: append copy [] msg txt: any [pick msg languageid msg/1] txt ] ;And then i have one script for both languages with for example: print localized [Ahoj Hello] ;or months: [ [Leden Únor Bøezen Duben Kvìten Èerven Èervenec Srpen Záøí Øíjen Listopad Prosinec] [January February March April May June July August September October November December] ] print join localized [Dnes je Today is ] pick localized months now/month ;the advantage of this approach is that I have all data in one file ;and when I'm too lazy to translate something, the default language is ;used print localized Tohle jsem neprelozil ;or to have different content for english users as: layout localized [ [image %nejaky.jpg] [text You are not allowed to see this czech picture] ] ... 2. for pure Rebol scripts (used in R-box2) this was not system solution I have for czech and english different file called: %msgs.cz.inc and %msgs.en.inc where I have localized function for status bar messages 'do-msg and a block with localized strings as: locstr: [Zpìt Nová hra Ulo hru Naèti hru Skladník se vrací!] and in the script I use: do-msg 'loaded ;- prints Hra naètena... or Game loaded... in the statusbar print locstr/5 The disadvantage of this method is, that it's quite complicated to see what you are printing while coding it (in the R-box there was not too much texts but in some large projects it may be an issue) ... Using both methods at once may be good approach - in the main script you may use the localized function and then simply build the language catalogs (the locstr block?) from it using some translating tool BUT why I should translate my scripts to Czech when I don't see correct czech characters in Rebol:( I think that rather then playing with skinning for the new VID or meditating if it's good to have %local/ directory somewhere, RT should make some other improvements in the kernel (at least native rich-text and unicode support and I don't mind if the new View will be 700kB or 1MB large), because they are only people allowed to do that (we can change VID by yourselfs) -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Corewars?
Hello Pawe,
Monday, August 26, 2002, 9:27:00 PM, you wrote:
So how about doing a Corewars simulator in Rebol? Anyone interested?
Robert
I'd be interested, though I'm not sure I've much time for the coding.
Definately up as a beta-tester though.
PG That's pretty what I have been thinking of!
PG Here's my first attempt:
PG http://akson.sgh.waw.pl/~pg23193/corewars/arbiter.rar (~200KB)
PG No documentation so far, therefore, here are some explanations:
PG MARS complies with ICWS'94, with pMARS extensions:
PG SEQ, SNE, NOP, new addressing modes: * { }, multiline EQU.
PG Currently, I'm working on full FOR - ROF functionality.
PG As it comes with skins and is not optimized - you probably
PG need a fine machine to run it :-)
PG Help of any kind is welcomed.
PG Pawe
PG --
PG Pawe Gawroski *** [EMAIL PROTECTED]
The archive seems to be corrupted:(
1 arbiter.rar: Unknown method in arbiter\arbiter.r
--
do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] Event transparent faces
Hello rebol-list, this mail should be adressed to the Feedback, but maybe some clever guy will know some way how to make event transparent face, so the button in this example will be working even bellow the red box: view layout [ button my button 100 [print now] at 80x0 box 20x50 effect [merge colorize 200.0.0] ] -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] ANN: Rebol/flash dialect updated
Hello rebol-list, just to let you know that I've updated my Rebol/Flash dialect again (just a little bit) at http://oldes.multimedia.cz/swf/ (update was in these files: %actions.r and %make-swf.r ) the new function is described here: http://oldes.multimedia.cz/swf/swf5-setvar.html -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: tired of broken downloads?
Hello Petr, Friday, August 16, 2002, 7:57:35 AM, you wrote: PK Hello, PK in the age of advanced Internet browsers, we still can meet with very PK lame downloaders they provide. They offer no ability to start at the PK place where download was broken. So I created following 1KB in size PK small util. As you can see - no GUI. I tried, but I spent most of my PK time playing with look, so I gave up. It is simple, small, does what it PK is supposed to do, well, mostly. PK Every time I think I finally understand how something works, I stay PK starving at console, getting unexpected results. So, the script as it is PK seems to work. Just try to answer my following questions: PK 1) I tried to use simply data: copy source aproach. The strange thing PK is, that while I use /no-wait, it should perform body block of 'while. PK But I can see console hanging, and the body block is entered only once - PK once file is completly downloaded. But - 'copy should not block here, no? PK 2) With larger file, I obtain network time-out. So I tried to use some PK kind of not error? try [data: copy source], but well, once port is PK closed by the other side, 'none is generated, but 'none itself doesn't PK return false(error) state to 'try. So - how to adapt the script, so I PK could safely go home, and let my script to PK download-damned-thing-even-in-million-pieces, safely? :-) PK ... I turned it back to copy/part aproach, but - is open/no-wait on http PK port broken? Why does 'copy block, or - what happens at all? Any PK explanation appreciated. PK PS: used write/binary/append, untill open/skip works as expected PK -pekr- PK --- PK REBOL [] PK source-url: http://www.rebol.cz/~cyphre/ PK source-file: %styles2.jpg PK target-path: %./ PK target-file: source-file PK source-size: size? join source-url source-file PK either exists? join target-path target-file [ PK target-size: size? join target-path target-file PK ][target-size: 0] PK if target-size == source-size [print Nothing to download, file already PK complete ... halt] if target-size 0 [print [Appending at target-size bytes]] PK start: now/time PK forever [ PKwhile [error? try [source: open/binary/direct/no-wait/skip join PK source-url source-file target-size]][ PK print Can't open source file waiting 10 min PK wait 00:10 PK] PKwhile [ PK wait source PK data: copy/part source 2048 PK][ PK write/binary/append join target-path target-file data PK target-size: target-size + length? data PK print [Source-size: source-size tab Downloaded: target-size PK tab Time: now/time - start] PK] PK if target-size = source-size [break] PK ] PK close source I thought that the 'skip on binary/direct modes is broken, but not sure... I was thinking to use somethink like that in my downloader script as well (skiping already downloaded parts) but not started yet BTW: you should also check if the file was not modified since your last downloading. And your script will be also unusable on some files where is no info available (usualy generated files) And one more comment: I'm not sure but maybe it will be better to make the checking (file info) after opening the port, because now you probably open the port two times but I'm not sure because the 'query function that's called on the port is native and the port is closed after that... see source info? -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Windows registry keys
Hello Anton, Thursday, August 15, 2002, 7:37:11 PM, you wrote: A I am looking into the windows registry A I wonder if other people have exactly the same A long path element as in below: A HKEY_USERS\S-1-5-21-1614895754-688789844-1060284298-1000\Software\Rebol A Are the numbers exactly the same? A I am interested in making a silent install for rebol. A Anton. No... and I think that has nothing to do with Rebol... I understand that it's a way how M$ names users on your machine (only in NTs/W2000/XP?) - imagine you have two accounts on your PC one has Rebol installed and the second not... for security reasons you may not see in registry for example: HKEY_USERS\David\Software\Rebol :-) -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Installing REBOL/View on MacOS 9.2
Hello Jussi, Wednesday, August 14, 2002, 8:58:59 AM, you wrote: JH Have anyone succeeded in installing REBOL/View on MacOS 9.2? Or am I JH just doing something really wrong? I was trying to install Rebol/View on one friend's Mac and I had same problems, but that was my first meeting with MacOS so there was no surprise what I consider to be bigger problem was running some of my scripts that use no-tile option in 'view and has it's own dragging I use here this engage feel to drag window: view/options layout [ box drag me 100x100 with [ feel: make feel [ engage: func [f a e][ if a = 'down [ mouse-pos: e/offset ] if find [over away] a [ f/parent-face/offset: f/parent-face/offset + (e/offset - mouse-pos) show f/parent-face ] ] ] ] ][no-title no-border] That works fine in Windows but seems not to work in Mac and I think that in Unix as well. I don't have access to these OSs so I cannot find how to fix it now, but if someone can I would like to see correct way how to drag window in a crossplatform way. -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: WB skins
Hello Boleslav, Wednesday, August 14, 2002, 9:25:50 AM, you wrote: BB Oh, sorry, BB I thought I've send it to Oldes' personal e-mail adress. BB However, when it's here...I've changed 'wb-radio and 'wb-check so you BB can use active labels together with them. BB USAGE: in layout use BB [ BBwb-check Click image or text BBwb-radio Click image or text BB ] thank you Bolek... it's updated now:-) -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Console and color
Hello Philippe, Monday, August 12, 2002, 11:06:37 PM, you wrote: PO Is it possible to print in different colors on the console's line ? If yes, PO how to ? Has Someone already wrote a code for that ? PO PHilippe In windows no in Unix with ANSI terminal yes... just use ANSI escape sequences look at this script I'm now working on: http://oldes.multimedia.cz/r-sys/ansi2.r here you can see how escape sequences for colors looks like: ;foregrounds | [30m | 1;30m] (ChTs/f 0.0.0) | 31m(ChTs/f 132.0.0) | 1;31m (ChTs/f 172.0.0) | 32m(ChTs/f 0.130.0) | 1;32m (ChTs/f 0.170.0) | 33m(ChTs/f 132.130.0) | 1;33m (ChTs/f 172.170.0) | 34m(ChTs/f 0.0.132) | 1;34m (ChTs/f 0.0.172) | 35m(ChTs/f 132.0.132) | 1;35m (ChTs/f 172.0.172) | 36m(ChTs/f 0.130.132) | 1;36m (ChTs/f 0.170.172) | 37m(ChTs/f 235.235.235) | 1;37 (ChTs/f 255.255.255) ;backgrounds | [40m | 1;40m] (ChTs/b 0.0.0) | 41m(ChTs/b 132.0.0) | 1;41m (ChTs/b 172.0.0) | 42m(ChTs/b 0.130.0) | 1;42m (ChTs/b 0.170.0) | 43m(ChTs/b 132.130.0) | 1;43m (ChTs/b 172.170.0) | 44m(ChTs/b 0.0.132) | 1;44m (ChTs/b 0.0.172) | 45m(ChTs/b 132.0.132) | 1;45m (ChTs/b 172.0.172) | 46m(ChTs/b 0.130.132) | 1;46m (ChTs/b 0.170.172) | 47m(ChTs/b 235.235.235) | 1;47m (ChTs/b 255.255.255) so when you do: print ^[[41msome text background will be set to dark red color until you type: print ^[[0m == reset to default but this works only in ANSI terminals -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] ANN: ANSI-text-field style
Hello rebol-list, after one year I've made style version of my ANSI test field (I was using it in R-Mud) the style is here: LOAD-THRU/UPDATE http://oldes.multimedia.cz/styles/ansi-field.r example is here: do load-thru http://oldes.multimedia.cz/examples/ansi-field.r (because of used skinned scroller the example will work only with new View!) BTW: not perfect example of wb-skinz scrollers you may find here: do load-thru http://oldes.multimedia.cz/examples/scrollers.r (there is no downloader for all the used BMPs so it may take some time to start) Thankx to Bolek I've also updated the s-field style (fixed bug with shared history): LOAD-THRU/UPDATE http://oldes.multimedia.cz/styles/s-field.r do load-thru http://oldes.multimedia.cz/examples/s-field.r -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Console and color
Hello Philippe, Tuesday, August 13, 2002, 9:09:26 PM, you wrote: PO Someone has an idea how to print in different colors on the prompt of the PO view' console ?? Install Linux or Beos (they have ANSI terminals not like M$) or buy Amiga - probably supports ANSI colors as well and try to run this script: print to-string read-thru http://oldes.multimedia.cz/examples/ansi.txt and you should see colors in your console... I's a shame that there is no color support in Window$ -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: how? Making JPG's
Hello Cyphre, Tuesday, August 13, 2002, 6:29:44 PM, you wrote: C Hi Norman, C I have a solution for saving images in JPG format from Rebol but this need C /Pro version. If you are still interested just contact me directly. C regards, C Cyphre everybody is interested I think, I was asking you in RL many times to post me some of your scripts Cyphre do you remember? :-) -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Download a whole website
Hello Rebol-list, it's not perfect yet, but a lot of fixes: do load-thru/update http://oldes.multimedia.cz/utils/reb-web-bot.r to download all Internet :(because I have no limits so it will be downloading and downloading until you fill your drive or stop IT:) -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] ANN: R-Sys project strikes back
Hello rebol-list, just want to inform you, that because I don't have too much work at this moment, I have more time for Rebolution again, that means that I'm back to work on my R-Sys (rebol windowing system) project which was based on an idea of hardcoded R-Mud project. Today I did some important changes in the R-Sys code (it's not ready for public but I managed to have another of my projects - R-Box2 game running in the Rebol's full screen desktop with some other scripts that you may know from my rebsites (r-mud and oldes) and with a panorama style example as well (by the way there was small bug inside - I will upload fixed version)) ...but why I write this message? Because the Rebol uses less then 2% of my CPU! I was working on one project in Flash these days (with panoramatic image as I have in the Rebol - and I must say, that it uses much more of my CPU and I was not able to make R-box2 clone in Flash yet even I wanted to becasue it's simply much more difficult and MUD client in Flash - impossible)... If Rebol is not better then Flash now (and I like Rebol more then Flash), I'm sure it will be better soon! I'm looking forward for the good future with Rebol... Rebol is great... -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Core Guide Update - Minor Changes
Hello Carl, Friday, August 9, 2002, 11:32:01 PM, you wrote: CaR The REBOL/Core Guide at http://www.rebol.com/docs/core23/rebolcore.html has had some minor changes, including eliminating bad links and adding newer version change docs to the table of contents. CaR Also, Chapter 6 and 11 have been converted and reformatted with makedoc.r. I would very much appreciate it if someone could look over these chapters for formatting errors. It's hard to catch CaR them all. Email me directly if you find something. Thanks. CaR -Carl CaR REBOL Guy CaR PS: Appendix 1 conversion still pending. I started my reb-web-bot and this link is not working: http://www.rebol.com/docs/core23/core.html -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] How to count CRC32?
Hello rebol-list, does anybody know, how to count CRC32 in Rebol? What type of checksum is using the default CHECKSUM function? thanks Oldes -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] RFC: Unix time format
Hello rebol-list, does anybody has script for converting Rebol time format to Unix format that means returns seconds since 00:00:00 GMT, Jan. 1, 1970 ? I would like to have this in Rebol for example as: now/unix or now/timestamp or to-unix-time date It would be nice, because a lot of file specifications are using this value for time. thanks.. Oldes -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Download a whole website
Hello Abdel,
Thursday, July 25, 2002, 10:36:13 PM, you wrote:
AB I know how to download a web page and save it to the disk, that if I know
AB the name of the page. But if I want to download a whole website and save it
AB to my hard drive?
I had one reb-bot for travelling on the net and searching for images
but he is really old (born in 2000) was not saving pages and had some
bugs inside so I decided to make new generation. Here is what I have
now (excuse the function 'uprav-url - it's from the old bot and needs
to be improved (and translated) as well)
What it does? Simply parses the html and sorts found urls to blocks:
images, stylesheets, linked scripts - I will add apllets and embedded
objects as well
There are two things that want to discuss:
1.
How to save page from url: http://localhost/
:(may be index.html default.html or what is specified on the server
side:(
2.
Way how to encode file names of dynamic documents as:
http://127.0.0.1:85/cgi-bin/getboard.r?boardID=defaultlang=cz
and here is the script:
code
rebol [
title: Site downloader
purpose: {To download pages from some url with all content}
author: {Oldes}
email: [EMAIL PROTECTED]
comment: {This is not finished version... now it just parses the page and returns
sorted types of urls. Need to make saving the content and recursion for traveling from
one page to another}
version: 0.0.1
]
page-url: to url! ask start URL:
;page: read/binary page-url
page-markup: load/markup page-url ;to-string page
purl: decode-url page-url
if none? purl/path [purl/path: /]
purl/port-id: either none? purl/port-id [][purl/port-id: join : purl/port-id]
base-href: rejoin [http:// purl/host purl/port-id purl/path]
images: make block! 50
links: make block! 500
scripts: make block! 10
stylesheets: make block! 10
tag-rules: [
img copy x thru {src=} copy url [to { } | to end ] y: to end (
tag-name: img
url: uprav-url url
if all [none? find images url not none? url] [insert images url]
)
| link copy x thru {href=} copy url [to { } | to end ] y: to end (
tag-name: link
url: uprav-url url
if all [none? find stylesheets url not none? url] [insert stylesheets url ]
)
| script copy x thru {src=} copy url [to { } | to end ] y: to end (
tag-name: script
url: uprav-url url
if all [none? find scripts url not none? url] [insert scripts url ]
)
| BASE copy x thru {href=} copy url [to { } | to end ] y: to end (
tag-name: base
base-href: uprav-url url
;print rejoin [new base-href: base-href]
)
| EMBED copy x thru {src=} copy url [to { } | to end ] y: to end (tag-name:
EMBED)
| a copy x thru {href=} copy url [to { } | to end ] y: to end (
tag-name: a
url: uprav-url url
if all [none? find links url not none? url] [insert links url ]
)
]
uprav-url: func [path [string!] /local u q w new-url][
path: trim/with path {}
if find path javascript: [return none]
if find path mailto:; [return path]
either found? find path :// [
return path
] [
either path/1 = #/ [
parse base-href [copy w thru :// copy q [to / | to end]]
return newurl: rejoin [w q path]
] [
site: tail parse (to-string skip base-href 7) /
path: parse path /
foreach p path [
either p = .. [
if error? try [remove back site] [print Spatny relativni
odkaz]
] [
if p . [append site p]
]
]
newurl: make string!
foreach p head site [append newurl join p /]
newurl: head clear back tail newurl
replace/all newurl // /
insert head newurl http://;
return head newurl
]
]
]
parse/all page-markup [
some [
set tag tag! (
if parse/all tag tag-rules [
; print reform [x url y tag-name]
]
)
| any-type!
]
]
probe stylesheets
probe images
probe scripts
probe links
/code
--
do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] Re: More gz compression
Hello Gabriele,
Thursday, July 25, 2002, 4:13:23 PM, you wrote:
GS Hi Henrik,
GS On Monday, July 22, 2002, 4:02:01 AM, you wrote:
HMK Did anyone make rebol's compress match the one used in gzcompress() with php?
GS I never tried, but maybe PHP's just adding the GZIP header that
GS REBOL does not add?
GS Regards,
GSGabriele.
I've tried it as well and here is result:
Rebol produces same output as PHP function:
gzcompress($data_to_decompress, 9);
but with the uncompressed data size (last 4 bytes)
(at least in all my tests there was same result and I was able to
compress/decompress data between PHP and Rebol vice versa)
For reading/writing *.gz files from Rebol we need to work with the GZIP header...
I've written this testing gzip parser - this doesn't solve our problem - see
the comments in the file and try to find solution:-)
code
rebol [
title: GZip test parser
purpose: {Experimental script to test a posibility to decompress *.gz files}
author: Oldes
email: [EMAIL PROTECTED]
specification: http://www.faqs.org/rfcs/rfc1952.html
]
;gzipbin: read/binary %/c/web/fwp/www/test2.gz
;for testing I have already loaded compressed text: Rebol
gzipbin: #{1F8B080B0B4A4DCACF0100D2293B650500}
rebolbin: compress Rebol
;comparing these binaries we can see:
;gzipbin: #{1F8B080B 0B4A4DCACF0100 D2293B65 0500}
;rebolbin: #{789C 0B4A4DCACF0100 05A301F5 0500}
parse/all gzipbin [
;IDentification:
#{1F8B}
;compression method:
copy CM 1 skip (probe CM: to-binary CM)
;FLaGs:
copy FLG 1 skip (probe FLG: enbase/base FLG 2)
;Modification TIME:
copy MTIME 4 skip (probe MTIME: to-integer head reverse to-binary MTIME)
;eXtra FLags:
copy XFL 1 skip (probe XFL: to-binary XFL)
;Operating System:
copy OS 1 skip (probe OS: to-integer to-binary OS)
tmp:
(
if FLG/6 = #1 [
;eXtra LENgth
XLEN: to-integer head reverse to-binary copy/part tmp 2
tmp: skip tmp 2
FEXTRA: copy/part tmp XLEN
tmp: skip tmp XLEN
]
if FLG/5 = #1 [
;...original file name, zero-terminated...
parse/all tmp [copy FNAME to #{00} 1 skip tmp: to end]
]
if FLG/4 = #1 [
;...file comment, zero-terminated...
parse/all tmp [copy FCOMMENT to #{00} 1 skip tmp: to end]
]
)
:tmp
copy rest to end
(
probe rest: to-binary rest
;in the REST variable is zlib compressed data 4bytes of CRC32 and
4bytes of size of uncompressed data...
;Can anybody find how to uncompress these data in Rebol???
;if I insert #{789C} in the head (as it's in the 'rebolbin I get error:
;** Script Error: Invalid compressed data - problem: -3
;that probably means wrong CRC32 - :(( - RT will have to help us
)
]
/code
--
do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] Re: Forms dialect
Hello Andrew, Wednesday, July 3, 2002, 6:12:31 AM, you wrote: AM Hi, everybody! AM I've been working on a forms dialect for Rebol, that automatically generates AM HTML code from a basic description of the form. At the moment, I've got the hmm... I was thinkeng about form dialect two days ago, will have to look at this one:-) thanks andrew for posting it Oldes -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] How to detect type of OS
Hello rebol-list, does anybody has/know some script for detecting type of operating system rebol is running in? I would like to update my %win-maker.r file that makes window without standard window borders but I've found that it's not working on some other platforms (for sure at MacOS) so I would like to have possibility to make it available only on windows (at least until I will find way how to fix it for all platforms - but it's quite dificult when one can see the other OS once per month for a few minutes) thanks Oldes -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Compress vs gzip/zlib
Hello Allen, Saturday, June 29, 2002, 12:45:33 AM, you wrote: AK The compression comes up every year, should be put in the FAQ. AK Here are some msgs from 1999 AK - Original Message - AK From: [EMAIL PROTECTED] AK To: [EMAIL PROTECTED] AK Sent: Wednesday, November 17, 1999 5:31 AM AK Subject: [REBOL] (De)Compress function source Re: ... Next step after that: TAR Sterling ah so... year 1999... year when people from RT were communicating also with as who has no access to IOS/developer server... it's quite a long time since a last email here from them... seems that they are more enjoy sun than monitor's radiation or am I wrong? hmm... TAR... will have to look at that... 3years... the best time to start. oldes -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] ANN: Rebol/flash dialect updated
Hello rebol-list, thanks to Jose and his discovery of the similarity of the Rebol's compress and zlib compression I've updated script http://oldes.multimedia.cz/swf/img-to-bll.r (for converting images to Flash bitmaps-loss-less format) so now it's not dependent on other code than Rebol's. BUT...it's not perfect, because I was not using it so much (it's not working with the new Rebol/view yet) Oldes -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] quoted-printable encoder
Hello rebol-list,
I've just uploaded this quoted-printable encoder to the library so enjoy it if you
want and correct me if you will find some bugs:-)
---
rebol [
title: quoted-printable encoder
purpose: {Encodes the string data to quoted-printable format}
author: Oldes
email: [EMAIL PROTECTED]
date: 20-Jun-2002/13:16:03+2:00
version: 1.0.0
usage: {
qp-encode nejzajímavìjí
== nejzaj=EDmav=ECj=9A=ED}
comment: {More info about this encoding:
http://www.faqs.org/rfcs/rfc2045.html}
]
qp-encode: func[
Encodes the string data to quoted-printable format
str [any-string!] string to encode
/local c h l r normal rest
][
l: 0 r: 0
normal: charset [#! - # # - #~ # ]
rest: complement normal
parse/all copy str [
any [
h: [
( r: (index? h) - l )
normal (
;non encoded characters
if r = 76 [h: insert h =^M^/ l: -1 + index? h]
)
| copy c rest (
remove h
if r = 74 [h: insert h =^M^/ l: -1 + index? h]
insert h join #= copy/part skip mold to binary! c 2 2
) 2 skip
] :h skip
]
]
head h
]
--
do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] Re: utf8-encode
R nobody has utf8-encoder?
R probably will have to write one by myself
ok... why there is NO native right/left shift function in Rebol?!
here is how utf8 works:
putwchar(c)
{
if (c 0x80) {
putchar (c);
}
else if (c 0x800) {
putchar (0xC0 | c6);
putchar (0x80 | c 0x3F);
}
else if (c 0x1) {
putchar (0xE0 | c12);
putchar (0x80 | c6 0x3F);
putchar (0x80 | c 0x3F);
}
else if (c 0x20) {
putchar (0xF0 | c18);
putchar (0x80 | c12 0x3F);
putchar (0x80 | c6 0x3F);
putchar (0x80 | c 0x3F);
}
}
and here is my Rebol version:
rebol [
title: UTF-8 encode
purpose: {Encodes the string data to UTF-8}
author: oldeS
email: [EMAIL PROTECTED]
date: 7-Jun-2002/0:03:27+2:00
usage: {
utf8-encode czech chars: ìèøýáíé
== czech chars: ìÂèøÂýáÃé}
comment: {More info: http://czyborra.com/utf/ }
]
shift: func [
Takes a base-2 binary string and shifts bits
data [string! binary!] places [integer!] /left /right
][
data: enbase/base data 2
either right [
remove/part tail data negate places
data: head insert/dup head data #0 places
][
remove/part data places
insert/dup tail data #0 places
]
return debase/base data 2
]
utf8-encode: func[
Encodes the string data to UTF-8
str [any-string!] string to encode
/local c
][
str: to-binary str
forall str [
if #{79} c: to-binary to-char first str [
remove str
insert str join (#{c0} or shift/right c 6) (c and #{3F} or
#{80})
str: next str
]
]
to-string head str
]
--
do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] utf8-encode
Hello rebol-list, nobody has utf8-encoder? probably will have to write one by myself -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: No framework library for rebol ?
Hello Ammon, Thursday, May 23, 2002, 4:08:29 AM, you wrote: AJ in debugger (work in progress) One of the things that will be available is AJ some more advanced styles and a skinning system. The whole idea of the AJ server is to provide a SorceForge type comunity for REBOL developers. I am AJ looking at some version control systems as well The features go on, but AJ for now let that suffice. ;-) I plane to make somethink like RebolSourceForge (at least for my own scripts) as well but first I have to finish some more important things. -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] ANN: Rebol/flash dialect updated
Hello rebol-list, I've fixed bug in the setting words in the Action parser. Now is possible to do multiple value settings at once as we know it from Rebol: info: movie.sprite1._x: movie._sprite2._y: random 500 what is same as this code in the ActionScript: info = random 500; movie.sprite1._x = info; movie.sprite2._y = info; and some other fixes -- do [send to-email join 'oliva [EMAIL PROTECTED] BESsssT REgArrrD, RebOldes] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] ANN: scrolling panoramatic image style
Hello rebol-list, just to let you now that I've uploaded this new style to the library... example you can see from my rebsite at http://oldes.multimedia.cz/index.r -- Best regards, RebOldes mailto:[EMAIL PROTECTED] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: ANN: scrolling panoramatic image style
Hello Philippe, Thursday, May 23, 2002, 8:10:41 AM, you wrote: PO hey oldes,... there is no library folder on your rebsite the 'library is in the Rebol.com folder from the left side of your View desktop:-)) check the history of the library. From my rebsite you can run the example (that will load the style as well) by the way... there was a bug in my downloader (in View 1.2.5 - reduce again) so now it should be fixed. Oldes -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] merge + key effect bug?
Hello rebol-list, testing the new Rebol/view (1.2.5.3.1) I've found that my circle-slide style ( http://www.sweb.cz/r-mud/styles/slide.r ) is not working properly so I made this testing script: ;-- lay: layout [ bg: box 100x100 effect [gradient 0.0.0 255.0.0 ] ] test1: make face [ size: 50x50 offset: 20x20 color: 255.0.0 edge: none effect: [ merge draw [fill-pen 100.100.100 circle 25x25 20] key 100.100.100 ] ] test2: make face [ offset: 30x45 size: 100x40 effect: [merge colorize 155.200.0] ] insert tail lay/pane [test1 test2] view lay ;-- The test2 works fine - colorize effect is working as should but the test1 doesn't. I think that the result should be red box with transparent circle inside. Is this BUG or should I use something else to make this work fine? I've found that this code is working: ;-- test1: make face [ size: 50x50 offset: 40x20 color: none edge: none effect: [ merge draw [ pen none fill-pen 255.0.0 box 0x0 50x50 fill-pen 100.100.100 circle 25x25 20 ] key 100.100.100 ] ] view lay ;-- But what if I have image in the face and want to use draw effect to make transparency mask? Thanks Oldes -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: How to view presentation dialect without Rebol
Hello Jason, Thursday, April 25, 2002, 6:14:50 PM, you wrote: JC The Flash Player is free and widely distributed and much smaller than PDF or JC SVG. It can be included on CDROMS. Also a stand-alone .exe can be made for JC Win32+Mac [but you need access to the authoring tool for that I believe, or one JC of the 3rd party tools like FlashJester]. I don't know what's FlashJester but to make *.exe file from the *.swf is not difficult. I don't like the *.exe files but although I don't know if it's legal I've made this simple script for making FlashProjectors for Windows (I don't understand the *.hqx files for Mac - they look as compressed but are 2 times bigger then the WIN's *.exe ) check it out as usually from http://oldes.multimedia.cz/swf/ it's the make-swfprojector.zip with binaries for making Flash4, Flash5 and FlashMX *.exe files and one really small Rebol script:-)) Cheers Oldes BTW: I was suprised how bigger is the FlashMX player in comparison with the Flash5 player -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] unsubscribe messages
unsubscribe messages Hi, I think that Selma should stop to attach the unsubscribe messages to the mails that already have it. It would save a lot of space... Oldes -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Strange chars in password
I need to connect to an FTP server but the password contains chars like #"@" or #"\". What can I do? thanks oldes
[REBOL] PNG examiner
I want to create a script that will allow me to create or modify simple png files. I've started with this script, that parses all the standard "chunks" in the file, but I could not go through the CRC and compression (LZ77 derivate). Anybody want to help me? oldes PS: The PNG spec. I used: http://oldes.multimedia.cz/spec/REC-png.html png.r test.png
[REBOL] Strange chars in the password
HI all, I need to connect to a FTP server but the password contains strange chars like #"@" #"\" #"#" I tried to url-encode the password, but it does not work. I'm sure it was already discussed but I cannot find it. thanx for advice oldes
[REBOL] Rebol/flash
Hi, it's some time, I mentioned one of my rebol/flash pages. Someone asked what it has to do with rebol, so there is small explanation. I'm developing my rebol multiuser system. In the flash section I use Rebol to control loading groups of small flash movies on specific locations, control their sizes, rotations, to fill these movies (aplications) with data and so on. I'm in the begining so there's more things I want to do than I already have. The one thing is to find some time and look at the flash player file specification (it's possible to download it from Macromedia site) and directly create or modify flash movies from Rebol. And to make a Rebol/view versions as well:)) And VRML Rebol worlds... sorry for the late reply, but I'm not online so often as I would like to be... oldes http://oldes.multimedia.cz
[REBOL] dir structure
Hi, I have such a dir structure: %my-root-dir/ %cgi-bin/ %rebol-script.r %html/ My problem is, that I cannot write to the %html/ directory from the %rebol-script.r Is it because of Rebol or because of my admin? thanx for help, oldes http://oldes.multimedia.cz
[REBOL] Rebol page
hi there is a Rebol/flash page: http://oldes.multimedia.cz/flash/zion-7-7-multi1600x1200na800x600.html oldes
[REBOL] Multicast
I would like to use Rebol as a brain of Dynamic MultiUser-VRML words on the server side. Is there any idea how to deal with multicast protocol from Rebol? thanx Oldes http://oldes.multimedia.cz
[REBOL] Re: [ALLY] Syntax highlighting...
Hi,
I've just finished the Color coding REBOL scheme for HomeSite (4.0)
written in TSyntaxMemoParser script.
How to install:
1. copy the attached REBOL.scc file into the "Parsers" dir in the
HomeSite tree
2. in the settings (F8) select "Color Coding"
3. select the REBOL scheme
4. and set your own colors (it's up to you which colors and styles
choose)
I know, the default scheme is not good enough.
There is 24 elements containing all Rebol/core commands, words etc., where
you can set styles. (limitation 25 in HS). I will add support for REBOL/VIEW
commands soon.
If you will think that same changes are needed, just let me know and I'll
try to change it.
If you anybody want not compiled script, let me know. I have also a Rebol
script for creating simple TSyntaxMemoParser scripts, but it's a litle bit
not finished (not user friendly enough).
oldes
PS: Is there any editor with syntax highlighting under LINUX?
PPS: Job wanted!
ERIK: where can I find more about Object Edit?
- Original Message -
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, February 18, 2000 10:01 PM
Subject: [ALLY] Syntax highlighting...
I use Object Edit (great text editor).
Anyone want to take a stab at creating the rules for REBOL?
Here is the example file for C.
-snip---
[Control]
Delimiters=():=[];,.{}"'
[Comments]
; FGColor is Maroon
FGColor=128
MultiLine-1=/* */
SingleLine-1=//
[Strings]
; FGColor is the system default, uncomment this to make it BLACK
; FGColor=0
; MultiLine-1="" ""
; MultiLine-2='' ''
[Keywords-Class-Conditionals]
; FGColor is Green
FGColor=32768
WordMatch=1
keylist-d=#define
keylist-e=#elif #else #endif #error
keylist-i=#if #ifdef #ifndef #include
keylist-l=#line
keylist-p=#pragma
keylist-u=#undef
keylist=elif inline warn
[Keywords-Class-Keywords]
; FGColor is Blue
FGColor=16711680
WordMatch=1
keylist-a=asm auto
keylist-b=break
keylist-c=case catch cdecl char class const continue
keylist-d=default delete do double
keylist-e=else enum extern
keylist-f=far float for friend
keylist-g=goto
keylist-h=huge
keylist-i=if int interrupt
keylist-l=long
keylist-n=near new
keylist-o=operator
keylist-p=pascal private protected public
keylist-r=register return
keylist-s=short signed sizeof static struct switch
keylist-t=template this throw try typedef
keylist-u=union unsigned
keylist-v=virtual void volatile
keylist-w=while
keylist-y=yield
[Keywords-Class-Defined-Symbols]
; FGColor is Red
FGColor=255
WordMatch=1
keylist-f=FALSE
keylist-n=NULL
keylist-t=TRUE
[Keywords-Class-Symbols]
; FGColor is Blue
FGColor=16711680
WordMatch=0
keylist=:= = ; / : ( ) [ ] . , { } *
-snip---
--
Erik Jorgensen
Programmer/Analyst - Principle
Customer Service and Support
Information Access Technology Services
University of Missouri - Columbia
(573) 882-5974
www.missouri.edu/~ccjorgie
[EMAIL PROTECTED]
REBOL.scc
[REBOL] I'm sad
I'm very very sad, I'm not on the list for VIEW. Just 'cause I didn't wanted to mess the maillist with the ME TOO messages ...so now it's too late... Oldes
[REBOL] More PWS Questions and Issue Re:
Title: More PWS Questions and Issue Hi Mark, If you need to test Rebol cgi scripts offline, you can use REBOL personal web server. I use the Cal Dixon's webserv.r fromwww.rebol.org/web/webserv.r and it works fine. In the same dir where's the webserv.r make dir named www Copyyour cgi-get.r into this www dir, run the webserv.r script and then you can use http://localhost:81/cgi-get.rin your browser That's all! Finaly I don't use PWS anymore. You can use thissimple Rebol server on other platforms as well and take your server whith you, when you are going to school or to visit your friend:) Hope it will helps you. === Zdravím vechny echy;)) Nevíte nkdo náhodou o njakém servru u nás, kde by se dal spustit Rebol skript? === olDes
[REBOL] How to parse BINARY type
Hi,
I want to make a script which will analyze a
gif files.
to read file i use:
gif: read/binary %my.gif==
#{47494638396196005900B3FFE2E2E2C2C2C2A2A2A28181815B5B5B3131310101012C...
but how to work with this binary
type?
I know that first 3 bytes means the
signature... next3 bytes version ...
etc.
so:
to-string #{474946}==
"GIF"
to-string #{383961}==
"89a"
than8. and 7. bytemeans
the Logical Screen Width:
to-integer #{0096}==
150
What I don't know is how toparse the
binary type
(for example how to get thefirst
3bytes or the seventh byte)?
Is there any way how to get from binary
#{4749463839619600} string "4749463839619600" ?
oLdes
[REBOL] ZIP and RAR archives with REBOL
Hi, is there any way how to go into ZIP and RAR archives with REBOL? I need to get archive structure at least (list of compressed files in the archive) thanx oLdes
