local F = far.Flags local ffi = require'ffi' local C = ffi.C local guid = "FE9B8874-9651-434C-8182-72329F2371A5" local uGuid = win.Uuid(guid) local BS,ts = string.byte("\\"),{nil,true,9999,true,true,false} local freport = "Z:\\Temp\\Report.txt" ffi.cdef[[ int strcmp(const char*, const char*); int _stricmp(const char*, const char*); int _strnicmp(const char*, const char*, size_t); int strncmp(const char*, const char*, size_t); char* strrchr(const char*, int); size_t strlen(const char*); int memcmp(const void*, const void*, size_t); ]] local function StartAndLen(name) local ptr = C.strrchr(name,BS) name = ptr==nil and name or ptr+1 local len = tonumber(C.strlen(name)) return name,len end local Items = { --[[01]] {F.DI_DOUBLEBOX, 3,1, 65,6, 0, 0,0, 0, "Select duplicates of FileName. Help: F1"}, --[[02]] {F.DI_CHECKBOX, 5,2, 26,2, 0, 0,0, 0, "Num&ber of symbols"}, --[[03]] {F.DI_EDIT, 27,2, 31,2, 0, 0,0, 0, ""}, --[[04]] {F.DI_CHECKBOX, 5,3, 20,3, 0, 0,0, 0, "Ignore &case"}, --[[05]] {F.DI_CHECKBOX, 37,3, 56,3, 0, 0,0, 0, "Ignore &full duplicates"}, --[[06]] {F.DI_CHECKBOX, 5,5, 15,5, 0, 0,0, 0, "Re&port"}, --[[07]] {F.DI_TEXT, -1,4, 0,0, 0, 0,0, F.DIF_SEPARATOR,""}, --[[08]] {F.DI_BUTTON, 0,5, 0,0, 0, 0,0, F.DIF_DEFAULTBUTTON+F.DIF_CENTERGROUP,"&Ok"}, --[[09]] {F.DI_BUTTON, 0,5, 0,0, 0, 0,0, F.DIF_CENTERGROUP,"Ca&ncel"} } local tts={} local function DlgProc(hDlg,Msg,Param1,Param2) if Msg==F.DN_INITDIALOG then for i=2,#Items-3 do tts[i]=ts[i] end hDlg:send(F.DM_SETTEXT,3,tts[3]) hDlg:send(F.DM_SETCHECK,2,tts[2] and F.BSTATE_CHECKED or F.BSTATE_UNCHECKED) hDlg:send(F.DM_SETCHECK,4,tts[4] and F.BSTATE_CHECKED or F.BSTATE_UNCHECKED) hDlg:send(F.DM_SETCHECK,5,tts[5] and F.BSTATE_CHECKED or F.BSTATE_UNCHECKED) hDlg:send(F.DM_SETCHECK,6,tts[6] and F.BSTATE_CHECKED or F.BSTATE_UNCHECKED) elseif Msg==F.DN_BTNCLICK and (Param1==2 or Param1>=4 and Param1<=6) then tts[Param1] = Param2~=0 elseif Msg==F.DN_EDITCHANGE and Param1==3 then -- Number symbols tts[3] = tonumber(hDlg:send(F.DM_GETTEXT,3)) or tts[3] else return end return true end Macro { description="* Select Duplicates FileName in Branch panel"; name="SDFN"; area="Shell"; action=function() if far.Dialog(uGuid,-1,-1,69,8,nil,Items,nil,DlgProc)==#Items-1 then for i=2,#Items-3 do ts[i]=tts[i] end local pBL=ffi.cast("BOOL*",1) local pc=ffi.cast("struct PluginStartupInfo*",far.CPluginStartupInfo()).PanelControl local pin=panel.GetPanelInfo(nil,1) if bit.band(pin.Flags,F.PFLAGS_SELECTEDFIRST)>0 then Keys("ShiftF12") end pc(PANEL_ACTIVE,"FCTL_SETNUMERICSORT",0,nil) pc(PANEL_ACTIVE,"FCTL_SETCASESENSITIVESORT",ts[4] and 0 or 1,nil) if pin.SortMode~=F.SM_NAME then panel.SetSortMode(nil,1,F.SM_NAME) end local sid,sel,j,fn0,fn1,st0,ln0,st1,ln1,t0 = 0,{},0,"","",0,0,0,0,far.FarClock() local function Proc(i) if i>j then pc(PANEL_ACTIVE,"FCTL_SETSELECTION",i-2,pBL) table.insert(sel,{fn0,1}) sid=1 end pc(PANEL_ACTIVE,"FCTL_SETSELECTION",i-1,pBL) j,sid=i+1,sid+1 sel[#sel][2]=sid end pc(PANEL_ACTIVE,"FCTL_BEGINSELECTION",0,nil) for i=1,pin.ItemsNumber do fn0=fn1 st1,ln1=StartAndLen(panel.GetPanelItem(nil,1,i).FileName) fn1=ffi.string(st1,ln1) if (not ts[2] and not ts[4]) and (not(ts[5] and C.strcmp(fn1,fn0)==0) and C.strcmp(fn1,fn0)==0) then Proc(i) elseif (ts[2] and ts[4]) and (not(ts[5] and C._stricmp(fn1,fn0)==0) and C._strnicmp(fn1,fn0,ts[3])==0) then Proc(i) elseif (ts[2] and not ts[4]) and (not(ts[5] and C.strcmp(fn1,fn0)==0) and C.strncmp(fn1,fn0,ts[3])==0) then Proc(i) elseif (not ts[2] and ts[4]) and (not(ts[5] and C._stricmp(fn1,fn0)==0) and C._stricmp(fn1,fn0)==0) then Proc(i) end end pc(PANEL_ACTIVE,"FCTL_ENDSELECTION",0,nil) pc(PANEL_ACTIVE,"FCTL_REDRAWPANEL",0,nil) Keys("ShiftF12") if ts[6] then table.sort(sel,function(a,b) return a[2]>b[2] end) local s="Execution time: "..far.FarClock()-t0.." mcs\nNumber of symbols: "..(ts[2] and ts[3] or "all").."\nIgnore case: "..tostring(ts[4]).."\nIgnore full duplicates: "..tostring(ts[5]).."\n\n" for i=1,#sel do s=s..sel[i][2].."\t"..sel[i][1].."\n" end fwrite(s,freport) far.Message("mcs: "..far.FarClock()-t0,"SDFN") end end end; } Macro { description = "SDFN - Help"; area = "Dialog"; key = "F1"; condition=function() return Area.Dialog and Dlg.Id==guid end; action=function() if Dlg.CurPos<=3 then far.Message("The number of first symbols to compare","Help: Number of symbols") elseif Dlg.CurPos==4 then far.Message("Case of letters in FileName will be ignored","Help: Ignore case") elseif Dlg.CurPos==5 then far.Message("Full duplicates of FileName will be ignored","Help: Ignore full duplicates") elseif Dlg.CurPos==6 then far.Message("mcs - total time of execution in mcs\nReport will be saved to:\n"..freport,"Help: Report",nil,"l") end end; } |