AltME groups: search

I parse the fmod.h file and generate the commands... but in some 
cases it require manual overview so that's why some of the functions 
are still missing (and some may not work.. like the CMD_FMOD_Channel_SetSpeakerMix 
where it requires more than 7 args as an input, so I must probably 
manualy modify it. Also it's just the functions exported to REBOL, 
so it may require some more work to be more usable in real life.. 
and I must learn how to do callbacks (my next lesson)

I have following in my altme.cmd command line script:

start altme -s "my-world" -p 5400

It appears to be something specific to the application being called. 
Both call/wait "cmd" and call/wait "C:\Program Files\rebol\view\rebol.exe" 
worked as expected for me though call/wait "regedt32" didn't.

There have been some issues with read/lines .  What REBOL version 
are you using? http://www.rebol.net/cgi-bin/rambo.r?sort=1&limit=1&cmd=Search&id=&pattern=read%2Flines

If I setup my firewall to accept incomming connections, I got:
Net-log: "150 Opening data channel for directory list."
Net-log: "Closing listen port 3797"
Net-log: "Closing data port 69.12.157.73 3797 62038"
Net-log: [none ["226" "250"]]
Net-log: "226 Transfer OK"
Net-log: "Opening listen port 3798"
Net-log: [["PORT" port/locals/active-check] "200"]
Net-log: "200 Port command successful"
Net-log: ["TYPE I" "200"]
Net-log: "200 Type set to I"
Net-log: [["RETR" port/target] ["150" "125"]]
Net-log: "150 Opening data channel for file transfer."
Net-log: "Closing listen port 3798"
Net-log: ["low level read of " 2048 "bytes"]
Net-log: ["low level read of " 2048 "bytes"]
Net-log: "Closing data port 69.12.157.73 3798 62039"
Net-log: [none ["226" "250"]]
Net-log: "226 Transfer OK"
Net-log: "Caching cmd-port 69.12.157.73 3796 21"
== "now 22-Jan-2007/16:11:08+1:00"

According to MS's blogs, the only way to enable Exchange's server-side 
junk mail folders is to do so through Outlook Web Access on a per-user 
basis. The only way they suggest to do so for all users is to post:

cmd=options
junkemailstate=1
cmd=savejunkemailrule


to every user, logging in as a domain administrator. They provide 
a 100+ line VBScript to do this for a list of names in a file. When 
that failed, I figured that I could do the same in 1 or 2 lines of 
REBOL, and I was correct: I get the same exact failure the VBScript 
gets in 1 line of REBOL :(

fork  ...  I offer rlwrap in return  http://utopia.knoware.nl/~hlub/rlwrap/man.html
  as a wrapper for readline which I call from Smalltalk when there 
are PTY issues with some cmd line tool.  Almost as useful as the 
unix screen cmd ; - )

func [cmd][
	all [
		cmd: attempt [load/next cmd]
		word? cmd/1
		value? cmd/1
		any-function? get cmd/1
		do cmd
	]
]

When you did call, the black cmd window was always visible. Now you 
must do call/show to see the window (which you mostly don't want 
to see) And  I think this was just Windows change. I'm not sure how 
it worls on Linux or in other OSes.

sorry I may have been more clear, the code is in uni-engine.r, this 
line:

call/show join form to-local-file system/options/boot [" -qs " cmd]
not in a RSP, and not sure at all the problem is with call... 8/

Note that the UNC with core works perfect.  Better than Windoze console 
on a Windoze server!  Kudo's to Carl for integrating repulsive technology 
with a beautiful console!  Windows  cmd does not let you cd to the 
UNC drive!

Then do a call/quit to the update.cmd script.

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?

>> call/console [%/C/WINDOWS/system32/cmd.exe "/c echo" %.]
C:\Program Files\REBOL\View

Actually, even if it's a mode, you should compose the draw block 
like (very pseudo-code):

 compose [ (either arrow-on? [enable-arrow][])  (draw-cmd-eg.line) 
  (either arrow-on? [disable-arrow][])  ]

scratch: func['value][
 save/header %console-scratch.r either word? :value[
  reduce[to-set-word :value get value]
 ][
  :value
 ][Title: "Console-scratch"]
 launch: func[file /secure-cmd][do file]
 editor %console-scratch.r    
]
halt

;since nobody is perfect:
scratch: func['value][
 save/header %console-scratch.r either word? :value[
  reduce[to-set-word :value get value]
 ][
  :value
 ][Title: "Console-scratch"]
 launch: func[file /secure-cmd /local err][
  if error? set/any 'err try[do file][unview/all err]
 ]
 editor %console-scratch.r    
]
scratchme: func[][]
scratch scratchme

** Script Error: case has no value
** Where: read-msg
** Near: case [
    parse clientmsg ['cmd set usercmd block!] [
        case [

            parse usercmd ['set-userstate set chat-users block!] [
                update-chatlist]]]

    parse clientmsg ['action set userblock block! set cmdblock block!] 
    []

    parse clientmsg ['chat set userblock block! set payload block!] [
        if error? set/any 'err try [
            payload: load payload
            insert tail payload now
            if all [payload/1 = "Eliza" f-10/data] [
                return]
            repend/only chat-list msgline: copy payload
            either viewed? chat-lay [

                f-chat/pane/size/y: append-msg reduce msgline f-chat/pane/size/y

                f-sld/redrag f-chat/size/y / max 1 f-chat/pane/size/y
                f-sld/step: 1 / max 1 (length? chat-list)
                if f-sld/data = 1 [
                    slide-chatpane 1]
                show [f-chat f-sld]] [
                display-chat/new 10x10]] [
            probe disarm err]]
    true []]
foreach channel chatroom-peers
>>

we asked RT for years for the slight change, but it was not heard, 
or just - ignored ... when I saw guys experimenting with .bat (cmd) 
idea of removing the registry entry with some small util before you 
start IOS, I said enough, unplugged IOS, period ...

Pekr: doesn't call/console "cmd params" help?

Yes, that's the one. There are other leaks as well:


http://www.rebol.net/cgi-bin/rambo.r?sort=1&limit=1&cmd=Search&id=&pattern=leak

which would return...
Cmd:  if error? try [1 + "x"] [print "Did not work."]
RSP:  Did not work.
== true

sorry, missed the quotes around the returned set...
parse page-txt [
	thru pre-bgn 
	copy cmd-txt 
	to rsp-bgn
	thru rsp-bgn
	copy rsp-term 
	to rsp-end 
	(print ["Cmd: " mold cmd-txt "RSP: " mold rsp-term])
	to end
]

which would return...
Cmd:  {if error? try [1 + "x"] [print "Did not work."]
} RSP:  "Did not work."

with the result...
Cmd:  {if error? try [1 + "x"] [print "Did not work."]
}
RSP:  "Did not work."

parse page-txt [
	any[
		thru pre-bgn 
		copy cmd-txt 
		to rsp-bgn
		thru rsp-bgn
		copy rsp-term 
		to rsp-end 
		(print ["Cmd: " mold cmd-txt "^/RSP: " mold rsp-term])
	]
	to end
]

Dock the shortcut target line, when run in a cmd console runs the 
program fine. The only time it does not run is when I try to run 
the same command from the shortcut!

OK, moving home. I am curious what Carl comes up with. His host isolation 
plan via 'cmd actions looks interesting, although I do not understand 
it fully yet :-)

