/*****************************************************************\
* *
* DIRTODEST and PARENTTODEST commands for Directory Opus 5 *
* *
* Written by Timo Kaikumaa (timok@cc.tut.fi) *
* *
* ARexx script for Directory Opus 5.5 giving you two new *
* directory & lister commands. To make them work, place this *
* script into "dopus5:modules" directory. *
* *
* This script was written because I wasn't happy with _any_ *
* command or script of this kind there was already available. *
* (And there sure was loads of them.) *
* *
* Using these commands results in another lister with the *
* same path (DirToDest) or the parent path of your current *
* directory (ParentToDest) in it. However, the algorithm to *
* determine the new lister is more complex than usually. *
* When called without legal arguments, the state of the *
* destination listers is first checked. If there is only one *
* of them (and it's not the lister where this script was called *
* from) it is the one to be used, then. However, if the command *
* was used in the actual destination lister the same applies to *
* the source listers as well. If these criterions are of no use, *
* a new check is performed. This time a pathless lister is being *
* looked for. Usually this means a lister showing the list of *
* devices or current caches. If there are many of them, only the *
* first one is used. In case the search appears still *
* unsuccessful, a new lister is finally opened. *
* *
* If there are selected directories in a lister where DirToDest *
* is called from, the first of these is being used instead of *
* current directory. This action also deselects the first *
* directory entry. *
* *
* Both commands can only be used within a lister context. *
* *
* Parameters: NEW/S to always open a new lister. *
* *
* Bugs: perhaps customized too much to suit for anyone's taste. *
* *
* Hint: the first lines of lister menu might be a good place *
* for these commands. *
* *
\*****************************************************************/
|