Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rutgers!ames!ptsfa!hoptoad!academ!uhnix1!sugar!peter
From: peter@sugar.UUCP (Peter DaSilva)
Newsgroups: comp.sys.amiga
Subject: Is a disk mounted or not? Here's how to find out!
Message-ID: <144@sugar.UUCP>
Date: Thu, 21-May-87 00:14:30 EDT
Article-I.D.: sugar.144
Posted: Thu May 21 00:14:30 1987
Date-Received: Sun, 24-May-87 03:30:52 EDT
Organization: Sugar Land UNIX - Houston, TX
Lines: 213
Keywords: disk mounted startup sequence.

#### SHAR-TYPE ARCHIVE. CUT WHEREVER YOU LIKE ####
#
# Includes: read.me, mounted.c, mounted.uue
#
cat > read.me << 'EOF'
MOUNTED is a quick little program I wrote to tell if a disk is mounted
or not. It's intended to be used in startup-sequences to conditionally
execute programs from df1. For example, mine includes:

mounted playit
if not warn
    run playit:play playit:bachfugue.smus playit:
endif

So if I start up with the disk "playit" in df1: it plays a bach fugue
during loading. This program illustrates how to deal with BPTRs in a
well behaved way, and how to get hold of the device list. It's full
of magic numbers and inefficient code, and including stdio bloats it
up to 8K. A little tidying up can probably get it down quite a bit. But
it fits nicely in *my* c: directory and I'm arrogant enough to think
I have better things to do. It's a good idea to have the AmigaDOS
manual open to pages 266-269 while you're checking out the code.
It's written for Aztec V3.40a with the +P option set, so it should run 
just fine with Lattice.

		-- Peter da Silva.
		-- Author of the fantastic screen hack "Workbench Lander".
		-- Not to mention ROT and Smart-TTY.
		-- And incredibly modest guy.
EOF
cat > mounted.c << 'EOF'
/* MOUNTED -- is a disk mounted?
 *
 * Copyright 1987 by Peter da Silva.
 *
 * This code may be freely distributed provided this notice is
 * retained. It may be hacked, munged, and incorporated in commercial
 * software if you want, so long as you credit me for it.
 */
#include <stdio.h>
#include <ctype.h>
#include <libraries/dosextens.h>

struct DosLibrary *DosLibrary;

/* hack BPTRS */

#define toAPTR(b) ((b)<<2)
#define toBPTR(a) ((a)>>2)

#define VOLUMES 16 /* If you have more than 16 drives, tough luck :-> */
char volumes[VOLUMES][33];
int nvols;

main(ac, av)
int ac;
char **av;
{
	GetVolumes();
	if(ac==0) wbmain(); /* I think this should work with Lattice */
	else if(ac==1) dumpvols();
	else if(ac==2 && av[1][0] != '?')
		exit(mounted(av[1])?0:5); /* Code 5 is warn */
	else {
		/* should loop & return success only if all work. */
		printf("MOUNTED Copyright (c) 1987 by Peter da Silva.\n");
		printf("Usage: mounted [volumename]\n");
		printf("Returns error code 5 is volume is not mounted.\n");
		exit(10); /* code 10 is error. maybe Should be 20 (fatal). */
	}
	exit(0);
}

GetVolumes() /* who'se out there */
{
	struct RootNode *root;
	struct DosInfo *info;
	struct DeviceList *list;

	DosLibrary = OpenLibrary("dos.library", 0);
	if(!DosLibrary) {
		printf("Can't open dos.library\n");
		exit(2);
	}
	nvols = 0;

	/* The following 3 lines caused me some worry, but they worked
	   first time. Thank you C=Amiga. */
	root = DosLibrary -> dl_Root;
	info = toAPTR(root->rn_Info);
	list = toAPTR(info->di_DevInfo);
	while(list) {
		if(list->dl_Type == DLT_VOLUME && /* is it a device? */
		   list->dl_Task != 0) { /* Ignore unmounted devices */
			char *ptr;
			int count;
			ptr = toAPTR((BPTR)list->dl_Name);
			count = *ptr++;
			if(count > 16) /* Should be a CONSTANT */
				count = 16;
			strncpy(volumes[nvols], ptr, count);
			volumes[nvols][count] = 0;
			nvols++;
		}
		list = toAPTR(list->dl_Next);
	}
	CloseLibrary(DosLibrary);
}

wbmain(dummy) /* if run from workbench, just list mounted volumes */
{
	FILE *fp;
	if(!(fp = fopen("CON:160/50/320/100/Mounted volumes.")))
		return;
	fdumpvols(fp);
	sleep(10);
	fclose(fp);
}

sleep(n) /* This should have been provided by Aztec, for god's sake. */
{
	Delay(50*n);
}

dumpvols()
{
	fdumpvols(stdout);
}

fdumpvols(fp)
FILE *fp;
{
	int i;
	for(i = 0; i < nvols; i++)
		printf("%s\n", volumes[i]);
}

mounted(name) /* The biggee */
char *name;
{
	int i;
	for(i = 0; i < nvols; i++)
		if(streq(volumes[i], name))
			return 1;
	return 0;
}

streq(s1, s2)
char *s1, *s2;
{
	normalise(s1);
	normalise(s2);
	return strcmp(s1, s2)==0;
}

