Mathematica'nın diff işlevselliğini komut satırından çağırmak mümkün mü?

Question

TortoiseSVN (other Tortoise clients'un yanı sıra), Mathematica'da script - diff dizüstü bilgisayar dosyalarını içerir. Mathematica için Diff işlevselliği AuthorTools paketinde uygulanmaktadır (belki daha iyi bir şey var mı?)

Betik şu anda geçici dizinde küçük bir defter dosyası oluşturarak ve ön uçta açarak çalışır. Dizüstü bilgisayar, difleri yapacak ve dosya adlarının sabit kodlanmış olarak bulunmasını sağlayan büyük bir düğmeye sahiptir.

Bir dezavantaj, fark kodlu dizüstü bilgisayarın geçici dizinde kalması ve temizlenmemesidir. Ayrıca, her fark ettiğimizde bir yardımcı dizüstü bilgisayar açık olması gerekmiyor.

Geçici dizüstü bilgisayardan geçmemek için, komut işlevinden komut işlevselliğini başlatmak mümkün müdür? Veya bu işlemi iyileştirmek için sağlam yoludur ve temp klasörünü yardımcı dizüstü bilgisayarlarla gözden geçirmekten kaçının mı?

Farklı deneyimi geliştirmek için herhangi bir öneri bekliyoruz!

TortoiseSVN bir Windows programı olduğundan, esasen Windows tabanlı çözümlerle ilgileniyorum.

---

Komut dosyasının oluşturduğu örnek bir not defteri. Temizleme ihtiyacı duyduğunun farkındayım, ama son kez kontrol ettim, versiyon 5'de de çalıştım (!), Bu yüzden gereksiz yere dokunmak istemedim (bir şeyi gözle görülür bir şekilde geliştirmeden).

Notebook[{ 
    Cell[BoxData[ButtonBox["\<\"Compare Notebooks\"\>", 
     ButtonFrame->"DialogBox", Active->True, ButtonEvaluator->Automatic, 
     ButtonFunction:>(Needs["AuthorTools`"]; NotebookPut[Symbol["NotebookDiff"]["one.nb", "two.nb"]]) 
    ]], NotebookDefault] }, 
    Saveable->False, Editable->False, Selectable->False, WindowToolbars->{}, 
    WindowFrame->ModelessDialog, WindowElements->{}, 
    WindowFrameElements->CloseBox, WindowTitle->"Diff", 
    ShowCellBracket->False, WindowSize->{Fit,Fit} 
] 

Answer 1

Bir Mathematica komut dosyası kullanarak dizüstü bilgisayar farkını üretmenin basit bir örneği.

Needs["AuthorTools`"] 
If[Length[$ScriptCommandLine]>=3, 
    {f1, f2} = $ScriptCommandLine[[{2,3}]], 
    {f1, f2} = {"one.nb", "two.nb"}] 
diff = FileNameJoin[{$TemporaryDirectory, "diff.nb"}] 
Put[NotebookDiff[f1, f2], diff] 
Run["Mathematica " <> diff] 
DeleteFile[diff] 
Exit[] 

Sonra MathematicaScript -script diff.m "one.nb" "two.nb" kullanarak komut satırından diyoruz

diff.m olarak

kaydet aşağıdaki. Bu sistemimde çalışır (Ubuntu 11.10, Mathematica 8.0.1) ve platformdan bağımsız olmalıdır. V8'den daha eski bir Mathematica sürümü kullanıyorsanız, MathematicaScript yerine MathKernel -noprompt -run < diff.m kullanmanız ve {f1, f2} için varsayılan değerler kullanılacaktır.