// calc.c
#define GBUFFER_SIZE 1024
#include "comdefs_app.h"
#define NOTMEMCPY_ENABLE
#define NOTSTRCMP_ENABLE
#define NOTSTRCPY_ENABLE
#define NOTATOD_ENABLE
#define FPTOA_ENABLE
#define NOTSTRLEN_ENABLE
#define NOTSTRAPPEND_ENABLE
#define NOTMEMSET_ENABLE
#define NOTFWRITE_ENABLE
#define NOTITOA10_ENABLE
#define NOTATOI10_ENABLE
#define NOTSTRREV_ENABLE
#define NOTFGETS_ENABLE
#define _START_ENABLE
#define _SYSCALL_ENABLE
#include "notlibc.h"
#define BKGNDGREY RGB(192,192,192)
static char mem_slab[GBUFFER_SIZE]={0};
static char gbuffer[GBUFFER_SIZE]={0};

unsigned char gdisplaystr[MAX_DISPLAYSTR_LEN], gfisnumberentering, gbinop;
unsigned int gdisplaystrlen, gfnotexit;
double gax, gbx;
signed short gFRectx1, gFRecty1, gFRectx2, gFRecty2, gRectx1, gRecty1, gRectx2, gRecty2;
signed short gCentertextx, gCentertexty, gLefttextx, gLefttexty, gRighttextx, gRighttexty;
unsigned int kbdcolor[KBDROWS*KBDCOLS] = { ADMINCLR, ADMINCLR, ADMINCLR, OPCLR, NUMCLR, NUMCLR, NUMCLR, OPCLR,
 NUMCLR, NUMCLR, NUMCLR, OPCLR, NUMCLR, NUMCLR, NUMCLR, OPCLR, NUMCLR, NUMCLR, NUMCLR, OPCLR };
unsigned char *kbdstr[KBDROWS*KBDCOLS] = { "Off", "C", "<x]", "*" , "7", "8", "9", "/", "4", "5", "6", "+",
 "1", "2", "3", "-", "0", ".", "+/-", "=" };

#define COND_SNS( l, g ) ( ( l == g ) ? ( prov = notstrappend( prov, "*" ) ) : ( prov = notitoa10( notstrappend( prov, " "), g = l ) ) )
void cached_frectangle_server( int f, int x1, int y1, int x2, int y2)
{
    char *prov=gbuffer;
    prov=notstrcpy( prov, "FR " );prov=notitoa10( prov, f );
    COND_SNS( x1, gFRectx1 ); COND_SNS( y1, gFRecty1 ); COND_SNS( x2, gFRectx2 ); COND_SNS( y2, gFRecty2 ); 
    notstrappend( prov, "\n" );notfwrite( 1, gbuffer );
}
void cached_rectangle_server( int f, int x1, int y1, int x2, int y2 )
{
    char *prov=gbuffer;
    prov=notstrcpy( prov, "R " );prov=notitoa10( prov, f );
    COND_SNS( x1, gRectx1 ); COND_SNS( y1, gRecty1 ); COND_SNS( x2, gRectx2 ); COND_SNS( y2, gRecty2 );
    notstrappend( prov, "\n" );notfwrite( 1, gbuffer );
}
void cached_lefttext_server( int f, int x, int y, unsigned char *str, int x1, int y1, int x2, int y2 )
{
    char *prov=gbuffer;
    prov=notstrcpy( prov, "L$ " );prov=notitoa10( prov, f );
    COND_SNS( x, gLefttextx ); COND_SNS( y, gLefttexty );
    prov=notstrappend( prov, "\"" ); prov=notstrappend( prov, str ); prov=notstrappend( prov, "\"\n" );notfwrite( 1, gbuffer );
}
void cached_centertext_server( int f, int x, int y, unsigned char *str )
{
    char *prov=gbuffer;
    prov=notstrcpy( prov, "C$ " );prov=notitoa10( prov, f );
    COND_SNS( x, gCentertextx ); COND_SNS( y, gCentertexty ); 
    prov=notstrappend( prov, "\"" ); prov=notstrappend( prov, str ); prov=notstrappend( prov, "\"\n" );notfwrite( 1, gbuffer );
}
void cached_righttext_server( int f, int x, int y, unsigned char *str )
{
    char *prov=gbuffer;
    prov=notstrcpy( prov, "R$ " );prov=notitoa10( prov, f );
    COND_SNS( x, gRighttextx ); COND_SNS( y, gRighttexty );
    prov=notstrappend( prov, "\"" ); prov=notstrappend( prov, str ); prov=notstrappend( prov, "\"\n" );notfwrite( 1, gbuffer );
}

