gitは行の移動を報告します。

Question

私は次の実装を書いた。TxR言語。まず、アルゴリズムを使用して移動数を決定します。しかし、役に立たない結果が出たことがわかりました。たとえば、単純に一部の行が重複している+ため、行のみを含む変更で「行移動」の正の値を識別しました。+新しいアルゴリズムは最後のコメントで議論されます。

フルプログラム：

#!/usr/bin/env txr
@(bind option-spec
       @(list (opt nil "since" :str
                   "Specifies the starting date (passed \
                   \ through to git); it is mandatory.")
              (opt nil "help" :bool
                   "Prints this help text")))
@(bind parsed-opts @(getopts option-spec *args*))
@(if (or [parsed-opts "help"] (not [parsed-opts "since"])))
@  (output)

usage: @{self-path} --since=<date> -- git arguments
@  (end)
@  (do (opthelp option-spec)
       (exit 0))
@(end)
@(do
   (defun histogram (strings)
     [group-reduce (hash :equal-based) identity (op succ @1) strings 0])

   (defun moved (a b)
     (let* ((hist-a (histogram a))
            (hist-b (histogram b))
            (isec [hash-isec hist-a hist-b min]))
       [reduce-left + (hash-values isec) 0])))
@(next (open-command `git log --since=@[parsed-opts "since"] \
                     \ --date=short --pretty=format:"%H:%ad%x09" \
                     \ --numstat @{parsed-opts.out-args}`))
@(repeat)
@sha:@date@\t
@  (collect :gap 0)
@added@\t@removed@\t@rawpath
@    (next :string rawpath)
@    (cases)
@pro/{@before => @after}/@epi
@      (bind path `@pro/@after/@epi`)
@    (or)
@before => @after
@      (bind path after)
@    (or)
@      (bind path rawpath)
@    (end)
@    (next (open-command `git show -p @sha -- @path`))
@    (collect :vars ((+line nil) (-line nil)))
@      (cases)
+@{+line}
@      (or)
-@{-line}
@      (end)
@    (end)
@    (flatten -line +line)
@    (bind moved @(moved +line -line))
@  (end)
@  (output)
@date@\t
@    (repeat)
@added@\t@removed@\t@moved@\t@rawpath
@    (end)

@  (end)
@(end)

タグ付きの実行ファイルに入れました。movedlines.txr使用法の例は次のとおりです。

$ ./movedlines.txr --since=2017-01-01 path/to

この--sinceオプションは必須です。path/toに渡されるオプションのパラメータですgit。 force オプションを指定しないか指定すると、--helpプログラムはヘルプ・サマリーを印刷して終了します。

メモ:

git日付の左側にコロンで区切られたSHAを含むように、サンプルコマンドの出力形式を少し変更しました%H。プログラムはそれを解析し、SHAを使用してgit show -p各コレクション内の各ファイルに対して操作を実行できます。プログラムが移動した列を追加してシミュレーション出力を逆流する場合、SHAは省略されます。
gitの出力は、名前の変更が複雑な問題であることを示しています。文法は3つのケースに分かれており、@(cases)この構文を使用すると明確で簡単に解析できます。フルパスの名前を変更すると、に名前を変更しますfrom => to。一部のコンポーネントの名前だけを変更した場合be/fore/{from => to}/after。複数の中かっこ構文がパスに表示されるかどうかわかりません。 gitが理解していないので、この構文を変更して通常のパスに変換する必要があります。つまり、be/fore/{from => to}/afterに変換する必要がありますbe/fore/to/after。シンボルなしでパスをこの方法で出力できるgitオプションがあるかもしれません。
が使用されるため、パラメータリストがopen-command必要です。open-process
アルゴリズムは、diff-と +line（先行-OR減算+）の個々の頻度ヒストグラムを計算します。次に、両方のヒストグラムに表示されるヒストグラム項目のみを保持するこれらのセットの交差集合を計算します。交差点の結合機能はですmin。たとえば、行がabc5回追加され、3回削除されたとします。(min 3 5)はい3、移動された行数ですabc。今回の出退勤。 3回削除しabcて5回追加すると、3回移動を意味します。これは決して動きを検出する完全なアルゴリズムではありません。線を検出できないなど、明らかな欠陥があります。実は移動しますが、インデントなどの小さな空間の変化も経験します。

Answer 1

