AltME groups: search

BTW: How to replace security messages ? I would like to show those 
messages in language of target users?

It seems for me that it could be done by using those startup scrips 
user.r a.o.

for me the key point lies not in the fact that we can already make 
mezz func which simulates the foreign! handling with a function such 
as ASSIMILATE.


the difference lies in the fact that if the native function can load 
invalid data, then it should simply because of the the fantastical 
speed its able to convert string data into rebol literal values of 
a variety of types.


hooking up interpreter driven code within the handling of that will 
slow it down.  using the parse with next refinement works... but 
its nowhere near as fast, for loading, say 300MB of scientific data. 
 which is an actual case I had to deal with.  just doing a replace/all 
on that file took 30Minutes.  assimilate with foreign! handling  
would have taken about 5-10 seconds, and the code would have also 
been easier to write over all.

the point is not to replace REBOL's syntax, but allow REBOL to cope 
better with the rest of the world's data, IMHO.

Has someone done some test with a JIT library ?
For example to be used with a little VM to replace rebcode ?

Simulating AGG is not the main aim here. The first target is to replace 
rebcode in R3

I would like to know ...


1. How to use the OPEN function with the /SEEK refinement to replace 
the 1,000,000th byte with the 2,000,000th byte in a file.


2. How to truncate a huge file to its helf size, and keep the head 
helf only. 

Thanks.

