    class
    	DIRECTORY_NAME

    General
    	cluster: base
    	description: "Directory name abstraction"
    	create: string_make, make_from_string, make

    Ancestors
    	PATH_NAME*

    Queries
    	is_directory_name_valid (dir_name: STRING_8): BOOLEAN
    	is_empty: BOOLEAN
    	is_equal (other: [like Current] DIRECTORY_NAME): BOOLEAN
    	is_valid: BOOLEAN
    	is_volume_name_valid (vol_name: STRING_8): BOOLEAN
    	out: STRING_8
    	prunable: BOOLEAN
    	string: STRING_8
    	to_c: ANY

    Commands
    	extend (directory_name: STRING_8)
    	extend_from_array (directories: ARRAY [STRING_8])
    	make
    	make_from_string (p: STRING_8)
    	set_directory (directory_name: STRING_8)
    	set_subdirectory (directory_name: STRING_8)
    	set_volume (volume_name: STRING_8)
    	wipe_out