C:\Program Files\WinMerge\MergePlugins
1:jad.exe
2:class diff with jad.sct 下記はファイルの内容
<scriptlet> <!-- Diff Class files with jad plugin for WinMerge . (C) aya_eiya 2012 --> <implements type="Automation"> <property> <get/> </property> <property> <get/> </property> <property> <get/> </property> <property> <get/> </property> <method/> <method/> </implements>
<script language="VBS"> Option Explicit Dim JadPath JadPath="C:\Program Files\WinMerge\MergePlugins\jad.exe"
Function get_PluginEvent() get_PluginEvent = "FILE_PACK_UNPACK" End Function
Function get_PluginDescription() get_PluginDescription = "ClassDiffWithJad" End Function
Function get_PluginFileFilters() get_PluginFileFilters = "\.class$" End Function
Function get_PluginIsAutomatic() get_PluginIsAutomatic = True End Function
Function PackFile(fileSrc, fileDst, pbChanged, pSubcode) PackFile = False End Function
Function UnPackFile(fileSrc, fileDst, pbChanged, pSubcode) Dim FSO Dim cls Dim strm Dim src Set FSO = CreateObject("Scripting.FileSystemObject") Set cls = FSO.GetFile(fileSrc) Set strm = FSO.OpenTextFile(fileDst,2) src = Jad(cls.ParentFolder,cls.Name) strm.Write(src) strm.Close pbChanged = True pSubcode = 0 UnpackFile = True End Function
Function Jad(path_1,class_file) ‘// CreateShell Dim WshShell Dim exec set WshShell = CreateObject("WScript.Shell")
‘// Jad WshShell.CurrentDirectory = path_1 set exec = WshShell.Exec(JadPath + " -p -8 " + class_file) Jad = exec.StdOut.ReadAll() End Function
</script> </scriptlet>
lyphtesttest winmerge class の比較
,