void displaystr( int font, char *psz, int color )
{
    char *prov=gbuffer;
    prov=notstrcpy(prov, "F "); prov=notitoa10( prov, font ); prov=notstrappend( prov, " " ); prov=notitoa10( prov, RGB(255,255,255) );
    prov=notstrappend( prov, "\n" );notfwrite( 1, gbuffer ); prov=gbuffer;
    cached_frectangle_server( font, 0, 0, 9900, 600 );
    prov=notstrcpy(prov, "F "); prov=notitoa10( prov, font ); prov=notstrappend( prov, " " ); prov=notitoa10( prov, color );
    prov=notstrappend( prov, "\n" );notfwrite( 1, gbuffer ); prov=gbuffer;
    cached_rectangle_server( font, 100, 100, 9800, 500 ); 
    cached_righttext_server( font, 9800, 520, psz );
    notfwrite( 1, "Z \n" );
}
void drawapp( void )
{
    int row, col; 
    gFRectx1=-1; gFRecty1=-1; gFRectx2=-1; gFRecty2=-1;
    gRectx1=-1; gRecty1=-1; gRectx2=-1; gRecty2=-1;
    gCentertextx=-1; gCentertexty=-1;
    gLefttextx=-1; gLefttexty=-1;
    gRighttextx=-1; gRighttexty=-1;
    notfwrite( 1, "Fo 0 611 3\nFo 2 140 3\n" );
    FOREGROUND(0,RGB(255,255,255));
    cached_frectangle_server( 0, 0, 0, 10000, 10000 );
    FOREGROUND(0,RGB(192,192,192));
    LOOPOVERROWSCOLS
        cached_frectangle_server(0, col*XSPACING+XINITIAL-10, row*YSPACING+YINITIAL+YOFFSET-10, (col+1)*XSPACING+XINITIAL-90, (row+1)*YSPACING+YINITIAL+YOFFSET-90 );
    ENDLOOPOVERROWSCOLS
    FOREGROUND(0,RGB(15,15,15));
    LOOPOVERROWSCOLS
        cached_rectangle_server(0, col*XSPACING+XINITIAL, row*YSPACING+YINITIAL+YOFFSET, (col+1)*XSPACING+XINITIAL-100, (row+1)*YSPACING+YINITIAL+YOFFSET-100 );
    ENDLOOPOVERROWSCOLS
    BACKGROUND(0,RGB(192,192,192));
    TEXTBUTTONS(NUMCLR) TEXTBUTTONS(ADMINCLR) TEXTBUTTONS(OPCLR)
    notfwrite( 1, "F 0 255\nC$ 0 5000 800\"C cloud app\"\n" );
    notfwrite( 1, "F 2 255\n" );
    notfwrite( 1, "C$ 2 5000 7200\"Corrie Zucker Technologies LLC.\"\n" );
    notfwrite( 1, "C$ 2 5000 7340\"d/b/a CZ Technologies\"\nZ \n" );
    if ( *gdisplaystr ) { displaystr( 0, gdisplaystr, RGB(92,92,127) ); }
    else { displaystr( 0, "0", RGB(92,92,127) ); }
}
void buildstr( unsigned char ch )
{
    if ( gfisnumberentering )
        {
        if ( gdisplaystrlen < ( MAX_DISPLAYSTR_LEN - 1 ) )
            {
            gdisplaystr[gdisplaystrlen++] = ch;
	    gdisplaystr[gdisplaystrlen] = '\0';
	    }
       	}
    else
        {
	gdisplaystr[gdisplaystrlen=0] = ch;
       	gdisplaystr[++gdisplaystrlen] = '\0';
       	gfisnumberentering = 1;
       	}
}
void key_to_exe( int rowcol )
{
    switch ( rowcol )
        {
    case RC(1,0): case RC(1,1): case RC(1,2): case RC(2,0): case RC(2,1): case RC(2,2): case RC(3,0): case RC(3,1): case RC(3,2): case RC(4,0): case RC(4,1):
        buildstr( kbdstr[rowcol][0] );
       	displaystr( 0, gdisplaystr, RGB(92,92,127) );
       	break;
    case RC(0,0):
       	notfwrite( 1, "O 0 0 0\n" );
       	gfnotexit=0;
       	break;
    case RC(0,1):
       	gdisplaystr[gdisplaystrlen=0] = '\0';
       	displaystr( 0, "0", RGB(92,92,127) );
       	gfisnumberentering = 0;
       	break;
    case RC(0,2):
       	if ( gdisplaystrlen > 0 )
            {
            if ( gdisplaystrlen == 1 ) { displaystr( 0, "0", RGB(92,92,127) ); }
            gdisplaystr[--gdisplaystrlen] = '\0';
            if ( gdisplaystrlen > 0 ) { displaystr( 0, gdisplaystr, RGB(92,92,127) ); }
	    }
	break;
    case RC(4,2):
       	if ( gdisplaystrlen > 0 )
            {
            if ( gdisplaystr[0] == '-' )
	        {
                notmemcpy( gdisplaystr, gdisplaystr+1, gdisplaystrlen-- );
                gdisplaystr[gdisplaystrlen] = '\0';
                }
	    else if ( gdisplaystrlen < ( MAX_DISPLAYSTR_LEN - 1 ) )
	       	{
                notmemcpy( gdisplaystr+1, gdisplaystr, ++gdisplaystrlen );
                gdisplaystr[0] = '-';
	       	}
            displaystr( 0, gdisplaystr, RGB(92,92,127) );
	    }
        break;
    case RC(0,3): case RC(1,3): case RC(2,3): case RC(3,3):
       	gbinop = kbdstr[rowcol][0];
       	notatod( gdisplaystr, &gax );
        gfisnumberentering = 0;
       	break;
    case RC(4,3):
       	if ( gfisnumberentering )
            {
            notatod( gdisplaystr, &gbx );
	    gfisnumberentering = 0;
	    }
        switch ( gbinop )
            {
        case '*': gax *= gbx; break;
       	case '/': gax /= gbx; break;
       	case '+': gax += gbx; break;
       	case '-': gax -= gbx; break;
	    }
        drawapp();
        fptoa( gdisplaystr, gax );
       	gdisplaystrlen = notstrlen( gdisplaystr );
       	displaystr( 0, gdisplaystr, RGB(92,92,127) );
       	break;
       	}
}

