/*
 * $Id$
 *
 * $Log$
 * Revision 1.1  1996/03/08 15:33:07  mclareni
 * Initial revision
 *
 */
/*CMZ :  2.01/00 18/02/93  11.15.03  by  Alfred Nathaniel*/
/*-- Author :    N.Cremel   27/10/92*/

#include "kuip/kuip.h"
#include "kuip/kfor.h"
#include "kuip/klink.h"
#include "kuip/kmenu.h"
#include "mkdims.h"


/***********************************************************************
 *                                                                     *
 *   Return the CWD for the *.kumac files.                             *
 *   This routine is called by the Kuip Browser for Macro.             *
 *                                                                     *
 ***********************************************************************/
char **kmbmdi( class_name, first )
     char *class_name;
     int first;
{
   static char *path_desc[2];
   static char  root[MAX_stringl+31];
   char         path[MAX_stringl+1];

   path_desc[0] = NULL;
   path_desc[1] = NULL;

   if (first && getcwd(path, MAX_stringl)) {
      sprintf(root, "root=%s file=\'List of KUIP macros\'", path);
      path_desc[0] = "Macro";
      path_desc[1] = root;
   }
   return path_desc;
}