if you want to strip the CRLF form (which is what I guess you are 
trying to do:

data: replace/all to-string data "^M" ""

for a more unified conversion you could do this:


data: replace/all replace/all to-string data "^M^/" "^/" "^M" "^/"


this way if its CRLF it will strip them and if its only CR it will 
convert them.

but notice he is creating faces... can't replace that with block 
 !

it's possible to replace it with block, when you create draw dialect 
instead of pane of faces

it will replace the (val) by its value at specific time

Do I replace the regular prot-ftp.r with this?

Rebol []

email: [compkarori-:-gmail-:-com]
pass: "password"
address: [target-:-gmail-:-com]
message: read %your-fully-formed-email.txt

state: 'EHLO

smtp: open/lines ssl://smtp.gmail.com:465
set-modes smtp [secure: true]

forever [
	S: pick smtp 1
	?? S
	if found? S [
		code: copy/part S 3
		?? code
		?? state
	]

	switch/default state [
		EHLO [ 
			insert smtp "EHLO rebol.com" 
			state: 'PLAIN
			while [ S: pick smtp 1 	][ 
				?? S 
				if find/part S "250 " 4 [ 
					print "sending authentication"

     insert smtp join "AUTH PLAIN " enbase rejoin [ email #"^@" email 
     #"^@" pass ]
					break 
				]
			]
		] 
		PLAIN [
			if code = "235" [
				print "authenticated"
				insert smtp REjoin [ "MAIL FROM: <" email ">" ]
				state: 'FROM
			]
			if code = "535" [
				print "credentials incorrect"
				break
			]
		]
		FROM [
			either code = "250" [
				insert smtp rejoin [ "RCPT TO: <" address ">" ]
				state: 'TO	
			][ print "doesn't like me" break ]	
		]
		TO [
			either code = "250" [
				state: 'DATA
				insert smtp "DATA"
			][ print "doesn't like to address" ]
		]
		DATA [
			replace/all message "^/." "^/.."
			insert smtp message
			insert smtp "."
			state: 'END
		]
		END [
			either code = "250" [
				print "message was sent"
				close smtp
				break
			][ print [ "message had some error: " S ] break ]
		]
		
	][ print ["Unknown state" state ] ]

binding would then have to replace any object-local bindings of select 
to the global context and raise an error if it doesn't exist, as 
it would if you had tried to define a new object with select undefined 
in any place.

Using html special characters would make sense (or unicode) given 
the content is primarily web centric

ie:{"hello" {world}}

Then convert for rebol based string manipulation

>> replace/all ie "{" "^(7B)"
== {"hello" ^{world}}

I would love to replace Outlook with Qtask, but can't without ActiveSync 
support.

yes... you can make it in R2 using index: [1 2 3]  and for R3 you 
just replace:  index: make vector! [integer! 24 [1 2 3]]

Script error: REPLACE has no refinement called ONLY

in 98% of cases I agree with what Brian just said about Parse being 
more powerfull than Regexp.  but in those 2% regexp is SO much more 
powerfull, that it still has its place.   now some of you will ask 
me to say when or why, (I know how we as rebolers think and like 
to challenge each other ;-)  but I cannot give an exact example, 
but having had to implement a few complex systems in both, I remember 
a few times in parse when I'd remember how a single char would replace 
2-3 lines of parse "tricks".

as current path-thru function is not working with queries and port 
numbers, and it's not part of core at all, what do you say about 
using this imporved version (which I'm already using for couple of 
years):

path-thru: func [
    "Return a path relative to the disk cache."
    url /local purl
][
    if file? url [return url]
    if not all [purl: decode-url url purl/host] [return none]

    if all [string? purl/target find purl/target #"?"] [replace purl/target 
    "?" "_query_"]
    rejoin [
        view-root/public slash
        purl/host

        either none? purl/port-id [""] [join "_atport_" purl/port-id] slash
        any [purl/path ""] any [purl/target ""]
    ]
]

so:

>> path-thru http://us.maps2.yimg.com/us.png.maps.yimg.com/png?v=3.52&t=m&x=3&y=0&z=16

== %/D/view/public/us.maps2.yimg.com/us.png.maps.yimg.com/png_query_v=3.52&t=m&x=3&y=0&z=16

s: "Hi engkau. Mengapa kaulari? Topikau ada di sini dan jaskau ada 
di sana."


In string s above, is there an easy way to replace (with "engkau" 
all instances of "kau" that are not preceeded by  " " (a space) or 
immediately followed by a letter?

In other words, I only want "kau" to be replace with "engkau" when 
"kau" is preceeded by a letter and followed by a space or puncuation 
mark.

Yep agree.  It's a blurred line now-a-days.  While I was watching 
a group of C++ programmers p#$$ away some 30 million dollars my poor 
little Tcl/Tk prototype just made them mad.  "Not engineered if it's 
scripted!!!"  :)  Oh well, the original Forth system is still in 
production and corporate will try to replace it with a engineered 
solution...usually started with CASE tool cloud diagrams.

How do you clear out a local variable within a function? I have this 
scenario and I can't get the function to run more than once. I could 
copy the contents to a temp var but that seems silly.

a: func [ some-var /local s] [

	s: "example %text% string"
	replace/all s "%text%" some-var
]

Once I run this thing "s" never gets its orginal value.
Thanks

In the above func on a Mac you could replace %Thumbs.db with %.DS_Store 
;)

Yep, if you were to do -- context: [a: b: :an-object] -- while you 
could bind a reconstituted 'a and 'b to 'an-object, it would be clones. 
 Possibility: where you are working with faces, you could specifically 
change eg. the feel to lit-word/path before saving, then allow a 
'reconstitute-like function replace that value with the related object. 
 It's a little messy, but still such functions could still be nearly 
as short...

If you can create a new function, you can use bind/copy. It is occasionally 
possible to arrange your algorithm so that it is possible to replace 
a function without worrying about aliased references, but usually 
not.

when the store is down, the replace the page with a message. it's 
not like the site goes entirely down.

they replace

Well, yes, but it could well replace an unused slot etc etc ... (I'm 
GC clueless) etc etc.  Wrapped in recycle you should see the numbers 
change a little more sensibly.

My skip function is a bit more efficient though.  Maybe we should 
replace extract with it:

I almost brought up my replace-all function.  Could have been here 
for the next year discussing that one.

How is it different from replace/all ?

how do you replace/all the 1's in that with 2's?

Mine is strictly a replace/all function it is much more tasking on 
the system but if made native could probably be cool

>> b: [[1] [[[1]]] [1]]
== [[1] [[[1]]] [1]]
>> replace-all b [1] [2]
== [2]
>> b
== [[2] [[[2]]] [2]]

Can also do this:

>> b: [[1] [[[1]]] [1]]
== [[1] [[[1]]] [1]]
>> replace-all b 1 2
== 2
>> b
== [[2] [[[2]]] [2]]

>> b: [[1] [[[1]]] [1]]
== [[1] [[[1]]] [1]]
>> replace-all [1] "1"
** Script Error: replace-all is missing its newval argument
** Near: replace-all [1] "1"
>> replace-all b [1] "1"
== "1"
>> b
== ["1" [["1"]] "1"]

I would call it replace-deep, but cool.

replace-all: func [series oldval newval /local sd][
        sub-ic?: func [sd][
            forall sd [
                either equal? first sd oldval [
                    poke sd 1 newval
                ][
                    if series? first sd [sub-ic? first sd]
                ]
            ]
        ]
        sub-ic? series
    ]

replace-all: func [series oldval newval /local sub-ic][
        sub-ic: func [sd][
            forall sd [
                either equal? first sd oldval [
                    poke sd 1 newval
                ][
                    if series? first sd [sub-ic first sd]
                ]
            ]
        ]
        sub-ic series
    ]

Did i spark your interest for changing the replace function?

If so I suggest you keep the replace function and make this an entirely 
different replace function.  Call it replace-deep if you like.

Then just cut out out the /all from your current replace function 
and leave as is.

The reason is that I believe this will be more tasking on the stats/evals 
then replace is by far.

Have you seen the replace function? We are getting to the point of 
diminishing returns on new features - too much complexity overhead. 
As it is, we are going to have to use APPLY in the R3 version just 
to add another option.

Do source replace - it's a good way to learn some interesting optimization 
techniques.

Pekr, it actually didn't do a list. Instead it sent individual emails. 
Also I probed send and there is a '/show'' option that will replace 
the to: address. checking...

So do I, which is why I think it would be nice to get bugs fixed 
and some simple features added like a search/replace and maybe a 
simple undo. I use it alot.

I'd much rather see a tad more advanced version of the current viewtop 
editor. No fancy features like syntax highlighting, but useful stuff 
like indenting, search/replace and undo. It shouldn't feel heavier 
than now

ICarii, please replace "...." with the rest of what you had in mind.

robert, what happens in the above code is that you replace the original 
feel functions with one ENGAGE function. that's why you loose normal 
field functionality

Henrik, your advice is not exactly right: "robert, what happens in 
the above code is that you replace the original feel functions with 
one ENGAGE function. that's why you loose normal field functionality"

Robert has, in fact, only replaced the ENGAGE function in the feel. 
The FEEL keyword in the layout dialect actually MAKEs from the original 
feel, with the spec block you give. eg.

	feel [
		engage: func [...][...]
	]

actually causes something like:

	face/feel: make face/feel [
		engage: func [...][...]
	]


So the other functions which were in the original face/feel are also 
copied in the new feel, unmodified, eg. (DETECT, OVER, REDRAW).

Nevertheless, Robert does need to look at the original ENGAGE function.

interesting.... meanwhile, I'm cooking up a replace requester for 
the editor. maybe I'll have something ready by the weekend. (a bit 
busy right now)

I thought COPY-TEXT might be used by  svv/vid-styles/field/access 
 or  area/access  but it is not (thus, it looks safe).

I think COPY-TEXT is trying to be too smart. I think probably that 
function should not exist. So it might be better to replace calls 
to COPY-TEXT with calls to COPY-SELECTED-TEXT, whose claimed functionality 
is more specific.

clean-script, diff, find/replace, such stuff.

pekr, well, I find the names to be logical, but if we can agree on 
better names, it's only a matter of search/replace

it's just a search and replace.

I don't think it's easy to completely replace windows shell. I use 
dir-utils and find-file for most simple file system tasks already, 
but I use windows DOS console for all those particular windows DOS 
things.

acquire-func: [] was turned into acquire-make function!: []

the joys of search and replace :-)

did you replace the value of round by any chance?

I made that change to ARRAY over a year ago for R3, then backported 
it to R2 for the 2.7.6 release. EXTRACT/default and REPLACE too.

There were almost no changes to existing operations. Most of the 
proposals were for new operations that would replace complex code 
patterns, and those would be faster, easier and less buggy than the 
code patterns they replace.

errata: Same replace by Some

The bug was my fault, I was using a wrong variable name.
Thanks all for the help.

The complete (working) function to calculate the challenging code 
server side in web socket protocol is:

ws-chall: funct [header [string!]] [		
	
	cnt: funct [k] [
		n: copy "" 
		ns: 0 
		repeat x k [
			if all [x >= #"0" x <= #"9"][
				append n x
			] 
			if x = #" " [
				ns: ns + 1
			]
		]
		if ns = 0 [
			return none
		]			
		(to decimal! n) / ns
	]
	
	int-2-char: funct [n [integer! decimal!]] [
		;n: to decimal! n
		head insert insert insert insert make string! 4
			to char! n / 16777216
			to char! (n // 16777216) / 65536 
			to char! (n // 65536) / 256
			to char! n // 256
	]

	attempt [
		t: parse/all replace/all header crlf lf "^/"

  l: copy [] repeat x t [if n: find x ":" [insert tail l reduce [copy/part 
  x (index? n) - 1 next n]]] l: head l
		k1: next select l "Sec-WebSocket-Key1"
		k2: next select l "Sec-WebSocket-Key2"
		k3: next next find header "^/^/"
		aux1: cnt k1
		aux2: cnt k2
	]

	if any [none? aux1 none? aux2 none? k3] [return ""]

 to-string checksum/method rejoin [int-2-char aux1 int-2-char aux2 
 k3] 'md5		
]

especially since all it needs is a replace/all  :-)

i want to replace each of the boxes in the layout with a random image 
from deck-cards.

for the console, just replace the first line by 

n: 5

Konfab is one area that Rebol is well suited to 'replace' or at least 
showcase as an alternative technology platform

question for Carl. What does beyond View, IOS means?


Is it end of life support such that there will be a whole new range 
of products from RT that will replace it (and hence ...$)

I have asked Carl about the problem of effect and draw different 
engine. He answered that the effect engine will be replace by AGG 
at terms. No schedule.

- I have ask for a package of new and more advanced styles, based 
on the one already available from Cyphre, Romano, Amon, me... not 
sure it will happen.
- Some asked to replace VID by RebGUI (I'm not for that)

- Carl said that the question need reflection : can VID be reworked 
and enhanced, or should it be replace by RebGUI or something new. 
It still an open question.

Q: Yeksoon asks "Reichart, there is a whole bunch of pple under Rebol 
SIG in QTask, .... are a lot of them working on QTask etc?"

A: Yes.



These are answers from Carl, Gab, Richard, etc. from the last day 
of the conference.  I sat them all down, with many others from the 
conference, and we reviewed and tried to lock down answers.



1) Will rich text and rebcode became part of all rebol distributions 
from now on?


A: Carl said "Once Rich Text and Recode are added (which was agreed 
on to be by Nov 14) ….yes."


