World: r3wp

Environment variables are based on values of the following registry 
keys, for each type:

- Local machine: HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment
- Current user: \Environment
- Default user: HKEY_USERS\.DEFAULT\Environment

- Volatile (probably should be treated as readonly): HKCU\Volatile 
Environment

Sorry, mistype...
- Current user: HKCU\Environment

You can check in regedit for your current values. Remember to use 
REG_EXPAND_SZ values if you want references to other environment 
variables to be expanded, but keep in mind that these are evaluated 
in one pass for each category, and that local machine is evaluated 
before current user. A value can't make references to other variables 
in its own category, just references to values in other categories 
that are evaluated earlier.

found them!

My Computer\HKEY_CURRENT\Environment

and else where :(

The environments you are likely interested in are in the locations 
I specified. If you want to make changes to all users' local environments, 
look at the other keys under HKEY_USERS. The .DEFAULT key is what 
gets copied to a new user's local registry when that user is created.

Ok.

Obviously you will need admin priviledges for any keys not under 
HKCU.

HKEY_CLASSES_ROOT is one of those fake, mirror keys.

. (apologies for the dot, but the web shows this group has failed 
to sync on my machine)

Hi everyone, I am presently in Indonesia. I can send email to myself, 
but when I try to send email to other I get the following error message:


** User Error: Server error: tcp 550-(LATURK-WS-2) [61.94.196.24] 
is currently not permitted
 to relay through

Is this a problem I can correct in the script? If yes, how?

I am able to email using Eudora just fine.

nothing to do with your script

hmm.

maybe you need to authenticate first before sending mail.

So, use rebol to read your mail first and then try sending.

since you're not getting a smtp authentication error.

Ok, I'll try that and get back with the results.

That fixed it. Thank you so much, Graham!

how does one avoid that variables listed in a block in an object 
become global in this instance:

>> unset [a b c]
>> y: make object! [a: [b c d] set a [1 2 3]]
>> a
** Script Error: a has no value
** Near: a
>> b
== 1
>> c
== 2
>> d
== 3

These give the same result:

>> y: make object! [a: [b c d] set bind a self [1 2 3]]
>> y: make object! [a: [b c d] set bind/copy a self [1 2 3]]
>> y: make object! [a: copy [b c d] set a [1 2 3]]
>> y: make object! [a: bind [b c d] self set a [1 2 3]]

hm... seem to be the old "how to add new variables to an existing 
object" problem. looks like I'll have to find a different approach...

do you know this one?

d: [a b c]
d: use d reduce [d]
set d [1 2 3]

I guess I do now :-)

suggested reading : http://www.fm.tul.cz/~ladislav/rebol/contexts.html
;-)

Anyone have some information on writing to usb ports ?

;To make the following work with a USB printer, do the following:

; 1. share the printer, noting the name given to the shared printer.

; 2. from the command line type: net use lpt1 \\laturk-ws-2\EPSONSty 
/persistent:yes

; 3. put said command line in autoexec.nt so you don't have to type 
it each time.

printer: func [
    "Sends text to printer on //prn."
    [catch]
    Text [string!]    "The text to be printed."
    /Page    "Append Carriage Return (CR) and Page Feed."
    ][
    throw-on-error [
        secure [
            %//prn [allow write]
        ]
        write %//prn Text
        if Page [write/binary %//prn "^(0D)^(page)"]
        Text
   ]
]

Graham, I don't know if that is what you had in mind or not.   I 
think I got the printer function from Andrew Martin.

and the instructions above it are from me :)

I was hoping that a direct way of writing to specified usb port migh 
now be avable.

:>)

You have taught me most of what I know.

If you would have taught me a direct way of writing to a USB port, 
then I would have been able to help you.  LOL.

Ok, next time I have to try harder.

Louis, that is a cool example

...or should I say Graham.

If I have a table of say 4 x 3 and another table of say 3 x 10 .. 
is there a way to merge them so I end up with a table of 7 x 10 where 
the missing cells are either empty or none?

By table, do you mean a block of blocks (a 2-dimensional array) ?
Given
	table-A: [[1 2 3 4][5 6 7 8]]
	table-B: [[a b c][d e f][g h i]]
then
	MERGE-TABLES table-A table-B
== [
        [1 2 3 4 a b c]
        [5 6 7 8 d e f]
        [none none none none g h i]
    ]
Is that the desired output ?

An approach I might use: pre-scan tables for row lengths, use ARRAY 
with the total row-length to create result-table , then poke the 
values of each table into the result-table.

Or something like:
	result-table: copy/deep table-A
	; <- scan for longest row

 ; <-- now extend result-table with values from table-B, creating/initializing 
 any missing/short rows first

Yes, like a sql join.

I was trying to print a table from two different sources, and trying 
to wrap the data inside the cells at the same time.  But I got it 
worked out now.  But was thinking that some type of sql join on tables 
would be good.

Yes, I just realised your question was two days before. :)

Is there some easy conversion of numbers to binary? And I mean numbers 
bigger than 255...

someone did binary tools,no? Wasn't it Geomol?

maybe. but I can't find anything on rebol.org

search altme, it was here ...

Binary tools group

thanks, I've found this http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?color=yes&script=base-convert.r
from Sunanda, I'll try it.

this is a way how to convert something to binary too: http://www.compkarori.com/vanilla/display/peek_and_poke.r