NAME
        GetCurrentDirName -- returns the current directory name (V36)

   SYNOPSIS
        success = GetCurrentDirName(buf, len)
        D0                          D1   D2

        bool getcurrentdirname(strptr, long)

   FUNCTION
        Extracts the current directory name from the CLI structure and puts it
        into the buffer.  If the buffer is too small, the name is truncated
        appropriately and a failure code returned.  If no CLI structure is
        present, a null string is returned in the buffer, and failure from
        the call (with ioerr() == error_object_wrong_type);

   INPUTS
        buf     - Buffer to hold extracted name
        len     - Number of bytes of space in buffer

   RESULT
        success - Success/failure indicator

   BUGS
        In V36, this routine didn't handle 0-length buffers correctly.

   SEE ALSO
        setcurrentdirname()