AltME groups: search

I'm having a problem with call.


when I use the /output/error and supply  strings , I get a strange 
error in the stdout holding string:

Unable to read from standard input: The handle is invalid.


the really strange one is that if I use /console, the expeted out 
is effectively printed out to the rebol console.... so the cmd does 
return data and rebol is able to handle it, but not within the /output/ 
refinement!


also, another call, using another command, works as expected... so 
I don't think I have a error in my code.

not that I have tried using /shell and it didn't help

has anyone seen /output and /console react this way?

I will try with/input.  providing a few "^/"  but It definitely doesn't 
need input on the command-line.

gabriele, the /input  works !!!  damn why didn't I think of that.. 
I lost several hours trying to find other command-line ssh tools 
which would work... none really do... the putty tools really are 
the best ones out there.

This is pretty cool ... I am sitting in front of my laptop, and on 
the other side of the room is my 46" LCD screen with my media PC 
attached.  I installed the rebxr xmlrpc server on it .., and I have 
cheyenne installed on the laptop.  I click on a file in my application, 
it gets downloaded to the www directory in cheyenne, and then I send 
a command to the xmlrpc server to browse to that file so that it 
displays on the big screen but is served up by the laptop's cheyenne 
server.

I've patched my version of the http protocol http://rebol.wik.is/Protocols/Http
so that I can more easily issue a head command

anyone know of a way to get a persistent value based on someone's 
computer... the longer the string the better... (on windows)

this is with a /command license, so any accessible rebol feature 
is usable.

something like:
    -System install serial number
    -Disk serial number
    -CPU id


I want to generate an encryption key which isn't stored as part of 
the code.  It just makes it a bit more complicated to reverse engineer 
the stored password if the encryption key is different for all installations.

you can as well use some power of command line - parse results of 
commands like ipconfig, arp -a, etc.

I'll use real encryption (using command)

Ports in R3 (or open/direct or command ports in R2) don't have persistent 
position and sequence, or reference position. This makes them streams, 
not series.

