/****************************************************************************
* msdostxt.c
*
* This module implements the text output routines for a 32-bit protected
* mode msdos verion of POV-Ray on various compilers.
*
* from Persistence of Vision(tm) Ray Tracer
* Copyright 1996 Persistence of Vision Team
*---------------------------------------------------------------------------
* NOTICE: This source code file is provided so that users may experiment
* with enhancements to POV-Ray and to port the software to platforms other
* than those supported by the POV-Ray Team. There are strict rules under
* which you are permitted to use this file. The rules are in the file
* named POVLEGAL.DOC which should be distributed with this file. If
* POVLEGAL.DOC is not available or for more info please contact the POV-Ray
* Team Coordinator by leaving a message in CompuServe's Graphics Developer's
* Forum. The latest version of POV-Ray may be found there as well.
*
* This program is based on the popular DKB raytracer version 2.12.
* DKBTrace was originally written by David K. Buck.
* DKBTrace Ver 2.0-2.12 were written by David K. Buck & Aaron A. Collins.
*
*****************************************************************************/
#include <process.h>
#include <dos.h>
#include "frame.h"
#include "povproto.h"
#include "povray.h"
#include "optin.h"
#include "msdosall.h"
#define SCROLL_BACK_SIZE 10000
typedef struct W_Data_Struct WDATA;
struct W_Data_Struct
{
int CurX, CurY, Wy1, Wy2, Fcol, Bcol, Ovr, TabX, Init;
unsigned char Name[15];
WDATA *Prev ,*Next;
unsigned char *Buf;
int Wrap, Cur, Top;
};
static WDATA Bann_Data, Warn_Data, RInf_Data, SInf_Data, Fatl_Data, Stat_Data;
static WDATA Debug_Data;
static WDATA *OnTop, *Root;
static char *Saved_Text;
static void Do_Message(WDATA *Data,char *s);
static void Update_Tabs(WDATA *Data);
static void Do_Tab(WDATA *Data);
static void Slowit(void);
static int Scan_Back(unsigned char *Buf, int *Strt);
static int Scan_Front(unsigned char *Buf, int *Strt, int End);
static int Viewit(void);
static int Next_TabX, LastY;
#define Init_WData(d,y1,y2,f,b,cx,cy,ov,n) (d).CurX=(cx);(d).CurY=(cy);\
(d).Init=FALSE;(d).Wy1=(y1);(d).Wy2=(y2); (d).Fcol=(f);(d).Bcol=(b);\
(d).Ovr=(ov); (d).TabX=0; strcpy((d).Name,n); (d).Buf=NULL;
void MSDOS_Text_Init_Vars()
{
CON_init();
Init_WData(Bann_Data, 1,22,15,1,0, 0, TRUE,"About");
Init_WData(SInf_Data, 24,24,15,5,0, 0,FALSE,"");
Init_WData(RInf_Data, 2,22,15,2,0,20, TRUE,"Options");
Init_WData(Stat_Data, 2,22,15,3,0,20, TRUE,"Statistics");
Init_WData(Warn_Data, 2,22,14,6,0,20, TRUE,"Warning");
Init_WData(Fatl_Data, 2,22,14,4,0,20, TRUE,"Error");
Init_WData(Debug_Data, 2,22, 0,7,0,20, TRUE,"Debug");
if((Fatl_Data.Buf=malloc(SCROLL_BACK_SIZE))==NULL)
{
fprintf(stderr,"Cannot allocate error message buffer.\n");
exit(1);
}
Root=OnTop=NULL;
Next_TabX=2;
LastY=0;
CON_setForeColor(15);
CON_setBackColor(1);
CON_setBackground(CON_getAttr(),32);
CON_clrscr();
CON_writec( 0, 0,0x001f,201);
CON_writec(79, 0,0x001f,187);
CON_fillText( 1, 0,78, 0,0x001f,205);
CON_fillText( 1,23,78,23,0x001f,205);
CON_fillText( 0, 1, 0,24,0x001f,186);
CON_fillText(79, 1,79,24,0x001f,186);
CON_writec( 0,23,0x001f,204);
CON_writec(79,23,0x001f,185);
CON_setWindow(1,1,78,22);
CON_clrscr();
}
void MSDOS_Finish(n)
int n;
{
WDATA *Data;
if (opts.Options & PROMPTEXIT)
{
Viewit();
}
/* Note:Using free rather than POV_FREE because this is freed after the
* generic part of POV-Ray has already cleaned up all other memory.
*/
for (Data=Root; Data!=NULL; Data=Data->Next)
{
if(Data->Buf!=NULL)
{
free(Data->Buf);
Data->Buf=NULL;
}
}
CON_setForeColor(7);
CON_setBackColor(0);
CON_setBackground(CON_getAttr(),32);
CON_setWindow(0,0,79,24);
CON_gotoxy(79,24);
CON_printf("\n\r");
exit(n);
}
static void Do_Message(Data,s)
WDATA *Data;
char *s;
{
unsigned char *ptr = s;
register unsigned char c;
if (!(Data->Init))
{
Data->Next=Data->Prev=NULL;
Data->Wrap=Data->Cur=0;
if (Data->Ovr)
{
/* Note:Using malloc rather than POV_MALLOC because this
* is freed after the generic part of POV-Ray has already cleaned up
* all other memory.
*/
if(Data->Buf==NULL)
{
if((Data->Buf=malloc(SCROLL_BACK_SIZE))==NULL)
{
Error("Cannot allocate text message buffer.\n");
}
}
Data->Buf[0]=0;
Data->Cur=1;
Data->TabX=Next_TabX;
Next_TabX+=strlen(Data->Name)+5;
if (LastY<20)
{
Data->CurY=LastY;
}
/* Only Ovr gets linked */
Data->Init=TRUE;
Data->Next=Root;
if (Root!=NULL)
{
Root->Prev=Data;
}
Root=Data;
}
}
Update_Tabs(Data);
CON_setWindow(1,Data->Wy1,78,Data->Wy2);
CON_gotoxy(Data->CurX,Data->CurY);
CON_setForeColor(Data->Fcol);
CON_setBackColor(Data->Bcol);
CON_setBackground(CON_getAttr(),32);
if (Data->Ovr)
{
while ((c=*ptr++) != '\0')
{
if (c=='\n')
{
CON_putc('\r');
CON_putc(c);
c=0;
}
else
{
CON_putc(c);
}
/* This wraps 1 byte early but it'll make unwrapping easier */
if (Data->Cur==SCROLL_BACK_SIZE)
{
Data->Wrap=TRUE;
Data->Cur=0;
}
Data->Buf[Data->Cur++]=c;
}
}
else
{
while ((c=*ptr++) != '\0')
{
if (c=='\n')
{
CON_putc('\r');
}
CON_putc(c);
}
}
Data->CurX=CON_wherex();
Data->CurY=CON_wherey();
if (Data->Ovr)
{
LastY=Data->CurY;
}
}
void MSDOS_Banner(char *s)
{
Do_Message(&Bann_Data,s);
}
void MSDOS_Warning(char *s)
{
Do_Message(&Warn_Data,s);
}
void MSDOS_Render_Info(char *s)
{
if (In_Graph_Mode)
return;
Do_Message(&RInf_Data,s);
}
void MSDOS_Status_Info(char *s)
{
if (In_Graph_Mode)
return;
Do_Message(&SInf_Data,s);
}
void MSDOS_Fatal(char *s)
{
Do_Message(&Fatl_Data,s);
}
void MSDOS_Statistics(char *s)
{
Do_Message(&Stat_Data,s);
}
void MSDOS_Debug_Info(char *s)
{
if (In_Graph_Mode)
return;
Do_Message(&Debug_Data,s);
}
void MSDOS_Wait_Key(void)
{
MSDOS_getch();
}
int MSDOS_getch(void)
{
int Key;
if((Key=getch())==0)
Key=256+getch();
return(Key);
}
void MSDOS_Test_Abort (void)
{
if (opts.Options & EXITENABLE)
{
if (kbhit())
{
if (In_Graph_Mode)
{
Stop_Flag = TRUE; MSDOS_getch();
}
else
{
Status_Info("\n **** Paused **** Press 'C' to continue.");
MSDOS_getch();
if (!(Stop_Flag = Viewit()))
{
Status_Info("\n Program continued.");
}
}
}
}
}
static void Update_Tabs(Data)
WDATA *Data;
{
WDATA *Temp;
if (!(Data->Ovr))
return;
if (Data==OnTop)
return;
OnTop=Data;
Data->CurY=LastY;
if (LastY<20)
{
CON_setWindow(1,Data->CurY+Data->Wy1,78,Data->Wy2);
CON_setForeColor(Data->Fcol);
CON_setBackColor(Data->Bcol);
CON_setBackground(CON_getAttr(),32);
CON_clrscr();
}
else
{
if (LastY==20)
{
CON_setWindow(1,2,78,22);
CON_gotoxy(78,20);
CON_setForeColor(Data->Fcol);
CON_setBackColor(Data->Bcol);
CON_setBackground(CON_getAttr(),32);
CON_putc('\n');
}
}
CON_setWindow(0,0,79,24);
for(Temp=Root; Temp!=NULL; Temp=Temp->Next)
{
Do_Tab(Temp);
}
}
static void Do_Tab(Data)
WDATA *Data;
{
if (!(Data->Ovr))
return;
CON_gotoxy(Data->TabX,23);
if(Data==OnTop)
{
CON_setForeColor(Data->Fcol);
CON_setBackColor(Data->Bcol);
}
else
{
CON_setForeColor(7);
CON_setBackColor(1);
}
CON_setBackground(CON_getAttr(),32);
CON_printf("\\%s/",Data->Name);
}
static void Slowit(void)
{
time_t l, lt;
lt = l = time(&l);
while (time(&l) < lt + 1);
}
static int Scan_Back(Buf,Strt)
unsigned char *Buf;
int *Strt;
{
int i=(*Strt)-1;
if((*Strt)==0)
return(0);
while (Buf[i]!=0)
i--;
*Strt=i;
return (1);
}
static int Scan_Front(Buf,Strt,End)
unsigned char *Buf;
int *Strt;
int End;
{
int i=(*Strt)+1;
if ((*Strt)==End)
return(0);
while (Buf[i]!=0)
i++;
*Strt=i;
return (1);
}
static int Viewit(void)
{
WDATA *Data;
int i, j, k, Key, Flag;
unsigned char *tb;
for(Data=Root; Data!=NULL; Data=Data->Next)
{
if (Data->Wrap)
{
tb=malloc(SCROLL_BACK_SIZE);
i=SCROLL_BACK_SIZE - Data->Cur;
memcpy(tb,&(Data->Buf[Data->Cur]),i);
memcpy(&(tb[i]),Data->Buf,Data->Cur);
memcpy(Data->Buf,&(tb[1]),SCROLL_BACK_SIZE-1);
free(tb);
Data->Cur=SCROLL_BACK_SIZE-1;
Data->Buf[0]=0;
Data->Wrap=0;
}
Data->Buf[Data->Cur]=0;
Data->Top=Data->Cur;
for (i=0;i<21;i++)
{
Scan_Back(Data->Buf,&(Data->Top));
}
}
Key=99999; /* code to initalize */
Data=OnTop;
Flag=TRUE;
if (Data == NULL)
{
/* There's nothing to display. Just exit. */
return(Flag);
}
while (Key>0)
{
if (Key==99999)
{
Key=335; /* fake "End" key to initialize */
}
else
{
Key=MSDOS_getch();
}
switch(Key)
{
case 327: /* Home */
Data->Top=0;
break;
case 328: /* Up */
Scan_Back(Data->Buf,&(Data->Top));
break;
case 331: /* Left */
case 2: /* Shft Tab */
if (Data->Next==NULL)
{
while(Data->Prev!=NULL)
{
Data=Data->Prev;
}
}
else
{
Data=Data->Next;
}
break;
case 333: /* Right */
case 9: /* Tab */
if (Data->Prev==NULL)
{
while(Data->Next!=NULL)
{
Data=Data->Next;
}
}
else
{
Data=Data->Prev;
}
break;
case 335: /* End */
Data->Top=Data->Cur;
Scan_Back(Data->Buf,&(Data->Top));
case 329: /* Pg.Up. */
for (i=0;i<20;i++)
{
Scan_Back(Data->Buf,&(Data->Top));
}
break;
case 336: /* Down */
Scan_Front(Data->Buf,&Data->Top,Data->Cur);
break;
case 337: /* Pg.Dn. */
for (i=0;i<20;i++)
{
Scan_Front(Data->Buf,&Data->Top,Data->Cur);
}
break;
case 'c':
case 'C':
Flag=FALSE; /* fall through and exit */
default:
Key=-1;
}
if (Data->Top==Data->Cur)
{
Scan_Back(Data->Buf,&(Data->Top));
}
OnTop=NULL; /*force redisplay*/
Update_Tabs(Data);
CON_setWindow(1,Data->Wy1,78,Data->Wy2);
CON_setForeColor(Data->Fcol);
CON_setBackColor(Data->Bcol);
CON_setBackground(CON_getAttr(),32);
CON_clrscr();
j=Data->Top;
k=j+1;
for(i=0;i<21;i++)
{
CON_gotoxy(0,i);
if (Scan_Front(Data->Buf,&j,Data->Cur))
{
CON_puts(&(Data->Buf[k]));
k=j+1;
}
}
CON_setWindow(70,23,78,23);
CON_setForeColor(15);
CON_setBackColor(1);
CON_setBackground(CON_getAttr(),205);
CON_putc('\n');
CON_setForeColor(15);
CON_setBackColor(4);
CON_setBackground(CON_getAttr(),205);
CON_puts("\033\032");
if (Data->Top!=0)
{
CON_gotoxy(2,0);
CON_puts("\030More");
}
if (j!=Data->Cur)
{
CON_gotoxy(3,0);
CON_puts("More\031");
}
}
CON_setWindow(70,23,78,23);
CON_setForeColor(15);
CON_setBackColor(1);
CON_setBackground(CON_getAttr(),205);
CON_putc('\n');
return (Flag);
}
void MSDOS_Save_Text(void)
{
#ifdef FANCY_TEXT
Saved_Text=POV_MALLOC(80*25*2,"text screen");
CON_setWindow(0,0,79,24);
CON_saveText(0,0,79,24,Saved_Text);
#endif
}
void MSDOS_Restore_Text(void)
{
#ifdef FANCY_TEXT
CON_setWindow(0,0,79,24);
CON_restoreText(0,0,79,24,Saved_Text);
POV_FREE(Saved_Text);
#endif
}
int MSDOS_System(char *s)
{
int Code;
int i;
char *ARGS[20];
char *t;
char buf[POV_MAX_CMD_LENGTH];
Render_Info("\nExecuting '%s'",s);
strcpy(buf,s);
t = ARGS[0] = strtok(buf, " ");
i=1;
while ((t!=NULL)&&(i<20))
{
t = ARGS[i] = strtok(0, " ");
i++;
}
MSDOS_Save_Text();
CON_setForeColor(7);
CON_setBackColor(0);
CON_setBackground(CON_getAttr(),32);
CON_setWindow(0,0,79,24);
CON_gotoxy(79,24);
CON_printf("\n\r");
fprintf(stderr,"\nPOV-Ray shelling out to dos.\n%s\n",s);
Code=spawnvp(P_WAIT,ARGS[0],ARGS);
MSDOS_Restore_Text();
return(Code);
}
void MSDOS_Process_Povray_Ini(char *s)
{
char *buff;
char *t;
if (Option_String_Ptr != NULL)
{
return;
}
buff=POV_MALLOC(strlen(s)+13,"temp string");
strcpy(buff,s);
t=strrchr(buff,'\\');
if (t==NULL)
{
t=strrchr(buff,'/');
if (t==NULL)
{
t=strrchr(buff,':');
if (t==NULL)
{
t=buff;
}
}
}
strcpy(t,"\\povray.ini");
parse_ini_file(buff);
POV_FREE(buff);
}
void MSDOS_Process_Env(void)
{
if ((Option_String_Ptr = getenv("POVINI")) != NULL)
{
if (!parse_ini_file(Option_String_Ptr))
{
Warning(0.0,"Could not find '%s' as specified in POVINI environment.\n",
Option_String_Ptr);
}
}
}
void MSDOS_Other_Credits(void)
{
Banner("MS-Dos text & video: Chris Young, Chris Cason & Kendall Bennett\n");
#ifdef __CAUSEWAY__
Banner("CauseWay DOS Extender courtesy Michael Devore");
#endif
}