Try other commands: call "cmd" ...

Cmd invaded your rebol shell.

cmd  invaded
 - is that correct and/or desired behaviour?

the strange thing, that once being in cmd console, dir c:\ did not 
worked and returned "dir has no value" message ...

That's a rebol error message, obviously, not a cmd one.

yes, but at that time, I was in CMD shell, no?

Press Windows key + R, then type "cmd" and enter.

I don't know if you were in a cmd shell or a rebol one (!)

Try   call "cmd dir"

>> call "cmd dir"
== none

>> Microsoft Windows [Verze 6.0.6001]

Copyright (c) 2006 Microsoft Corporation. Všechna práva vyhrazena.

c:\!rebol\altme\worlds\r3-gui\files\rebdev>

boots me in the cmd shell imo ...

>> call "cmd dir"
== none

>> Microsoft Windows [Verze 6.0.6001]

Copyright (c) 2006 Microsoft Corporation. Všechna práva vyhrazena.

c:\!rebol\altme\worlds\r3-gui\files\rebdev>dir
** Script error: dir has no value


>> dir
 Svazek v jednotce C nemá žádnou jmenovku.
 Sériové èíslo svazku je 0054-60D0.

 Výpis adresáøe c:\!rebol\altme\worlds\r3-gui\files\rebdev

