Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!batcomputer!munnari.oz.au!bunyip.cc.uq.oz.au!brolga!uqcspe!cs.uq.oz.au!grue
From: grue@cs.uq.oz.au (Frobozz)
Newsgroups: comp.sys.handhelds
Subject: Re: ALICE
Message-ID: <1604@uqcspe.cs.uq.oz.au>
Date: 24 May 91 10:38:57 GMT
References: <10584.2839AE98@wolf.sublink.org>
Sender: news@cs.uq.oz.au
Reply-To: grue@cs.uq.oz.au
Lines: 58

In <10584.2839AE98@wolf.sublink.org> Simone.Rapisarda@p1004.f602.n332.z2.fidonet.org (Simone Rapisarda) writes:



>Reading the manuals and using the 48 i realized
>that it misses an important feature:
>There isn't a built-in way to let the 48 execute
>automatically a configuration program entering
>in a dir and another configuration program exiting
>the same dir.

>Let's see a simple example:

>STOUT
>\<< DEPTH \->LIST 'STACK' STO \>>

>STIN
>\<< { # 0h # 0h } STOF STACK LIST\-> DROP 'STACK'
>    PURGE 1 MENU \>>

>The automatic execution of STOUT on exiting a dir
>and of STIN on entering a dir could really transforms
>that directory in a 'workbech'.
>The one above is only an example, infacts the
>possibilities of a similar feature can bring to VERY
>useful results.

Using the vectored enter capabiities of the HP should allow you to do
something pretty close to what you want.  I can think of two different
method of doing it:
1) detect when the current directory changes and perform your magic when
it does change (you'd have to remember the old directory for this to really
be much use).

2) Keep some kind of global around to indicate that this is the first entry
to this directory and purge it on exit.

The \Gbenter facility should be able to detect a change in current directory
and it will detect it right after the command that changed the directory was
executed (have I stuffed up my tense here?).


I should also point out that I haven't tried this and it may not be possible
(I don't have my 48 on me at the moment )-:




        						Pauli
seeya

Paul Dale               | Internet/CSnet:            grue@cs.uq.oz.au
Dept of Computer Science| Bitnet:       grue%cs.uq.oz.au@uunet.uu.net
Uni of Qld              | JANET:           grue%cs.uq.oz.au@uk.ac.ukc
Australia, 4072         | EAN:                          grue@cs.uq.oz
                        | UUCP:           uunet!munnari!cs.uq.oz!grue
f4e6g4Qh4++             | JUNET:                     grue@cs.uq.oz.au
--