2) we heard answer for async kernel in regards to LNS - some time 
ago Carl mentioned proper tasking or even timers could be added - 
is that anyhow realistic?
A: 


Carl said "Tasking is special, and is pushed off to Rebol version 
3."

No date has been set, but it will not be now


Carl said "Timers could be done now, and this could be done in a 
few months."


Carl wants more feedback that people "need" them.  So give him feedback. 
 This also goes to say we need a common place where we all (in the 
Rebol community) can create a complete list of what is wanted, and 
then "vote up" the things we want done first.  So RAMBO for now, 
perhaps Qtask soon, since it will have Voting.


3) I realized VitalNeeds removed all Rebol related info from their 
website - is the partnership lost?

A: Carl said "No, but they are talking…"

4) what will be the next focus of RT?

A: Carl said "Altissimo"


5) there was some talk about "rebuilding the team" - will RT employ/contract 
more developers?


A: Carl said "Yes, and we are doing , send in your Resume and show 
us your cool app you wrote that is as good as Canvas!"


6) some time ago Carl talked about opening some of rebol code - parts 
of View, console etc - will that happen? 


A: Carl said "Yes, this is happening and is happening in pieces. 
 The console is a good example.  Nothing would make us happier than 
having people make it better, and not have Rebol be the bottleneck."