Is someone using REBOL with Gmail? I was trying this: http://mail.rebol.net/maillist/msgs/44246.html
but it does not work (I think that REBOL's esmtp scheme is not responding 
on STARTTLS command as described here: http://en.wikipedia.org/wiki/STARTTLS

I posted the changes needed somewhere to get esmtp to work with gmail 
.... needs R/command though.

Alan, I haven't done it from the command line, but a quick search 
makes me think it might be possible using Windows Fax and Scan, if 
your on the right OS. I did a fax interface for Bo a few years back, 
but it used APIs. Graham may have thoughts here as well. He's done 
a lot with Hylafax I believe.

and in so much as rebol runs as a command line client, then it can 
be readily done.

Hello! I'm receiving the following error when processing a cgi form 
to send an e-mail of the response.  I correctly can send from my 
laptop, Rebol/Core -- command line, with my set-net settings in user.r 
but when I do the same thing on my hosting account I get the following 
error:

stats is a cool command , with many refinements also .. I didn't 
know about it

if it's to kill the processes, then you got this command http://www.tech-recipes.com/rx/446/xp_kill_windows_process_command_line_taskkill/

When you enter something at the command line it is also loaded.

So when you mold "^/", the resulting string has a round of escaping 
added, and then *that* string is molded again for the console, with 
another round of escaping added for display. This means two ^ characters 
are apparently added, though one is taken away earlier when the initial 
command is loaded:
>> mold "^/"
== {"^^/"}

It doesn't. It loads once (at the command line), then *you* load 
a second time explicitly.

Then when the script is loaded it will be loaded. And there is no 
difference in R3: Every command entered into the prompt is a separate 
script.

All you have to remember is that every round of loading does another 
round of resolving escapes, and every round of molding does another 
round of adding escapes. And that there is one round of loading when 
you DO a script or do a command line, and one round of molding when 
the command line prints its results.

You might be able to modify my ftp protocol for R3 to add the SITE 
command so that you can do CHMOD if that's the aim

actually, just typing the command in the console requires you to 
properly escape spaces or quote the path.

MOLD can produce a string with braces instead {} - not good for the 
command line.

this is something curious I just noticed.

If you pass a file as a parameter to a rebol program on the dos command 
line it works
but if you do the same in a dos batch file, it does not

eg:. script.exe %/c/rebol/myfile.dat

works from the dos command line

but to get it to work in a batch file you have to do this

script.exe %%/c/rebol/myfile.dat

I presume it's because the command processor tries to do a substitution 
using the %

I'm a newbie to Rebol. I need to know how to delete a file on my 
website. I tried uploading a file using:

write ftp://user:[pass-:-website-:-com]/myfile.enc myfile.enc


which does not work because of the ['-:-'] in the user name. I tried 
replacing the ['-:-'] with '%40', still did not work. So I tried the 
following which works:

ftp-port: [
	scheme: 'ftp
	host: "ftp.mysite.org"
	port-id: 21
	user: "[user-:-mysite-:-org]"
	pass: "xxxxxxxxxxxxx"
	target: %myfile.enc
]
file: read %myfile.enc
write/binary ftp-port file


So now my file is on my server. My question is - How do I delete 
this file? I see no way to tell the Delete command the name of the 
file on my server so it can delete it. And:

delete ftp://user:[pass-:-website-:-com]/myfile.enc


does not work for the same reason the standard velsion of write does 
not work, because of the ['-:-'] in the user name. Any help much appreciated.

Ladislav, note that on Unix, the TOUCH command creates the file if 
it does not exist. so I would not necessarily consider that a bug...

remove the" view" command & add a reduce command

you must recreate the fil REBGUI.R  with the command  CREATE-DISTRIBUTION.R

I found out that the space on the right results from a margin command 
later in the script. I used tight on the top before the menu widget. 
If i didn't reset the margin, menu  fills up to the right. If i want 
to reset the right margin to 4 px later to indent the following widgets 
to the left, it resets the margin for the complete window to 4 px. 
That means for  the menu as well. Now i have a workaound  an use 
a 4 px box to keep the distance from the right border. As Rebgui 
will not be developed any further, it seems that i have to live with 
it. I have chosen build 218 because of the better design, compared 
to the previous ones (My opinion) But thanks for the hints.

I haven't tried loading fonts in draw on Linux, but the rest of this 
works (the color is changed by the draw command "pen red"):

Rebol []
do %rebgui.r
font1: make face/font [
    ; name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf"
    size: 11
    style: [italic bold]
]
example: compose [
    font (font1)
    pen red
    text "Hello World!"
]
display "Example" [
    style 20x20 data [
        box snow 100x100 effect [
            draw example
        ] 
    ]
]
do-events

What I needed is actually only the timer action of a face to process 
an internal command queue, and while doing this I read some data 
from serial port. If rebol had a timer object, I don't need the face 
anymore. But afaik there is no timer in rebol, since it does not 
support multithreading yet, with exception of the face timer.

I'm missing the --DO command line usage functionality from R2, here 
on linux.

I need to pass command line options in and be able to inspect them 
in system/options/args in user.r.

load: func [
	{Loads a file, URL, or string.}

 source [file! url! string! binary! block!] {Source or block of sources}

 /header  {Includes REBOL header object if present. Preempts /all.}

 /next    {Load the next value only. Return block with value and new 
 position.}

;	/library {Force file to be a dynamic library. (Command version)}
;	/markup  {Convert HTML and XML to a block of tags and strings.}
	/all     {Load all values. Does not evaluate REBOL header.}
	/unbound {Do not bind the block.}
	/local data content val rst tmp

][  ; Note: Avoid use of ALL and NEXT funcs, because of /all and 
/next options
	content: val: rst: tmp: none ; In case people call LOAD/local
	
	; Retrieve the script data
	data: case [
		block? source [ ; Load all in block
			return map x source [apply :load [:x header next all unbound]]
		]
		string? source [source] ; Will convert to binary! later
		binary? source [source]
		; Otherwise source is file or url
		'else [
			; See if a codec exists for this file type
			tmp: find find system/catalog/file-types suffix? source word!
			; Get the data, script required if /header
			content: read source  ; Must be a value, not unset
			case [
				binary? :content [content] ; Assumed script or decodable
				string? :content [content] ; Assumed script or decodable
				header [cause-error 'syntax 'no-header source]
				block? :content [content]
				'else [content: reduce [:content]]
			] ; Don't LOAD/header non-script data from urls and files.

  ] ; content is data if content doesn't need copying, or none if it 
  does
	]
	;print [1 "data type?" type? :data 'content true? :content]
	if string? :data [data: to-binary data] ; REBOL script is UTF-8

 assert/type [data [binary! block!] content [binary! string! block! 
 none!]]
	assert [any [binary? :data not header]]
	if tmp [ ; Use a codec if found earlier
		set/any 'data decode first tmp :data

  ; See if we can shortcut return the value, or fake a script if we 
  can't
		case [

   block? :data [if header [insert data val: make system/standard/script 
   []]]

   header [data: reduce [val: make system/standard/script [] :data]]

   (to logic! unbound) and not next [return :data] ; Shortcut return

   any [next any-block? :data any-word? :data] [data: reduce [:data]]
			'else [return :data] ; No binding needed, shortcut return
		]
		assert/type [data block!] ; If we get this far
	]
	;print [2 'data mold to-string :data]
	
	if binary? :data [ ; It's a script
		unless find [0 8] tmp: utf? data [ ; Not UTF-8
			cause-error 'script 'no-decode ajoin ["UTF-" abs tmp]
		]
		; Process the header if necessary
		either any [header not all] [
			if tmp: script? data [data: tmp] ; Load script data
			; Check for a REBOL header
			set/any [val rst] transcode/only data
			unless case [
				:val = [rebol] [ ; Possible script-in-a-block
					set/any [val rst] transcode/next/error rst
					if block? :val [ ; Is script-in-a-block
						data: first transcode/next data
						rst: skip data 2
					] ; If true, val is header spec
				]
				:val = 'rebol [ ; Possible REBOL header
					set/any [val rst] transcode/next/error rst
					block? :val ; If true, val is header spec
				]
			] [ ; No REBOL header, use default
				val: [] rst: data
			]
			; val is the header spec block, rst the position afterwards

   assert/type [val block! rst [binary! block!] data [binary! block!]]
			assert [same? head data head rst]
			; Make the header object

   either val: attempt [construct/with :val system/standard/script] 
   [
				if (select val 'content) = true [
					val/content: any [:content copy source]
				]
			] [cause-error 'syntax 'no-header data]
			; val is correct header object! here, or you don't get here
			; Convert the rest of the data if necessary and not /next
			unless any [next block? data] [data: rst: to block! rst]
			if block? data [ ; Script-in-a-block or not /next
				case [

     header [change/part data val rst] ; Replace the header with the object

     not all [remove/part data rst]	; Remove the header from the data
				]
				rst: none ; Determined later
			]
		] [rst: data] ; /all and not /header
	]

 ; val is the header object or none, rst is the binary position after 
 or none

 assert/type [val [object! none!] rst [binary! none!] data [binary! 
 block!]]

 assert [any [none? rst same? head data head rst] any [val not header]]

 ;print [3 'val mold/all :val 'data mold/all :data "type?" type? :data]
	
	; LOAD/next or convert data to block - block either way
	assert [block? data: case [
		not next [ ; Not /next
			unless any [block? data not binary? rst] [data: to block! rst]
			data
		]
		; Otherwise /next

  block? data [reduce pick [[data] [first+ data data]] empty? data]
		header [reduce [val rst]] ; Already transcoded above
		binary? rst [transcode/next rst]
	]]
	
	; Bind to current global context if not a module
	unless any [ ; Note: NOT ANY instead of ALL because of /all
		unbound
		(select val 'type) = 'module
	][
		bind/new data system/contexts/current
	]
	;print [6 'data mold/all :data 'tmp mold/all :tmp]
	
	; If appropriate and possible, return singular data value
	unless any [
		all header next  ; /all /header /next
		empty? data
		1 < length? data
	][set/any 'data first data]
	;print [7 'data mold/all :data]
	
	:data
]

what!!  a command version!?!?   ;-)

{Force file to be a dynamic library. (Command version)}

No command version. That is just a reminder.

Is there a way in R3 to "capture" error messages when using ATTEMPT, 
or some other command.
i.e.
>> WRITE %missing/File.txt to-binary "test string"
** Access error: Cannot open: %missing/File.txt reason: -3
** Where: WRITE
** Near: WRITE %missing/File.txt to-binary "test string"

>> ATTEMPT [WRITE %missing/File.txt to-binary "test string"]
== none

Is there any way to get the error message from the ATTEMPT?

PeterWood:R3/GUI/General>> more 3365

 ** Script error: submit-of? does not allow none! for its fid argument

 ** Where: case all submit-of? case what-file? more-file parse try 
 either either forever command-loop make context do catch applier 
 do try chat
** Near: case [

    is-submit? msg [msg]

    is-name? msg [submit-of?..
.

--- Note: unexpected error logged to error-log.txt

shadwolf:R3/OS-Targets/OSX>> more 3365

** Script error: submit-of? does not allow none! for its fid argument

** Where: case all submit-of? case what-file? more-file parse try 
either either
forever command-loop make context do catch applier do try chat
** Near: case [
    is-submit? msg [msg]
    is-name? msg [submit-of?...

--- Note: unexpected error logged to error-log.txt

It's the same error that I get. 

Now try the same command from the top level

>Top
>More 3365

Shadwolf: re R3 richtext; R3 will have the posibility to get all 
useful information at the font glyph level. The richtext module is 
able to give us all that info internally. We only need to design 
interface at the Rebol language level.

BTW even in current R3 version you can get the proper width/height 
 using SIZE-TEXT command. But I believe the final version will offer 
even more.

I so miss the Amiga's alias command...

Hmm, there is maybe even something like Alias in Windows, no? At 
least in DOS there was some command .... but - never mind, I went 
off-topic here ...

I think, you mean Amiga's ASSIGN command. It was a very clever feature.

I use user.r to get some UNIX like commands and for get an include 
command. Will probably not be necessary in the future (now we got 
unix commands and with modules).

We've been trying to add console file management commands where simple, 
but a whole unix-like command module would be nice :)

Is there any command to list all topics with files?

It will be easy to specify your requirements in R3 - we have modules. 
Put your patches in a module and either add that module to the Needs 
header of your script, or include it on the command line, or build 
it into your host program. Like the SDK but better.

no, I think no other consequences. IIRC, I extended that parser by 
# char too, but don't remember when it was. Remember - user.r and 
rebol.r are not going to be provided anymore, because of security 
reasons, so you have to either:

1) add your script into 'needs header for each of your script

2) start your script with special command line option, probably --include 
(but that does not allow simple double click functionality with associated 
executable)
3) build your own R3 host executable

4) prey, that your patch is usefull for others, and try to submit 
it to R3 CVS to be accepted

Download R3. Copy it to a directory of your choosing. Run it. Enter 
the "chat" command.

Command not found.

Wait a minute: Are you typing the browse command in R3 or in the 
shell? You must type it in R3.

Louis: You can redefine browse at R3
browse: funct [ url ][ print ["Can't open "  url]]

So when you write docs o bugs command you'll see the url and can 
copy and paste to Firefox or Opera

no need to set series: at series back tail series.  But instead the 
at command is manipulating the series directly for the navigation 
arguments.

also the "g" command of devbase doesn't seem to work when #xxxx is 
in messages, but it works for curecode and html.

I think what they should have done here, is lift ordinary keyboard 
commands. You would simply say the key names, along with a few extra 
commands, like "again". This way you don't have to remember an entirely 
separate command set.

This is also a problem in MacOSX, because the command set is very 
limited and nearly useless.

Yeah, I saw that too, I tracked it down to the APPEND2 command which 
is no longer used in the GUI.R

Instead, it looks like the REPEND command took it's place, but was 
not changed in the DEMO.R

This work-around should fix the demo for sub-panels:


Run R3 as you normally would then type this command:  APPEND2: :REPEND

Then you can run the DEMO.  It is just a quick fix until the DEMO.R 
script is changed.

Can R3 be run in CGI mode? There seems to be -c command line switch, 
but no CGI helper functions, nor system/options/cgi path ....

As for the JIT, I could write the compiler in REBOL and generate 
the intermediate code of the JIT, then pass that intermediate code 
to the JIT with a command. The JIT would then generate a function, 
add it to its list, and return the list index as an integer. That 
integer can be  used to create a new command!, which RX_Call can 
dispatch to the internal JITed function.

At a command prompt, call cmd /? to get help on cmd.exe and its commands.

The word "command" is more specific, and better expresses what you 
are referring to.

I have heard at least one other opinion, that name "command" might 
be too worthy to waste on simple and signle thing as wrapping merely 
a funciton call. Of course even Devices have commands, but those 
are not probably rebol level related and influence nothing ...

You mentioned that "command" would need to be reserved for devices. 
There's no reason that devices couldn't use the existing command! 
type. It's very flexible.

No, I said, that device commands probably don't influence rebol level 
code, so that we are eventually free to rename extension command 
to extension! term. That was just a thought, in case we would have 
some better usage for 'command term later. Nothing really important 
imo. Extension commands are not much advanced - they are just descriptor 
for particular meaning.

When I think "command", I think - dialect ...

The "original post" you are replying to is displayed by n or nn with 
a > on the left of it. I usually enter the number for the post I 
want to reply to first, which displays in and sets the >. Then I 
use r. I wish there was an rp command...

it does in path notation.  its also silently ignored in the command 
line as long as the get-set word actually holds a word within  :-)

not sure it is good idea at all. But product packaging strategy was 
never explained for R3. Will there be Core, Command, View, Base like 
products? I am not sure, that technologically, R3 is done in such 
a way, so that such separation is possible (= all View internals 
can be placed outside R3 as a module). Also - having it optional 
as a module can lead to split of efforts once again.

It has to be also settable by command line option, or it does not 
have any sense. Your user will not add it to his script himself ...

dir isn't a prograam, it's a cmd.exe command.

Hmm, using no command line option, I do get:

Checking for rebol.r file in /c/!reb Evaluating: Content-type GE 
te 127.0 


The output is strangerly stripped too ... like R3 print output would 
be stripped ...

it does just the same as -q option, as per above blog article. If 
I provide no command option, I get strange output :-)


