AltME groups: search

My save-vars just pushes the temp variable values onto a stack, and 
restore-vars pops them.

The use operation above would be a good semantic model for parse 
rule closures with recursion-safe temporaries. Imagine a new datatype 
called rule!, a parse rule block bundled with a recursion-safe context 
for local variables. You would create one with a mezzanine like this:


parse-rule: func [locals [block!] rule [block!]] [make rule! reduce 
[locals rule]]


It would be the equivalent of a function made by the HAS mezzanine 
- local variables, no parameters. The rule would be prebound to the 
context and the context would be fixed up on recursion just like 
function contexts are. Any time parse would accept a rule block! 
it would also accept a rule! value.

The trick is the addition of a new data type. It would allow the 
context to be fixed up internally. The rule! datatype would be a 
lot faster than even your stack model, and safer too. The use operation 
above would be a lot slower than your stacks though.

That and the simple operations I wrote above.

I use Antons method sometimes, with an aditional trick: the push 
saves thevarnames too, and the pop is just "pop".

Gabriele, rewrite - very nice and I expect endlessly useful. Thanks 
for publishing it.

Here is a suggestion for match - add /any and /case refinements like 
the parse refinements, and then change the line:
    parse data recurse
to this line, indented properly if needed:

    do pick pick [[parse parse/case] [parse/all parse/all/case]] none? 
    all none? case data recurse


It's the quickest way to pass along refinements I've figured out 
yet, short of rebcode apply.

After going nuts for some while now, I'll ask the community maybe 
someoe has a good tip for me:

I need an application that can do two things with more than 2 persons 
at the same time:
- video conferencing

- application sharing (or at least having one exporting his desktop 
to a number of users)


I thought that netmeeting might be good but it's quite old and doesn't 
seem to be further developed.

http://ultravnc.sourceforge.net/? for the sharing part. and something 
else for video?

Who should use UltraVNC?


Anyone who needs to support local or remote Windows users will find 
UltraVNC a must-have tool. It was specifically designed to answer 
the needs of:

    * Help desk (Internal & External)
    * IT departments

    * Home users that wants to help their relatives and friends or access 
    their home PC from work or cybercafés

skype can only handle 1:1 video conferencing and I din't find a good 
app-sharing module yet.

Anyone done any work on rebol and LDAP?  Only stuff I've seen is 
the first couple hits on google such as http://softinnov.org/rebol/ldap.shtml
that haven't been updated in a long while

What do you want to know?  WE support LDAP and RADIUS in Qtask.

LDAP and RADIUS? as authN method? Implemented in REBOL? That would 
be interesting...

Yes, Qtask Enterprise is designed to be dropped right into a server 
farm and start working.  We are working on WebDAV soon as well.

If there is anyone like myself who just scratched their head and 
said what in the blazes is LDAP? http://raleigh.pm.org/ldap-talk.html
 is a nicely done   page. Of course now I want it!

The softinnov link to the LDAP solution above might be the wrong 
one ... I think you want to look at http://softinnov.org/rebol/ntlm.shtml
instead i.e. how does a rebol script authenticate in the microsoft 
nltm world ... which uses ActiveDirectory.   NTLM has been rebranded 
as Integrated Windows Authentication.   

These links may also be useful 

http://en.wikipedia.org/wiki/LDAP
http://en.wikipedia.org/wiki/NTLM


My view is that without easy NTLM support we will be very handicapped 
using rebol scripts ....


If running a REBOL script as CGI under IIS, the user information 
is available in the script after IIS has taken care of the challenge. 
 Such support is not available (AFAIK) in Xitami and many other servers.

hmm, there might be some misconfiguration on your provider's side, 
and hence your mail being regarded a spam for e.g.?

found? select reduce [1 none] 1

and

    switch/default 1 reduce [1 none] [2]

Using found? select .. can be problem anyway as the selected value 
can be 'none (you found 'none) :-)) I'm not using found? much often 
i prefere none? and not none? (found? is a shortcut anyway)

select reduce [1 none] 1 is the same problem as pick reduce [none] 
1 and so on... the problem with switch can be considered a bug, however 
switch expects a block after the value so this is debatable.

switch1: func [
    "Selects a choice and evaluates what follows it."
    [throw]
    value "Value to search for."
    cases [block!] "Block of cases to search."
    /default case [block!] "Default case if no others are found."
    /local blk
][
	value: find cases value
	if value [value: find next value block!]
    either value [do first value] [if default [do case]]
]

