#define DIRf_HINT_WANT_UTF8_RESULT     1
#define DIRf_HINT_PARAM1_IS_UTF8       2
#define DIRf_HINT_PARAM2_IS_UTF8       4
#define DIRf_RESULT_IS_UTF8            8
#define DIRf_RESULT_IS_BYTES          16

#ifdef UTF8_FILENAME_SEMANTICS

#define SET_DIR_UTF8_HINTS(flags)	PL_dir_unicode = (flags)

#define isDIR_RESULT_WANTED_AS_UTF8	((PL_dir_unicode) & DIRf_HINT_WANT_UTF8_RESULT)
#define isDIR_PARAM_UTF8		((PL_dir_unicode) & DIRf_HINT_PARAM1_IS_UTF8)
#define isDIR_PARAM2_UTF8		((PL_dir_unicode) & DIRf_HINT_PARAM2_IS_UTF8)

#define PERLIO_UTF8_CHECK_RESULT(sv) \
    if ( PL_dir_unicode & DIRf_RESULT_IS_UTF8) {		\
	SvUTF8_on((sv));					\
    } else if ( !(PL_dir_unicode & DIRf_RESULT_IS_BYTES)) {	\
	STRLEN len;						\
	const char * const s = SvPV(sv,len);			\
	if (is_utf8_string((const U8*)s,len)) {			\
	    SvUTF8_on((sv));					\
	}							\
    }								\

#else

#define SET_DIR_UTF8_HINTS(flags)

#define isDIR_RESULT_WANTED_AS_UTF8	0
#define isDIR_PARAM_UTF8		0
#define isDIR_PARAM2_UTF8		0

#define PERLIO_UTF8_CHECK_RESULT(sv) 

#endif

#define PERLIO_UTF8_CONTEXT(u1)				\
	SET_DIR_UTF8_HINTS((u1) ?  DIRf_HINT_PARAM1_IS_UTF8 : 0)
#define PERLIO_UTF8_CONTEXT2(u1,u2)			\
	SET_DIR_UTF8_HINTS(				\
	    ((u1) ? DIRf_HINT_PARAM1_IS_UTF8 : 0) |	\
	    ((u2) ? DIRf_HINT_PARAM2_IS_UTF8 : 0))
#define PERLIO_UTF8_CONTEXT_FROM_SV(sv)			\
	PERLIO_UTF8_CONTEXT(SvUTF8(sv))
#define PERLIO_UTF8_CONTEXT_FROM_SV2(sv1,sv2)		\
	PERLIO_UTF8_CONTEXT(SvUTF8(sv1),SvUTF8(sv2))
#define PERLIO_UTF8_CONTEXT_RETURN(ret)			\
	SET_DIR_UTF8_HINTS((ret) ?  DIRf_RESULT_IS_UTF8 : 0)
#define PERLIO_UTF8_CLEAR_CONTEXT                       \
	SET_DIR_UTF8_HINTS(0)