Checking for rebol.r file in /c/!reb Evaluating: Content-type make 
object! [ request-method: "GET" que

Max - correct, but why the output is stripped. And using no command 
line option - what about above debugging info? Why is R3 telling 
me, it looks for rebol.r file? :-)

About parse enhancement.

What would be the cost to be able to stop a parsing process (ie. 
with a STOP command) and to continue it where it was stopped ?
Huge i guess...

I wonder why I never saw any dialect using paths. Is there any difficulcy 
in parsing them? E.g. let's say you would like to create REBOL-like 
language. So you want your 'open command to be treated the same way 
as open/direct/binary ...

Once again - free yourself from REBOL, gee. Who said said EITHER 
should compare anything? Copy breaks normal copy rebol logic. VID 
'at command is completly different in semantic meaning to REBOL 'AT. 
So - how is that that for EITHER we do care about what it means in 
REBOL? The word EXACTLY expresses what you are doing ...

Why? It can be done via Extensions, or via command line (if the damned 
thing would work ;-)

do-something-in-other-thread  would be handled like a callback in 
the thread.


so its uber simple to setup.  you could also do a reverse device 
setup, since the R3 process would contain both driver and client 
code, all you'd need is for the device to have a command which tells 
it how to connect to you, and you become both driver and clients 
for each other.  making it very easy to provide async comms in both 
directions.