switch2: func [

    "Selects a choice and evaluates the first block that follows it."
    [throw]
    value "Value to search for."
    cases [block!] "Block of cases to search."
    /default case [block!] "Default case if no others are found."
    /local rule
][
	rule: [
		1 1 () ; <-- value
		to block! set value block! (return do value) 
		to end
		| skip to () ; <-- type? value
	]
	rule/3: value
	change back tail rule type? value
	any [
		parse cases [some rule]
		do case
	]
]

;test
repeat n 10 [
	print [
		n

  switch2/default n [2 4 6 ['even] 1 3 5 ['odd]] [mold "--default--"]
	]
]
switch2 1 []
switch2/default 1 [] ["--default--"]

I think it's fixed, but I'm also working on a version which evaluates 
the action block for every value and following block found.

(and should not interfere with the usual usage we are used to.)

switch2: func [

    "Selects a choice and evaluates the first block that follows it."
    [throw]
    value "Value to search for."
    cases [block!] "Block of cases to search."
    /default case [block!] "Default case if no others are found."
    /local rule
][
	rule: [
		1 1 () ; <-- value
		to block! set case block! ; <- re-use the 'case variable
		to end
		| skip to () ; <-- type? value
	]
	rule/3: value
	change back tail rule type? value
	parse cases [some rule]
	do case
]

{switch2: func [

    "Selects a choice and evaluates the first block that follows it. 
    This occurs for every matching value and following block found."
    [throw]
    value "Value to search for."
    cases [block!] "Block of cases to search."
    /default case [block!] "Default case if no others are found."
    /local rule
][
	rule: [
		1 1 () ; <-- value

  to block! set case block! (case: do case) ; <- re-use the 'case variable, 
  twice...
		| [skip to ()] ; <-- type? value
		| skip
	]
	rule/3: value
	rule/11/3: type? value
	any [
		all [
			parse cases [some rule]
			case
		]
		do case
	]
]}

;test
repeat n 10 [
	print [
		n

  switch2/default n [2 4 6 ['even] 1 3 5 ['odd]] [mold "--default--"]
	]
]
switch2 1 []
switch2/default 1 [] [probe "--default, ok--"]
switch2 1 [1 [probe "ok"]]
switch2 2 [1 [probe "bad"]]
switch2 1 [1 2 [probe "ok"]]
switch2 2 [1 2 [probe "ok"]]
switch2 3 [1 2 [probe "bad"]]

; multiple action blocks
switch2 1 [1 2 [probe "ok"] 1 3 4 [probe "ok#2"]] ; <-- 
switch2 2 [1 2 [probe "ok"] 1 3 4 [probe "bad"]]
switch2 3 [1 2 [probe "bad"] 1 3 4 [probe "ok"]]
switch2 4 [1 2 [probe "bad"] 1 3 4 [probe "ok"]]
switch2 5 [1 2 [probe "bad"] 1 3 4 [probe "bad"]]


switch2/default 5 [1 2 [probe "bad"] 1 3 4 [probe "bad"]] [probe 
"--default, ok--"]

Uncomment my second switch2 and have a look at the first test under 
"multiple action blocks".

For that test, both "ok" and "ok#2" should be printed.

Ok, here it is:
; FIND-based, multi-action
switch3: func [

    "Selects a choice and evaluates the first block that follows it. 
    This occurs for every matching value and following block found."

    [throw] ; <-- allows RETURN to be used by the user to jump out of 
    an enclosing function (not just this one)
    value "Value to search for."
    cases [block!] "Block of cases to search."
    /default case [block!] "Default case if no others are found."

    /local result done? ; <-- flag so we know whether an action block 
    was done. (Can't just check 'result, could be unset!)
][
	while [cases: find cases value][

  either cases: find next cases block! [set/any 'result do first cases 
  done?: yes][break]
	]
	either done? [
		get/any 'result
	][
		if default [do case]
	]
]


my-switch: :switch3   ; <--- set to the function we want to test


;test
repeat n 10 [
	print [
		n

  my-switch/default n [2 4 6 ['even] 1 3 5 ['odd]] [mold "--default--"]
	]
]
my-switch 1 []
my-switch/default 1 [] [probe "--default, ok--"]
my-switch 1 [1 [probe "ok"]]
my-switch 2 [1 [probe "bad"]]
my-switch 1 [1 2 [probe "ok"]]
my-switch 2 [1 2 [probe "ok"]]
my-switch 3 [1 2 [probe "bad"]]

