/******************************************************************************
*   "Irit" - the 3d polygonal solid modeller.				      *
*									      *
* Written by:  Gershon Elber				 Ver 0.2, Mar. 1990   *
*******************************************************************************
* Procedures to handle the dos interface - print/change the current dir. etc. *
******************************************************************************/

#ifdef __MSDOS__
#include <stdlib.h>
#include <dos.h>
#include <dir.h>
#include <time.h>
#include <float.h>
#include <process.h>
#else
#include <sys/types.h>
#include <sys/times.h>
#include <sys/param.h>
#ifdef DJGCC
#include <dir.h>
#include <time.h>
#endif /* DJGCC */
#ifndef HZ
#define HZ 60
#endif  /* HZ */
#endif /* __MSDOS__ */

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include "program.h"
#include "dosintr.h"
#include "ctrl-brk.h"
#include "graphgen.h"
#include "windows.h"

static void DosReleaseResources(void);
static void DosReclaimResources(void);

/******************************************************************************
* Procedure to print the current directory content in menu area:	      *
* Print file name and size in k bytes one per line. if page is full	      *
* (> ~20 lines) it pause and continue in next page. No sort is perform.       *
******************************************************************************/
void DosPrintDir(char *Match)
{
#if defined(__MSDOS__) || defined(DJGCC)
    int StrCount;
    char s[LINE_LEN];
    struct ffblk ffblk;

    getcwd(s, LINE_LEN-1);		   /* Might be 64 chars at the most. */
    WndwInputWindowPutStr(s);

    if (Match == NULL || strlen(Match) == 0) Match = "*.*";

    StrCount = 0;     /* Count number of file names written allready into s. */
    s[0] = 0;
    if (!findfirst(Match, &ffblk, FA_DIREC))
	do {
	    switch (ffblk.ff_attrib) {
		case FA_DIREC: /* Directory */
		    sprintf(&s[strlen(s)], "<DIR> %-13s", ffblk.ff_name);
		    break;
		default: /* regular file */
		    sprintf(&s[strlen(s)], " %3dk %-13s",
			(int) ((ffblk.ff_fsize+1023)/1024), ffblk.ff_name);
		    break;
	    }
	    if (++StrCount == 4) {			/* Print the string: */
		WndwInputWindowPutStr(s);
		StrCount = 0;
		s[0] = 0;
	    }
	}
	while (!findnext(&ffblk));

    if (StrCount > 0)					/* Print the string: */
	WndwInputWindowPutStr(s);
#else
    WndwInputWindowPutStr("Not implemented on this system.");
#endif /* __MSDOS__ || DJGCC */
}

/*****************************************************************************
*   Routine to change current directory					     *
*****************************************************************************/
void DosChangeDir(char *s)
{
#if defined(__MSDOS__) || defined(DJGCC)
    char cwd[LINE_LEN], *sptr;

    getcwd(cwd, LINE_LEN-1);			   /* Save current position. */

    if (s[1] == ':')
        sptr = &s[2];			    /* Sptr points on the path only. */
    else
	sptr = s;

    if (strlen(sptr) != 0 && chdir(s))
	WndwInputWindowPutStr("CHDIR: No Such Dir!");
#ifdef __MSDOS__
    else if (s[1] == ':') {
	if (islower(s[0])) s[0] = toupper(s[0]);
	setdisk(s[0] - 'A');			    /* Move to the new disk. */
	if (getdisk() != s[0] - 'A')
	    WndwInputWindowPutStr("CHDIR: No Such Disk!");

    }
#endif /* __MSDOS__ */

    if (getcwd(s, LINE_LEN-1) == NULL) {      /* Test if directory is valid! */
	WndwInputWindowPutStr("CHDIR: hardware (!?) error - ignored");
	/* Restore old working directory: */
	if (strlen(&cwd[2]) != 0) chdir(cwd); /* If directory is not root... */
#ifdef __MSDOS__
	if (islower(cwd[0])) cwd[0] = toupper(cwd[0]);
	setdisk(cwd[0] - 'A');		       /* Move to the original disk. */
#endif /* __MSDOS__ */
    }
#else
    WndwInputWindowPutStr("Not implemented on this system.");
#endif /* __MSDOS__ || DJGCC */
}

/******************************************************************************
* Procedure to return current time from last time, time was reset.	      *
* Time is reset if the given parameter is non zero. Time is returned in       *
* seconds. This routine should be called at the beginning of the program to   *
* reset it time.							      *
* As we return only one parameter, on unix systems - the sum. of the user and *
* system time is returned, which is all the time used for this process.	      *
******************************************************************************/
double
#ifdef __MSDOS__
cdecl
#endif /* __MSDOS__ */
DosGetTime(double ResetTime)
{
#if defined (__MSDOS__) || defined(DJGCC)
    double t;
    static time_t LastTime;
    time_t CurrentTime;

    time(&CurrentTime);

    t = difftime(CurrentTime, LastTime);

    if (!APX_EQ(ResetTime, 0.0)) {			  /* Reset the time! */
	time(&LastTime);
    }

    return t;
#else
    static double LastTime = 0.0;
    double t, NewTime;
    struct tms TimeBuffer;

    times(&TimeBuffer);

    NewTime = ((double) TimeBuffer.tms_utime) / HZ +
	      ((double) TimeBuffer.tms_stime) / HZ;

    t = NewTime - LastTime;

    if (!APX_EQ(ResetTime, 0.0)) {			  /* Reset the time! */
	LastTime = NewTime;
    }

    return t;
#endif /* __MSDOS__ */
}