normalise(s)
char *s;
{
	int i;
	for(i = 0; s[i]; i++)
		if(isupper(s[i]))
			s[i] = tolower(s[i]);
		else if(s[i]==':') {
			s[i] = 0;
			break;
		}
}
EOF
cat > mounted.uue << 'EOF'
begin 664 mounted
M   #\P         #          (   :5    I@   )D   /I   &E4[Z!5Q.
M50  2.<P $ZZ 1A*K0 (9@9.N@)B8'P,K0    $ "&8&3KH"W&!L#*T    "
M  AF,B!M  PB:  $#!$ /V<D(&T #"\H  1.N@,<6$]*@&<$< !@ G %+P!.
MN0  %N983V P2'H 0$ZY   ,5%A/2'H 8TZY   ,5%A/2'H =$ZY   ,5%A/
M2'@ "DZY   6YEA/0J=.N0  %N983TS?  Q.74YU34]53E1%1"!#;W!Y<FEG
M:'0@*&,I(#$Y.#<@8GD@4&5T97(@9&$@4VEL=F$N"@!5<V%G93H@;6]U;G1E
M9"!;=F]L=6UE;F%M95T* %)E='5R;G,@97)R;W(@8V]D92 U(&ES('9O;'5M
M92!I<R!N;W0@;6]U;G1E9"X* $Y5_^Q(YS  0J=(>@$D3KD  !GD4$\CP   
M $A*N0   $AF&$AZ 19.N0  #%183TAX  ).N0  %N983T*Y    3"!Y    
M2"MH "+__"!M__P@*  8Y8 K0/_X(&W_^" H  3E@"M __1*K?_T9P  JB!M
M__0,J     ( !&8  (HB;?_T2JD "&=^(&W_]" H "CE@"M __ @;?_P4JW_
M\! 02(!(P"M _^P,K0   !#_[&\(*WP    0_^PO+?_L+RW_\'(A(#D   !,
M3KD  !B80?D   !4T(@O $ZY   )5D_O  QR(2 Y    3$ZY   8F-"M_^Q!
M^0   %1", @ 4KD   !,(&W_]" 0Y8 K0/_T8 #_4B\Y    2$ZY   9B%A/
M3-\ #$Y=3G5D;W,N;&EB<F%R>0!#86XG="!O<&5N(&1O<RYL:6)R87)Y"@!.
M5?_\2.<P $AZ #9.N0  !*Y83RM __QF"$S?  Q.74YU+RW__&%\6$](>  *
M83183R\M__Q.N0  $A183V#:0T]..C$V,"\U,"\S,C O,3 P+TUO=6YT960@
M=F]L=6UE<RX 3E4  $CG, !R,B M  A.N0  &)@O $ZY   8V%A/3-\ #$Y=
M3G5.50  2.<P $AY    \F$*6$],WP ,3EU.=4Y5__Q(YS  0JW__& F<B$@
M+?_\3KD  !B80?D   !4T(@O $AZ ").N0  #%103U*M__P@+?_\L+D   !,
M;<Y,WP ,3EU.=25S"@!.5?_\2.<P $*M__Q@,"\M  AR(2 M__Q.N0  &)A!
M^0   %30B"\ 82103TJ 9PIP 4S?  Q.74YU4JW__" M__RPN0   $QMQ'  
M8.1.50  2.<P "\M  AA+%A/+RT #&$D6$\O+0 ,+RT "$ZY   +2E!/2H!F
M!' !8 )P $S?  Q.74YU3E7__$CG, !"K?_\8&@@+?_\(&T "!(P" !(@4C!
M0_D   !;"#$  !@ 9R@@+?_\(&T "!(P" !(@4C!+P%.N0  !)983R(M__P@
M;0 ($8 8 & >("W__"!M  @,,  Z" !F#B M__P@;0 (0C ( & 24JW__" M
M__P@;0 (2C ( &:*3-\ #$Y=3G5P ! O  >P/ !@8PJP/ !Z8@20/  @3G5P
M ! O  >P/ ! 8PJP/ !:8@30/  @3G5.50  2.<P($ZY   3G"1 2H!F"G  
M3-\$#$Y=3G4O"B\M  PO+0 (809/[P ,8.9.50  2.<X("\M !!.N0  $A18
M3T'Y     "1(2A)F%"/\    !0    1P $S?!!Q.74YU+RT #"\*3KD   M*
M4$]*@&<$4(I@TB\J  0O+0 (3KD   F:4$\H +"\_____V8$< !@Q"!M ! 1
M1  @;0 0$7P  0 ,("T $&"L87Q#^0   IA%^0    "UR68.,CP F&L(=  B
MPE')__PCSP    @L>  $(\X    ,2.> @ @N  0!*6<02_H "$ZN_^)@!D*G
M\U].<T/Z "1.KOYH(\     09@PN/  #@ =.KO^48 9.N0  !>103TYU9&]S
M+FQI8G)A<GD 2?D  '_^3G5.50  2.<P($AY  $  # Y   "E,'\  8O $ZY
M   9G%!/(\     49AA"ITAY  $  $ZY   9;E!/+GD    (3G4@>0   !1"
M:  $('D    4,7P  0 0(GD    4,WP  0 *('D    ((#D    (D*@ !%" 
M(\     8('D    8(+Q-04Y80J=.N0  &:Q83R1 2JH K&<X+RT #"\M  @O
M"DZY   '<$_O  PC_     $    <('D    4 &B    $('D    4 &B    *
*8%A(:@!<3KD   PC
 
end
EOF