; multiple action blocks
my-switch 1 [1 2 [probe "ok"] 1 3 4 [probe "ok#2"]] ; <-- 
my-switch 2 [1 2 [probe "ok"] 1 3 4 [probe "bad"]]
my-switch 3 [1 2 [probe "bad"] 1 3 4 [probe "ok"]]
my-switch 4 [1 2 [probe "bad"] 1 3 4 [probe "ok"]]
my-switch 5 [1 2 [probe "bad"] 1 3 4 [probe "bad"]]


my-switch/default 5 [1 2 [probe "bad"] 1 3 4 [probe "bad"]] [probe 
"--default, ok--"]

Does anyone know of a good alternative to MS Exchange running on 
Linux/UNIX? I've found OpenGroupware.org and Open-XChange. Anything 
else worth looking at?

there is Bynari , http://www.bynari.net/

and...Zimbra,   http://www.zimbra.com/products/


if you don't really need so much things...there is always sendmail

I'm timing a vid script, and the nano seconds never display, I assume 
because vid refreshes every second.

Henrik, that worked! Thanks! I love AltME and all you helpful guys.

I'm rather badly needing a pagemaker pm5 file converted to ASCII 
format. My copy of Pagemaker has been corrupted, and I just want 
to print a document using LaTeX. The file is about 309 MB. Is there 
anyone here that can do this for me?

python for sure... just cause it will easily symbiose with C/C++ 
 and makes it very easy to work with both hand in hand.

yes, if we could compile rebol directly using rebol.o  and link it 
with any other C  .o module


and if we could interpret. .c / .cpp / .h files directly and convert 
the stubs directly within rebol.

and in loads C stubs easily. so you don't have to try and make it 
work... its python's main feature... its so easy, everyone is able 
to port their legacy C stuff and then use it within a scripted env.

and most C libs are within python as-is, so things like sockets, 
regexp, threads and such use the same mechanics and nomenclature... 
so there is very little adapting a part from the peculiar indent 
grouping.

that sounds good. I tried to look into Ruby and Python, and if I 
would learn another new language, I would learn python - the syntax 
is pretty readable ...

Yes, and the language is as capable as rebol, except for symbolic 
manipulation. But with a good parser generator you can do a lot

guys, don't you  know any application, which would be able to generate 
traffic? I want to install two Mikrotik routers in Dual Nstreme mode, 
and I would like to test real-life thoughput. Copying one big file 
amongst two ends is interesting test for line stability, but there 
is a difference if you run one connection, or few hundreds ones ...

and - how would I measure real packet size? I am not interested in 
data-only size .... Hmm, but ethernet plus ip plus tcp header have 
some constant overhead I think :-)

I just should generate 1000 opened connections and try to send random 
data ....

