/* Copyright INRIA/ENPC */
#include <string.h>
#include "../machine.h"
#ifdef WIN32 
#include <windows.h>
#if !(defined __CYGWIN32__) && !(defined __ABSC__)
#include <direct.h>
#define chdir(x) _chdir(x)
#define GETCWD(x,y) _getcwd(x,y)
#else 
#ifndef __ABSC__
#include <unistd.h>
extern void sciprint(char *fmt,...);
#define GETCWD(x,y) getcwd(x,y)
#else
#define GETCWD(x,y) getcwd_(x,y)
#endif
#endif 
#endif 

#define FSIZE 1024
static char     cur_dir[FSIZE];

#if defined(SYSV) || defined(SVR4)
extern char	   *getcwd();
#define GETCWD(x,y) getcwd(x,y)
#else
#ifndef WIN32
extern char	   *getwd();
#define GETCWD(x,y) getwd(x)
#endif
#endif

#ifdef WIN32
extern void sciprint (char *fmt,...);
#endif


/*******************************
 * Changes scilab current directory 
 *******************************/

int C2F(scichdir)(char *path,int *err)
{
  *err=0;
  if (path == (char*) 0) {
    *cur_dir = '\0';
    return (0);
  }
#ifndef __ABSC__
  if (chdir(path) == -1) {
#else
  if (chdir_(path,strlen(path)) != 0) {
#endif
    sciprint("Can't go to directory %s \r\n", path); 
    /** XXX : a remettre , sys_errlist[errno]); **/
    *err=1;
  } 
  /** a rajouter en XWindow ? pour transmettre l'info au menu 
    if (get_directory()==0) 
    *err=1; **/
  /* scilab_status_show(path); XXXX en attente */ 
  return 0;
}

/*******************************
 * Get scilab current directory 
 *******************************/

int C2F(scigetcwd)(char **path,int *lpath,int *err)
{

#ifndef __ABSC__
    if (GETCWD(cur_dir, 1024) == (char*) 0)
#else
    if (GETCWD(cur_dir, 1024) != 0)
#endif
      {	/* get current working dir */
	sciprint("Can't get current directory\r\n");
	*cur_dir = '\0';
	*lpath=0;
	*err=1;
      }
    else 
      {
	#ifndef __ABSC__
		*path= cur_dir;
		*lpath=strlen(cur_dir);
	#else
		*path=strtok(cur_dir,"  ");
		*lpath=strlen(*path);	
	#endif
	*err=0;
      }
    return 0;
}

