joe/ncurses
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
e4f468da4b49e122028a1b40efecabe93070be51
ncurses/tiahv7.cc

928 lines
16 KiB
C++
Raw Normal View History

initial checkin from subversion
2017-02-07 20:07:58 +00:00
#include <curses.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
struct data // Eine Zeile Speicher
{
struct data* plast;
struct data* pnext;
unsigned char vals[16];
unsigned long zeile;
char len;
};
struct cpos // Cursor-Position
{
char x,y;
}pos;
char insovr='O'; // Isert/Override-Mode
int mode=1;
WINDOW *stdscr,*woffs,*whex, *wascii, *wtop, *wbot;
const char *topline= " Offset Hex ASCII ";
char xoffs[] = "12345678",*soffs;
char xhex[] = " 14 15 16 32 32 34 20 54 61 67 65 73 61 6D 74 0D ",*shex;
char xascii[] = "1234567890123456",*sascii;
char empty78[]=" ";
int result;
char *filename;
char *ptv="12345678";
FILE *fp;
int ipoint;
data daten, *pdaten, *pfirst, *phelp, *pmax;
void initvar()
{
pfirst=&daten;
(*pfirst).plast=NULL;
(*pfirst).pnext=NULL;
(*pfirst).zeile=0;
(*pfirst).len=0;
soffs=xoffs;
shex=xhex;
sascii=xascii;
}
void miniinit()
{
xoffs = " ";
xhex = " ";
xascii = " ";
}
int screeninit()
{
int retval=0;
stdscr= initscr();
if(start_color()) retval=1;
nonl();
intrflush(stdscr, FALSE);
keypad(stdscr, TRUE);
// Zwei Fenster
woffs =newwin(18,10,3 ,0 );
whex =newwin(18,52,3 ,10);
wascii=newwin(18,18,3 ,62);
wtop =newwin(3 ,80,0 ,0 );
wbot =newwin(4 ,80,21,0 );
// Scrollen erlauben
scrollok(woffs,1);
scrollok(whex,1);
scrollok(wascii,1);
// Tastatureingabe erlauben
keypad(stdscr,1);
keypad(whex,1);
keypad(wascii,1);
// Echo ausschalten
noecho();
// Cursor auf Gro<72> setzen
// if(curs_set(2)==ERR) retval=1 ;
// Color-Pairs anlegen (Farbkombinationen)
if(init_pair(1,COLOR_BLUE,COLOR_BLACK)) retval=1;
if(init_pair(2,COLOR_CYAN,COLOR_BLACK)) retval=1;
if(init_pair(3,COLOR_MAGENTA,COLOR_BLACK)) retval=1;
wattrset(woffs,COLOR_PAIR(1));
wattrset(whex,COLOR_PAIR(1));
wattrset(wascii,COLOR_PAIR(1));
wattrset(wbot,COLOR_PAIR(1));
wattrset(wtop,COLOR_PAIR(1));
box(woffs,0,0);
box(whex,0,0);
box(wascii,0,0);
box(wtop,0,0);
box(wbot,0,0);
wattrset(woffs,COLOR_PAIR(2));
wattrset(whex,COLOR_PAIR(2));
wattrset(wascii,COLOR_PAIR(2));
wattrset(wtop,COLOR_PAIR(3));
wattrset(wbot,COLOR_PAIR(2));
return(retval);
}
char* tonumsysx(int base10,int newbase)
{
int erg;
int rest=0;
int pos=0;
int i;
static char swap[9];
char c[9];
swap="********";
c[pos]='0'+rest;
while (base10 > 0)
{
erg=base10/newbase;
rest=base10%newbase;
if (rest <= 9)
c[pos]='0'+rest;
else
c[pos]='A'+(rest-10);
base10=erg;
pos++;
c[pos]='\0';
}
while(pos < 8)
{
c[pos]='0';
pos++;
}
pos--;
for (i=0;i<=pos;i++)
{
swap[i]=c[pos-i];
}
return(swap);
}
unsigned long xto10(char *c, int oldbase)
{
unsigned long base10=0;
unsigned long rest,erg;
int pos=0;
int i;
for (i=0;c[i];i++, c[i]=toupper(c[i]));
while(c[pos++]);
pos--;
int len=pos-1;
while(pos--)
{
if(isdigit(c[len-pos]))
{
base10 = base10 + (unsigned long)( (double)(c[len-pos]-'0') * ( pow( (double)oldbase,(double)pos ) ) ) ;
}
else
{
base10 = base10 + (unsigned long)( ((double)(c[len-pos]-'A')+10) * ( pow( (double)oldbase,(double)pos ) ) );
}
}
return(base10);
}
int loadcontents()
{
int retval=0;
int x;
char ch;
int k=0;
unsigned long zeile=0;
pdaten=pfirst;
ch=fgetc(fp);
// Zero-byte-file.
if(feof(fp))
{
fprintf(stderr,"opening 0-Byte file");
pfirst=pmax=pdaten=(data*)(malloc(sizeof(daten)));
(*pdaten).pnext=NULL;
(*pdaten).plast=NULL;
(*pdaten).zeile=0;
(*pdaten).len=0;
}
printf("Printing hashmark for every 8 Kbytes.\n");
while (!(feof(fp)))
{
for(x=0;x<16;x++)
{
((*pdaten).vals[x])=ch;
if (feof(fp)) //(*pdaten).vals[x]==EOF)
{
(*pdaten).vals[x]=0;
break;
}
(*pdaten).len=x+1;
ch=fgetc(fp);
}
(*pdaten).zeile=zeile++;
if(!(feof(fp)))
{
phelp=pdaten;
if (!(zeile%500)) {fprintf(stderr,"%c",'#');}
pdaten=((*pdaten).pnext)=(data*)(malloc(sizeof(daten)));
// BUG: Check for Memory-Full does not work.
if(!pdaten) {abort();}
(*pdaten).plast=phelp;
(*pdaten).pnext=NULL;
}
pmax=pdaten;
}
/* D E B U G O N L Y
pdaten=pfirst;
printf("%d\n",zeile);
while (zeile--)
{
for(x=0;x<16;x++)
{
printf("%c-",(*pdaten).vals[x]);
}
pdaten=(*pdaten).pnext;
}
getchar();
--- END DEBUG ---*/
return (retval);
}
void endscr()
{
delwin(woffs);
delwin(whex);
delwin(wascii);
delwin(wtop);
delwin(wbot);
endwin();
}
void unallocmem()
{
int zv;
/* DEBUG ONLY
pdaten=pfirst;
int zeile=16;
int x;
printf("%d\n",zeile);
while (zeile--)
{
for(x=0;x<16;x++)
{
printf("%c-",(*pdaten).vals[x]);
}
pdaten=(*pdaten).pnext;
}
getchar();
--- END DEBUG ---*/
pdaten=pmax;
while((*pdaten).plast)
{
phelp=(*pdaten).plast;
free(pdaten);
pdaten=phelp;
}
}
void scrrefresh()
{
wattrset(woffs,COLOR_PAIR(1));
wattrset(whex,COLOR_PAIR(1));
wattrset(wascii,COLOR_PAIR(1));
wattrset(wbot,COLOR_PAIR(1));
wattrset(wtop,COLOR_PAIR(1));
box(woffs,0,0);
box(whex,0,0);
box(wascii,0,0);
box(wtop,0,0);
box(wbot,0,0);
wattrset(woffs,COLOR_PAIR(2));
wattrset(whex,COLOR_PAIR(2));
wattrset(wascii,COLOR_PAIR(2));
wattrset(wtop,COLOR_PAIR(3));
wattrset(wbot,COLOR_PAIR(2));
!mode?wmove(whex,pos.y,pos.x):wmove(wascii,pos.y,pos.x);
wrefresh(woffs);
wrefresh(wtop);
wrefresh(wbot);
// die Reihenfolge wird anhand des Modus bestimmt (das letzte ist aktiv)
!mode?wrefresh(wascii):wrefresh(whex);
mode?wrefresh(wascii):wrefresh(whex);
}
void lineout(unsigned long zeile)
{
int z;
miniinit();
ptv = tonumsysx((*pdaten).zeile*16,16);
for(z=0;z<9;z++)
{
xoffs[z] = *(ptv+z);
}
mvwaddstr(woffs,zeile,1,soffs);
for (z=0;z<(*pdaten).len;z++)
{
ptv = tonumsysx((*pdaten).vals[z],16);
xhex[z*3+1] = *(ptv+6);
xhex[z*3+2] = *(ptv+7);
}
mvwaddstr(whex,zeile,1,shex);
for (z=0;z<(*pdaten).len;z++)
{
// BUG: Die Ober- und Untergrenze genau bestimmen.
xascii[z] = (isgraph((*pdaten).vals[z]))?((*pdaten).vals[z]):'.';
}
mvwaddstr(wascii,zeile,1,sascii);
}
void initout()
{
//Initiale Ausgabe (Alle)
int i;
bool schalter=false;
unsigned long zeile=1;
pdaten=pfirst;
if ((*pdaten).pnext == NULL) schalter=true;
for(i=0;i<16;i++)
{
lineout(i+1);
if (schalter) break;
pdaten=(*pdaten).pnext;
if ((*pdaten).pnext == NULL) schalter=true;
}
scrrefresh();
if(i>15) pdaten=(*pdaten).plast;
}
int scrolld()
{
int resval;
if ((*pdaten).pnext != NULL)
{
pdaten=(*pdaten).pnext;
wscrl(woffs,1);
wscrl(whex,1);
wscrl(wascii,1);
miniinit();
lineout(16);
resval=1;
}
else
{
resval=0;
}
return(resval);
}
int scrollu()
{
int z=0;
int result;
while(((*pdaten).plast != NULL)&&(z < 16))
{
pdaten=(*pdaten).plast;
z++;
}
result= (z!=15)?1:0;
if(z>15)
{
z--;
wscrl(woffs,-1);
wscrl(whex,-1);
wscrl(wascii,-1);
miniinit();
lineout(1);
}
while(z--)
{
if ((*pdaten).pnext != NULL)
{
pdaten=(*pdaten).pnext;
}
}
return(result);
}
void switchmode()
{
if(mode==0)
{
mode=1; // modus:Hex->Ascii
// Umrechnen der Cursorposition
pos.x=((pos.x+1)/3);
}
else
{
mode=0; // modus:Ascii->Hex
// Umrechnen der Cursorposition
pos.x=((pos.x*3)-1);
}
}
void moveleft()
{
if(mode==0)
{
if(pos.x > 2)
{
(pos.x%3)?pos.x-=2:pos.x--;
}
else
{
if(pos.y >1)
{
pos.y--;
pos.x=48;
}
else
{
if(scrollu())pos.x=48;
}
}
}
else
{
if(pos.x > 1)
{
pos.x--;
}
else
{
if(pos.y >1)
{
pos.y--;
pos.x=16;
}
else
{
if(scrollu())pos.x=16;
}
}
}
}
void moveright()
{
if(mode==0)
{
if(pos.x < 48)
{
(pos.x%3)?pos.x++:pos.x+=2;
}
else
{
if(pos.y < 16)
{
pos.x=2;
pos.y++;
}
else
{
if(scrolld()) pos.x=2;
}
}
}
else
{
if((pos.x < 16))
{
pos.x++;
}
else
{
if(pos.y < 16)
{
pos.x=1;
pos.y++;
}
else
{
if(scrolld()) pos.x=1;
}
}
}
}
unsigned long getactpos()
{
int i=0;
unsigned long actpos;
int posxsave=9999;
if (!mode)
{
posxsave=pos.x;
switchmode();
}
// im Speicher zur Cusrorposition bl<62>ttern
while(i<(16-pos.y)&&((*pdaten).plast))
{
i++;
pdaten=(*pdaten).plast;
}
// Position holen
actpos=((*pdaten).zeile*16)+pos.x-1;
// wieder zur<75>ckbl<62>ttern
while(i--)
{
pdaten=(*pdaten).pnext;
}
if (posxsave!=9999)
{
switchmode();
pos.x=posxsave;
}
return(actpos);
}
void charin(char ch, int realmode, int realxpos)
{
int i=0;
int z=0;
int sicchar=9999;
data *phelp2;
unsigned long zhelp;
// im Speicher zur Cusrorposition bl<62>ttern
while(i<(16-pos.y)&&((*pdaten).plast))
{
i++;
pdaten=(*pdaten).plast;
}
fprintf(stderr,"%d Pos. zur<75>ck\n",i);
// F<>r den Einf<6E>gemodus
if (((insovr=='I') && (realmode==1))||((insovr=='I') && (realmode==0) && (realxpos%3==2)) && (realmode!=3))
{
phelp=pdaten;
pdaten=pmax;
if ((*pdaten).len < 16)
{
(*pdaten).len++;
}
else
{
// allocate new element
phelp2=pmax;
zhelp=(*pmax).zeile+1;
pdaten=pmax=((*pdaten).pnext)=(data*)(malloc(sizeof(daten)));
if(!pmax) {abort();}
(*pmax).plast=phelp2;
(*pmax).pnext=NULL;
(*pmax).len=1;
(*pmax).zeile=zhelp;
}
while(pdaten!=phelp)
{
for(z=(*pdaten).len-1;z>0;z--)
{
(*pdaten).vals[z]=(*pdaten).vals[z-1];
}
(*pdaten).vals[0]=(*(*pdaten).plast).vals[15];
pdaten=(*pdaten).plast;
}
for(z=(*pdaten).len-1;z+1>pos.x;z--)
{
(*pdaten).vals[z]=(*pdaten).vals[z-1];
}
pdaten=phelp;
}
// Wert schreiben
(*pdaten).vals[pos.x-1]=ch;
// Ausgabe aktualisieren
lineout(pos.y);
// wieder zur<75>ckbl<62>ttern
while(i--)
{
if((*pdaten).pnext)
{
pdaten=(*pdaten).pnext;
lineout(16-i);
}
}
}
int charout()
{
int i=0;
int ch;
// im Speicher zur Cusrorposition bl<62>ttern
while(i<(16-pos.y)&&((*pdaten).plast))
{
i++;
pdaten=(*pdaten).plast;
}
// Wert lesen
ch=((*pdaten).vals[pos.x-1]);
// wieder zur<75>ckbl<62>ttern
while(i--)
{
//fprintf(stderr,"l");
pdaten=(*pdaten).pnext;
}
return(ch);
}
void bottomout()
{
int realmode,realposx;
realmode=mode;
if (realmode == 0)
{
realposx=pos.x;
switchmode();
}
mvwaddstr(wbot,1,1,empty78);
mvwaddstr(wbot,2,1,empty78);
wattrset(wbot,COLOR_PAIR(3));
mvwaddstr(wbot,1,1,"CHR:");
wattrset(wbot,COLOR_PAIR(2));
mvwaddch(wbot,1,6,32);
mvwaddch(wbot,1,5,(isgraph(charout()))?charout():'.');
wattrset(wbot,COLOR_PAIR(3));
mvwaddstr(wbot,1,9,"HEX:");
wattrset(wbot,COLOR_PAIR(2));
mvwaddstr(wbot,1,13,(tonumsysx(charout(),16))+6);
mvwaddch(wbot,1,15,'h');
wattrset(wbot,COLOR_PAIR(3));
mvwaddstr(wbot,1,18,"DEC:");
wattrset(wbot,COLOR_PAIR(2));
mvwaddstr(wbot,1,22,(tonumsysx(charout(),10))+5);
wattrset(wbot,COLOR_PAIR(3));
mvwaddstr(wbot,1,27,"OCT:");
wattrset(wbot,COLOR_PAIR(2));
mvwaddstr(wbot,1,31,(tonumsysx(charout(),8))+4);
wattrset(wbot,COLOR_PAIR(3));
mvwaddstr(wbot,1,37,"BIN:");
wattrset(wbot,COLOR_PAIR(2));
mvwaddstr(wbot,1,41,tonumsysx(charout(),2));
wattrset(wbot,COLOR_PAIR(3));
mvwaddstr(wbot,1,52,"Offset:");
wattrset(wbot,COLOR_PAIR(2));
mvwaddstr(wbot,1,59,tonumsysx(getactpos(),16));
wattrset(wbot,COLOR_PAIR(3));
mvwaddstr(wbot,1,67,"h -");
wattrset(wbot,COLOR_PAIR(2));
mvwaddstr(wbot,1,71,tonumsysx(getactpos(),10));
mvwaddstr(wbot,2,1,filename);
mvwaddstr(wbot,2,76,(insovr=='O')?"OVR":"INS");
if (realmode == 0)
{
switchmode();
pos.x=realposx;
}
}
void swapbits(char bit)
{
char bin[]="12345678",*pbin; // Um Bits abzubilden
pbin=bin;
int realposx, realmode;
realmode=mode;
if (realmode==0)
{
realposx=pos.x;
switchmode();
}
pbin=tonumsysx(charout(),2);
pbin[bit]= (pbin[bit]=='0')?'1':'0';
charin(xto10(pbin,2),3,pos.x);
if (realmode==0)
{
switchmode();
pos.x=realposx;
}
}
int main(int argc, char *argv[])
{
//Variablen
unsigned int i,z; // Allgemeine Z<>hler
unsigned long zeile=0; // Zeilennummer
bool schalter; // Schalter f<>r lesevorlauf
int inpch; // Eingabezeichen
//Vorbereitung
printf("GHEX Version 0.5\n");
//Parameter angegeben?
if(argc < 2)
{
fprintf(stderr,"GHEX-MESSAGE:\n\nUSAGE: %s <filename> \n",argv[0]);
exit(1);
}
//Datei <20>ffnen
fp=fopen(argv[1],"r");
if (fp == NULL)
{
fprintf(stderr,"GHEX-MESSAGE:\n\nERROR opening file: %s \n",argv[1]);
exit(2);
}
// pointer setzen
initvar();
// sonstige Variableninitialisierung
pos.x = pos.y = 1;
filename=argv[1];
//Datei -> Speicher
if(loadcontents())
{
fprintf(stderr,"GHEX-MESSAGE:\n\nERROR reading %s (too less RAM?)\n",argv[1]);
exit(3);
}
// Terminal initialisieren
if(screeninit())
{
endscr();
fprintf(stderr,"!!!Terminal not supported!!! -> Abort \n");
exit(5);
}
mvwaddstr(wtop,1,1,topline);
//Hauptprogramm
initout();
bottomout();
scrrefresh();
//Eventschleife
while(inpch!=KEY_F(10))
{
if (mode==0)
{
inpch=wgetch(whex);
}
else
{
inpch=wgetch(wascii);
}
switch(inpch)
{
case KEY_F(9): switchmode();
break;
case KEY_F(1): swapbits(0);
break;
case KEY_F(2): swapbits(1);
break;
case KEY_F(3): swapbits(2);
break;
case KEY_F(4): swapbits(3);
break;
case KEY_F(5): swapbits(4);
break;
case KEY_F(6): swapbits(5);
break;
case KEY_F(7): swapbits(6);
break;
case KEY_F(8): swapbits(7);
break;
case KEY_EIC: //fallthru
case KEY_IC : if (insovr=='O')
{
insovr='I';
}
else
{
insovr='O';
}
break;
case KEY_LEFT: moveleft();
break;
case KEY_RIGHT:moveright();
break;
case KEY_DOWN: if(pos.y>15)
{
scrolld();
}
else
{
pos.y++;
}
break;
case KEY_UP: if(pos.y<2)
{
scrollu();
}
else
{
pos.y--;
}
break;
case KEY_NPAGE:for(i=0;i<16;i++)
{
scrolld();
}
break;
case KEY_PPAGE:for(i=0;i<16;i++)
{
scrollu();
}
break;
case KEY_HOME: initout();
break;
case KEY_END: pdaten=pmax;
for(i=0;((*pdaten).plast) && (i < 16);i++)
{
pdaten=(*pdaten).plast;
}
while((*pdaten).pnext)
{
scrolld();
}
break;
default: if(mode==0)
{
if(isdigit(inpch) || (toupper(inpch)>='A' && toupper(inpch)<='F') )
{
waddch(whex,toupper(inpch));
char hch[]="00";
// hch korrekt f<>llen.
int xpos=pos.x; // Position sichern
switchmode(); // um die Koordinaten umzurechnen
ptv=tonumsysx(charout(),16); // Aktuelles Zeichen in Hex.
//* --- DEBUG ONLY
mvwaddstr(wbot,2,30,tonumsysx(charout(),16));
// --- END DEBUG
switchmode(); // Koordinaten zur<75>ckrechnen
pos.x=xpos; // position restaurieren
if (insovr=='O') // Predef. only in Override!
{
hch[0] = *(ptv+6);
hch[1] = *(ptv+7);
}
else // In Insert only first char
{
if(pos.x%3==0)
hch[0] = *(ptv+6);
}
//* --- DEBUG ONLY
mvwaddstr(wbot,2,1,hch);
mvwaddstr(wbot,2,20,ptv);
// --- END DEBUG
hch[(pos.x%3)?0:1]=inpch;
switchmode(); // um die Koordinaten umzurechnen
charin(xto10(hch,16),0,xpos); // Umrechnen Hex -> Ascii+charin
switchmode(); // und wieder zur<75>cksetzen
pos.x=xpos; // position restaurieren
moveright();
}
}
else
{
if((inpch < 256))
{
waddch(wascii,inpch);
charin(inpch,1,pos.x);
moveright();
}
}
};
bottomout();
scrrefresh();
// fprintf(stderr,"x: %d %d",pos.x,charout());
}
sleep(1);
endscr();
unallocmem();
return (fclose(fp));
}
Reference in New Issue Copy Permalink