13.08.2009  12:12    <DIR>          .
13.08.2009  12:12    <DIR>          ..
02.07.2009  15:38    <DIR>          base

Hmm.. weird, looks like one line is taken by cmd, the next is taken 
by rebol.

so:

1) call "cmd dir" boots me into cmd shell - notice single >
2) calling dir there boots me back to ... where? Notice >>
3) then mysteriously dir works from there ...

Ok, I would avoid calling cmd directly in rebol. I just wanted to 
know if anything could be successfully called.

if that would be e.g. path problem, then for e.g. calling icacls 
would not work, but it works ... any other cmd commands to try?

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

Brian - what's the mess with intermixing cmd shell, and rebol one? 
See above output. And why do I need to hit enter to get back to rebol 
console?

R2 intermixed the cmd shell with CALL - with R3 you do that manually 
if you need to.

how do I trap the console output into the variable for e.g.? something 
like str: call "cmd /c dir" does not make it ...

call/output "cmd /c dir" my-var

I think

anyway Pekr, just use:

call "cmd dir > somefile.txt"

then you can just read the file back into a string.

Just read a R3 blog post about the future of the alias cmd in R3. 
Someone commented that we should see the state of the art : http://www.extjs.com/products/gxt/
 not too foolish but can we do something similar with R2 or R3 ? 
That's where I would like  to go with R2 and R3 ...

I posted a note to the R3 blog article on a89 as I cannot get it 
to return a prompt on Win XP SP3  - I have tried getting r3-a89.exe 
to consume a script and tried not only under cmd shell but also under 
cygwin

hmm, even if I use: 

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


