#ifdef TPLTER

BaseName = {

    Version = "1.0";
    Short = {{ Cut the suffix part from a filename }};
    description = {{
	Pathpart gets a filename and extracts its
	name w/o trailing suffix.

	The resulting string is sent to STDOUT.

     RESULT
	a filename w/o suffix
    }};
    Template = "FILE/A";
    Arguments = {{
	STRPTR file;
    }};
    Examples = {{
	>basename a.b
	a

	>basename a
	a

	> suffix ram:t/jabba.bak
	ram:t/jabba
    }};
    History = {{
	19-08-95 b_noll (1.0) created .data file
    }};
    Body = {{
	    STRPTR p;
	    UBYTE bak = 0;;
	    p = argv->file;
	    retval = RETURN_WARN;
	    if (p && *p) {
		while (*p) ++p;
		--p;
		while ((p != argv->file) && (*p != '.') && (*p != ':') && (*p != '/')) --p;
		if (*p == '.') {
		    bak = '.';
		    *p = 0;
		} /* if */
		if (PutStr (argv->file) == 0) retval = RETURN_OK;
		if (bak) {
		    *p = bak;
		} /* if */
	    } /* if */
	    PutStr("\n");

    }};
};

#endif