6.2) Part of that plan was "Rebol as a library" IIRC - is that concept 
still valid? 


A: Carl said" It exists today!  Look in Windows directory for the 
DLL.  You can call it. More is being worked on. Talk to Jaime."


6. 3) What happened to /Platform vision? I was not present last year 
at Devcon, but my understanding was, that /Platform is about modularisation, 
language plug-ins were planned too ...


A: Carl said "Platform is being sold to Safeworlds…"  I will comment 
on this later.


7) not to mention BCD, rebin, RIF, of which only RIF was mentioned.


A: Carl said "We found another aprouch to BCD, so it was good we 
waited, Ladislav will be making this happen."



8) RAMBO is cool - but what about shared roadmap? I was contacted 
privately by one former Rebol developer, who felt Rebol plays on 
elite and that not knowing what is the plan for what product is really 
badly frustrating. Will RT create more SIGs, to fasten developments 
in certain areas? I talk about kernel areas, which general rebol 
user can not affect and waiting for enhancements can take years. 
Some ppl are already crying for better sound (if we want to use rebol 
for video-over-web for eg.)


A: Carl said using Sound as example "Sound: a good example of code 
Rebol plans to make open.  AGG for sound, would be perfect for Rebol. 
 I am more than happy to publish this info."

 


9) We heard about spreading rebol x-times. What is RT's vision of 
how to achieve this? Such claims should be supported by some more 
concrete plan? Is still outer world (development companies) interested 
in Rebol, so maybe more of VitalNeeds partnerships could come?


