feat(delegate): 清單加一欄記唯讀盤點的實際指令
切片交的那幾支，助理現在只會提醒不會動手，因為沒有東西記得下「那一段唯讀盤點到底要跑什麼」。清單加第十二欄記具體指令，種入那一支有值就拿它當動作、沒值才退回只提醒。 只認三種寫法。一行指令，路徑一律寫成代入點開頭，由種入那一支代進字面絕對根目錄；指令裡不可以出現金錢符號或波浪號，那兩種在無人值守那一輪解不出來也進不了允許清單，會被靜靜擋掉。要標未接線就寫理由，留白的話下一輪分不出是刻意還是漏填。沒有唯讀入口的寫減號。 觸發型與不交的列一律填減號。觸發的意思是呼叫整支技能，這一欄填了指令會讓種入那一支改拿指令當動作，於是整支交出降級成只跑一支腳本，該寫的頁一頁都不會寫，而且看起來完全正常。這條由檢核腳本擋。 逐項回各存放庫核對，不照抄既有盤點的措辭，因而抓到五處對不上實際腳本的地方。 最要緊的一處：既有盤點點名的那支工具腳本要三個參數，其中兩個無人值守那一輪根本拿不到，而且它是唯一會去問遠端的一方。改用同一件事的本機那一半，而那個子命令剛好在閘門腳本「免讀標準輸入」的清單裡。這一點非確認不可：同一支腳本的另一個子命令不在那份清單上，標準輸入是管線又沒人關閉時會一直等，實測會無限卡住。腳本自己的註解就記著這個坑，說工具腳本轉呼叫時曾經整支卡死——那正是先前心跳斷掉的同一種死法。 另一處：既有盤點點名的同步子命令會寫檔，不是唯讀。那一列剛好是觸發型所以填減號、衝突沒落地，但措辭本身是錯的。 七項標成未接線，理由都是要連網要金鑰。連網那一種一過期就讓那一項每輪失敗，或每輪靜靜回報沒事——後者更難查；而純本機讀取本來一輪都不會失敗。先填會連網的，等於用一批每輪報錯的項目把真的發現蓋掉。 還記下一件接線那天要注意的事：查遠端版本那一支永遠回成功，查不到就安靜放行，所以金鑰失效時它會靜靜回報沒有新版。接線要用另一個子命令，那個有「查不出來」這第三種結論。 檢核腳本從四項檢查改成五項。填錯欄位、指到不存在的腳本、用了認不得的代入點都算缺失；標未接線只印提示，那是判過知道還沒接，不是漏填；指到的 domain 本機沒裝也只提示，那是機器少裝一套不是清單填錯，算缺失會讓半套機器每輪亮紅。 五支技能異動流程一併改：寫清單時要問到並寫下這一欄，重判時要一併重問，刪除時要檢查別列有沒有指到一起刪掉的腳本，一次改多支時要注意跨存放庫搬腳本是這一欄最容易過期的地方。
This commit is contained in:
+80
-13
@@ -4,12 +4,13 @@
|
||||
# 用法: check-delegate.sh [<plugins-root>]
|
||||
# 不給參數就交給 tools/plugins-root.sh 推導根目錄，判準與 list-skills.sh 完全相同。
|
||||
#
|
||||
# 檢查四項:
|
||||
# 檢查五項:
|
||||
# 1. 一一對應 — 清單一支技能一列，跟 list-skills.sh 的實際技能不多不少，也不重複。
|
||||
# 2. 欄位齊全 — 11 欄，每一欄非空；四種結論各自的必填欄位都填了，不該填的填 -。
|
||||
# 2. 欄位齊全 — 12 欄，每一欄非空；四種結論各自的必填欄位都填了，不該填的填 -。
|
||||
# 3. 欄位可填值 — verdict、way、trigger、recur、origin 只認固定詞彙；next 要指到
|
||||
# 一支真的存在的技能。指到不存在的技能，助理會一路重試一支叫不出來的東西。
|
||||
# 4. 版本號與來源 — 只印提示，不影響結束碼，理由見下。
|
||||
# 4. 唯讀指令 — probe 的填法與那一支腳本在不在，判準見下。
|
||||
# 5. 版本號與來源 — 只印提示，不影響結束碼，理由見下。
|
||||
#
|
||||
# 為什麼要這支: 技能組每天在動，手工盤點只會過期。清單缺一列，助理就永遠不知道那支技能
|
||||
# 存在；清單多一列，助理會去觸發一支不存在的技能，而且失敗不會自動暫停。這兩件事靠眼睛
|
||||
@@ -23,11 +24,25 @@
|
||||
# 知道它待複核。它是「已經有結論、但要再確認一次」，不是「漏填」。列成缺失會讓清單從
|
||||
# 第一天就是紅的，紅到全部複核完為止，這段期間所有真的缺失都會被蓋掉。
|
||||
#
|
||||
# probe 什麼算缺失、什麼只算提示: 缺失的判準只有一條——這一列照著跑，無人值守那一輪會出事。
|
||||
# 四種算缺失:
|
||||
# 一、way 含 invoke 或這一列不交，probe 卻填了指令。種入那一支會改拿指令當待辦簿的動作，
|
||||
# 整支交出於是變成只跑一支腳本，那支技能該寫的頁一頁都不會寫，而且看起來完全正常。
|
||||
# 二、way 只有 patrol 或 remind，probe 卻是減號。那幾列的動作原本一律退回只提醒，
|
||||
# 等於判過要交、實際什麼都沒交出去。接不上就寫 pending 並講明理由，別留減號。
|
||||
# 三、指令裡有金錢符號或波浪號，或用了 root、cli、repo 以外的代入點。前者在無人值守
|
||||
# 那一輪解不出來也進不了允許清單，後者代不進去會原樣送進指令，兩種都是靜靜失敗。
|
||||
# 四、指令指到的腳本在本機不存在。助理每一輪都會叫不到它，而失敗不會自動暫停。
|
||||
# 兩種只算提示:
|
||||
# 一、pending:{理由}。入口還沒接上是判過的結論，跟 origin=seed 同一類，不是漏填。
|
||||
# 二、指令指到的 domain 本機沒有裝。那是這台機器少裝一個 domain，不是清單填錯——
|
||||
# 算成缺失的話，只裝半套的機器每一輪都亮紅，真的填錯反而看不見。
|
||||
#
|
||||
# 輸出: 缺失一行一個，格式 {清單路徑}:{domain}/{name}:{說明}（stderr）；
|
||||
# 提示同格式（stdout），讓呼叫端分得開缺失與提示；統計摘要走 stderr。
|
||||
# 結束碼: 0=清單與實際技能一一對應、必填欄位齊全（可能帶提示，提示不影響這一碼）
|
||||
# 1=缺列、多列、重複列、欄位空著、欄位值不合法，或 next 指到不存在的技能，
|
||||
# 清單在 stderr
|
||||
# 1=缺列、多列、重複列、欄位空著、欄位值不合法、next 指到不存在的技能，
|
||||
# 或 probe 填錯欄位、指到不存在的腳本、用了認不得的代入點，清單在 stderr
|
||||
# 2=用法錯誤（本腳本最多吃一個參數）
|
||||
# 3=找不到 tools/delegate-spec.tsv、推導不出根目錄，或列不出任何技能——
|
||||
# **什麼都沒查**，不等於通過
|
||||
@@ -63,8 +78,9 @@ TAB=$(printf '\t')
|
||||
cut -f1,2 "$TMPD/raw.txt" | LC_ALL=C sort > "$TMPD/skills.txt"
|
||||
[ -s "$TMPD/skills.txt" ] || { echo "掃不到任何技能：$ROOT" >&2; exit 3; }
|
||||
|
||||
# 各 domain 的現行版本號。domain 名以 plugin.json 的 name 為準，checkout 目錄名只是退路：
|
||||
# 目錄名是誰 clone 誰決定的，換一台機器就可能叫別的名字。
|
||||
# 各 domain 的現行版本號與本機目錄。domain 名以 plugin.json 的 name 為準，checkout 目錄名
|
||||
# 只是退路：目錄名是誰 clone 誰決定的，換一台機器就可能叫別的名字。第三欄記那個目錄，
|
||||
# probe 要拿它把 {root}/jsc-{domain} 換成本機的實際位置，才驗得到腳本在不在。
|
||||
: > "$TMPD/versions.txt"
|
||||
for p in "$ROOT"/*/plugin.json; do
|
||||
[ -f "$p" ] || continue
|
||||
@@ -75,7 +91,7 @@ for p in "$ROOT"/*/plugin.json; do
|
||||
*) continue ;;
|
||||
esac
|
||||
[ -n "$v" ] || continue
|
||||
printf '%s\t%s\n' "${n#jsc-}" "$v" >> "$TMPD/versions.txt"
|
||||
printf '%s\t%s\t%s\n' "${n#jsc-}" "$v" "${p%/plugin.json}" >> "$TMPD/versions.txt"
|
||||
done
|
||||
|
||||
# 清單資料列：# 開頭的註解與空行都不算。
|
||||
@@ -112,7 +128,7 @@ while IFS="$TAB" read -r d n; do
|
||||
report "$d/$n" '清單多這一列，本機沒有這支技能。請刪掉，否則助理會去觸發叫不出來的技能'
|
||||
done < "$TMPD/extra.txt"
|
||||
|
||||
# --- 2~4. 逐列查欄位。多出來的列上面已經報過，這裡跳過，同一個缺陷不印兩遍。 ---
|
||||
# --- 2~5. 逐列查欄位。多出來的列上面已經報過，這裡跳過，同一個缺陷不印兩遍。 ---
|
||||
awk -F"$TAB" \
|
||||
-v SPEC="$SPEC" -v SKILLS="$TMPD/skills.txt" -v VERS="$TMPD/versions.txt" \
|
||||
-v FAILS="$TMPD/fail-row.txt" -v HINTS="$TMPD/hint.txt" '
|
||||
@@ -139,23 +155,44 @@ function trig_ok(t, e) {
|
||||
if (t ~ /^after:..*$/) { e = substr(t, 7); sub(/:.*$/, "", e); return (e in EV) }
|
||||
return 0
|
||||
}
|
||||
# probe 裡認不得的代入點，回傳第一個；全部認得回傳空字串。認不得的代入點代不進去，
|
||||
# 會原樣送進指令，於是那一輪安安靜靜跑錯東西。
|
||||
function ph_bad(s, t, p) {
|
||||
t = s
|
||||
while (match(t, /\{[^}]*\}/)) {
|
||||
p = substr(t, RSTART + 1, RLENGTH - 2)
|
||||
if (!(p in PH)) return p
|
||||
t = substr(t, RSTART + RLENGTH)
|
||||
}
|
||||
return ""
|
||||
}
|
||||
# probe 的第一個非環境變數指派詞，也就是腳本路徑本身。
|
||||
function script_of(s, n, a, i) {
|
||||
n = split(s, a, " ")
|
||||
for (i = 1; i <= n; i++) {
|
||||
if (a[i] ~ /^[A-Za-z_][A-Za-z0-9_]*=/) continue
|
||||
return a[i]
|
||||
}
|
||||
return ""
|
||||
}
|
||||
BEGIN {
|
||||
split("full slice cond none", a, " "); for (i in a) VERDICT[a[i]] = 1
|
||||
split("invoke patrol remind", b, " "); for (i in b) WAY[b[i]] = 1
|
||||
split("seed judged", c, " "); for (i in c) ORIGIN[c[i]] = 1
|
||||
split("worklog-written wp-merged stage-entered analyze-completed hook-error session-start session-end", \
|
||||
d, " "); for (i in d) EV[d[i]] = 1
|
||||
split("root cli repo", e, " "); for (i in e) PH[e[i]] = 1
|
||||
}
|
||||
FILENAME == SKILLS { sk[$1 "\t" $2] = 1; next }
|
||||
FILENAME == VERS { cur[$1] = $2; next }
|
||||
FILENAME == VERS { cur[$1] = $2; ddir[$1] = $3; next }
|
||||
{
|
||||
key = $1 "/" $2
|
||||
if (NF != 11) { bad(key, "這一列有 " NF " 欄，合約規定 11 欄"); next }
|
||||
if (NF != 12) { bad(key, "這一列有 " NF " 欄，合約規定 12 欄"); next }
|
||||
if (!(($1 "\t" $2) in sk)) next
|
||||
verdict = $3; way = $4; slice = $5; human = $6
|
||||
trig = $7; rec = $8; nxt = $9; ver = $10; org = $11
|
||||
trig = $7; rec = $8; nxt = $9; ver = $10; org = $11; probe = $12
|
||||
|
||||
for (i = 1; i <= 11; i++)
|
||||
for (i = 1; i <= 12; i++)
|
||||
if ($i == "") bad(key, "第 " i " 欄是空的。TSV 沒有空格這種值，不填就寫一個減號")
|
||||
|
||||
if (!(verdict in VERDICT)) {
|
||||
@@ -202,6 +239,36 @@ FILENAME == VERS { cur[$1] = $2; next }
|
||||
if (ver !~ /^[0-9]+(\.[0-9]+)*$/) bad(key, "version 要是 plugin 版本號，實際是「" ver "」")
|
||||
else if (($1 in cur) && vlt(ver, cur[$1]))
|
||||
hint(key, "判定時記的版本號 " ver " 落後 jsc-" $1 " 現行的 " cur[$1] "，要複判")
|
||||
|
||||
# --- probe：那一段唯讀盤點實際要跑的指令。判準見檔頭「什麼算缺失、什麼只算提示」。 ---
|
||||
if (verdict == "none" || way ~ /(^|,)invoke(,|$)/) {
|
||||
if (probe != "-")
|
||||
bad(key, "way 含 invoke 或這一列不交，probe 要寫 -，實際是「" probe "」。填了指令，種入那一支會改拿指令當動作，整支交出就變成只跑一支腳本")
|
||||
} else if (probe == "-") {
|
||||
bad(key, "way 只有 patrol 或 remind，probe 不可以是 -：沒有指令的那幾筆一律退回只提醒，等於判過要交卻什麼都沒交出去。接不上就寫 pending:{理由}")
|
||||
}
|
||||
|
||||
if (probe ~ /^pending:/) {
|
||||
if (probe == "pending:") bad(key, "pending 後面要寫不接的理由，留白的話下一輪分不出是刻意還是漏填")
|
||||
else hint(key, "probe=" probe "：唯讀盤點的入口還沒接上，待接線")
|
||||
} else if (probe != "-") {
|
||||
if (probe ~ /[$~]/)
|
||||
bad(key, "probe 裡有金錢符號或波浪號，實際是「" probe "」。那兩種寫法在無人值守那一輪解不出來，也進不了允許清單，會被靜靜擋掉")
|
||||
p2 = ph_bad(probe)
|
||||
if (p2 != "")
|
||||
bad(key, "probe 用了認不得的代入點「{" p2 "}」，只認 {root}、{cli}、{repo}。代不進去的字面值會原樣送進指令")
|
||||
sp = script_of(probe)
|
||||
if (sp !~ /^\{root\}\/jsc-[a-z0-9-]+\/..*$/)
|
||||
bad(key, "probe 的腳本路徑要寫成 {root}/jsc-{domain}/… ，實際是「" sp "」")
|
||||
else {
|
||||
pd = sp; sub(/^\{root\}\/jsc-/, "", pd); sub(/\/.*$/, "", pd)
|
||||
rest = sp; sub(/^\{root\}\/jsc-[a-z0-9-]+\//, "", rest)
|
||||
if (!(pd in ddir))
|
||||
hint(key, "probe 指到的 jsc-" pd " 本機沒有裝，這一列的腳本這一次驗不到")
|
||||
else if (system("test -f '\''" ddir[pd] "/" rest "'\''") != 0)
|
||||
bad(key, "probe 指到的腳本不存在：" ddir[pd] "/" rest "。助理每一輪都會叫不到它，而失敗不會自動暫停")
|
||||
}
|
||||
}
|
||||
}
|
||||
' "$TMPD/skills.txt" "$TMPD/versions.txt" "$TMPD/rows.txt"
|
||||
|
||||
|
||||
Reference in New Issue
Block a user