... it behaves in an async manner. It is a bit difficult without 
some R2 features. I had another plan in mind - I still have some 
R2 wrapper for Win32API funcs like launching app, moving window, 
setting its position, finding window by name, etc. (it originated 
from Gregg's send-keys dialect). But with R3, we don't have DLL interface 
anymore.


Now I wonder, if I should write an extension, or there is some plan 
to adress #1223?


I can use R2 as an interim solution, just wondering which way we 
go in R3, in regards to 'call. If I should start to think Extension 
way, or wait for 'call being enhanced?

This PHP code works fine..

<?php
 
 $password = "ClueCon";
 $port = "8021";
 $host = "127.0.0.1";
 
 function event_socket_create($host, $port, $password) {
     $fp = fsockopen($host, $port, $errno, $errdesc) 
       or die("Connection to $host failed");
     socket_set_blocking($fp,false);
     
     if ($fp) {
         while (!feof($fp)) {
            $buffer = fgets($fp, 1024);
            usleep(100); //allow time for reponse
            if (trim($buffer) == "Content-Type: auth/request") {
               fputs($fp, "auth $password\n\n");
               break;
            }
         }
         return $fp;
     }
     else {
         return false;
     }           
 }
 
 
 function event_socket_request($fp, $cmd) {
    
     if ($fp) {    
         fputs($fp, $cmd."\n\n");    
         usleep(100); //allow time for reponse
         
         $response = "";
         $i = 0;
         $contentlength = 0;
         while (!feof($fp)) {
            $buffer = fgets($fp, 4096);
            if ($contentlength > 0) {
               $response .= $buffer."<br>";
            }
            

            if ($contentlength == 0) { //if contentlenght is already don't process 
            again

                if (strlen(trim($buffer)) > 0) { //run only if buffer has content
                    $temparray = split(":", trim($buffer));
                    if ($temparray[0] == "Content-Length") {
                       $contentlength = trim($temparray[1]);
                    }
                }
            }
            
            usleep(100); //allow time for reponse
            

            //optional because of script timeout //don't let while loop become 
            endless
            if ($i > 10000) { break; } 
            
            if ($contentlength > 0) { //is contentlength set
                //stop reading if all content has been read.
                if (strlen($response) >= $contentlength) {  
                   break;
                }
            }
            $i++;
         }
         
         return $response;
     }
     else {
       echo "no handle";
     }
 }
 
 $fp = event_socket_create($host, $port, $password);
 $cmd = "api show dialplan";
 $response = event_socket_request($fp, $cmd);
 echo $response; 
 fclose($fp);

Doc, this lastest ws:// demo I've been working on is so killer, that 
I'm going to send you $100 to put towards Cheyenne/ websocket development.

All you need is a donation box.... https://www.paypal.com/cgi-bin/webscr?cmd=p/xcl/rec/donate-intro-outside

And, in Core and others, could be cmd line option.

I don't see the issue ... View now has cmd functionality and is free

I've been releasing cmd encapped binaries for cheyenne for a long 
time now

Encmd binary 2.7.6 for Windows: http://cheyenne-server.org/tmp/cheyenne-cmd-r103.zip
I'll release the other missing binaries tomorrow.

Yes the binding to the set-env function in the C libary. I'm using 
the encapped REBOL/cmd version.

Tracing it. That's odd: the general binding is done in misc/macosx.r. 
I don't see why cgi.r should do it double

The CGI.r code is run in a separate process, it inherits OS bindings 
from misc/macosx.r only when encapped. It should have worked using 
the  /cmd binary, I need to look into it and patch the CGI code to 
not bind twice when encapped.

Just to confirm that I am running the /cmd binary.

PeterWood: I've fixed the missing setenv mapping for Mac OS X in 
revision 108. Here are the binaries for you to test:
http://cheyenne-server.org/tmp/cheyenne-r108-pro-osx.gz
http://cheyenne-server.org/tmp/cheyenne-r108-cmd-osx.gz

SVN revision 110:

FEAT: default REBOL CGI scripts are now run as normal CGI.

FEAT: new config keyword: fast-rebol-cgi. Forces running REBOL CGI 
scripts in FastCGI mode.

FIX: (Windows) CGI handler rewritten to fix environment variables 
passing.

FIX: CGI 'set-env mapping code refactored, setup errors are now properly 
logged.
FIX: CGI scripts errors are now logged in %trace.log file.

Windows binaries are available for testing:
http://cheyenne-server.org/tmp/cheyenne-r110-pro.zip
http://cheyenne-server.org/tmp/cheyenne-r110-cmd.zip

what was the difference between pro and cmd versions? Sorry if it 
was asked for several times before.

- pro: REBOL/Pro kernel
- cmd: REBOL/Command kernel

To open a console window for each worker process, you need to change 
the CALL command line from %UniServe/uni-engine.r:

    call join form to-local-file system/options/boot [" -qws " cmd]

Replace:
* CALL with CALL/SHOW
* -qws with -s


Also, in that case it is also more practical to reduce the worker 
number to 1 using Cheyenne command line option: -w 1

This CGI issue on OS X crashes Cheyenne in source mode and the PRO 
binary (the CMD binary is unaffected).

Kaj: fast-rebol-cgi issue fixed in revision 131. If you need a new 
Linux binary, I can build you one (just let me know if you prefer 
a /Pro or /Cmd version).

Kaj: fast-rebol-cgi issue fixed in revision 131. If you need a new 
Linux binary, I can build you one (just let me know if you prefer 
a /Pro or /Cmd version).

newcomers have no freaking idea what is pro and what is cmd..

I have a problem with cheyenne-r0920-cmd.exe on Windows, when I comment 
database section in my http.cfg it works, when I uncomment it gives 
the following error in chey-pid-9036.log file:


25/1-17:58:14.625-## Error in [uniserve] : On-received call failed 
with error: make object! [
    code: 515
    type: 'access
    id: 'invalid-path
    arg1: "/E/cheyenne/www/centrex//index.rsp"
    arg2: none
    arg3: none
    near: [info? new [
            req/in/target: form file 
            if ext: find/last req/in/target dot [
                req/in/ext: to word! ext 
                req/handler: select service/handlers req/in/ext
            ] 
            if not req/in/file [req/in/file: new] 
            if d?: declined? req [return false]
        ]]
    where: 'throw-on-error
] !


note that there is double slash before index.rsp I don't know why. 
Error happens before I use any do-sql or something. Web page doesn't 
work at all.

#[object! [ code: 303 type: script id: expect-arg arg1: copy arg2: 
range arg3: [#[datatype! number!] #[datatype! series!] #[datatype! 
port!] #[datatype! pair!]] near: [cmd: copy/part skip header 2] where: 
on-task-received ]]