I want to be able to run R3 from the *Windows* command line, not 
its own copy of the Windows command line.

Running from the windows command line: that would also remove the 
side effect that a console would be opened, when starting a R3 GUI 
app from the desktop.

Geomol, the default Windows console has history, both in terms of 
a screen buffer and command line history.

Geomol, the default Windows console has history, both in terms of 
a screen buffer and command line history


Yes, I just noticed that today, when I tried under Windows. What 
exactly is the problem? The pasting of text into the console could 
be better, I think.

I had many problems running sdk command-line apps when doing client 
work a few years ago... now at least this whole issue can be addressed, 
by simply flicking a switch in the host code and compiling a console 
version  :-)

BrianH: 'call in R3 is more low level, right? I would like to do 
following thing - I want to have few powerpoint presentations running 
in a loop. In R2, I could use call/wait, and once the presentation 
is finished, the console returned. In R3, there are no refinemenst 
as /wait, /output.


Is there any equivalence? Was R2 using "start" command in windows? 
I tried with "start", but got following error:

>> call "start /WAIT powerpnt /S test.ppt"

** Access error: external process failed: "Systém nemùže nalézt uvedený 
soubor.^
M^/"
** Where: call
** Near: call "start /WAIT powerpnt /S test.ppt"

i have one problem for example  actually i made an irc bot to  ask 
and difuse the song name on the public channel when asked by users. 
When my bot match the command then it  opens a web connection read 
the radio welcome webpage and retrieve from it the song and artist 
information then it build a nice reply and reply

