forked from KolibriOS/kolibrios
cmm: upload vfc (Visual Text Comparer / Diff tool)
git-svn-id: svn://kolibrios.org@6732 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency)
parent
672c7ac0a1
commit
6b3f26b172
154
programs/cmm/vfc/32user32.h
Normal file
154
programs/cmm/vfc/32user32.h
Normal file
@ -0,0 +1,154 @@
|
|||||||
|
|
||||||
|
|
||||||
|
:static int __wsprintfproc;
|
||||||
|
:static int cdecl __wsprintf(int buff,mask,...){
|
||||||
|
char buffer[MAX_PATH];
|
||||||
|
char bufnum[32];
|
||||||
|
int bufferlen;
|
||||||
|
int param;
|
||||||
|
int length;
|
||||||
|
int pad;
|
||||||
|
|
||||||
|
struct _wsprintf_mf{
|
||||||
|
int precision;
|
||||||
|
int width;
|
||||||
|
int minus ;
|
||||||
|
int plus ;
|
||||||
|
int diez ;
|
||||||
|
int zero ;
|
||||||
|
byte upcase ;
|
||||||
|
byte _signed;//
|
||||||
|
}mf;
|
||||||
|
|
||||||
|
$push EBX,ESI,EDI;
|
||||||
|
param=#mask[sizeof(mask)];
|
||||||
|
length=0;
|
||||||
|
EDX=mask;
|
||||||
|
EBX=buff;
|
||||||
|
for(;;){
|
||||||
|
mf=0;
|
||||||
|
mf.precision=0x7FFF;
|
||||||
|
REPEATSMALL:
|
||||||
|
if(!DSCHAR[EDX]){
|
||||||
|
AL=0;
|
||||||
|
$call __wsprintfproc;
|
||||||
|
$pop EDI,ESI,EBX;
|
||||||
|
return length;
|
||||||
|
}
|
||||||
|
if(DSCHAR[EDX]!='%'){
|
||||||
|
WRITECHAR: AL=DSCHAR[EDX];$call __wsprintfproc; EDX++;GOTO REPEATSMALL;
|
||||||
|
}
|
||||||
|
|
||||||
|
GETMASK:
|
||||||
|
EDX++;
|
||||||
|
SWITCH(DSCHAR[EDX]){
|
||||||
|
CASE '-': mf.minus++;goto GETMASK;
|
||||||
|
CASE '+': mf.plus ++;goto GETMASK;
|
||||||
|
CASE '#': mf.diez ++;goto GETMASK;
|
||||||
|
CASE '0': mf.zero ++;EDX++;
|
||||||
|
}
|
||||||
|
|
||||||
|
WHILE(DSCHAR[EDX]>='0')&&(DSCHAR[EDX]<='9'){
|
||||||
|
$push EDX;mf.width=mf.width*10+DSCHAR[EDX]-'0';$pop EDX;EDX++;
|
||||||
|
}
|
||||||
|
if(DSCHAR[EDX]=='.'){
|
||||||
|
mf.precision=0;
|
||||||
|
GETPRECISION:
|
||||||
|
EDX++;
|
||||||
|
if(DSCHAR[EDX]>='0')
|
||||||
|
&&(DSCHAR[EDX]<='9'){
|
||||||
|
$push EDX;mf.precision=mf.precision*10+DSCHAR[EDX]-'0';$pop EDX;
|
||||||
|
GOTO GETPRECISION;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(DSCHAR[EDX]=='l'){
|
||||||
|
EDX++;
|
||||||
|
}
|
||||||
|
if(DSCHAR[EDX]=='h'){
|
||||||
|
EDX++;
|
||||||
|
}
|
||||||
|
if(DSCHAR[EDX]<'a'){mf.upcase=1;}
|
||||||
|
SWITCH(DSCHAR[EDX]|0x20){
|
||||||
|
CASE 'c': buffer=DSCHAR[param];bufferlen=1;goto FORMAT;
|
||||||
|
CASE 's': if(!DSDWORD[param])DSDWORD[param]="(null)";//??????
|
||||||
|
FOR(bufferlen=0;bufferlen<mf.precision;bufferlen++){
|
||||||
|
AL=DSCHAR[DSDWORD[param]+bufferlen];
|
||||||
|
if(!AL)BREAK;
|
||||||
|
buffer[bufferlen]=AL;
|
||||||
|
}
|
||||||
|
goto FORMAT;
|
||||||
|
}
|
||||||
|
|
||||||
|
//á ᨬ¢®«ì묨 ¯®ª®ç¨«¨. ⥯¥àì ç¨á«®¢ë¥
|
||||||
|
if(mf.precision==0x7FFF){mf.precision=mf.width;}
|
||||||
|
if(!mf.precision)mf.precision=1;
|
||||||
|
if(DSCHAR[EDX]|0x20=='x'){
|
||||||
|
$push EDX;
|
||||||
|
EDI=0;//cnt
|
||||||
|
EDX=DSDWORD[param];
|
||||||
|
WHILE(EDX){
|
||||||
|
AL=DL&0xF+0x30;if(AL>'9'){AL+='A'-'9'-1;if(!mf.upcase)AL|=0x20;}
|
||||||
|
bufnum[EDI]=AL;EDI++;EDX>>=4;
|
||||||
|
}
|
||||||
|
$pop EDX;
|
||||||
|
WHILE(EDI<mf.precision){bufnum[EDI]='0';EDI++;}
|
||||||
|
if(mf.diez){bufnum[EDI]=DSCHAR[EDX];EDI++;bufnum[EDI]='0';EDI++;}
|
||||||
|
FOR(bufferlen=0;EDI;bufferlen++){
|
||||||
|
EDI--;buffer[bufferlen]=bufnum[EDI];
|
||||||
|
}
|
||||||
|
goto FORMAT;
|
||||||
|
}
|
||||||
|
switch(DSCHAR[EDX]){
|
||||||
|
CASE 'i':
|
||||||
|
CASE 'd': $push EDX;EDX=DSDWORD[param];
|
||||||
|
if(int EDX<0){-EDX;mf._signed++;}
|
||||||
|
GOTO WRITEINT;
|
||||||
|
CASE 'u': $push EDX;mf.plus=0;EDX=DSDWORD[param];
|
||||||
|
WRITEINT:
|
||||||
|
EDI=0;//cnt
|
||||||
|
WHILE(EDX){
|
||||||
|
EAX=0;EDX><EAX;EAX/=10;EDX><EAX;bufnum[EDI]=AL+'0';EDI++;
|
||||||
|
}
|
||||||
|
WHILE(EDI<mf.precision){bufnum[EDI]='0';EDI++;}
|
||||||
|
if(mf._signed){bufnum[EDI]='-';EDI++;}
|
||||||
|
ELSE
|
||||||
|
if(mf.plus){bufnum[EDI]='+';EDI++;}
|
||||||
|
FOR(bufferlen=0;EDI;bufferlen++){
|
||||||
|
EDI--;buffer[bufferlen]=bufnum[EDI];
|
||||||
|
}
|
||||||
|
$pop EDX;
|
||||||
|
FORMAT:
|
||||||
|
EDX++;
|
||||||
|
param+=sizeof(int);
|
||||||
|
pad=mf.width-bufferlen;if(pad<0)pad=0;
|
||||||
|
if(!mf.minus)$call FRM;
|
||||||
|
FOR(EDI=0;EDI<bufferlen;EDI++){AL=buffer[EDI];$call __wsprintfproc;}
|
||||||
|
if(mf.minus)$call FRM;
|
||||||
|
BREAK;
|
||||||
|
default:
|
||||||
|
goto WRITECHAR;
|
||||||
|
}
|
||||||
|
}//for(;;)
|
||||||
|
FRM: WHILE(pad){AL=' ';$call __wsprintfproc;pad--;}$ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
:int cdecl wsprintf(...)inline{
|
||||||
|
__wsprintfproc=#WSP;
|
||||||
|
goto __wsprintf;
|
||||||
|
WSP: DSCHAR[EBX]=AL;EBX++;$ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
:void FillMemory(int dest,len,byt){
|
||||||
|
EDI = dest;
|
||||||
|
ECX = len;
|
||||||
|
AL = byt;
|
||||||
|
$cld $rep $stosb
|
||||||
|
}
|
||||||
|
|
||||||
|
//#define CopyMemory memmov
|
||||||
|
:void CopyMemory(int dest,src,len){
|
||||||
|
EDI = dest;
|
||||||
|
ESI = src;
|
||||||
|
ECX = len;
|
||||||
|
$cld $rep $movsb
|
||||||
|
}
|
||||||
6
programs/cmm/vfc/Tupfile.lua
Normal file
6
programs/cmm/vfc/Tupfile.lua
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
if tup.getconfig("NO_CMM") ~= "" then return end
|
||||||
|
if tup.getconfig("LANG") == "ru"
|
||||||
|
then C_LANG = "LANG_RUS"
|
||||||
|
else C_LANG = "LANG_ENG" -- this includes default case without config
|
||||||
|
end
|
||||||
|
tup.rule("vfc.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "vfc.com")
|
||||||
5
programs/cmm/vfc/build.bat
Normal file
5
programs/cmm/vfc/build.bat
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
@del vfc
|
||||||
|
@c-- vfc.c
|
||||||
|
@move vfc.com vfc
|
||||||
|
@del warning.txt
|
||||||
|
@pause
|
||||||
181
programs/cmm/vfc/if.h
Normal file
181
programs/cmm/vfc/if.h
Normal file
@ -0,0 +1,181 @@
|
|||||||
|
int verthoriz=0;
|
||||||
|
int shownums=1;
|
||||||
|
|
||||||
|
char str[MAX_PATH];
|
||||||
|
word attr[MAX_PATH];
|
||||||
|
|
||||||
|
printstrat(int x,y,size,_text,_attr)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
for (i=0; i<size; i++)
|
||||||
|
{
|
||||||
|
con_set_flags stdcall (ESBYTE[i*2+_attr]);
|
||||||
|
con_set_cursor_pos stdcall (x+i,y);
|
||||||
|
con_write_string stdcall (_text+i, 1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
drawline(int x,y,width,linex,s1,s2,ln)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
int s1l;
|
||||||
|
int s2l;
|
||||||
|
int c1,c2;
|
||||||
|
char temp[10];
|
||||||
|
int x2,width2;
|
||||||
|
|
||||||
|
|
||||||
|
s1l=-1;
|
||||||
|
s2l=-1;
|
||||||
|
if(s1!=-1)s1l=strlen(s1);
|
||||||
|
if(s2!=-1)s2l=strlen(s2);
|
||||||
|
|
||||||
|
FillMemory(#attr,width*2,0x1F);
|
||||||
|
str[0]='º'; str[x+width-1]='º';
|
||||||
|
|
||||||
|
if(s1==-1)
|
||||||
|
{
|
||||||
|
FillMemory(#str[1],width-2,'ú');
|
||||||
|
FillMemory(#attr[2],width-2*2,7);
|
||||||
|
}else{//áâப ¯à¨áãâáâ¢ã¥â
|
||||||
|
x2=1;
|
||||||
|
width2=width;
|
||||||
|
if(shownums)
|
||||||
|
{
|
||||||
|
wsprintf(#temp,"%6d",ln+1);
|
||||||
|
for(i=0;i<6;i++)
|
||||||
|
{
|
||||||
|
str[i+1]=temp[i];
|
||||||
|
attr[i+1]=0x19;
|
||||||
|
}
|
||||||
|
str[7]='³';
|
||||||
|
x2+=7;
|
||||||
|
width2-=7;
|
||||||
|
}
|
||||||
|
if(s1>0)&&(s2>0)&&(!strcmp(s1,s2))
|
||||||
|
{//áâப¨ ᮢ¯ ¤ îâ
|
||||||
|
for(i=0;i<width2-2;i++)
|
||||||
|
if(i+linex<s1l)str[x2+i]=DSBYTE[s1+i+linex];else str[x2+i]=' ';
|
||||||
|
}else
|
||||||
|
{
|
||||||
|
for(i=0;i<width2-2;i++)
|
||||||
|
{
|
||||||
|
if(i+linex<s1l)c1=DSBYTE[s1+i+linex]; else c1=' ';
|
||||||
|
if(i+linex<s2l)c2=DSBYTE[s2+i+linex]; else c2=' ';
|
||||||
|
str[x2+i]=c1;
|
||||||
|
if(c1==c2)attr[x2+i]=0x4F;else attr[x2+i]=0x4E;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
printstrat(x,y,width,#str,#attr);
|
||||||
|
}
|
||||||
|
|
||||||
|
drawborder(dword x1,y1,xs1,ys1,fname,line)
|
||||||
|
char temp[MAX_PATH];
|
||||||
|
int titlelen;
|
||||||
|
{
|
||||||
|
int i,j;
|
||||||
|
|
||||||
|
FillMemory(#str,xs1,'Í');
|
||||||
|
FillMemory(#attr,xs1*2,0x1F);
|
||||||
|
|
||||||
|
str[0]='È'; str[xs1-1]='¼';
|
||||||
|
printstrat(x1,y1+ys1-1,xs1,#str,#attr); //¨¦ïï áâà®çª
|
||||||
|
|
||||||
|
str[0]='É'; str[xs1-1]='»';
|
||||||
|
titlelen=xs1-4;
|
||||||
|
if(!shownums)titlelen-=8;
|
||||||
|
if(strlen(fname)>titlelen)wsprintf(#temp," ...%s ",strlen(fname)+fname-titlelen+3);
|
||||||
|
else wsprintf(#temp," %s ",fname);
|
||||||
|
for(i=0;temp[i];i++){ str[i+1]=temp[i]; attr[i+1]=0x1E; }
|
||||||
|
if(!shownums)
|
||||||
|
{
|
||||||
|
wsprintf(#temp,"[%6d]",line);
|
||||||
|
CopyMemory(xs1-9+#str,#temp,8);
|
||||||
|
FillMemory(xs1-8*2+#attr,12,0x19);
|
||||||
|
}
|
||||||
|
printstrat(x1,y1,xs1,#str,#attr);
|
||||||
|
}
|
||||||
|
|
||||||
|
printpanel(dword line,linex ,x1,y1,xs1,ys1 ,x2,y2,xs2,ys2)
|
||||||
|
{
|
||||||
|
int i,j;
|
||||||
|
int s,d,sl,dl;
|
||||||
|
int line1,line2;
|
||||||
|
|
||||||
|
for(j=line;j<srcfilenums.Count;j++){ s=srcfilenums.At(j); if(s!=-1)BREAK; }
|
||||||
|
if(s==-1)s=srcfilelines.Count-1;
|
||||||
|
drawborder(x1,y1,xs1,ys1,srcfilename,s+1);
|
||||||
|
|
||||||
|
for(j=line;j<dstfilenums.Count;j++){ d=dstfilenums.At(j); if(d!=-1)BREAK; }
|
||||||
|
if(d==-1)d=dstfilelines.Count-1;
|
||||||
|
drawborder(x2,y2,xs2,ys2,dstfilename,d+1);
|
||||||
|
for(j=0;j<ys1-2;j++)
|
||||||
|
{
|
||||||
|
if(j+line<srcfilenums.Count)s=srcfilenums.At(j+line); else s=-1;
|
||||||
|
line1=s;
|
||||||
|
if(s!=-1)s=srcfilelines.At(s);
|
||||||
|
if(j+line<dstfilenums.Count)d=dstfilenums.At(j+line); else d=-1;
|
||||||
|
line2=d;
|
||||||
|
if(d!=-1)d=dstfilelines.At(d);
|
||||||
|
drawline(x1,y1+j+1,xs1,linex,s,d,line1);
|
||||||
|
drawline(x2,y2+j+1,xs2,linex,d,s,line2);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
ifinit()
|
||||||
|
int linenum=0;
|
||||||
|
int linex=0;
|
||||||
|
int ys;
|
||||||
|
int sbi_x, sbi_y;
|
||||||
|
{
|
||||||
|
load_dll(libConsole, #con_init, 0);
|
||||||
|
con_init stdcall (122, 40, 122, 800, #window_title);
|
||||||
|
|
||||||
|
linenum=diffs.At(0);
|
||||||
|
|
||||||
|
sbi_x = 122;
|
||||||
|
sbi_y = 800;
|
||||||
|
|
||||||
|
sbi_y--;
|
||||||
|
ys=sbi_y-2;
|
||||||
|
|
||||||
|
if(linenum+ys>srcfilenums.Count)linenum=srcfilenums.Count-ys;
|
||||||
|
if(linenum<0) linenum=0;
|
||||||
|
|
||||||
|
@redraw:
|
||||||
|
if(!verthoriz)
|
||||||
|
{
|
||||||
|
printpanel(linenum,linex
|
||||||
|
,0,0
|
||||||
|
,sbi_x/2 ,sbi_y
|
||||||
|
,sbi_x/2 ,0
|
||||||
|
,sbi_x/2 ,sbi_y
|
||||||
|
);
|
||||||
|
ys=sbi_y-2;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
printpanel(linenum,linex
|
||||||
|
,0,0
|
||||||
|
,sbi_x ,sbi_y/2
|
||||||
|
,0 ,sbi_y/2
|
||||||
|
,sbi_x ,sbi_y/2
|
||||||
|
);
|
||||||
|
if(sbi_y&1)
|
||||||
|
{
|
||||||
|
FillMemory(#str,sbi_x,'°');
|
||||||
|
FillMemory(#attr,sbi_x*2,0);
|
||||||
|
printstrat(0,sbi_y-1,sbi_x,#str,#attr);
|
||||||
|
}
|
||||||
|
ys=sbi_y/2-2;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!ys) goto redraw;
|
||||||
|
else {
|
||||||
|
con_set_cursor_pos stdcall (2,0);
|
||||||
|
ExitProcess();
|
||||||
|
}
|
||||||
|
}
|
||||||
182
programs/cmm/vfc/objects.h
Normal file
182
programs/cmm/vfc/objects.h
Normal file
@ -0,0 +1,182 @@
|
|||||||
|
|
||||||
|
|
||||||
|
struct TCollection{
|
||||||
|
int Count;//itemcunt
|
||||||
|
int Delta;//increase buffer Delta
|
||||||
|
int Items;//pointer to array of item pointers
|
||||||
|
int Limit;//currently allocated size (in elements) of Items list
|
||||||
|
|
||||||
|
TCollection( int ALimit,ADelta );
|
||||||
|
~TCollection( void );
|
||||||
|
|
||||||
|
int At( int Index );
|
||||||
|
void AtDelete( int Index );
|
||||||
|
void AtFree( int Index );
|
||||||
|
void AtInsert( int Index, Item );
|
||||||
|
void DeleteAll( void );
|
||||||
|
void Free( int Item );
|
||||||
|
void FreeAll( void );
|
||||||
|
void FreeItem( int Item );
|
||||||
|
void Insert( int Item );
|
||||||
|
void SetLimit( int ALimit );
|
||||||
|
};
|
||||||
|
|
||||||
|
:int TCollection::At( int Index )
|
||||||
|
{
|
||||||
|
return DSDWORD[ Index*sizeof(int)+Items ];
|
||||||
|
}
|
||||||
|
|
||||||
|
:void TCollection::AtDelete( int Index )
|
||||||
|
{
|
||||||
|
// if(Index<0)||(Index>=Count){/*Error(coIndexError);*/return;}
|
||||||
|
ECX = Count-Index-1;
|
||||||
|
EDI = Index*sizeof(int)+Items; ESI = EDI+4; $cld; $rep;$movsd;
|
||||||
|
Count --;
|
||||||
|
}
|
||||||
|
|
||||||
|
:void TCollection::AtFree( int Index )
|
||||||
|
{
|
||||||
|
int Item = At( Index);
|
||||||
|
AtDelete( Index );
|
||||||
|
FreeItem( Item );
|
||||||
|
}
|
||||||
|
|
||||||
|
:void TCollection::AtInsert( int Index, Item )
|
||||||
|
{
|
||||||
|
$pushfd
|
||||||
|
IF( Count == Limit )
|
||||||
|
{
|
||||||
|
SetLimit( Count+Delta );
|
||||||
|
}
|
||||||
|
ECX = Count-Index;
|
||||||
|
EDI = Count*sizeof(int)+Items;
|
||||||
|
ESI = EDI-4; $std $rep $movsd $cld
|
||||||
|
DSDWORD[ EDI ] = Item;
|
||||||
|
Count ++;
|
||||||
|
$popfd
|
||||||
|
}
|
||||||
|
|
||||||
|
:void TCollection::DeleteAll()
|
||||||
|
{
|
||||||
|
Count=0;
|
||||||
|
}
|
||||||
|
|
||||||
|
:void TCollection::Free( int Item )
|
||||||
|
{
|
||||||
|
Delete( Item );
|
||||||
|
FreeItem( Item );
|
||||||
|
}
|
||||||
|
|
||||||
|
:void TCollection::FreeAll( void )
|
||||||
|
{
|
||||||
|
int I;
|
||||||
|
FOR( I = 0; I < Count; I ++ )FreeItem( At(I) );
|
||||||
|
Count = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
:void TCollection::FreeItem( int Item )
|
||||||
|
{
|
||||||
|
IF( Item )free( Item );//+++Dispose(PObject(Item), Done);
|
||||||
|
}
|
||||||
|
|
||||||
|
:void TCollection::Insert( int Item )
|
||||||
|
{
|
||||||
|
AtInsert( Count, Item );
|
||||||
|
}
|
||||||
|
|
||||||
|
:void TCollection::SetLimit( int ALimit )
|
||||||
|
{
|
||||||
|
int AItems;
|
||||||
|
|
||||||
|
IF( ALimit < Count )ALimit = Count;
|
||||||
|
IF( ALimit != Limit )
|
||||||
|
{
|
||||||
|
IF( !ALimit ) AItems = 0;
|
||||||
|
ELSE
|
||||||
|
{
|
||||||
|
AItems = malloc(ALimit*sizeof(int) );
|
||||||
|
IF( Count )&&( Items )
|
||||||
|
{
|
||||||
|
CopyMemory( AItems, Items, Limit*sizeof(int) );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
IF( Limit )free( Items );
|
||||||
|
Items = AItems;
|
||||||
|
Limit = ALimit;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
:TCollection::TCollection( int ALimit, ADelta )
|
||||||
|
{
|
||||||
|
Items = 0;
|
||||||
|
Count = 0;
|
||||||
|
Limit = 0;
|
||||||
|
Delta = ADelta;
|
||||||
|
SetLimit( ALimit );
|
||||||
|
return this;
|
||||||
|
}
|
||||||
|
|
||||||
|
:TCollection::~TCollection( void )
|
||||||
|
{
|
||||||
|
FreeAll();
|
||||||
|
SetLimit(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
struct TSortedCollection:TCollection
|
||||||
|
{
|
||||||
|
int comparemethod;
|
||||||
|
int Duplicates;
|
||||||
|
|
||||||
|
TSortedCollection( int ALimit, ADelta );
|
||||||
|
|
||||||
|
int Compare( int Key1, Key2 );
|
||||||
|
void Insert( int Item );
|
||||||
|
int Search( int Key, Index );
|
||||||
|
};
|
||||||
|
|
||||||
|
:int TSortedCollection::Compare( int Key1, Key2 )
|
||||||
|
{
|
||||||
|
strcmp( Key1, Key2 );
|
||||||
|
}
|
||||||
|
|
||||||
|
:TSortedCollection::TSortedCollection( int ALimit, ADelta )
|
||||||
|
:TCollection( ALimit, ADelta );
|
||||||
|
{
|
||||||
|
comparemethod=#Compare;
|
||||||
|
return this;
|
||||||
|
}
|
||||||
|
|
||||||
|
:void TSortedCollection::Insert( int Item )
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
IF( !Search(/*KeyOf(*/Item/*)*/,#i) ) || ( Duplicates )AtInsert( i, Item );
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
:int TSortedCollection::Search( int Key, Index )
|
||||||
|
{
|
||||||
|
int L, H, I, C;
|
||||||
|
int S;
|
||||||
|
|
||||||
|
S = 0;
|
||||||
|
L = 0;
|
||||||
|
H = Count-1;
|
||||||
|
WHILE( L <= H )
|
||||||
|
{
|
||||||
|
I = L+H >> 1;
|
||||||
|
ECX = I*sizeof(int)+Items;
|
||||||
|
comparemethod( this, /*KeyOf(*/DSDWORD[ECX]/*)*/, Key );
|
||||||
|
C = EAX;
|
||||||
|
IF( C < 0 ){ L = I+1; }
|
||||||
|
ELSE
|
||||||
|
{
|
||||||
|
H = I-1;
|
||||||
|
IF( !C ){
|
||||||
|
S = 1;
|
||||||
|
IF( !Duplicates )L = I;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
DSDWORD[ Index ]=L;
|
||||||
|
return S;
|
||||||
|
}
|
||||||
209
programs/cmm/vfc/vfc.c
Normal file
209
programs/cmm/vfc/vfc.c
Normal file
@ -0,0 +1,209 @@
|
|||||||
|
//visual text comparer
|
||||||
|
//by den po - jdp@bk.ru
|
||||||
|
|
||||||
|
#define MEMSIZE 4096 * 60
|
||||||
|
#include "../lib/io.h"
|
||||||
|
#include "../lib/strings.h"
|
||||||
|
#include "../lib/obj/console.h"
|
||||||
|
IO io1, io2;
|
||||||
|
|
||||||
|
#define MAX_PATH 260
|
||||||
|
|
||||||
|
#include "32user32.h"
|
||||||
|
#include "objects.h"
|
||||||
|
#include "vfc_gui.h"
|
||||||
|
|
||||||
|
#define mincmpstrings 2
|
||||||
|
#define maxcmpstrings 10
|
||||||
|
#define maxcmpoffset 100
|
||||||
|
|
||||||
|
char window_title[] = "Visual Text Comparer (Diff tool)";
|
||||||
|
|
||||||
|
char* srcfilename;
|
||||||
|
char* dstfilename;
|
||||||
|
dword srcfile;
|
||||||
|
dword dstfile;
|
||||||
|
dword srcfilesize;
|
||||||
|
dword dstfilesize;
|
||||||
|
TCollection srcfilelines; //file lines
|
||||||
|
TCollection dstfilelines;
|
||||||
|
TCollection srcfilenums; //lines numbers
|
||||||
|
TCollection dstfilenums;
|
||||||
|
|
||||||
|
struct TSimpleCollection:TSortedCollection
|
||||||
|
{
|
||||||
|
TSimpleCollection();
|
||||||
|
int Compare( int Key1, Key2 );
|
||||||
|
};
|
||||||
|
int TSimpleCollection::Compare( int Key1, Key2 ){
|
||||||
|
return Key1-Key2;
|
||||||
|
}
|
||||||
|
TSimpleCollection::TSimpleCollection():TSortedCollection(1000,1000);
|
||||||
|
{
|
||||||
|
comparemethod=#Compare;
|
||||||
|
}
|
||||||
|
|
||||||
|
TSimpleCollection diffs; //list of differing strings
|
||||||
|
dword srcfilelinks; //pointer to the previos line with the same first symbol
|
||||||
|
dword dstfilelinks; //
|
||||||
|
|
||||||
|
getstrings(dword srcfile,srcfilesize,srcfilelines){
|
||||||
|
ECX=srcfilesize;
|
||||||
|
ESI=srcfile;
|
||||||
|
WHILE(ECX){
|
||||||
|
$push ECX,ESI
|
||||||
|
EAX=srcfilelines;
|
||||||
|
EAX.TCollection.Insert(ESI);
|
||||||
|
$pop ESI,ECX
|
||||||
|
WHILE(ECX){
|
||||||
|
$cld $lodsb ECX--;
|
||||||
|
if(AL==0x0D)||(AL==0x0A)DSBYTE[ESI-1]=0;
|
||||||
|
if(AL==0x0D)&&(DSBYTE[ESI]==0x0A){$lodsb;ECX--;}
|
||||||
|
if(AL==0x0D)||(AL==0x0A)BREAK;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
#include "if.h"
|
||||||
|
|
||||||
|
bool getparam()
|
||||||
|
{
|
||||||
|
int i, param_len = strlen(#param);
|
||||||
|
if (param[0]=='"') {
|
||||||
|
for (i=1; i<param_len; i++) if (param[i]=='"') param[i]=NULL;
|
||||||
|
srcfilename = #param + 1;
|
||||||
|
dstfilename = #param + strlen(#param) + 3;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
notify("'Wrong params specified. Use next format:\nAPPPATH \"PARAM1\" \"PARAM2\"' -E");
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
main(){
|
||||||
|
if (param[0]) getparam();
|
||||||
|
if (!srcfilename) || (!dstfilename) gui(); else console();
|
||||||
|
}
|
||||||
|
|
||||||
|
console() {
|
||||||
|
int i;
|
||||||
|
int p;
|
||||||
|
int bs,bd,bsc,bdc,bsp,bdp;
|
||||||
|
int cache[256];
|
||||||
|
char s1;
|
||||||
|
int s2;
|
||||||
|
|
||||||
|
srcfile = io1.read(srcfilename);
|
||||||
|
dstfile = io2.read(dstfilename);
|
||||||
|
|
||||||
|
srcfilesize = io1.FILES_SIZE;
|
||||||
|
dstfilesize = io2.FILES_SIZE;
|
||||||
|
|
||||||
|
if (!srcfile) die("'First file not found' -E");
|
||||||
|
if (!dstfile) die("'Second file not found' -E");
|
||||||
|
|
||||||
|
srcfilelines.TCollection(srcfilesize/40,8192);
|
||||||
|
dstfilelines.TCollection(dstfilesize/40,8192);
|
||||||
|
//fill line pointers
|
||||||
|
getstrings(srcfile,srcfilesize,#srcfilelines);
|
||||||
|
getstrings(dstfile,dstfilesize,#dstfilelines);
|
||||||
|
srcfilenums.TCollection(srcfilelines.Count,1000);
|
||||||
|
dstfilenums.TCollection(dstfilelines.Count,1000);
|
||||||
|
|
||||||
|
srcfilelinks=malloc(srcfilelines.Count*4);
|
||||||
|
dstfilelinks=malloc(dstfilelines.Count*4);
|
||||||
|
|
||||||
|
//fill links on the next strings with the same first symbols
|
||||||
|
FillMemory(#cache,sizeof(cache),-1); i=srcfilelines.Count;
|
||||||
|
WHILE(i){
|
||||||
|
i--;
|
||||||
|
EBX=srcfilelines.At(i); EBX=DSBYTE[EBX];
|
||||||
|
DSDWORD[i<<2+srcfilelinks]=cache[EBX*4];
|
||||||
|
cache[EBX*4]=i;
|
||||||
|
}
|
||||||
|
FillMemory(#cache,sizeof(cache),-1); i=dstfilelines.Count;
|
||||||
|
WHILE(i){
|
||||||
|
i--;
|
||||||
|
EBX=dstfilelines.At(i); EBX=DSBYTE[EBX];
|
||||||
|
DSDWORD[i<<2+dstfilelinks]=cache[EBX*4];
|
||||||
|
cache[EBX*4]=i;
|
||||||
|
}
|
||||||
|
|
||||||
|
diffs.TSimpleCollection();
|
||||||
|
|
||||||
|
while( bsp < srcfilelines.Count ) || ( bdp < dstfilelines.Count )
|
||||||
|
{
|
||||||
|
////////////////////////////////////////////////////////
|
||||||
|
bsc=0;
|
||||||
|
p=dstfilelines.At(bdp);//current dst position
|
||||||
|
s1=DSBYTE[p];
|
||||||
|
bs=bsp+1;//found src line, bsc - number of matched
|
||||||
|
while( bs != -1 )//no next line starting with the same symbols
|
||||||
|
&&(bs-bsp<=maxcmpoffset)//check for 100 lines depth
|
||||||
|
&&(bs<srcfilelines.Count)
|
||||||
|
{
|
||||||
|
s2=srcfilelines.At(bs);
|
||||||
|
if(!strcmp(p,s2))
|
||||||
|
{//line found
|
||||||
|
bsc=1;
|
||||||
|
WHILE(bsc<maxcmpstrings)//counting number of matching lines
|
||||||
|
&&(bdp+bsc<dstfilelines.Count)
|
||||||
|
&&(bs+bsc<srcfilelines.Count)
|
||||||
|
&&(!strcmp(dstfilelines.At(bdp+bsc),srcfilelines.At(bs+bsc)))bsc++;
|
||||||
|
BREAK;
|
||||||
|
}
|
||||||
|
if(DSBYTE[s2]==s1)bs=DSDWORD[bs<<2+srcfilelinks];else bs++;
|
||||||
|
}
|
||||||
|
bdc=0;
|
||||||
|
p=srcfilelines.At(bsp);//current src position
|
||||||
|
s1=DSBYTE[p];
|
||||||
|
bd=bdp+1;//found dst line, bsc - number of matched
|
||||||
|
while( bd != -1 )//no next line starting with the same symbols
|
||||||
|
&&(bd-bdp<=maxcmpoffset)//check for 100 lines depth
|
||||||
|
&&(bd<dstfilelines.Count)
|
||||||
|
{
|
||||||
|
s2=dstfilelines.At(bd);
|
||||||
|
if(!strcmp(p,s2))
|
||||||
|
{
|
||||||
|
bdc=1;
|
||||||
|
WHILE(bdc<maxcmpstrings)//counting number of matching lines
|
||||||
|
&&(bsp+bdc<srcfilelines.Count)
|
||||||
|
&&(bd+bdc<dstfilelines.Count)
|
||||||
|
&&(!strcmp(srcfilelines.At(bsp+bdc),dstfilelines.At(bd+bdc)))bdc++;
|
||||||
|
BREAK;
|
||||||
|
}
|
||||||
|
if(DSBYTE[s2]==s1)bd=DSDWORD[bd<<2+dstfilelinks];else bd++;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(bsc<bdc)
|
||||||
|
if(bd-bdp<bdc)
|
||||||
|
||(bdc>=mincmpstrings)
|
||||||
|
{
|
||||||
|
WHILE(bdp<bd){
|
||||||
|
diffs.Insert(srcfilenums.Count);
|
||||||
|
srcfilenums.Insert(-1); dstfilenums.Insert(bdp); bdp++;
|
||||||
|
}
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(strcmp(srcfilelines.At(bsp),dstfilelines.At(bdp)))diffs.Insert(srcfilenums.Count);
|
||||||
|
//lines are equal
|
||||||
|
srcfilenums.Insert(bsp); bsp++;
|
||||||
|
dstfilenums.Insert(bdp); bdp++;
|
||||||
|
CONTINUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
free(srcfilelinks);
|
||||||
|
free(dstfilelinks);
|
||||||
|
|
||||||
|
if(!diffs.Count)
|
||||||
|
notify("'Nothing to compare' -E");
|
||||||
|
else ifinit();
|
||||||
|
|
||||||
|
diffs.DeleteAll(); delete diffs;
|
||||||
|
dstfilenums.DeleteAll(); delete dstfilenums;
|
||||||
|
srcfilenums.DeleteAll(); delete srcfilenums;
|
||||||
|
dstfilelines.DeleteAll(); delete dstfilelines;
|
||||||
|
srcfilelines.DeleteAll(); delete srcfilelines;
|
||||||
|
free(dstfile);
|
||||||
|
free(srcfile);
|
||||||
|
}
|
||||||
106
programs/cmm/vfc/vfc_gui.h
Normal file
106
programs/cmm/vfc/vfc_gui.h
Normal file
@ -0,0 +1,106 @@
|
|||||||
|
#include "../lib/gui.h"
|
||||||
|
#include "../lib/obj/box_lib.h"
|
||||||
|
#include "../lib/obj/proc_lib.h"
|
||||||
|
#include "../lib/patterns/simple_open_dialog.h"
|
||||||
|
|
||||||
|
char default_dir[] = "/rd/1";
|
||||||
|
od_filter filter2 = {0,0};
|
||||||
|
|
||||||
|
int mouse_dd1, mouse_dd2;
|
||||||
|
char src_box_text[4096];
|
||||||
|
char dst_box_text[4096];
|
||||||
|
edit_box src_box = {340,20,35,0xffffff,0x94AECE,0xFFFfff,0xffffff,0x10000000,sizeof(src_box_text),#src_box_text,#mouse_dd1, 10b};
|
||||||
|
edit_box dst_box = {340,20,95,0xffffff,0x94AECE,0xFFFfff,0xffffff,0x10000000,sizeof(dst_box_text),#dst_box_text,#mouse_dd2, 0b};
|
||||||
|
|
||||||
|
#define BID_EXIT_PRC 01
|
||||||
|
#define BID_SRC_OPEN 10
|
||||||
|
#define BID_DST_OPEN 11
|
||||||
|
#define BID_COMPARE 12
|
||||||
|
|
||||||
|
proc_info Form;
|
||||||
|
|
||||||
|
void gui()
|
||||||
|
{
|
||||||
|
word btn;
|
||||||
|
char run_param[4096];
|
||||||
|
load_dll(boxlib, #box_lib_init,0);
|
||||||
|
load_dll(Proc_lib, #OpenDialog_init,0);
|
||||||
|
OpenDialog_init stdcall (#o_dialog);
|
||||||
|
SetEventMask(0x27);
|
||||||
|
|
||||||
|
loop() switch(WaitEvent())
|
||||||
|
{
|
||||||
|
case evMouse:
|
||||||
|
edit_box_mouse stdcall (#src_box);
|
||||||
|
edit_box_mouse stdcall (#dst_box);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case evButton:
|
||||||
|
btn = GetButtonID();
|
||||||
|
switch (btn)
|
||||||
|
{
|
||||||
|
case BID_EXIT_PRC:
|
||||||
|
ExitProcess();
|
||||||
|
case BID_SRC_OPEN:
|
||||||
|
OpenDialog_start stdcall (#o_dialog);
|
||||||
|
if (o_dialog.status) {
|
||||||
|
strcpy(#src_box_text, #openfile_path);
|
||||||
|
src_box.size = src_box.pos
|
||||||
|
= src_box.shift = src_box.shift_old = strlen(#src_box_text);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case BID_DST_OPEN:
|
||||||
|
OpenDialog_start stdcall (#o_dialog);
|
||||||
|
if (o_dialog.status) {
|
||||||
|
strcpy(#dst_box_text, #openfile_path);
|
||||||
|
dst_box.size = dst_box.pos
|
||||||
|
= dst_box.shift = dst_box.shift_old = strlen(#dst_box_text);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case BID_COMPARE:
|
||||||
|
sprintf(#run_param, "\"%s\" \"%s\"", #src_box_text, #dst_box_text);
|
||||||
|
io.run(#program_path+1, #run_param);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
case evKey:
|
||||||
|
GetKeys();
|
||||||
|
if (key_scancode == SCAN_CODE_ESC) ExitProcess();
|
||||||
|
if (key_scancode == SCAN_CODE_TAB) {
|
||||||
|
if ( src_box.flags & 10b ) {
|
||||||
|
src_box.flags -= 10b;
|
||||||
|
dst_box.flags += 10b;
|
||||||
|
} else {
|
||||||
|
src_box.flags += 10b;
|
||||||
|
dst_box.flags -= 10b;
|
||||||
|
}
|
||||||
|
edit_box_draw stdcall (#src_box);
|
||||||
|
edit_box_draw stdcall (#dst_box);
|
||||||
|
}
|
||||||
|
EAX = key_editbox;
|
||||||
|
edit_box_key stdcall (#src_box);
|
||||||
|
EAX = key_editbox;
|
||||||
|
edit_box_key stdcall (#dst_box);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case evReDraw:
|
||||||
|
draw_window();
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void draw_window()
|
||||||
|
{
|
||||||
|
system.color.get();
|
||||||
|
DefineAndDrawWindow(215, 100, 450, 195 + skin_height, 0x34, system.color.work, #window_title);
|
||||||
|
GetProcessInfo(#Form, SelfInfo);
|
||||||
|
|
||||||
|
WriteText(src_box.left-2, src_box.top-21, 0x90, system.color.work_text, "First file:");
|
||||||
|
WriteText(dst_box.left-2, dst_box.top-21, 0x90, system.color.work_text, "Second file:");
|
||||||
|
DrawEditBox(#src_box);
|
||||||
|
DrawEditBox(#dst_box);
|
||||||
|
DrawStandartCaptButton(src_box.left + src_box.width + 15, src_box.top-3, BID_SRC_OPEN, "...");
|
||||||
|
DrawStandartCaptButton(dst_box.left + dst_box.width + 15, dst_box.top-3, BID_DST_OPEN, "...");
|
||||||
|
DrawStandartCaptButton(dst_box.left - 2, dst_box.top + 40, BID_COMPARE, "Compare");
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue
Block a user