Just busy here (haven't even been on this world for a while). I think 
the abstract/guru-level stuff attracts a much smaller crowd than 
the "write the fastest code" kind of challenge. Maybe it's the competetive 
nature versus deep thinking and problem solving.

And

I finally got Opera to download and run on my PC.  I find it very 
nice, but SLOW.

I like the thumbnail view of all sites by default on the "new tab." 
 Since I'm new to it, and a few of you around here already know - 
what are teh top best features about it?

I have intermittent problems with Opera. Sometimes it takes a very 
long time to display a page.

When  it works, it is fine; when it is sulking like that, it is a 
total pain. There is some inconclusive discussion in their support 
forum, and they never replied to my feedback/bug notification.

I plan to keep running Opera on a regular bases.  I think there are 
more features than I'm seeing so far, but in a nutshell:


-	Separate Universe: Having a "another" browser is a good way of 
keeping things sepeate.  For example I might use Opera for my Qtask 
test accounts, and for checking up on some "grouping" of sites, since 
Opera is good at opening multiple tabs at start up (although it should 
stagger them since this is one of the speed hits).


-	Cache: It seems to auto pull a page it decides is the last version. 
 I'm not sure how it decides this yet.  But if I figure it out, this 
is a cool feature.


-	Magic wand: Great feature.  It should have its OWN password.  In 
other words.  Andy, Billy, and Carry, all use the same computer. 
 There are a lot of families that do this. IT would be nice to group 
your log ins to the same sites (AB and C all have separate Yahoo 
account, and separate Amazon accounts).  So they can basically Log 
in first with Opera, then go to town.  Even better would be an online 
service for this.  Can't wait for Identity 2.0.


-	Overview:  Opera has this cool feature of showing you a 3x3 grid 
of thumbnails of you fav sites.  This is cool.  So cool I want to 
see if there is a plug in for FF for this too.-

Reichart Opera is almost my only browser.  I find it very fast.  
Some sites (such as HP's PC sales) don't display correctly.  Voice 
is a very cool feature, though right now its just a novelty for me. 
 I think the tabl implementation is the best i've seen (and it was 
there long before foxfire and ie)

oh and skinning!  -- i'm using the tango skinning and it is very 
agreeable

oh and the new quick-dial is cool

the irc client is passable, the news reader is good, though i prefer 
using a separate rss reader.  exporting bookmarks and moving them 
to another computer is easy.

it would be cool to have the option to save the session somewhere 
online and then open it on another pc

Ah, Tabs are the same in FF and Opera and IE 7 (now)

It's Rememberance Day here in Canada.  Lest We Forget.


I'd just like to state my appreciation for the efforts of those that 
strive to keep harm away by deliberately placing themselves in harm's 
way, for all those that have paid the ultimate dues for our freedoms 
and security and to all their loved ones.


To anyone that has done service; you have my respect, admiration 
and thanks.

Luke 2:11 For unto you is born this day in the city of David a Saviour, 
which is Christ the Lord.

 12 And this shall be a sign unto you; Ye shall find the babe wrapped 
 in swaddling clothes, lying in a manger.

 13 And suddenly there was with the angel a multitude of the heavenly 
 host praising God, and saying,

 14 Glory to God in the highest, and on earth peace, good will toward 
 men.

John Lennon - Imagine

Imagine there's no Heaven 
It's easy if you try 
No hell below us 
Above us only sky 
Imagine all the people 
Living for today 

Imagine there's no countries 
It isn't hard to do 
Nothing to kill or die for 
And no religion too 
Imagine all the people 
Living life in peace 

You may say that I'm a dreamer 
But I'm not the only one 
I hope someday you'll join us 
And the world will be as one 

Imagine no possessions 
I wonder if you can 
No need for greed or hunger 
A brotherhood of man 
Imagine all the people 
Sharing all the world 

You may say that I'm a dreamer 
But I'm not the only one 
I hope someday you'll join us 
And the world will live as one

Merry Christmas to the believers and to the unbelievers, heretics 
and apostates too.)

Has anyone done a "glossy tabletop" reflection effect in DRAW? That 
is, you have an image, it's full size is reflected 0x1, and alpha-grads 
away vertically.

I'm thinking I'll have to have a reflection face and draw into that 
separately.

And the algorithm is not typographic... it's just breaking lines 
to have the best spaces left. I'm looking for typographically correct 
one. Or there are no such a rules in english?

Other than one that was included with IOS, and modified by eFishAnt 
but I don't believe made available to the public due to it also being 
used in IOS, those are your only two options.

It would be a good community project and would form the basis of 
a good tutorial though. ;-).  Count me in if anyone wants to spearhead 
this.

Rebgui has a calendar and Allen has a calendar style for VID.

http://trac.geekisp.com/rebgui/browser/widgets/calendar.rand lines 
183-231 from http://trac.geekisp.com/rebgui/browser/rebgui-widgets.r

camtasia is my favourite when it comes to screencasts. Easy & intuitive 
and you can obtain previous versions (yet fully functional ones) 
for free.

I made it under Windows, and now I use Ubuntu...  so at the moment 
I can't even get to the error you're seeing (I'm segfault'ing)

I've figured out part of what's going on with the calendar - got 
it down to a single line of draw dialect that's causing Rebol to 
segfault, both on the most recent Windows and Linux versions:


view layout [box 120x70 effect [draw [pen red white polygon 0x0 119x0 
119x69 0x69]]]


Something changed between View versions 1.3.1 and 1.3.2 that's causing 
this...  It was working fine with 1.3.1

ScottM, in the main Scheduler.r file, there are two lines in the 
MakeMonth function that use that, and are what are causing it not 
to work (when run from the file, at least).  If you comment them 
out, you lose the nice borders that each day would have in the calendar, 
but it won't crash.


I'll go update what's on Rebol.org, and see if I can make a quick 
workaround or something, so the borders stay.

Okay, it's been updated - and I found another place in it with the 
same problem, so that's been fixed, too

first of all, he tells me that they've never worked to help Microsoft. 
MS has a man that goes to them and asks questions, that's all.

I've tried and found it to be too hard to be worth the trouble. It 
depends on the font and the size of the font.

so if you are clicking on top of the icon frame and move the mouse 
away, you can't cancel a click.

