Miroirs/newrpl
1
0
Fork 0
mirror of https://git.code.sf.net/p/newrpl/sources synced 2024-11-16 19:51:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions
newrpl/firmware/hal_screen.c

1216 lines
38 KiB
C
Raw Blame History

/*
* Copyright (c) 2014-2015, Claudio Lapilli and the newRPL Team
* All rights reserved.
* This file is released under the 3-clause BSD license.
* See the file LICENSE.txt that shipped with this distribution.
*/
#include <newrpl.h>
#include <ui.h>
#include <libraries.h>
// THIS IS THE MAIN STABLE API TO ACCESS THE SCREEN
// SET TO SHOW/HIDE THE NOTIFICATION ICON
void halSetNotification(enum halNotification type,int color)
{
if(type<N_DISKACCESS) {
unsigned char *scrptr=(unsigned char *)MEM_PHYS_SCREEN;
scrptr+=65;
scrptr+=type*80;
*scrptr=(*scrptr&0xf)|(color<<4);
return;
}
else {
// TODO: DRAW CUSTOM ICONS INTO THE STATUS AREA FOR ALL OTHER ANNUNCIATORS
}
}
int halGetNotification(enum halNotification type)
{
if(type<N_DISKACCESS) {
unsigned char *scrptr=(unsigned char *)MEM_PHYS_SCREEN;
scrptr+=65;
scrptr+=type*80;
return *scrptr>>4;
}
else {
// TODO: IMPLEMENT CUSTOM ANNUNCIATORS
}
return 0;
}
void halSetStackHeight(int h)
{
int total;
halScreen.Stack=h;
total=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1+halScreen.Menu2;
if(total!=SCREEN_HEIGHT) {
if(halScreen.Form) { halScreen.Form+=SCREEN_HEIGHT-total; halScreen.DirtyFlag|=FORM_DIRTY; }
else halScreen.Stack=SCREEN_HEIGHT-halScreen.CmdLine-halScreen.Menu1-halScreen.Menu2;
if(halScreen.Form<0) {
halScreen.Stack+=halScreen.Form;
halScreen.Form=0;
}
}
halScreen.DirtyFlag|=STACK_DIRTY;
}
void halSetFormHeight(int h)
{
int total;
if(h<0) h=0;
halScreen.Form=h;
total=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1+halScreen.Menu2;
if(total!=SCREEN_HEIGHT) {
if(halScreen.Stack) { halScreen.Stack+=SCREEN_HEIGHT-total; halScreen.DirtyFlag|=STACK_DIRTY; }
else halScreen.Form=SCREEN_HEIGHT-halScreen.CmdLine-halScreen.Menu1-halScreen.Menu2;
if(halScreen.Stack<0) {
halScreen.Form+=halScreen.Stack;
halScreen.Stack=0;
}
}
halScreen.DirtyFlag|=FORM_DIRTY;
}
// MENU1 AREA IS USUALLY FIXED TO 1 LINE, BUT THIS IS GENERIC CODE
void halSetMenu1Height(int h)
{
int total;
if(h<0) h=0;
halScreen.Menu1=h;
total=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1+halScreen.Menu2;
while(total!=SCREEN_HEIGHT) {
// STRETCH THE STACK FIRST (IF ACTIVE), THEN FORM
if(halScreen.Stack) {
halScreen.Stack+=SCREEN_HEIGHT-total;
halScreen.DirtyFlag|=STACK_DIRTY;
if(halScreen.Stack<0) halScreen.Stack=0;
}
else {
halScreen.Form+=SCREEN_HEIGHT-total;
halScreen.DirtyFlag|=FORM_DIRTY;
if(halScreen.Form<0) {
halScreen.Menu1+=halScreen.Form;
halScreen.Form=0;
}
}
total=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1+halScreen.Menu2;
}
halScreen.DirtyFlag|=MENU1_DIRTY|CMDLINE_ALLDIRTY;
}
void halSetMenu2Height(int h)
{
int total;
if(h<0) h=0;
halScreen.Menu2=h;
total=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1+halScreen.Menu2;
while(total!=SCREEN_HEIGHT) {
// STRETCH THE STACK FIRST (IF ACTIVE), THEN FORM
if(halScreen.Stack) {
halScreen.Stack+=SCREEN_HEIGHT-total;
halScreen.DirtyFlag|=STACK_DIRTY;
if(halScreen.Stack<0) halScreen.Stack=0;
}
else {
halScreen.Form+=SCREEN_HEIGHT-total;
halScreen.DirtyFlag|=FORM_DIRTY;
if(halScreen.Form<0) {
halScreen.Menu2+=halScreen.Form;
halScreen.Form=0;
}
}
total=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1+halScreen.Menu2;
}
halScreen.DirtyFlag|=MENU1_DIRTY|MENU2_DIRTY|STAREA_DIRTY|CMDLINE_ALLDIRTY;
}
void halSetCmdLineHeight(int h)
{
int total;
int previous=halScreen.CmdLine;
if(h<0) h=0;
halScreen.CmdLine=h;
total=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1+halScreen.Menu2;
while(total!=SCREEN_HEIGHT) {
// STRETCH THE STACK FIRST (IF ACTIVE), THEN FORM
if(halScreen.Stack>1) {
halScreen.Stack+=SCREEN_HEIGHT-total;
halScreen.DirtyFlag|=STACK_DIRTY;
if(halScreen.Stack<1) halScreen.Stack=1;
}
else {
if(halScreen.Form>1) {
halScreen.Form+=SCREEN_HEIGHT-total;
halScreen.DirtyFlag|=FORM_DIRTY;
if(halScreen.Form<1) halScreen.Form=1;
}
else {
// STACK AND FORMS ARE AT MINIMUM
if(total>SCREEN_HEIGHT) halScreen.CmdLine=previous;
else {
// ENLARGE STACK
if(halScreen.Stack>0) {
halScreen.Stack+=SCREEN_HEIGHT-total;
halScreen.DirtyFlag|=STACK_DIRTY;
}
else {
// IF THE STACK IS CLOSED, THEN IT HAS TO BE A FORM!
halScreen.Form+=SCREEN_HEIGHT-total;
halScreen.DirtyFlag|=FORM_DIRTY;
}
}
}
}
total=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1+halScreen.Menu2;
}
halScreen.DirtyFlag|=CMDLINE_ALLDIRTY;
}
// COMPUTE HEIGHT AND WIDTH OF OBJECT TO DISPLAY ON STACK
BINT halGetDispObjectHeight(WORDPTR object,UNIFONT *font)
{
UNUSED_ARGUMENT(object);
// TODO: ADD MULTILINE OBJECTS, ETC.
return font->BitmapHeight;
}
const UBINT64 const powersof10[20];
// CONVERT INTEGER NUMBER INTO STRING FOR STACK LEVEL
// str MUST CONTAIN AT LEAST 15: BYTES "-1,345,789,123[NULL]"
void halInt2String(int num,char *str)
{
int pow10idx=9; // START WITH 10^10
int digit,firstdigit;
char *ptr=str;
if(num<0) { *ptr++='-'; num=-num; }
firstdigit=1;
do {
digit=0;
while((UBINT64)num>=powersof10[pow10idx]) { ++digit; num-=powersof10[pow10idx]; }
if(!( (digit==0) && firstdigit)) {
*ptr++=digit+'0';
firstdigit=0;
}
++pow10idx;
} while(num!=0);
if(firstdigit) *ptr++='0';
*ptr=0;
}
void halRedrawStack(DRAWSURFACE *scr)
{
if(halScreen.Stack==0) {
halScreen.DirtyFlag&=~STACK_DIRTY;
return;
}
int ystart=halScreen.Form,yend=ystart+halScreen.Stack;
int depth=rplDepthData(),level=1;
int objheight,ytop,y,numwidth,xright,xobj;
char num[16];
WORDPTR string;
BINT nchars;
BYTEPTR charptr;
UNIFONT *levelfnt;
y=yend;
while(y>ystart) {
if(level==1) levelfnt=halScreen.Stack1Font;
else levelfnt=halScreen.StackFont;
// DRAW THE NUMBER
if(level<=depth) objheight=halGetDispObjectHeight(rplPeekData(level),levelfnt);
else {
objheight=levelfnt->BitmapHeight;
}
ytop=y-objheight;
halInt2String(level,num);
numwidth=StringWidth(num,levelfnt);
xright=numwidth>12? numwidth:12;
ggl_cliprect(scr,scr->clipx,ytop,scr->clipx2,y-1,0); // CLEAR RECTANGLE
DrawText(xright-numwidth,ytop,num,levelfnt,0xf,scr);
ggl_clipvline(scr,xright,ytop,y-1,ggl_mkcolor(0x8));
if(level<=depth) {
// DRAW THE OBJECT
// TODO: CHANGE DECOMPILE INTO PROPER DISPLAY FUNCTION
string=rplDecompile(rplPeekData(level),0);
if(string) {
// NOW PRINT THE STRING OBJECT
nchars=rplStrSize(string);
charptr=(BYTEPTR) (string+1);
numwidth=StringWidthN((char *)charptr,(char *)charptr+nchars,levelfnt);
xobj=SCREEN_WIDTH-numwidth;
if(xobj<=xright) {
xobj=xright+1;
// TODO: OBJECT WILL BE TRUNCATED ON THE RIGHT
}
DrawTextN(xobj,ytop,(char *)charptr,(char *)charptr+nchars,levelfnt,15,scr);
}
else {
DrawText(SCREEN_WIDTH-44,ytop,"~~Unknown~~",levelfnt,15,scr);
}
}
y=ytop;
++level;
}
halScreen.DirtyFlag&=~STACK_DIRTY;
}
// INITIALIZE DEFAULT SCREEN PARAMETERS
void halInitScreen()
{
halFlags=0;
halScreen.HelpMode=0;
halScreen.CmdLine=0;
halScreen.Menu1=MENU1_HEIGHT;
halScreen.Menu2=MENU2_HEIGHT;
halScreen.Stack=1;
halSetFormHeight(0);
halScreen.DirtyFlag=STACK_DIRTY|MENU1_DIRTY|MENU2_DIRTY;
halScreen.SAreaTimer=0;
halScreen.CursorTimer=-1;
halScreen.KeyContext=CONTEXT_STACK;
halScreen.FormFont=halScreen.StackFont=halScreen.Stack1Font=(UNIFONT *)Font_8C;
halScreen.MenuFont=(UNIFONT *)Font_6A;
halScreen.StAreaFont=(UNIFONT *)Font_6A;
halScreen.CmdLineFont=(UNIFONT *)Font_8C;
halSetNotification(N_LEFTSHIFT,0);
halSetNotification(N_RIGHTSHIFT,0);
halSetNotification(N_ALPHA,0);
halSetNotification(N_LOWBATTERY,0);
halSetNotification(N_HOURGLASS,0);
halSetNotification(N_DISKACCESS,0);
// NOT NECESSARILY PART OF HALSCREEN, BUT INITIALIZE THE COMMAND LINE
uiCloseCmdLine();
halScreen.StkUndolevels=8;
halScreen.StkCurrentLevel=0;
}
void halRedrawHelp(DRAWSURFACE *scr)
{
if(!halScreen.Menu2) {
// SHOW THE SECOND MENU TO DISPLAY THE MESSAGE
halSetMenu2Height(MENU2_HEIGHT);
halRedrawAll(scr); // THIS CALL WILL CALL HERE RECURSIVELY
return; // SO IT'S BEST TO RETURN DIRECTLY
}
WORDPTR helptext;
WORD m1code=rplGetMenuCode(halScreen.HelpMode>>16);
WORDPTR MenuObj=uiGetLibMenu(m1code);
BINT nitems=uiCountMenuItems(m1code,MenuObj);
BINT k;
WORDPTR item;
// BASIC CHECK OF VALIDITY - COMMANDS MAY HAVE RENDERED THE PAGE NUMBER INVALID
// FOR EXAMPLE BY PURGING VARIABLES
if(MENUPAGE(m1code)>=(WORD)nitems) { m1code=SETMENUPAGE(m1code,0); rplSetMenuCode(halScreen.HelpMode>>16,m1code); }
if(((halScreen.HelpMode&0xffff)==5)&&(nitems>6)) {
halScreen.HelpMode=0; // CLOSE HELP MODE IMMEDIATELY
halRedrawAll(scr); // AND ISSUE A REDRAW
return;
}
// GET THE ITEM
item=uiGetMenuItem(m1code,MenuObj,(halScreen.HelpMode&0xffff)+MENUPAGE(m1code));
helptext=uiGetMenuItemHelp(item);
if(!helptext) {
halScreen.HelpMode=0; // CLOSE HELP MODE IMMEDIATELY
halRedrawAll(scr); // AND ISSUE A REDRAW
return;
}
if(ISIDENT(*helptext)) {
// THE HELP TEXT SHOULD BE THE OBJECT DECOMPILED
// SPECIAL CASE: FOR IDENTS LOOK FOR VARIABLES AND DRAW DIFFERENTLY IF IT'S A DIRECTORY
WORDPTR *var=rplFindGlobal(helptext,1);
if(!var) {
halScreen.HelpMode=0; // CLOSE HELP MODE IMMEDIATELY
halRedrawAll(scr); // AND ISSUE A REDRAW
return;
}
BINT SavedException=Exceptions;
BINT SavedErrorCode=ErrorCode;
Exceptions=0; // ERASE ANY PREVIOUS ERROR TO ALLOW THE DECOMPILER TO RUN
// DO NOT SAVE IPtr BECAUSE IT CAN MOVE
WORDPTR objdecomp=rplDecompile(var[1],0);
Exceptions=SavedException;
ErrorCode=SavedErrorCode;
if(!objdecomp) helptext=(WORDPTR)empty_string;
else helptext=objdecomp;
BINT ytop=halScreen.Form+halScreen.Stack+halScreen.CmdLine;
BINT ybot=ytop+halScreen.Menu1+halScreen.Menu2-1;
// CLEAR MENU2 AND STATUS AREA
ggl_cliprect(scr,0,ytop,SCREEN_WIDTH-1,ybot,0);
// DO SOME DECORATIVE ELEMENTS
ggl_cliphline(scr,ytop,0,SCREEN_WIDTH-1,0xf4f4f4f4);
// SHOW 3 LINES ONLY
BINT namew=StringWidthN((char *)(var[0]+1),((char *)(var[0]+1))+rplGetIdentLength(var[0]),halScreen.StAreaFont);
// SHOW THE NAME OF THE VARIABLE
DrawTextN(3,ytop+2,(char *)(var[0]+1),((char *)(var[0]+1))+rplGetIdentLength(var[0]),halScreen.StAreaFont,0xf,scr);
DrawText(3+namew,ytop+2,": ",halScreen.StAreaFont,0xf,scr);
namew+=3+StringWidth(": ",halScreen.StAreaFont);
BINT xend;
BYTEPTR basetext=(BYTEPTR) (helptext+1);
BYTEPTR endoftext=basetext+rplStrSize(helptext);
BYTEPTR nextline,endofline;
for(k=0;k<3;++k) {
xend=SCREEN_WIDTH-1-namew;
endofline=(BYTEPTR)StringCoordToPointer((char *)basetext,(char *)endoftext,halScreen.StAreaFont,&xend);
if(endofline<endoftext) {
// BACK UP TO THE NEXT WHITE CHARACTER
BYTEPTR whitesp=endofline;
while( (whitesp>basetext)&&(*whitesp!=' ')) --whitesp;
if(whitesp>=basetext) endofline=whitesp; // ONLY IF THERE'S WHITESPACES
}
nextline=endofline;
// SKIP ANY NEWLINE OR WHITE CHARACTERS
while( (nextline<endoftext) && ((*nextline==' ')||(*nextline=='\n')||(*nextline=='\t')||(*nextline=='\r'))) ++nextline;
// DRAW THE TEXT
DrawTextN(namew,ytop+2+k*halScreen.StAreaFont->BitmapHeight,(char *)basetext,(char *)endofline,halScreen.StAreaFont,0xf,scr);
basetext=nextline;
namew=3;
}
return;
}
BINT ytop=halScreen.Form+halScreen.Stack+halScreen.CmdLine;
BINT ybot=ytop+halScreen.Menu1+halScreen.Menu2-1;
// CLEAR MENU2 AND STATUS AREA
ggl_cliprect(scr,0,ytop,SCREEN_WIDTH-1,ybot,0);
// DO SOME DECORATIVE ELEMENTS
ggl_cliphline(scr,ytop,0,SCREEN_WIDTH-1,0xf4f4f4f4);
// SHOW MESSAGE'S FIRST 3 LINES ONLY
BINT currentline=0,nextline;
BYTEPTR basetext=(BYTEPTR) (helptext+1);
for(k=0;k<3;++k) {
nextline=rplStringGetLinePtr(helptext,2+k);
if(nextline<0) {
nextline=rplStrSize(helptext);
}
DrawTextN(3,ytop+2+k*halScreen.StAreaFont->BitmapHeight,(char *)basetext+currentline,(char *)basetext+nextline,halScreen.StAreaFont,0xf,scr);
currentline=nextline;
}
}
// REDRAW THE VARS MENU
void halRedrawMenu1(DRAWSURFACE *scr)
{
if(halScreen.HelpMode) {
// IN HELP MODE, JUST REDRAW THE HELP MESSAGE
halRedrawHelp(scr);
// NO NEED TO REDRAW OTHER MENUS OR THE STATUS AREA
halScreen.DirtyFlag&=~(MENU1_DIRTY|MENU2_DIRTY|STAREA_DIRTY);
return;
}
if(halScreen.Menu1==0) {
halScreen.DirtyFlag&=~MENU1_DIRTY;
return;
}
// TODO: EVERYTHING, SHOW EMPTY MENU FOR NOW
int ytop,ybottom;
int oldclipx,oldclipx2,oldclipy,oldclipy2;
ytop=halScreen.Form+halScreen.Stack+halScreen.CmdLine;
ybottom=ytop+halScreen.Menu1-1;
// DRAW BACKGROUND
ggl_cliprect(scr,0,ytop+1,SCREEN_WIDTH-1,ybottom,ggl_mkcolor(0xf));
ggl_cliphline(scr,ytop,0,SCREEN_WIDTH-1,ggl_mkcolor(8));
ggl_clipvline(scr,21,ytop,ybottom,0);
ggl_clipvline(scr,43,ytop,ybottom,0);
ggl_clipvline(scr,65,ytop,ybottom,0);
ggl_clipvline(scr,87,ytop,ybottom,0);
ggl_clipvline(scr,109,ytop,ybottom,0);
// DRAW VARS OF THE CURRENT DIRECTORY IN THIS MENU
oldclipx=scr->clipx;
oldclipx2=scr->clipx2;
oldclipy=scr->clipy;
oldclipy2=scr->clipy2;
WORD m1code=rplGetMenuCode(1);
WORDPTR MenuObj=uiGetLibMenu(m1code);
BINT nitems=uiCountMenuItems(m1code,MenuObj);
BINT k;
WORDPTR item;
// BASIC CHECK OF VALIDITY - COMMANDS MAY HAVE RENDERED THE PAGE NUMBER INVALID
// FOR EXAMPLE BY PURGING VARIABLES
if(MENUPAGE(m1code)>=(WORD)nitems) { m1code=SETMENUPAGE(m1code,0); rplSetMenuCode(1,m1code); }
// FIRST ROW
scr->clipy=ytop+1;
scr->clipy2=ytop+6;
for(k=0;k<5;++k) {
scr->clipx=22*k;
scr->clipx2=22*k+20;
item=uiGetMenuItem(m1code,MenuObj,k+MENUPAGE(m1code));
uiDrawMenuItem(item,0,scr);
}
// NOW DO THE NXT KEY
scr->clipx=22*k;
scr->clipx2=22*k+20;
if(nitems==6) {
item=uiGetMenuItem(m1code,MenuObj,5);
uiDrawMenuItem(item,0,scr);
} else {
if(nitems>6) {
DrawText(scr->clipx+1,scr->clipy,"NXT...",halScreen.MenuFont,0,scr);
}
}
scr->clipx=oldclipx;
scr->clipx2=oldclipx2;
scr->clipy=oldclipy;
scr->clipy2=oldclipy2;
halScreen.DirtyFlag&=~MENU1_DIRTY;
}
// REDRAW THE OTHER MENU
void halRedrawMenu2(DRAWSURFACE *scr)
{
if(halScreen.HelpMode) {
// IN HELP MODE, JUST REDRAW THE HELP MESSAGE
halRedrawHelp(scr);
// NO NEED TO REDRAW OTHER MENUS OR THE STATUS AREA
halScreen.DirtyFlag&=~(MENU1_DIRTY|MENU2_DIRTY|STAREA_DIRTY);
return;
}
if(halScreen.Menu2==0) {
halScreen.DirtyFlag&=~MENU2_DIRTY;
return;
}
int ytop,ybottom;
int oldclipx,oldclipx2,oldclipy,oldclipy2;
ytop=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1;
ybottom=ytop+halScreen.Menu2-1;
// DRAW BACKGROUND
ggl_cliprect(scr,0,ytop+1,STATUSAREA_X-2,ybottom,0);
ggl_clipvline(scr,21,ytop+1,ybottom,ggl_mkcolor(0x8));
ggl_clipvline(scr,43,ytop+1,ybottom,ggl_mkcolor(0x8));
ggl_clipvline(scr,STATUSAREA_X-1,ytop+1,ybottom,ggl_mkcolor(0x8));
// ggl_clipvline(scr,87,ytop,ybottom,0);
// ggl_clipvline(scr,109,ytop,ybottom,0);
ggl_cliphline(scr,ytop,0,STATUSAREA_X-1,ggl_mkcolor(0x8));
ggl_cliphline(scr,ytop+7,0,STATUSAREA_X-2,ggl_mkcolor(0x8));
// DRAW VARS OF THE CURRENT DIRECTORY IN THIS MENU
oldclipx=scr->clipx;
oldclipx2=scr->clipx2;
oldclipy=scr->clipy;
oldclipy2=scr->clipy2;
WORD m2code=rplGetMenuCode(2);
WORDPTR MenuObj=uiGetLibMenu(m2code);
BINT nitems=uiCountMenuItems(m2code,MenuObj);
BINT k;
WORDPTR item;
// BASIC CHECK OF VALIDITY - COMMANDS MAY HAVE RENDERED THE PAGE NUMBER INVALID
// FOR EXAMPLE BY PURGING VARIABLES
if(MENUPAGE(m2code)>=(WORD)nitems) { m2code=SETMENUPAGE(m2code,0); rplSetMenuCode(2,m2code); }
// FIRST ROW
scr->clipy=ytop+1;
scr->clipy2=ytop+6;
for(k=0;k<3;++k) {
scr->clipx=22*k;
scr->clipx2=22*k+20;
item=uiGetMenuItem(m2code,MenuObj,k+MENUPAGE(m2code));
uiDrawMenuItem(item,0xf,scr);
}
// SECOND ROW
scr->clipy=ytop+8;
scr->clipy2=ybottom;
for(k=0;k<2;++k) {
scr->clipx=22*k;
scr->clipx2=22*k+20;
item=uiGetMenuItem(m2code,MenuObj,k+3+MENUPAGE(m2code));
uiDrawMenuItem(item,0xf,scr);
}
// NOW DO THE NXT KEY
scr->clipx=22*k;
scr->clipx2=22*k+20;
if(nitems==6) {
item=uiGetMenuItem(m2code,MenuObj,5);
uiDrawMenuItem(item,0xf,scr);
} else {
if(nitems>6) {
DrawText(scr->clipx+1,scr->clipy,"NXT...",halScreen.MenuFont,0xf,scr);
}
}
scr->clipx=oldclipx;
scr->clipx2=oldclipx2;
scr->clipy=oldclipy;
scr->clipy2=oldclipy2;
halScreen.DirtyFlag&=~MENU2_DIRTY;
}
void halRedrawStatus(DRAWSURFACE *scr)
{
if(halScreen.HelpMode) {
// IN HELP MODE, JUST REDRAW THE HELP MESSAGE
halRedrawHelp(scr);
// NO NEED TO REDRAW OTHER MENUS OR THE STATUS AREA
halScreen.DirtyFlag&=~(MENU1_DIRTY|MENU2_DIRTY|STAREA_DIRTY);
return;
}
if(halScreen.Menu2) {
int ytop=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1;
ggl_cliprect(scr,STATUSAREA_X,ytop,SCREEN_WIDTH-1,ytop+halScreen.Menu2-1,0);
BINT xc,yc;
xc=scr->clipx;
yc=scr->clipy;
scr->clipx=STATUSAREA_X;
scr->clipy=ytop;
// AUTOCOMPLETE
if( halScreen.CmdLineState&CMDSTATE_ACACTIVE) {
BYTEPTR namest;
BYTEPTR nameend;
if(halScreen.ACSuggestion!=0) {
// DISPLAY THE CURRENTLY SELECTED AUTOCOMPLETE COMMAND IN THE
// SECOND LINE
if(!Exceptions) {
// BUT ONLY IF THERE WERE NO ERRORS
BINT y=ytop+halScreen.CmdLineFont->BitmapHeight;
// FOR NOW JUST DISPLAY THE SELECTED TOKEN
WORDPTR cmdname=rplDecompile(&halScreen.ACSuggestion,0);
if( (!cmdname) || Exceptions) {
// JUST IGNORE, CLEAR EXCEPTIONS AND RETURN;
Exceptions=0;
halScreen.DirtyFlag&=~STAREA_DIRTY;
return;
}
namest=(BYTEPTR)(cmdname+1);
nameend=namest+rplStrSize(cmdname);
DrawTextBkN(STATUSAREA_X+2,y,(char *)namest,(char *)nameend,(UNIFONT *)halScreen.StAreaFont,0xf,0x0,scr);
}
}
}
else {
// SHOW CURRENT PATH ON SECOND LINE
BINT nnames,j,width,xst;
WORDPTR pathnames[8],lastword;
BYTEPTR start,end;
BINT y=ytop+halScreen.CmdLineFont->BitmapHeight;
nnames=rplGetFullPath(CurrentDir,pathnames,8);
// COMPUTE THE WIDTH OF ALL NAMES
width=0;
for(j=nnames-1;j>=0;--j) {
if(ISIDENT(*pathnames[j])) {
start=(BYTEPTR)(pathnames[j]+1);
lastword=rplSkipOb(pathnames[j])-1;
if(*lastword&0xff000000) {
end=(BYTEPTR)(lastword+1);
width+=StringWidthN( (char *)start,(char *)end,(UNIFONT *)halScreen.StAreaFont);
}
else width+=StringWidth( (char *)start,(UNIFONT *)halScreen.StAreaFont);
}
}
// ADD WIDTH OF SYMBOLS
width+=4*nnames;
if(width>SCREEN_WIDTH-STATUSAREA_X) xst=SCREEN_WIDTH-width;
else xst=STATUSAREA_X;
// NOW DRAW THE PATH
for(j=nnames-1;j>=0;--j) {
if(ISIDENT(*pathnames[j])) {
start=(BYTEPTR)(pathnames[j]+1);
lastword=rplSkipOb(pathnames[j])-1;
DrawTextBk(xst,y,"/",(UNIFONT *)halScreen.StAreaFont,0xf,0x0,scr);
xst=scr->x;
if(*lastword&0xff000000) {
end=(BYTEPTR)(lastword+1);
DrawTextBkN(xst,y,(char *)start,(char *)end,(UNIFONT *)halScreen.StAreaFont,0xf,0,scr);
}
else DrawTextBk(xst,y,(char *)start,(UNIFONT *)halScreen.StAreaFont,0xf,0,scr);
xst=scr->x;
}
}
if(width>SCREEN_WIDTH-STATUSAREA_X) {
// FADE THE TEXT OUT
scr->x=STATUSAREA_X;
ggl_filter(scr,2,halScreen.CmdLineFont->BitmapHeight,0xA,&ggl_fltlighten);
scr->x+=2;
ggl_filter(scr,2,halScreen.CmdLineFont->BitmapHeight,0x6,&ggl_fltlighten);
scr->x+=2;
ggl_filter(scr,2,halScreen.CmdLineFont->BitmapHeight,0x4,&ggl_fltlighten);
}
}
// ANGLE MODE INDICATOR
{
BINT anglemode=rplTestSystemFlag(FL_ANGLEMODE1)|(rplTestSystemFlag(FL_ANGLEMODE2)<<1);
const char const *name[4]={
"∡°",
"∡r",
"∡g",
"∡d"
};
DrawTextBk(STATUSAREA_X+1,ytop+1,(char *)name[anglemode],(UNIFONT *)halScreen.StAreaFont,0xf,0x0,scr);
}
// COMPLEX MODE INDICATOR
if(rplTestSystemFlag(FL_COMPLEXMODE)) DrawTextBk(STATUSAREA_X+14,ytop+1,(char *)"C",(UNIFONT *)halScreen.StAreaFont,0xf,0x0,scr);
// ADD OTHER INDICATORS HERE
scr->clipx=xc;
scr->clipy=yc;
}
halScreen.DirtyFlag&=~STAREA_DIRTY;
}
void halRedrawCmdLine(DRAWSURFACE *scr)
{
if(halScreen.CmdLine) {
int ytop=halScreen.Form+halScreen.Stack;
if((halScreen.DirtyFlag&CMDLINE_ALLDIRTY)==CMDLINE_ALLDIRTY) {
ggl_cliprect(scr,0,ytop,SCREEN_WIDTH-1,ytop+halScreen.CmdLine-1,0);
ggl_cliphline(scr,ytop,0,SCREEN_WIDTH-1,0xf0f0f0f0);
}
BINT y=(halScreen.LineCurrent-halScreen.LineVisible)*halScreen.CmdLineFont->BitmapHeight;
BYTEPTR cmdline=(BYTEPTR) (CmdLineCurrentLine+1);
BINT nchars=rplStrSize(CmdLineCurrentLine);
if(halScreen.DirtyFlag&CMDLINE_DIRTY) {
// SHOW OTHER LINES HERE EXCEPT THE CURRENT EDITED LINE
BINT k;
BINT totallines=rplStringCountLines(CmdLineText);
for(k=0;k<halScreen.NumLinesVisible;++k) {
// UPDATE THE LINE
if(halScreen.LineVisible+k<1) continue;
if(halScreen.LineVisible+k>totallines) break;
if(halScreen.LineVisible+k==halScreen.LineCurrent) continue;
BINT startoff=rplStringGetLinePtr(CmdLineText,halScreen.LineVisible+k);
BINT endoff=rplStringGetLinePtr(CmdLineText,halScreen.LineVisible+k+1);
if(startoff<0) startoff=rplStrSize(CmdLineText);
if(endoff<0) endoff=rplStrSize(CmdLineText);
BYTEPTR string=(BYTEPTR)(CmdLineText+1)+startoff;
BYTEPTR selst,selend;
BYTEPTR strend=(BYTEPTR)(CmdLineText+1)+endoff;
BINT xcoord,tail;
selst=selend=strend;
tail=0;
if(halScreen.SelStartLine<halScreen.LineVisible+k) { selst=string; tail=1; }
if(halScreen.SelStartLine==halScreen.LineVisible+k) { selst=string+halScreen.SelStart; tail=1; }
if(halScreen.SelEndLine<halScreen.LineVisible+k) { selend=string; tail=0; }
if(halScreen.SelEndLine==halScreen.LineVisible+k) { selend=string+halScreen.SelEnd; tail=0; }
if(selend<=selst) selend=selst=string;
// DRAW THE LINE SPLIT IN 3 SECTIONS: string TO selst, selst TO selend, selend TO strend
xcoord=-halScreen.XVisible;
if(selst>string) {
DrawTextBkN(xcoord,ytop+2+k*halScreen.CmdLineFont->BitmapHeight,(char *)string,(char *)selst,(UNIFONT *)halScreen.CmdLineFont,0xf,0x0,scr);
xcoord+=StringWidthN((char *)string,(char *)selst,(UNIFONT *)halScreen.CmdLineFont);
}
if(selend>selst) {
DrawTextBkN(xcoord,ytop+2+k*halScreen.CmdLineFont->BitmapHeight,(char *)selst,(char *)selend,(UNIFONT *)halScreen.CmdLineFont,0xf,0x6,scr);
xcoord+=StringWidthN((char *)selst,(char *)selend,(UNIFONT *)halScreen.CmdLineFont);
}
if(strend>selend) {
DrawTextBkN(xcoord,ytop+2+k*halScreen.CmdLineFont->BitmapHeight,(char *)selend,(char *)strend,(UNIFONT *)halScreen.CmdLineFont,0xf,0x0,scr);
xcoord+=StringWidthN((char *)selend,(char *)strend,(UNIFONT *)halScreen.CmdLineFont);
}
if(tail) {
ggl_cliprect(scr,xcoord,ytop+2+k*halScreen.CmdLineFont->BitmapHeight,xcoord+3,ytop+2+(k+1)*halScreen.CmdLineFont->BitmapHeight-1,0x66666666);
xcoord+=3;
}
// CLEAR UP TO END OF LINE
ggl_cliprect(scr,xcoord,ytop+2+k*halScreen.CmdLineFont->BitmapHeight,SCREEN_W-1,ytop+2+(k+1)*halScreen.CmdLineFont->BitmapHeight-1,0);
}
}
if(halScreen.DirtyFlag&CMDLINE_LINEDIRTY) {
// UPDATE THE CURRENT LINE
BYTEPTR string=cmdline;
BYTEPTR selst,selend;
BYTEPTR strend=cmdline+nchars;
BINT xcoord,tail;
selst=selend=strend;
tail=0;
if(halScreen.SelStartLine<halScreen.LineCurrent) { selst=string; tail=1; }
if(halScreen.SelStartLine==halScreen.LineCurrent) { selst=string+halScreen.SelStart; tail=1; }
if(halScreen.SelEndLine<halScreen.LineCurrent) { selend=string; tail=0; }
if(halScreen.SelEndLine==halScreen.LineCurrent) { selend=string+halScreen.SelEnd; tail=0; }
if(selend<=selst) selend=selst=string;
// DRAW THE LINE SPLIT IN 3 SECTIONS: string TO selst, selst TO selend, selend TO strend
xcoord=-halScreen.XVisible;
if(selst>string) {
DrawTextBkN(xcoord,ytop+2+y,(char *)string,(char *)selst,(UNIFONT *)halScreen.CmdLineFont,0xf,0x0,scr);
xcoord+=StringWidthN((char *)string,(char *)selst,(UNIFONT *)halScreen.CmdLineFont);
}
if(selend>selst) {
DrawTextBkN(xcoord,ytop+2+y,(char *)selst,(char *)selend,(UNIFONT *)halScreen.CmdLineFont,0xf,0x6,scr);
xcoord+=StringWidthN((char *)selst,(char *)selend,(UNIFONT *)halScreen.CmdLineFont);
}
if(strend>selend) {
DrawTextBkN(xcoord,ytop+2+y,(char *)selend,(char *)strend,(UNIFONT *)halScreen.CmdLineFont,0xf,0x0,scr);
xcoord+=StringWidthN((char *)selend,(char *)strend,(UNIFONT *)halScreen.CmdLineFont);
}
if(tail) {
ggl_cliprect(scr,xcoord,ytop+2+y,xcoord+3,ytop+2+y+halScreen.CmdLineFont->BitmapHeight-1,0x66666666);
xcoord+=3;
}
// CLEAR UP TO END OF LINE
ggl_cliprect(scr,xcoord,ytop+2+y,SCREEN_W-1,ytop+2+y+halScreen.CmdLineFont->BitmapHeight-1,0);
}
if(halScreen.DirtyFlag&CMDLINE_CURSORDIRTY) {
// DRAW THE CURSOR
if(!(halScreen.CursorState&0x8000)) DrawTextBkN(halScreen.CursorX-halScreen.XVisible,ytop+2+y,(char *)&halScreen.CursorState,((char *)&halScreen.CursorState)+1,(UNIFONT *)halScreen.CmdLineFont,0x0,0xf,scr);
else {
scr->clipx=halScreen.CursorX-halScreen.XVisible;
scr->clipx2=scr->clipx+8; // HARD CODED MAXIMUM WIDTH OF THE CURSOR
if(scr->clipx2>=SCREEN_WIDTH) scr->clipx2=SCREEN_WIDTH-1;
// REDRAW THE PORTION OF COMMAND LINE UNDER THE CURSOR
if(!(halScreen.DirtyFlag&CMDLINE_LINEDIRTY))
{
// UPDATE THE CURRENT LINE
// UPDATE THE CURRENT LINE
BYTEPTR string=cmdline;
BYTEPTR selst,selend;
BYTEPTR strend=cmdline+nchars;
BINT xcoord,tail;
selst=selend=strend;
tail=0;
if(halScreen.SelStartLine<halScreen.LineCurrent) { selst=string; tail=1; }
if(halScreen.SelStartLine==halScreen.LineCurrent) { selst=string+halScreen.SelStart; tail=1; }
if(halScreen.SelEndLine<halScreen.LineCurrent) { selend=string; tail=0; }
if(halScreen.SelEndLine==halScreen.LineCurrent) { selend=string+halScreen.SelEnd; tail=0; }
if(selend<=selst) selend=selst=string;
// DRAW THE LINE SPLIT IN 3 SECTIONS: string TO selst, selst TO selend, selend TO strend
xcoord=-halScreen.XVisible;
if(selst>string) {
DrawTextBkN(xcoord,ytop+2+y,(char *)string,(char *)selst,(UNIFONT *)halScreen.CmdLineFont,0xf,0x0,scr);
xcoord+=StringWidthN((char *)string,(char *)selst,(UNIFONT *)halScreen.CmdLineFont);
}
if(selend>selst) {
DrawTextBkN(xcoord,ytop+2+y,(char *)selst,(char *)selend,(UNIFONT *)halScreen.CmdLineFont,0xf,0x6,scr);
xcoord+=StringWidthN((char *)selst,(char *)selend,(UNIFONT *)halScreen.CmdLineFont);
}
if(strend>selend) {
DrawTextBkN(xcoord,ytop+2+y,(char *)selend,(char *)strend,(UNIFONT *)halScreen.CmdLineFont,0xf,0x0,scr);
xcoord+=StringWidthN((char *)selend,(char *)strend,(UNIFONT *)halScreen.CmdLineFont);
}
if(tail) {
ggl_cliprect(scr,xcoord,ytop+2+y,xcoord+3,ytop+2+y+halScreen.CmdLineFont->BitmapHeight-1,0x66666666);
xcoord+=3;
}
// CLEAR UP TO END OF LINE
ggl_cliprect(scr,xcoord,ytop+2+y,SCREEN_W-1,ytop+2+y+halScreen.CmdLineFont->BitmapHeight-1,0);
}
// RESET THE CLIPPING RECTANGLE BACK TO WHOLE SCREEN
scr->clipx=0;
scr->clipx2=SCREEN_WIDTH-1;
scr->clipy=0;
scr->clipy2=SCREEN_HEIGHT-1;
}
}
}
halScreen.DirtyFlag&=~CMDLINE_ALLDIRTY;
}
void halForceRedrawAll(DRAWSURFACE *scr)
{
halRedrawStack(scr);
halRedrawCmdLine(scr);
halRedrawMenu1(scr);
halRedrawMenu2(scr);
halRedrawStatus(scr);
}
void halRedrawAll(DRAWSURFACE *scr)
{
if(halScreen.DirtyFlag&STACK_DIRTY) halRedrawStack(scr);
if(halScreen.DirtyFlag&CMDLINE_ALLDIRTY) halRedrawCmdLine(scr);
if(halScreen.DirtyFlag&MENU1_DIRTY) halRedrawMenu1(scr);
if(!halScreen.SAreaTimer) {
// ONLY REDRAW IF THERE'S NO POPUP MESSAGES
if(halScreen.DirtyFlag&MENU2_DIRTY) halRedrawMenu2(scr);
if(halScreen.DirtyFlag&STAREA_DIRTY) halRedrawStatus(scr);
}
}
void status_popup_handler()
{
DRAWSURFACE scr;
ggl_initscr(&scr);
halRedrawMenu2(&scr);
halRedrawStatus(&scr);
halScreen.SAreaTimer=0;
}
// WILL KEEP THE STATUS AREA AS-IS FOR 5 SECONDS, THEN REDRAW IT
// TO CLEAN UP POP-UP MESSAGES
void halStatusAreaPopup()
{
if(halScreen.SAreaTimer) {
tmr_eventkill(halScreen.SAreaTimer);
//tmr_eventpause(halScreen.SAreaTimer);
//tmr_eventresume(halScreen.SAreaTimer); // PAUSE/RESUME WILL RESTART THE 5 SECOND COUNT
//return;
}
halScreen.SAreaTimer=tmr_eventcreate(&status_popup_handler,3000,0);
}
// WILL KEEP THE STATUS AREA AS-IS FOR 5 SECONDS, THEN REDRAW IT
// TO CLEAN UP POP-UP MESSAGES
void halErrorPopup()
{
if(halScreen.SAreaTimer) {
tmr_eventkill(halScreen.SAreaTimer);
//tmr_eventpause(halScreen.SAreaTimer);
//tmr_eventresume(halScreen.SAreaTimer); // PAUSE/RESUME WILL RESTART THE 3 SECOND COUNT
//return;
}
halScreen.SAreaTimer=tmr_eventcreate(&status_popup_handler,3000,0);
}
// DECOMPILE THE OPCODE NAME IF POSSIBLE
WORDPTR halGetCommandName(WORDPTR NameObject)
{
WORD Opcode=*NameObject;
if(ISPROLOG(Opcode)) {
// ONLY ACCEPT IDENTS AND STRINGS AS COMMAND NAMES
if(!ISSTRING(Opcode) && !ISIDENT(Opcode)) return 0;
}
BINT SavedException=Exceptions;
BINT SavedErrorCode=ErrorCode;
Exceptions=0; // ERASE ANY PREVIOUS ERROR TO ALLOW THE DECOMPILER TO RUN
// DO NOT SAVE IPtr BECAUSE IT CAN MOVE
WORDPTR opname=rplDecompile(NameObject,0);
Exceptions=SavedException;
ErrorCode=SavedErrorCode;
return opname;
}
// RETRIEVES A NULL-TERMINATED MESSAGE BASED ON MESSAGE CODE
BYTEPTR halGetMessage(WORD errorcode)
{
MSGLIST *ptr=(MSGLIST *)all_messages;
while(ptr->code) {
if(ptr->code==errorcode) return (BYTEPTR)ptr->text;
ptr++;
}
// MESSAGE 0 IS THE UNKNOWN ERROR MESSAGE
return (BYTEPTR)all_messages[0].text;
}
// DISPLAY AN ERROR BOX FOR 5 SECONDS WITH AN ERROR MESSAGE
// USES ERROR CODE FROM SYSTEM Exceptions
void halShowErrorMsg()
{
int errbit;
if(!Exceptions) return;
DRAWSURFACE scr;
ggl_initscr(&scr);
if(!halScreen.Menu2) {
// SHOW THE SECOND MENU TO DISPLAY THE MESSAGE
halSetMenu2Height(MENU2_HEIGHT);
halRedrawAll(&scr);
}
BINT ytop=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1;
// CLEAR MENU2 AND STATUS AREA
ggl_cliprect(&scr,0,ytop,SCREEN_WIDTH-1,ytop+halScreen.StAreaFont->BitmapHeight-1,ggl_mkcolor(6));
ggl_cliprect(&scr,0,ytop+halScreen.StAreaFont->BitmapHeight,SCREEN_WIDTH-1,ytop+halScreen.Menu2-1,0);
// DO SOME DECORATIVE ELEMENTS
//ggl_cliphline(&scr,ytop,0,SCREEN_WIDTH-1,ggl_mkcolor(8));
ggl_cliphline(&scr,ytop+halScreen.Menu2-1,0,SCREEN_WIDTH-1,ggl_mkcolor(8));
ggl_clipvline(&scr,0,ytop+halScreen.StAreaFont->BitmapHeight,ytop+halScreen.Menu2-2,ggl_mkcolor(6));
ggl_clipvline(&scr,SCREEN_WIDTH-1,ytop+1,ytop+halScreen.Menu2-2,ggl_mkcolor(6));
scr.clipx=1;
scr.clipx2=SCREEN_WIDTH-2;
scr.clipy=ytop;
scr.clipy2=ytop+halScreen.Menu2-2;
// SHOW ERROR MESSAGE
if(Exceptions!=EX_ERRORCODE) {
BINT xstart=scr.clipx;
if(*ExceptionPointer!=0) { // ONLY IF THERE'S A VALID COMMAND TO BLAME
WORDPTR cmdname=halGetCommandName(ExceptionPointer);
if(cmdname) {
BYTEPTR start=(BYTEPTR)(cmdname+1);
BYTEPTR end=start+rplStrSize(cmdname);
xstart+=StringWidthN((char *)start,(char *)end,halScreen.StAreaFont);
DrawTextN(scr.clipx,scr.clipy,(char *)start,(char *)end,halScreen.StAreaFont,0xf,&scr);
xstart+=4;
}
}
DrawText(xstart,scr.clipy,"Exception:",halScreen.StAreaFont,0xf,&scr);
BINT ecode;
for(errbit=0;errbit<8;++errbit) // THERE'S ONLY A FEW EXCEPTIONS IN THE NEW ERROR MODEL
{
if(Exceptions&(1<<errbit)) {
ecode=MAKEMSG(0,errbit);
BYTEPTR message=halGetMessage(ecode);
DrawText(scr.clipx,scr.clipy+halScreen.StAreaFont->BitmapHeight,(char *)message,halScreen.StAreaFont,0xf,&scr);
break;
}
}
}
else {
// TRY TO DECOMPILE THE OPCODE THAT CAUSED THE ERROR
BINT xstart=scr.clipx;
if(*ExceptionPointer!=0) { // ONLY IF THERE'S A VALID COMMAND TO BLAME
WORDPTR cmdname=halGetCommandName(ExceptionPointer);
if(cmdname) {
BYTEPTR start=(BYTEPTR)(cmdname+1);
BYTEPTR end=start+rplStrSize(cmdname);
xstart+=StringWidthN((char *)start,(char *)end,halScreen.StAreaFont);
DrawTextN(scr.clipx,scr.clipy,(char *)start,(char *)end,halScreen.StAreaFont,0xf,&scr);
xstart+=4;
}
}
DrawText(xstart,scr.clipy,"Error:",halScreen.StAreaFont,0xf,&scr);
// GET NEW TRANSLATABLE MESSAGES
WORDPTR message=uiGetLibMsg(ErrorCode);
if(message) {
BYTEPTR msgstart=(BYTEPTR)(message+1);
BYTEPTR msgend=msgstart+rplStrSize(message);
DrawTextN(scr.clipx,scr.clipy+halScreen.StAreaFont->BitmapHeight,(char *)msgstart,(char *)msgend,halScreen.StAreaFont,0xf,&scr);
}
else {
BYTEPTR message2=halGetMessage(ErrorCode);
DrawText(scr.clipx,scr.clipy+halScreen.StAreaFont->BitmapHeight,(char *)message2,halScreen.StAreaFont,0xf,&scr);
}
}
halErrorPopup();
}
void halShowMsgN(char *Text,char *End)
{
DRAWSURFACE scr;
ggl_initscr(&scr);
if(!halScreen.Menu2) {
// SHOW THE SECOND MENU TO DISPLAY THE MESSAGE
halSetMenu2Height(MENU2_HEIGHT);
halRedrawAll(&scr);
}
BINT ytop=halScreen.Form+halScreen.Stack+halScreen.CmdLine+halScreen.Menu1;
// CLEAR MENU2 AND STATUS AREA
ggl_cliprect(&scr,0,ytop,SCREEN_WIDTH-1,ytop+halScreen.Menu2-1,0);
// DO SOME DECORATIVE ELEMENTS
ggl_cliphline(&scr,ytop+1,1,SCREEN_WIDTH-2,ggl_mkcolor(8));
ggl_cliphline(&scr,ytop+halScreen.Menu2-1,1,SCREEN_WIDTH-2,ggl_mkcolor(8));
ggl_clipvline(&scr,1,ytop+2,ytop+halScreen.Menu2-2,ggl_mkcolor(8));
ggl_clipvline(&scr,SCREEN_WIDTH-2,ytop+2,ytop+halScreen.Menu2-2,ggl_mkcolor(8));
// SHOW MESSAGE
DrawTextN(3,ytop+3,Text,End,halScreen.StAreaFont,0xf,&scr);
halErrorPopup();
}
void halShowMsg(char *Text)
{
char *End=Text;
while(*End) ++End;
halShowMsgN(Text,End);
}
Reference in a new issue View git blame Copy permalink