Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!bcm!convex!rosenkra
From: rosenkra@convex.com (William Rosencranz)
Newsgroups: comp.sys.atari.st
Subject: Re: Directory compress routine ?
Keywords: TOS, Directory, Compress
Message-ID: <1991Jan30.174525.29272@convex.com>
Date: 30 Jan 91 17:45:25 GMT
References: <5050688@zebedee.uucp>
Sender: usenet@convex.com (news access account)
Organization: Convex Computer Corporation; Richardson, TX
Lines: 47
Nntp-Posting-Host: convex1.convex.com

In article <5050688@zebedee.uucp> zebedee.geoffc@tharr.uucp writes:
>Does anyone have a program that will compress a TOS directory so that all
>the directory entries for the files lie at the start of the directory ?  
>I know that the reorder option of Neodesk 3 does this but I would like a
>program I can use from a CLI to do the same job (to cut down on having to
>quit back to Neodesk).

i am not exactly sure what u mean, but consider this:

	find mydir -type d -print >xxx
	find mydir -type f -print >>xxx
	zoo aI archive <xxx

i am not sure of the zoo options. this is known to work on unix. zoo,
nice program it is, allows u to read the list of files from stdin (can
lharc do this?). the first find program lists all directories starting
in mydir, the next one lists files. so you get a list which may look like:

	mydir			dir
	mydir/mgif		dir
	mydir/tmp		dir
	mydir/edit		dir
	mydir/mgif/Makefile	file
	mydir/mgif/README	.
	mydir/tmp/font-36x80	.
	mydir/tmp/font-8x9	.
	mydir/tmp/font-hack
	mydir/edit/elvis.zoo
	mydir/edit/emacs-readme.jrd
	mydir/edit/emacs39.lzh
	mydir/edit/emcs1855.0
	mydir/edit/emcs1855.1
	mydir/edit/emcs1855.2

is this what u mean? all the directories are first in the list. note that
i don't think that this can be put in a gulam script, because (at least 
the version i have) does not handle redirection from inside a script. other
shells can do this, however.

i think there is an st find(1). i have my own (of course).

-bill
rosenkra@convex.com

--
Bill Rosenkranz            |UUCP: {uunet,texsun}!convex!c1yankee!rosenkra
Convex Computer Corp.      |ARPA: rosenkra%c1yankee@convex.com