Please UNSUBSCRIBE NOW

accessing a stream's file descriptors

  Hello,

I need to access the output file descriptor of a stream (so that I can
pass it to a CFFI foreign function. Allegro has
excl::stream-output-handle and CLISP has ext:stream-handles for
instance. What is the equivalent in Lispworks?

thank you!

--

-- 
Resistance is futile. You will be jazzimilated.

Scientific site:   http://www.lrde.epita.fr/~didier
Music (Jazz) site: http://www.didierverna.com

Re: accessing a stream's file descriptors

> From: Didier Verna <didier <at> lrde.epita.fr>
> Date: Thu, 10 May 2012 15:56:02 +0200
> 
>   Hello,
> 
> I need to access the output file descriptor of a stream (so that I can
> pass it to a CFFI foreign function. Allegro has
> excl::stream-output-handle and CLISP has ext:stream-handles for
> instance. What is the equivalent in Lispworks?

CL-USER 41 > setf x (open "~/foo")
#<STREAM::LATIN-1-FILE-STREAM C:\users\nick\foo>

CL-USER 42 > STREAM::OS-FILE-HANDLE-STREAM-FILE-HANDLE x
1376

CL-USER 43 > STREAM::%L1FILE-STREAM-FILE-HANDLE x
1376

CL-USER 44 > 

Is that what you were after?

-n

linux ide question

Hello -

LW 6.1 linux 32bits. When it starts there are two windows, the "main" one with a toolbar and menus and the
listener window. The "main" window is actually of no use because one can access all tools via menus in
listener, editor, etc. windows. I can manually close that "main" window after the startup and proceed
with work.

Question: how can I automatically close that "main" window during the startup? Any tricks to add to the
.lispworks file?

Best,
 Art

Re: accessing a stream's file descriptors

Nick Levine wrote:

> CL-USER 41 > setf x (open "~/foo")
> #<STREAM::LATIN-1-FILE-STREAM C:\users\nick\foo>
>
> CL-USER 42 > STREAM::OS-FILE-HANDLE-STREAM-FILE-HANDLE x
> 1376
>
> CL-USER 43 > STREAM::%L1FILE-STREAM-FILE-HANDLE x
> 1376
>
> CL-USER 44 > 
>
> Is that what you were after?

  Thanks Nick (for the two colons . But that does not always work. In
particular, this function won't accept a SYSTEM::TERMINAL-STREAM which
is what I get when using *STANDARD-OUTPUT* (with some bits of
canonicalization).

--

-- 
Resistance is futile. You will be jazzimilated.

Scientific site:   http://www.lrde.epita.fr/~didier
Music (Jazz) site: http://www.didierverna.com

Re: linux ide question

Re: accessing a stream's file descriptors

Re: accessing a stream's file descriptors

> From: Didier Verna <didier <at> lrde.epita.fr>
> Date: Thu, 10 May 2012 16:50:54 +0200
> 
>   Thanks Nick (for the two colons . But that does not always
> work. In particular, this function won't accept a
> SYSTEM::TERMINAL-STREAM which is what I get when using
> *STANDARD-OUTPUT* (with some bits of canonicalization).

Not a clue then. Sorry.

- nick

Re: accessing a stream's file descriptors

Tim Bradshaw <tfb <at> cley.com> wrote:

> I don't think all streams even have file descriptors.

  Yeah, that's true. It seems to me that TERMINAL-STREAMs should,
though. As per Paul's suggestion, I introspected a bit and the only
thing I could see so far is a slot named OUTPUT-HANDLE which sounds
kinda nice, but its value for *terminal-io* is T, not an fd... :-/

> On the mac implementation there's a class
> stream::os-file-handle-stream, and I guess those are the ones that
> correspond to filehandles in the underlying system.

  Probably (hence Nick's suggestion). However, even in a standalone
console application (delivered from Lispworks), a TERMINAL-STREAM such
as *terminal-io* has no relation with an OS stream, and that currently
escapes me...

--

-- 
Resistance is futile. You will be jazzimilated.

Scientific site:   http://www.lrde.epita.fr/~didier
Music (Jazz) site: http://www.didierverna.com

linux ide question

Hi,

I'm using the following in my .lispworks

;; initially from http://article.gmane.org/gmane.lisp.lispworks.general/3122
;; the small annoying window toolbar is called lispworks-echo-podium
;; note that lispwoks has lispworks-podium, but is not exported
(defparameter *the-echo-podium* nil)

(define-action "CAPI Create Interface"
              "catch the echo podium"
              #'(lambda (interface)
                  (when (typep interface 'lw-tools:lispworks-echo-podium)
                    (capi:hide-interface interface nil)
                    (setf *the-echo-podium* interface))))

;; I tried to kill the podium in the previous stage, but it seems that
it is being checked for at startup, so I needed to catch it,
;; and then kill it later on
(define-action "Initialize LispWorks Tools"
              "Kill this echo podium"
               #'(lambda (obj)
                   (declare (ignore obj))
                   (capi:quit-interface *the-echo-podium* :force t))
               :after "Create default the tools"
               :before "Run the environment start up functions")

HIH,

Regards,

Ala'a

On Thu, May 10, 2012 at 6:37 PM, Art Obrezan <artobrezan <at> yahoo.com> wrote:
>
> Hello -
>
> LW 6.1 linux 32bits. When it starts there are two windows, the "main" one with a toolbar and menus and the
listener window. The "main" window is actually of no use because one can access all tools via menus in
listener, editor, etc. windows. I can manually close that "main" window after the startup and proceed
with work.
>
> Question: how can I automatically close that "main" window during the startup? Any tricks to add to the
.lispworks file?
>
> Best,
>  Art
>