// // VI-FILECHK2.VDM C.Z. 25.04.2003 // 21.07.2003 // 13.12.2004 // // Prüft, ob die aktuelle Datei auch noch in parallelen Verzeichnissen existiert. // Wenn ja, werden alle "Doubletten" ebenso geöffnet. // (Entwickelt aus VI-FILECHK.VDM) // // Seit 17.07.2003 mit kompletten Pfaden auch auf DOS C:\transfer\\dir\dir\file // // benötigt BUFCOMP.VDM für Vergleich und Colorierung der Buffer // Reg_Set(104, FILENAME) #105=Buf_Num System('"DIR /S /B C:\transfer\|@(104) > |(VEDIT_TEMP)\vi-filechk.tmp"', DOS+SIMPLE) Buf_Switch(Buf_Free()) File_Open("|(VEDIT_TEMP)\vi-filechk.tmp") Replace("|*\autobak\|*|N","", BEGIN+ALL+NOERR) Replace("|*\!multi\|*|N","", BEGIN+ALL+NOERR) Replace("|*\!old\|*|N","", BEGIN+ALL+NOERR) File_Save(NOMSG) BoF while (! At_EOF) { Ins_Text('File_Open("') EoL Ins_Text('", ATTACH+NOEVENT)') Ins_Text(" if(Buf_Num != #105) {") Ins_Text(" Browse_Mode(SET)") Ins_Text("} ") Line(1, NOERR) } BoF Reg_Copy_Block(106, 0, File_Size) // Open-Liste Buf_Quit(OK) Call(106) Key_Add("Ctrl-F12", `[VISUAL EXIT] #103=BN RS(103, FILENAME) repeat(ALL){#104=Buf_Next if(#104==#103){break} BS(#104) if(Reg_Compare(103, FILENAME)==0){BoF Browse_Mode(CLEAR) DL(ALL) RI(#103+BUFFER) BoF FS(NOMSG) Browse_Mode(SET) BSA('"|(PATHNAME).sync-it"',0,0,OK) }} BS(#103) BoF Call_File(101, 'bufcomp.vdm') Reg_Empty(101)`, OK) Buf_Switch(#105) BoF Win_Tile() Call_File(101, "bufcomp.vdm") Reg_Empty(101)