#ifdef TPLTER

FilePart = {

    SHORT = {{ extract a filename's filepart }};

    DESCRIPTION = {{
	Filepart gets a filename and extracts its
	AmigaDOS file-part.

	The resulting string is sent to STDOUT.

     RESULT
	a filename's filepart
    }};


    EXAMPLES = {{
	>FilePart a:b
	"b"

	>FilePart a/b
	"b"

	> filepart ram:t/jabba.bak
	jabba.bak
    }};

    SEEALSO = {{
	dos.library/FilePart
	Suffix, PathPart
    }};

    HISTORY = {{
	01-08-93 b_noll created
	20-02-95 b_noll restructured source
	21-02-95 b_noll added version/format-prefix/offset
	20-03-95 b_noll added args diagnostics
	19-08-95 b_noll created .data file
    }};


    Template = "FILE/A";
    Arguments = {{
	STRPTR file;
    }};

    version = "1.2";
    body = {{
	    retval = RETURN_WARN;
	    if (PutStr (FilePart(argv->file)) == 0) retval = RETURN_OK;
	    PutStr("\n");

    }};

};
#endif