I have a problem running cheyenne-0920-cmd.exe as a service on Windows 
Server 2003 (32Bit)
Same version runs on XP/Pro (SP3). 
Crash.log:
10-Feb-2012/12:07:10+2:00 : make object! [
    code: 500
    type: 'access
    id: 'cannot-open
    arg1: "/C/cheyenne_tt/service.dll as library"
    arg2: none
    arg3: none
    near: [do make routine! [] load/library]
    where: 'launch-service
]

I have started to use WORDs as types in my extension arguments, but 
The code doesn't seem to follow the implementation...


In the docs it says that the words I define will start at 1 2 3... 
but the word I defined, seems to give me 152 when I pass it via the 
command...   here is a simplified code example:

in rebol:
import %my-extension.r
my-extension-func 'ext-defined-word


in C
RXIEXT int RX_Call(int cmd, RXIFRM *frm) {
	u32 action = 0;
	action = RXA_WORD(frm, 1);

	printf("%d", action);
}

prints out:    152

anyone else test word! as parameters in R3 extensions?

It built for me just fine but I had to modify the makefile to use 
cp lib\r3lib.dll .
instead of 
copy lib\r3lib.dll . 
inside a mingw cmd window.

continuing Request for object lookup within host/extensions here....



Here is a proposal (using example C code) for OBJECT access within 
extensions  this uses the EXACT same API as commands, and with just 
a little bit of work on the extensions API by Carl and a single hook 
within the r3core, we could allow callbacks within objects.


the advantage is that we re-use the same safe sand box as commands, 
and don't require to do much coding to enable it, AFAICT.


since object lookup is performed on demand, we can very rapidly supply 
an object to the command, and it doesn't cause any heavy-handed conversion 
at each command call if the object isn't needed.  more fine-grained 
control could be added so we don't need to frame the whole object, 
but it would be usefull as-is already.

RXIEXT int RX_Call(int cmd, RXIFRM *frm) {
	i64 i;
	
	// objects are frames, exactly like command arguments.
	RXIFRM *obj;
	

 // return values are also frames (with one argument), for type-checking 
 purposes.
	RXIFRM *rval;
	
	if (cmd == 1) {
		// ask the core for a frame which represents object.
		// attributes are returned in order they appear in object
		//

  // the command frame doesn't include the object frame, only a handle 
  to the

  // object which the core can understand. we then ask for the object 
  frame on-demand.
		obj = RXA_OBJ(frm, 1);
		
		switch (RXA_TYPE(obj, 1)) {
			case RXT_INTEGER:
	            i = RXA_INT64(obj, 1);
				break;
			
			// we could build a frame for supplying arguments to the eval
			case RXT_FUNCTION:
				rval = RXA_EVAL(obj, 1);
				if (RXA_TYPE(rval, 1) == RXT_INTEGER){
	            	i = RXA_INT64(rval, 1);
				} else {
					// return error
				}
				break;
			
			// wrong type
			default:
				// return error
				break;
		}
		
		// do something with the value
		my-native-function(i);

	}
}

so what do you guys think?