or must you still add the import command in your script to have access 
to them?

Guess i'm stupid, the problem is really simple.
there is a timeout both in CLIENT and SERVER.
after 10 seconds both server and clients are stopped.
(check the wait command at the end of the scripts)

i mean the "screen" command

How do you access the arguments when passed in a command line?

r3apha myscript.r argument-list ?

launch simpy uses 'call to run a shell command. Anyway here is the 
ouput of the command line attempt:

Macintosh:Rebol3 peter$ ./rebol testLaunch.r "text1 text2"

Checking for rebol.r file in /Users/peter/Code/Rebol3/


System object protected

Evaluating: testLaunch.r
text1 text2
text1 text2
ok?

Macintosh:Rebol3 peter$

It's a pity that the registry natives are not available in non-encap 
REBOL kernels (not even in /Command)...

and if you run php from the command line?

like xss, sql, command line ..

My example is only fourty lines or so and implements a complete command 
service bus; similar to REBOL/Services but much simpler, so JavaScript 
can do it

Janko: "About code loading on on-page-start : yes I know of that, 
I am using it as dev setup so I know latest code is reloaded each 
pageload." 


There's an easier solution for that: add -w 0 argument to Cheyenne's 
command line, this will ensure that the worker process will be reloaded 
for each new request. Here's the command line I use to run Cheyenne 
on my development boxes : C:\Dev\SDK\tools\rebcmdview.exe -s cheyenne.r 
-vv -w 0

I think that many ppl here think that the priority of importance 
is:

- host release
- host support of View (merge of DELECT and command type)
- Extensions supporting Devices, callbacks
- tasking, IPC
then beta ....


If you postpone anything from above to 3.1, some ppl will wait for 
3.1 ... do you want to bet with me? :-)