/******************************************************************************
             Copyright (c) 1999 Unigraphics Solutions, Inc.
                       Unpublished - All Rights Reserved

*******************************************************************************/
/* sample code below */
tag_t     a_path;
...
UF_DIRPATH_start_dir_iteration( a_path );
...
lprintf("index of current directory is %d \n",
         UF_DIRPATH_ask_dir_index( a_path ) );