r3wp [groups: 83 posts: 189283]
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

World: r3wp

[Core] Discuss core issues

Louis
26-Jul-2006
[5098]
I am able to email using Eudora just fine.
Graham
26-Jul-2006
[5099x5]
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.
Louis
26-Jul-2006
[5104x2]
Ok, I'll try that and get back with the results.
That fixed it. Thank you so much, Graham!
Henrik
26-Jul-2006
[5106x2]
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...
Ladislav
27-Jul-2006
[5108]
do you know this one?

d: [a b c]
d: use d reduce [d]
set d [1 2 3]
Henrik
27-Jul-2006
[5109]
I guess I do now :-)
Ladislav
27-Jul-2006
[5110]
suggested reading : http://www.fm.tul.cz/~ladislav/rebol/contexts.html
;-)
Graham
29-Jul-2006
[5111]
Anyone have some information on writing to usb ports ?
Louis
29-Jul-2006
[5112x2]
;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.
Graham
29-Jul-2006
[5114x2]
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.
Louis
30-Jul-2006
[5116x3]
:>)
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.
Graham
30-Jul-2006
[5119]
Ok, next time I have to try harder.
eFishAnt
5-Aug-2006
[5120x2]
Louis, that is a cool example
...or should I say Graham.
Graham
8-Aug-2006
[5122]
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?
Anton
10-Aug-2006
[5123x3]
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
Graham
10-Aug-2006
[5126x2]
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.
Anton
10-Aug-2006
[5128]
Yes, I just realised your question was two days before. :)
Rebolek
11-Aug-2006
[5129]
Is there some easy conversion of numbers to binary? And I mean numbers 
bigger than 255...
Pekr
11-Aug-2006
[5130]
someone did binary tools,no? Wasn't it Geomol?
Rebolek
11-Aug-2006
[5131]
maybe. but I can't find anything on rebol.org
Pekr
11-Aug-2006
[5132x2]
search altme, it was here ...
Binary tools group
Rebolek
11-Aug-2006
[5134]
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.
Ladislav
11-Aug-2006
[5135]
this is a way how to convert something to binary too: http://www.compkarori.com/vanilla/display/peek_and_poke.r
Pekr
11-Aug-2006
[5136x3]
will there be extended support for such binary conversions in R3?
in current Core, I find it difficult to work with what is available 
in terms of rebol .... I mean - for quick console hack sessions ....
but I am also not good in such topic, so it is maybe me, although 
I think that more ppl reqeusted such functionality in kernel ...
Rebolek
11-Aug-2006
[5139]
I'm 100% sure, there'll be such support in R3...in the long term... 
;)
Pekr
11-Aug-2006
[5140x2]
:-)
maybe with plug-in mechanism, you can write external component to 
handle it, so good old poor pekr can include it and use it :-)
Rebolek
11-Aug-2006
[5142]
hehe :)
Sunanda
11-Aug-2006
[5143]
the pwerpack idea was a good one: one central point for crucial mezzanines 
and their documentation, perhaps as easily included as 
  do %powerpack.r 
  powerpack/install 'all
in user.r
Pekr
11-Aug-2006
[5144x2]
c:\> cd rebol
c:\>rebol\
c:\>rebol\dir
rebol.exe
powerpack.r
c:\>rebol\rebol.exe %powerpack.r
c:\>rebol\dir
rebol.exe
powerpack.r
rebol3.0.exe
it works :-)
Henrik
14-Aug-2006
[5146]
is there a complete list of all the error codes anywhere? I think 
the error appendix in the Core manual is not adequately describing 
them.
Pekr
14-Aug-2006
[5147]
not sure, never saw something like that ...