/*
 *	BaseName.c - Copyright © 1991 by Devil's child.
 *
 *	Created:	11 Sep 1992  18:00:25
 *	Modified:	26 Nov 1992  21:42:12
 *
 *	Make>> sc <file>.c
 *	Make>> slink <file>.o SC SD ND BATCH NOICONS TO <file>
 */


long main(void)
{
	struct DosLibrary *DOSBase;
	APTR UtilityBase;
	struct RDArgs *RA;
	char *Argv[] = { NULL, NULL, NULL };
	UBYTE *s, *suffix;
	long suflen, namelen, rc=20;

	if (DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 37)) {
		UtilityBase = DOSBase->dl_UtilityBase;
		if (RA = ReadArgs("Path/A,Suffix", (long *)Argv, NULL)) {
			s = FilePart(Argv[0]);
			if (Argv[1] && (suflen = strlen(Argv[1])) < (namelen = strlen(s))) {
				suffix = &s[namelen - suflen];
				if (!Stricmp(suffix, Argv[1]))
					*suffix = 0;
			}
			Printf("%s\n", s);
			FreeArgs(RA);
			rc = 0;
		}
		else
			PrintFault(IoErr(), "BaseName");
		CloseLibrary((struct Library *)DOSBase);
	}
	return rc;
}