/*
 *	VolName.c - Copyright © 1993 by Devil's child.
 *
 *	Created:	16 Mar 1993  22:50:03
 *	Modified:	16 Mar 1993  23:04:05
 *
 *	Make>> sc <file>.c
 *	Make>> slink <file>.o SC SD ND BATCH NOICONS TO <file> LIB LIB:String.lib
 */


long VolName(void)
{
	struct ExecBase *SysBase = *((struct ExecBase **)4L);
	struct DosLibrary *DOSBase;
//	APTR UtilityBase;
	struct RDArgs *RA;
	char *Argv[] = { NULL, NULL };
	UBYTE *s;
	long rc=20;

	if (DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 37)) {
//		UtilityBase = DOSBase->dl_UtilityBase;
		if (RA = ReadArgs("Vol/A", (long *)Argv, NULL)) {
			if (s = StrChr(Argv[0], ':')) {
				*s = '\0';
				Printf("%s\n", Argv[0]);
				rc = 0;
			}
			else
				rc = 10;
			FreeArgs(RA);
		}
		else
			PrintFault(IoErr(), "VolName");
		CloseLibrary((struct Library *)DOSBase);
	}
	return rc;
}