A: Carl said "This is complicated question…and answer.  My belief 
of the world is that application have to be simple to use, and to 
make.  That is what changes the future of computing.  So I see a 
world with thousands of developers, making all sorts of applications, 
with that it will grow faster than anything else that has been done."
 
10) What is Carl's preferred drink? :-)


A: Carl says "Non Alcoholic.  POG.   Otherwise…Vodka Martini, with 
Green Olive…very dry…(stuffed)"

From Yeksoon:


1. RT official statement on current products line like View, IOS 
etc?

Is it going to be replace by other range of products...support etc? 
How does moving 'beyond' View, IOS affect the current product offerings 
and hence the way alliance partners operates.


A: Carl says "Yes, we are going to move beyond, the new features 
WILL make this more usable and faster, and more open than in the 
past."



1.2: For partners like myself, who are on the alliance program, we 
would appreciate if RT works closer with us on their commercial offerings, 
roadmaps etc. We need such info to make decisions ...


A: Carl says "what we will be doing for Alliance, is help them move 
foreword on the new tech that is introduced, and with the minimum 
amount of effort."


2. How does the above decisions from RT leads to X% growth next year? 
Are there any change in the way business is done?


A: Carl says "Yes, it is going to change a lot, and this will happen 
over the next year.  This should bring you much better range of features, 
and enhanced as necessary by your teams."

with pattern matching

>> attempt [to-date replace/all form reverse parse copy/part find/tail 
"*[YY-MM-DD=03-06-30]*" "YY-MM-DD="  8 "-" " " "-"]
== 30-Jun-2003

Try this:

     loca: 88 use [loca x][loca: 99 x: has [loca][print loca] x print 
     loca] print loca
I'd think we'd agree that should print 3 lines:
    none
    99
    88

Now, replace 'loca throughout with 'local. Does it do the same? If 
not, how can I change the code so it does?

Is there a faster way to replace the first two charcters in the given 
string by the fifth and sixth character of the same string?
 
>> s: "123456789"
== "123456789"

>> change s copy/part at s 5 2
== "3456789"

>> s
== "563456789"

yes, but it does not look to me like a viable way to replace a CHANGE 
X COPY/PART Y by a cycle of that kind, although I did not measure 
the speed difference, yet

amacleod: Worked fine for me but I only tried it with a very small 
picture (the rebol logo actually), if you tried a big picture the 
resulting data link might be just too long for copy & paste actions 
(really long text almost always causes problems). Just replace the 
last line (editor imglink) with

