#ifdef TPLTER

Suffix = {

    SHORT = {{ get a file's suffix }};

    DESCRIPTION = {{
	Suffix gets a filename and extracts its suffix.

	The resulting string is sent to STDOUT.

     RESULT
	a filename's suffix
    }};


    EXAMPLES = {{
	>suffix a.b
	b

	>suffix a
	       [nothing]

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

    SEEALSO = {{
	FilePart, 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 = {{
	    STRPTR p;
	    p = argv->file;
	    retval = RETURN_WARN;
	    if (p && *p) {
		while (*p) ++p;
		--p;
		while ((p != argv->file) && (*p != '.') && (*p != ':') && (*p != '/')) --p;
		if (*p == '.') {
		    if (PutStr (p+1) == 0) retval = RETURN_OK;
		} /* if */
	    } /* if */
	    PutStr("\n");

    }};
};

#endif