/******************************************************************************
* Procedure to execute the editor as defined by the global variable EditPrgm  *
* as a child process, and wait for its completion.			      *
* The routine release all resources before and reclaim them after.	      *
******************************************************************************/
void DosEditFile(char *Str)
{
#ifdef __MSDOS__
    char
	*Err = NULL;

    DosReleaseResources();

    if (spawnl(P_WAIT, GlblEditPrgm, GlblEditPrgm, Str, NULL) == -1) {
	/* Error had occured - trace it: */
	switch (errno) {
	    case ENOENT:
		Err = "Editor not found in path specified";
		break;
	    case ENOMEM:
		Err = "Not enough memory to run editor";
		break;
	    default:
		Err = "Undefined error in attempt to run editor";
	}
    }

    DosReclaimResources();

    if (Err != NULL) WndwInputWindowPutStr(Err);
#else
#ifdef DJGCC
    char Command[LINE_LEN];
    int RetCode;

    DosReleaseResources();

    sprintf(Command, "%s %s", GlblEditPrgm, Str);
    RetCode = system(Command);
	    
    DosReclaimResources();

    if (RetCode)
	WndwInputWindowPutStr("Undefined error in attempt to run editor");
#else
    WndwInputWindowPutStr("Not implemented on this system.");
#endif /* DJGCC */
#endif /* __MSDOS__ */
}

/******************************************************************************
* Procedure to execute the command processor as defined by COMSPEC	      *
* environment variable and enter it as a child process.			      *
******************************************************************************/
void DosSystem(void)
{
#ifdef __MSDOS__
    char *FullPath,
	*Err = NULL;

    if ((FullPath = getenv("COMSPEC")) == NULL) {
	WndwInputWindowPutStr("No COMSPEC environment variable, cannt escape to system");
	return;
    }

    DosReleaseResources();

    if (spawnl(P_WAIT, FullPath, FullPath, NULL) == -1) {	   /* Do it! */
	/* Error had occured - trace it: */
	switch (errno) {
	    case ENOENT:
		Err = "No command processor found in COMSPEC path specified";
		break;
	    case ENOMEM:
		Err = "Not enough memory to escape to system";
		break;
	    default:
		Err = "Undefined error in attempt to escape to system";
	}
    }

    DosReclaimResources();

    if (Err != NULL) WndwInputWindowPutStr(Err);
#else
#ifdef DJGCC
    char Command[LINE_LEN], *FullPath,
	*Err = NULL;
    int RetCode;

    if ((FullPath = getenv("COMSPEC")) == NULL) {
	WndwInputWindowPutStr("No COMSPEC environment variable, cannt escape to system");
	return;
    }

    DosReleaseResources();

    RetCode = system(FullPath);
	    
    DosReclaimResources();

    if (RetCode)
	WndwInputWindowPutStr("Undefined error in attempt to run editor");
#else
    WndwInputWindowPutStr("Not implemented on this system.");
#endif /* DJGCC */
#endif /* __MSDOS__ */
}

#if defined(__MSDOS__) || defined(DJGCC)

/******************************************************************************
* Procedure to release all resources used by the program.		      *
******************************************************************************/
static void DosReleaseResources(void)
{
    if (GlblDoGraphics) {
#ifdef __MSDOS__
	WndwClaimStatus();	/* Disable status printing on status window. */
        IntrSetInputDevice(INTR_INPT_DEVICE_KEYBOARD);     /* Release Mouse. */
	GRCloseGraph();				/* Close the graphic driver. */
#endif /* __MSDOS__ */
#ifdef DJGCC
	GGCloseGraph();
#endif /* DJGCC */
    }

    RestoreCtrlBrk();			      /* Restore ctrl-brk interrupt. */
}

/******************************************************************************
* Procedure to reclaim all resources used by the program.		      *
******************************************************************************/
static void DosReclaimResources(void)
{
#ifdef __MSDOS__
    _fpreset();	       /* Reset the floating point package to a known state. */
#endif /* __MSDOS__ */

    SetUpCtrlBrk();	     /* Set up control break trap routine (int 1bh). */

    if (GlblDoGraphics) {
#ifdef __MSDOS__
	GRInitGraph();			       /* Reopen the graphic driver. */
        IntrSetInputDevice((GlblMouseExists ? INTR_INPT_DEVICE_MOUSE : 0) |
		           (GlblJoystickExists ? INTR_INPT_DEVICE_JOYSTICK : 0) |
		           INTR_INPT_DEVICE_KEYBOARD);
	WndwReclaimStatus();	 /* Enable status printing on status window. */

	IntrWndwRedrawAll();

	WndwStatusWindowUpdate();  /* Update status window - current status. */
#endif /* __MSDOS__ */
#ifdef DJGCC
	GGInitGraph(FALSE, TRUE);
#endif /* DJGCC */
    }

    WndwInputWindowPutStr("Back to IRIT...");       /* Refresh input window. */
}

#endif /* defined(__MSDOS__) || defined(DJGCC) */