write %somefile.html imglink
browse %somefile.html

And it "should" work with bigger pictures.

That all sounds like a rather theoretical discussion. If you really 
need to load data as "REBOL" and the only thing that prevents you 
from using LOAD is some additional #"," you'd like treated as whitespace, 
just preprocess that data using REPLACE/all data #"," #" ". Problem 
solved.

Andreas:  for my particular case, I just asked why #"," isn't word 
as #"." is. I needed it to be word. And I am embeding that code/DSL 
with rebol code (It's not a separate file or string) so I can't string 
replace.


But I don't care, OK. I already used . instead and it's not perfect, 
but it's ok for me. I am just replying on what people here write 
( I think ).

I've found a solution replace/all reform ["id" "name" "address" "city"] 
" " ","

That may not always give you what you'd expect  if the strings have 
embedded spaces:

    replace/all reform ["id" "last name" "address" "city"] " " ","
    == "id,last,name,address,city"

This may work better in that situation:

    skip head remove back tail remove back tail  replace/all mold ["id" 
    "last name" "address" "city"]  {" "} ","  2

@Kaj: Sorry, a little of the topic. For the future, I'm planning 
to replace the Rebol 2 UI side of my app to use libchamplain or osm-gps-map. 
Hopefully I can already use red by then (currently python is in my 
mind). Which one do you think is more mature and easy to use? My 
app would only display OSM tiles and draw some objects and lines 
on it. Thanks for your opinion and pointing me into these libraries.

I'm not so worried about travel distance for most electric vehicles. 
The cool thing is that it won't take much to replace the batteries 
with better ones eventually. The motor remains the same. With the 
development of graphene batteries, it sounds like we can increase 
battery life to at least twice as much, perhaps 4 times.

Don't remember anything Helios and Amiga name related. The chip which 
was supposed to replace AAA chipset (even AAA was never released, 
but if it would, it would save Amiga for another 5 years) was called 
Hombre, and it was done by Dr. Ed Hepler. It allowed to interconnect 
more chips. Interesting thing is, that if was CPU + GPU in one chip. 
Simply put - once again Amiga 10 or more years ahead of the competitors, 
as nowadays it is being regarded very modern to provide unified chipsets 
like that :-)

http://en.wikipedia.org/wiki/Amiga_Hombre_chipset

*replace

I still think, that the best base, albeit commercial, is QNX - lot's 
of target embedded platforms covered ... REBOL could co-work-with, 
or replace Photon GUI ... I want View app in my car, then calling 
Cyphre and lamenting about some bug :-)

It's their messaging service ... seeing if they can replace gmail!

FaceBook will NOT replace email.  That is a very odd and silly concept.
Banks are not going to ask you for your FaceBook account.

Who said it will replace email?

that allows me to replace the underlying engine at will, with no 
effect on the top level view of the engine.

cause all I'll need to do for R3 is replace my internal gob class 
(gel) with them and maybe how I detect the strokes and all.

VID internals are so obscure and limiting that in most parts, its 
easier to replace them than hook ourself in.

I'd just like more hooking capabilities right in the api.   just 
like Amiga allowed many things to be extended without needing to 
replace them.

in R3 you can completely replace the rendering system.

End developers would just declare their menus in the cross-platform 
dialect and trust the dialect processor to do the work. Unless they 
don't, and decide to replace the dialect processor, or do something 
completely different.

anton, isn't this a simple matter of a search/replace in the global 
source tree of rebol 3? if there is a time to make a deal out of 
it, it should be now.

R3 will eventually replace R2, but for a while both will be available 
and supported.

from Carl's presentation, I did not understand plug-ins explanation. 
What are those? Will those replace library interface? Or provide 
means of extending rebol with native functionality via some common 
api?

Tao is no more - they went bancrupt. Tao was imo not very special, 
yet similar to REBOL. Remember - they had to code in kind of Rebcode 
ASM, to get the speed. And R3, once platform plug-ins are ready, 
will allow to replace certain parts, e.g. rendering.