highlighting requires two different effects, one for each face. also 
there are differences when showing icons and text, or only one of 
each.

oh well... perhaps DRAW is the right way forward to draw the image 
and then bottom align the text. maybe then it really can be done 
in one face.

engage and over together.

engage should get away and up events.

Changed it to a combination of detect and engage. I think it's working 
now (crossing all my limbs, fingers and toes)

Yeah, try that. So icon-frame contains text, icon, and finally the 
full-sized transparent face.

the detect thing seems to work fine and it shaves off 33% of the 
needed faces. :-) thanks for your help


Anton, the event program is a great demo. don't you want to put it 
some where more visible?

Like my website. :) I just need to get my website ready and published.

well the thing is how variables are initialized when doing an object. 
I've discussed this before, but it would be nice to keep the list 
shown at the top of that example in the docs as a dynamic list. this 
prevents me from having to maintain that list and the layout words 
when doing changes. I guess I need to approach how to make the object 
block differently.

(and http://www.fm.tul.cz/~ladislav/rebol/set-words.r)

the way I see it, I need to create the object block with layout blocks 
first. then analyze those layout blocks for set words and finally 
create a new block with the set words set to none and append the 
object block afterwards

I've figured out a way to avoid showing the caret for you custom 
styles. It requires patching FOCUS and using insert-event-func to 
install a handler that sends key events to the focal-face when there 
is no caret.  (DO EVENT won't do that, so we have to.)
See http://anton.wildit.net.au/rebol/patch/focus-system-patch.r

I think the caret is rendered after the redraw finishes, so fiddling 
with caret between SHOW and DRAW actions of redraw won't make any 
difference.

I'm getting hard crashes when closing an 'inform window sometimes. 
If I change the windows to view/new they no longer happen, but I 
lose the always-on-top functionality.


I was wondering if anyone has experienced similar crashes and know 
a precise cause? Perhaps some events are blocked?

It's a little difficult, because it's a rather big VID application, 
but it happens very often and always when the window is closed. Unfortunately 
I can't spread this app. I can't reproduce it accurately every time, 
but it seems that a certain amount of keyboard input in that window 
must be involved before it happens.

Anton, I simply click the close button [X] on the window.

I have 3 different inform windows and it definitely happens in 2 
of them, always when clicking the close button.

trying to create a separate applicaton and torture toolbar that way. 
it happens if I update toolbar and recreate its contents exactly 
19 times.

uhmm... not sure about weirdest :-) but I build the toolbar layout 
from a block that is parsed, appending faces and their attributes 
as it gets parsed. when that's done, I show it..

and is your code to show the bug shortish ?

but I'm not sure about the relation between that inform and a toolbar 
update.

Can be hard sometimes to remove certain chunks, but usually you can 
disable large chunks of code using comments, verify that the bug 
is still there, then remove the code - and repeat until there's not 
much left and the bug is obvious.

This is about as small as it gets for now. Run the code and click 
the gray area to crash rebol

Ok, this still shows the bug:
- removed stylize
- removed layout and view
- set object facets to none

Don't be worried that the unit of my data is rows of text and not 
pixels, it should be the same calculation.
Just change: 
	total rows  (length? list-data)  -->  total height in pixels 
	visible rows  (rows)  --> visible height in pixels

I've studied the problem now, and it's the same algorithm as I use 
in LIST-VIEW, but it's defective and causes the scroller only to 
move 1-2 pixels at a time, when the list is only slightly larger 
than the visible area. I found a different solution which was not 
to trust the step at all and use LIST-VIEW's own function to move 
the list and scroller separately, i.e. the list position is not derived 
from the scroller anymore.

I found an interesting scenario, that I'd like to know if it will 
be possible to fix. Maybe it's the wrong approach, but here goes:


I've wrapped an entire app in a TRY. Theoretically, then if the app 
crashes to console, it will be handled and the error disarmed. The 
error object is then sent to an INFORM window which displays a nice 
crash requester which offers you to send an error log and a description 
of what you were doing at the time of the crash to me via the internet.


This works fine for the most cases, but I noticed an error that was 
caused during a mouse drag operation. When dragging, the requester 
will pop up, but events are still flowing in the window that caused 
the error. When I release the mouse button, it then crashes one more 
time and this time brings up the console, ruining the purpose of 
my nice crash requester.


What should have happened was that the INFORM window should have 
blocked all events from other windows, so the application would stop 
to a controlled state. Is there a way to block events like this or 
is there another way around this?