私は次の実装を書いた。TxR言語。まず、アルゴリズムを使用して移動数を決定します。しかし、役に立たない結果が出たことがわかりました。たとえば、単純に一部の行が重複している+ため、行のみを含む変更で「行移動」の正の値を識別しました。+新しいアルゴリズムは最後のコメントで議論されます。

フルプログラム：

#!/usr/bin/env txr
@(bind option-spec
       @(list (opt nil "since" :str
                   "Specifies the starting date (passed \
                   \ through to git); it is mandatory.")
              (opt nil "help" :bool
                   "Prints this help text")))
@(bind parsed-opts @(getopts option-spec *args*))
@(if (or [parsed-opts "help"] (not [parsed-opts "since"])))
@  (output)

usage: @{self-path} --since=<date> -- git arguments
@  (end)
@  (do (opthelp option-spec)
       (exit 0))
@(end)
@(do
   (defun histogram (strings)
     [group-reduce (hash :equal-based) identity (op succ @1) strings 0])

   (defun moved (a b)
     (let* ((hist-a (histogram a))
            (hist-b (histogram b))
            (isec [hash-isec hist-a hist-b min]))
       [reduce-left + (hash-values isec) 0])))
@(next (open-command `git log --since=@[parsed-opts "since"] \
                     \ --date=short --pretty=format:"%H:%ad%x09" \
                     \ --numstat @{parsed-opts.out-args}`))
@(repeat)
@sha:@date@\t
@  (collect :gap 0)
@added@\t@removed@\t@rawpath
@    (next :string rawpath)
@    (cases)
@pro/{@before => @after}/@epi
@      (bind path `@pro/@after/@epi`)
@    (or)
@before => @after
@      (bind path after)
@    (or)
@      (bind path rawpath)
@    (end)
@    (next (open-command `git show -p @sha -- @path`))
@    (collect :vars ((+line nil) (-line nil)))
@      (cases)
+@{+line}
@      (or)
-@{-line}
@      (end)
@    (end)
@    (flatten -line +line)
@    (bind moved @(moved +line -line))
@  (end)
@  (output)
@date@\t
@    (repeat)
@added@\t@removed@\t@moved@\t@rawpath
@    (end)

@  (end)
@(end)

タグ付きの実行ファイルに入れました。movedlines.txr使用法の例は次のとおりです。

$ ./movedlines.txr --since=2017-01-01 path/to

この--sinceオプションは必須です。path/toに渡されるオプションのパラメータですgit。 force オプションを指定しないか指定すると、--helpプログラムはヘルプ・サマリーを印刷して終了します。

メモ:

git日付の左側にコロンで区切られたSHAを含むように、サンプルコマンドの出力形式を少し変更しました%H。プログラムはそれを解析し、SHAを使用してgit show -p各コレクション内の各ファイルに対して操作を実行できます。プログラムが移動した列を追加してシミュレーション出力を逆流する場合、SHAは省略されます。
gitの出力は、名前の変更が複雑な問題であることを示しています。文法は3つのケースに分かれており、@(cases)この構文を使用すると明確で簡単に解析できます。フルパスの名前を変更すると、に名前を変更しますfrom => to。一部のコンポーネントの名前だけを変更した場合be/fore/{from => to}/after。複数の中かっこ構文がパスに表示されるかどうかわかりません。 gitが理解していないので、この構文を変更して通常のパスに変換する必要があります。つまり、be/fore/{from => to}/afterに変換する必要がありますbe/fore/to/after。シンボルなしでパスをこの方法で出力できるgitオプションがあるかもしれません。
が使用されるため、パラメータリストがopen-command必要です。open-process
アルゴリズムは、diff-と +line（先行-OR減算+）の個々の頻度ヒストグラムを計算します。次に、両方のヒストグラムに表示されるヒストグラム項目のみを保持するこれらのセットの交差集合を計算します。交差点の結合機能はですmin。たとえば、行がabc5回追加され、3回削除されたとします。(min 3 5)はい3、移動された行数ですabc。今回の出退勤。 3回削除しabcて5回追加すると、3回移動を意味します。これは決して動きを検出する完全なアルゴリズムではありません。線を検出できないなど、明らかな欠陥があります。実は移動しますが、インデントなどの小さな空間の変化も経験します。

gitは行の移動を報告します。

答え1

関連情報