Launching tcl app

I use system:call-system to launch "exe" apps, but it doesn't work for 
"tcl":


CL-USER 1 > (system:call-system "taskmgr.exe" :wait nil)
T

CL-USER 2 > (system:call-system "c:\\Program Files\\Leaf\\server.tcl" :wait 
nil)

Error: System Call WIN32-CREATE-PROCESS failed: 193 (unknown error code)
command: c:\Program Files\Leaf\server.tcl
  1 (abort) Return to level 0.
  2 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed,  or :? for other 
options

CL-USER 3 : 1 >


I can launch "sever.tcl" just by clicking on it - so Windows must know what 
to do with it.  I also have a shortcut to it on my desktop that launches it. 
Is there a way to have Lisp (LWWPE 4.4.6) launch it?

Thanks in advance!

Bruce.

Re: Launching tcl app

On Sun, 4 Dec 2005 11:12:19 -0800, "Bruce J. Weimer, MD" <bjweimer@charter.net> wrote:

> I use system:call-system to launch "exe" apps, but it doesn't work
> for "tcl":
>
> CL-USER 1 > (system:call-system "taskmgr.exe" :wait nil)
> T
>
> CL-USER 2 > (system:call-system "c:\\Program Files\\Leaf\\server.tcl"
> :wait nil)
>
> Error: System Call WIN32-CREATE-PROCESS failed: 193 (unknown error code)
> command: c:\Program Files\Leaf\server.tcl
>   1 (abort) Return to level 0.
>   2 Return to top loop level 0.
>
> Type :b for backtrace, :c <option number> to proceed,  or :? for other
> options
>
> CL-USER 3 : 1 >
>
> I can launch "sever.tcl" just by clicking on it - so Windows must
> know what to do with it.  I also have a shortcut to it on my desktop
> that launches it. Is there a way to have Lisp (LWWPE 4.4.6) launch
> it?

We had this a couple of days ago:

  <http://article.gmane.org/gmane.lisp.lispworks.general/4863>

Cheers,
Edi.

Re: Launching tcl app

At 20:18 04/12/2005, Edi Weitz wrote:
>On Sun, 4 Dec 2005 11:12:19 -0800, "Bruce J. Weimer, MD" 
><bjweimer@charter.net> wrote:
>
> > I use system:call-system to launch "exe" apps, but it doesn't work
> > for "tcl":
> >
> > CL-USER 1 > (system:call-system "taskmgr.exe" :wait nil)
> > T
> >
> > CL-USER 2 > (system:call-system "c:\\Program Files\\Leaf\\server.tcl"
> > :wait nil)
> >
> > Error: System Call WIN32-CREATE-PROCESS failed: 193 (unknown error code)
> > command: c:\Program Files\Leaf\server.tcl
> >   1 (abort) Return to level 0.
> >   2 Return to top loop level 0.
> >
> > Type :b for backtrace, :c <option number> to proceed,  or :? for other
> > options
> >
> > CL-USER 3 : 1 >
> >
> > I can launch "sever.tcl" just by clicking on it - so Windows must
> > know what to do with it.  I also have a shortcut to it on my desktop
> > that launches it. Is there a way to have Lisp (LWWPE 4.4.6) launch
> > it?
>
>We had this a couple of days ago:
>
>   <http://article.gmane.org/gmane.lisp.lispworks.general/4863>
>
>Cheers,
>Edi.

There is also win32:shell-execute (which might have more chance of becoming 
a documented feature ;-)
e.g. code below opens your default browser.

CL-USER 4 > (win32:shell-execute 0                      ; parent window
                        "open"                           ; operative verb
                        "www.xanalys.com/support.html"   ; program filename
                        nil                              ; parameter string
                        nil                              ; default directory
                        1                                ; showminimized-2 
showmaximized-3
                        )
42


CL-USER 5 >

cheers

paulm

Re: Launching tcl app

Actually I had to adjust the parameters a little to get it running.
This is probably because I'm still using an older LW version.

I noticed that the first parameter needs to an interface, and the last
parameter just some number, anything seems to be working.

But it didn't run with a hidden interface.

(capi-win32-lib:shell-open *some-interface* full-path-from-the-root 1)

And works!

Pekka


At 22:53 4.12.2005, you wrote:
>Edi,
>
>I'm sorry - I somehow didn't see that post....  the 
>capi-win32-lib:shell-open function is exactly what I was looking 
>for!  Thank you!!
>
>Bruce.
>
>----- Original Message ----- From: "Edi Weitz" <edi@agharta.de>
>To: "Bruce J. Weimer, MD" <bjweimer@charter.net>
>Cc: <lisp-hug@lispworks.com>
>Sent: Sunday, December 04, 2005 12:18 PM
>Subject: Re: Launching tcl app
>
>
>>On Sun, 4 Dec 2005 11:12:19 -0800, "Bruce J. Weimer, MD" 
>><bjweimer@charter.net> wrote:
>>
>>>I use system:call-system to launch "exe" apps, but it doesn't work
>>>for "tcl":
>>>
>>>Is there a way to have Lisp (LWWPE 4.4.6) launch
>>
>>
>>We had this a couple of days ago:
>>
>>  <http://article.gmane.org/gmane.lisp.lispworks.general/4863>
>>
>>Cheers,
>>Edi.