I'm trying to return a block containg a word not taken from a commands 
arguments. Say, I want to return a block like [BATTERY CHARGING]: 

That works with

	u32 *word_ids = 0; // used to hold word identifiers
	enum power_words {W_POWER_BATTERY = 1, W_POWER_CHARGING};

	RXIEXT int RX_Call(int cmd, RXIFRM *frm, void *data) {
		/* .... */

		v.int32a = word_ids[W_POWER_BATTERY];
		RXI_SET_VALUE(s, pos++, v, RXT_WORD); 
		v.int32a = word_ids[W_POWER_CHARGING];
		RXI_SET_VALUE(s, pos++, v, RXT_WORD);
	
		/* .... */
   	}


only after importing the DLL I "manually" init the words with a MAP-WORDS 
command. I was thinking that IMPORT eventually triggers LIB-BOOT 
init-code from the INIT_BLOCK. It seems like the init code is not 
executed.

Hmm, I think I've to check this again. At least, a simple 

    RXIEXT int RX_Call(int cmd, RXIFRM *frm, void *data) {
        return RXR_VALUE
    }
    
returns a proper date value for

    test-date: command [date [date!]]
    
I'll see if I can find some time to work on this evening.

with:
case CMD_GRAPHICS_INIT_WORDS:
        //temp hack - will be removed later
        graphics_ext_words = RL_MAP_WORDS(RXA_SERIES(frm,1));
        break;

Next question.. when I have:
		case CMD_MagickGetImageColors: {
			if(current_wand) {
				RXA_INT32(frm, 1) = MagickGetImageColors(
					current_wand);
				RXA_TYPE(frm, 1) = RXT_INTEGER;
			}
			return RXR_VALUE;
		}

While compilation using GCC I get this warning: use of cast expressions 
as lvalues is deprecated

The command is working, just would like to know if I can improve 
it somehow. The function is defined as:
	size_t MagickGetImageColors(MagickWand *wand)

oops missing cmd line...

so, with the wait 1 in the wrote block  I can do this

cmd: open ftp://ftp.compkarori.com
read cmd
write cmd [ "PWD" ]
read cmd
write cmd [ "PASV" ]
read cmd

I can pick up the rest doing a 
read cmd

Changed the format of the data block a little ...

write cmd [ RETR "REMR.zip" %remr.zip]
read cmd

now what's expected sequence on the cmd connection for RETR?

I close cmd ...

do nothing except starting cmd

Go to the dos prompt, type in cmd /?

Yes it does, you just need to look at cmd /? and start /? instructions 
if you are going to use those rather than calling Textpad directly.

What's the easiest way (under R3) to write code like this:

f: make function! [[][
	cols: [c1 c2]
	data: [2 4]
	cmd: [c1 + c2]
	set cols data
	do cmd
]


without adding words to the global context? (and not predefining 
c1, c2, etc).

Slightly clearer example of what I'm trying to do:

f: make function! [[cols data cmd][
	set cols data
	do cmd 
]]

f [c1 c2] [2 4] [c1 + c2]

APPLY FUNC cols cmd data

Still no luck:

f: funct [cols data cmd][
	set cols data
	do cmd
]

apply :f [[c1 c2] [2 4] [c1 + c2]]

f: func [cols data cmd] [apply func cols cmd data]

launch from cmd.exe is fixed. Although I would like to see R3 to 
reuse cmd console, if it does not include GUI ...

Very good work. I confirm that under Vista (32 bit) it works well 
so far. Both from the icon, and from the cmd console. I don't even 
have to change fonts ...

Downloaded .zip file. Tried it now - it works. It just does not seem 
to copy dll to the place of the exe, or something like that:

Linking executable: bin\Release\r3.exe
Output size is 317,50 KB
Running project post-build steps
post-build-win.cmd bin\Release\

Execution of 'post-build-win.cmd bin\Release\' in 'C:\!rebol\!R3\r3-host-kit-A110\make-cbp' 
failed.
Nothing to be done.

yes, the .cmd file is missing from some reason

For example the CMD_TEXT_TEXT command is called on each mouse move 
event (redraw).