int _NOTMAIN( int argc, char **argv )
{
    int button, x, y, row, col;
    char *ptr;
    gfnotexit = 1;
    button = 0;
    x = 0;
    y = 0;
    while ( gfnotexit && notfgets( gbuffer, GBUFFER_SIZE, 0 ) )
        {
        if ( notstrcmp( gbuffer, "drawapp\n" ) == 0 )
            {
            drawapp();
            }
       	else
            {
            ptr = notatoi10( gbuffer, &button );
            if ( *ptr == ' ' ) { ptr++; }
            ptr = notatoi10( ptr, &x );
            if ( *ptr == ' ' ) { ptr++; }
            ptr = notatoi10( ptr, &y );
            switch ( (x<0)? x : button )
	        {
            case 1:
                row = Y_TO_ROW(y);
	       	col = X_TO_COL(x);
                if ( ( row >= 0 ) && ( row < KBDROWS ) && ( col >= 0 ) && ( col < KBDCOLS ) ) { key_to_exe( row*KBDCOLS+col ); }
	       	break;
            case -4:
                ptr=notstrcpy(gbuffer, "Rz "); ptr=notitoa10( ptr, button ); ptr=notstrappend( ptr, " " ); ptr=notitoa10( ptr, y );
                ptr=notstrcpy(ptr, "\n"); notfwrite( 1, gbuffer );
	       	break;
            case -5:
                ptr=notstrcpy(gbuffer, "Mv "); ptr=notitoa10( ptr, button ); ptr=notstrappend( ptr, " " ); ptr=notitoa10( ptr, y );
                ptr=notstrcpy(ptr, "\n"); notfwrite( 1, gbuffer );
                drawapp();
	       	break;
            case -2:
                switch ( button )
                    {
                case 'o': case 'O': key_to_exe( 0 ); break;
	       	case 'c': case 'C': key_to_exe( 1 ); break;
	       	case 8: key_to_exe( 2 ); break;
                case '*': key_to_exe( 3 ); break;
	       	case '7': key_to_exe( 4 ); break;
	       	case '8': key_to_exe( 5 ); break;
                case '9': key_to_exe( 6 ); break;
	       	case '/': key_to_exe( 7 ); break;
	       	case '4': key_to_exe( 8 ); break;
                case '5': key_to_exe( 9 ); break;
	       	case '6': key_to_exe( 10 ); break;
	       	case '+': key_to_exe( 11 ); break;
                case '1': key_to_exe( 12 ); break;
	       	case '2': key_to_exe( 13 ); break;
	       	case '3': key_to_exe( 14 ); break;
                case '-': key_to_exe( 15 ); break;
	       	case '0': key_to_exe( 16 ); break;
	       	case '.': key_to_exe( 17 ); break;
                case 'I': case 'i': key_to_exe( 18 ); break;
	       	case '=': key_to_exe( 19 ); break;
                    }
	       	break;
            //case -98: usleep(100*y); break; 
                }
	    }
       	}
    _EXIT(0);
}