fix(bt): M49 蓝牙控制面重建 — paired-devices/a2dp list-pcms+info/run_cmd 四态+写后真态复查+扫描 ANSI 解析
真机 0.8.49 现场 /usr/bin/meow_netmgrd 是 P1(eb07415) 之前的旧件：`bt status` 无
connected= 字段、`bt connected|devices|a2dp` 连子命令都不存在（被当成写级拒绝）、
`bt paired` 落到 `bluetoothctl paired` → "Invalid command in menu main"。上游只有
NETMGR_UNREACH 才回退直连，INVAL/PERM 直接返回 → 三个列表恒空。
本单修掉「部署新件后依然存在」的三个真 bug + 一个解析缺陷：
1. `bluetoothctl paired` → `paired-devices`（bt_status 计数、bt paired 子命令两处）；
`devices` 只用于补名，不再当配对权威。
2. A2DP：v4.1.1 没有 `a2dp list`。改为 `list-pcms` 取端点 → 每端点 `info <path>`；
MAC 只从 D-Bus 路径的 `dev_XX_..` 段解（真机路径带 `/a2dpsrc/source` 段，
按「最后一段取 token」会拿到 "source"）。info 查不到就跳过，不编造。
3. `run_cmd` 四态（成功有输出/成功无输出/非 0 退出/超时/起不来）+ stderr 有界抓取
(≤256B)：旧实现只回字节数、失败也返回 0 → on/off/connect/disconnect/pair 恒报成功。
写操作改为下发后复查真态（hcitool con / bluetoothctl info Paired: / hciconfig
power），超时或未收敛如实报 MEOW_ERR_NODEV。兼容外壳 run_cmd() 契约不变。
4. 扫描缓存：实时 `[NEW] Device` 行以 ANSI ESC 开头（真机 od -c 证据），旧解析器只认
行首 → 实时行全丢。新增 bt_clean_ansi()/bt_scan_line_parse()：剥 ESC/CSI/控制符、
去 `[bluetooth]# ` 提示符、只认 [NEW] 与裸 Device、排除 [CHG]/[DEL]；bt_scan_on 改用
g_bluetoothctl（原来硬编码，桩对 scan 无效）。
解析器全部抽成纯函数并用真机原始字节做单测（test_bt_ctl.c 扩充：四态、ANSI 样本、
截断/空输出、list-pcms/info、hcitool con）。test_netmgrd.sh 桩改 list-pcms/info +
真机 ANSI 缓存样本；顺带修掉两处宿主可移植性问题（/tmp 不可写→$TMPDIR、桩脚本在
PATH=/bin:/usr/bin 下用了 cat/rm→改 shell 内建，test_wifi_connect 的 g_wpa_cli 悬垂
栈指针）。
按塔要求：本 commit 不含二进制、不改 fw_content.conf（netmgrd 产物由 M51 统一重编）。
build_netmgrd.sh 只做 ROOT/ZIGCC/OUT 环境变量化（旧硬编码 $HOME/Project/R3ProII），
M51 复用；time32 接入仍归 M43。
This commit is contained in:
worker-m49 authored and AskaEth committed
1 parent
00e7271395
commit
370c290160
5 files changed
+1267
-312
No files matched your search
@@ -6,7 +6,7 @@ set -u
|
||||
cd "$(dirname "$0")"
|
||||
BIN="${1:-./meow_netmgrd_host}"
|
||||
Q="${QEMU:-}"
|
||||
T=$(mktemp -d /tmp/netmgrdtest.XXXXXX)
|
||||
T=$(mktemp -d "${TMPDIR:-/tmp}/netmgrdtest.XXXXXX")
|
||||
trap 'kill $DPID 2>/dev/null; rm -rf "$T"' EXIT
|
||||
PASS=0; FAIL=0
|
||||
ck() { # ck <名> <期望子串> <实际>
|
||||
@@ -97,16 +97,24 @@ exit 0
|
||||
EOF
|
||||
cat > "$T/bluealsa-cli" <<'EOF'
|
||||
#!/bin/sh
|
||||
if [ "${1:-}" = "a2dp" ]; then
|
||||
echo "/org/bluealsa/hci0/dev_33_DE_2E_21_AD_30/a2dpsrc:"
|
||||
echo " Type: A2DP Source"
|
||||
echo " Codec: SBC"
|
||||
echo " Sampling: 44100 Hz"
|
||||
echo " Channels: 2"
|
||||
echo " Bits per Sample: 16"
|
||||
echo " State: RUNNING"
|
||||
echo " Acquired: yes"
|
||||
fi
|
||||
# v4.1.1 实际命令表：list-services/list-pcms/status/info/codec/volume/...（没有 a2dp 子命令）
|
||||
case "${1:-}" in
|
||||
list-pcms)
|
||||
# 真机路径带末端段，且结尾字面量不可依赖（首连实测是 /a2dpsrc/sink）：
|
||||
# /org/bluealsa/hci0/dev_XX/a2dpsrc/sink
|
||||
echo "/org/bluealsa/hci0/dev_33_DE_2E_21_AD_30/a2dpsrc/sink";;
|
||||
info)
|
||||
# 真实 info 是按 PCM 路径查属性；桩固定回同一组字段
|
||||
echo "BlueALSA PCM: ${2:-/org/bluealsa/hci0/dev_33_DE_2E_21_AD_30/a2dpsrc}"
|
||||
echo " Transport: A2DP-source"
|
||||
echo " Codec: SBC"
|
||||
echo " CodecConfiguration: 0x3f"
|
||||
echo " Sampling: 44100 Hz"
|
||||
echo " Channels: 2"
|
||||
echo " Bits per Sample: 16"
|
||||
echo " Running: true"
|
||||
echo " State: RUNNING";;
|
||||
esac
|
||||
exit 0
|
||||
EOF
|
||||
cat > "$T/ip" <<'EOF'
|
||||
@@ -179,22 +187,32 @@ OUT=$(env $ENVS $Q "$T/meow_net" bt connected 2>&1)
|
||||
ck T5e "Device 33:DE:2E:21:AD:30 Pudding" "$OUT"
|
||||
ck T5e2 "Device 11:22:33:44:55:66 Speaker" "$OUT"
|
||||
|
||||
# ---- T5f: bt a2dp（P1：bluealsa-cli a2dp list → codec/rate/acquired/role）----
|
||||
# ---- T5f: bt a2dp（M49：bluealsa-cli list-pcms → info <path> → codec/rate/acquired/role）----
|
||||
# v4.1.1 没有 `a2dp list` 子命令，桩只认 list-pcms/info；acquired 由 `Running: true` 推出。
|
||||
OUT=$(env $ENVS $Q "$T/meow_net" bt a2dp 2>&1)
|
||||
ck T5f "codec=SBC" "$OUT"
|
||||
ck T5f2 "rate=44100" "$OUT"
|
||||
ck T5f3 "acquired=1" "$OUT"
|
||||
ck T5f4 "role=src" "$OUT"
|
||||
ck T5f "A2DP 33:DE:2E:21:AD:30" "$OUT"
|
||||
ck T5f2 "codec=SBC" "$OUT"
|
||||
ck T5f3 "rate=44100 Hz" "$OUT"
|
||||
ck T5f4 "channels=2" "$OUT"
|
||||
ck T5f5 "bits=16" "$OUT"
|
||||
ck T5f6 "acquired=1" "$OUT"
|
||||
ck T5f7 "role=src" "$OUT"
|
||||
|
||||
# ---- T5g: bt devices（P1：netmgrd 权威扫描缓存）----
|
||||
cat > "$T/bt_scan.txt" <<'EOF'
|
||||
[NEW] Device 33:DE:2E:21:AD:30 Pudding
|
||||
[NEW] Device AA:BB:CC:DD:EE:FF Earbuds
|
||||
[DEL] Device 00:11:22:33:44:55
|
||||
EOF
|
||||
# ---- T5g: bt devices（P1：netmgrd 权威扫描缓存；M49：实时 [NEW] 行带 ANSI ESC 也要能解析）----
|
||||
# 真机 /tmp/meow_bt_scan.txt 的实时行以 ESC[0;94m[bluetooth]ESC[0m# \rESC[K[001 ESC[0;92m 002NEW 001 ESC[0m 002] 开头
|
||||
{ printf '%s\n' 'Waiting to connect to bluetoothd...'
|
||||
printf '\033[0;94m[bluetooth]\033[0m# \r\033[K[\001\033[0;92m\002NEW\001\033[0m\002] Device 79:85:D6:7B:73:63 79-85-D6-7B-73-63\n'
|
||||
printf '\033[0;94m[bluetooth]\033[0m# scan off\n'
|
||||
printf '\033[0;94m[bluetooth]\033[0m# devices\n'
|
||||
printf 'Device AA:BB:CC:DD:EE:FF Earbuds\n'
|
||||
printf '[DEL] Device 00:11:22:33:44:55\n'
|
||||
} > "$T/bt_scan.txt"
|
||||
OUT=$(env $ENVS $Q "$T/meow_net" bt devices 2>&1)
|
||||
ck T5g "Device 33:DE:2E:21:AD:30 Pudding" "$OUT"
|
||||
ck T5g2 "Device AA:BB:CC:DD:EE:FF Earbuds" "$OUT"
|
||||
ck T5g "Device 79:85:D6:7B:73:63 79-85-D6-7B-73-63" "$OUT" # 实时 ANSI 行（旧实现全丢）
|
||||
ck T5g2 "Device AA:BB:CC:DD:EE:FF Earbuds" "$OUT" # 尾部 devices 块
|
||||
if echo "$OUT" | grep -q "00:11:22:33:44:55"; then
|
||||
FAIL=$((FAIL+1)); echo "FAIL T5g3 [DEL] 行被误当成附近设备: $OUT"
|
||||
else PASS=$((PASS+1)); echo "PASS T5g3 [DEL] 不算附近设备"; fi
|
||||
|
||||
# ---- T5h: bt 写级（connect/pair 等）在宿主 CLI=CALL_OTHER → 拒（仅系统身份+MeowOS 放行，见 T6）----
|
||||
OUT=$(env $ENVS $Q "$T/meow_net" bt connect 33:DE:2E:21:AD:30 2>&1); RC=$?
|
||||
@@ -360,8 +378,13 @@ OUT=$(env $ENVS $Q "$T/meow_net" status 2>&1)
|
||||
ck T18d "rssi=-45" "$OUT"
|
||||
|
||||
# ---- T14: DNS 代理 wire 实测（守护 B：高端口 + 桩上游 + 全局 deny；测 deny/forward/cache）----
|
||||
# 需要「非回环的本机地址」当上游：daemon 明确把 127.0.0.1 排除在上游之外（resolv_backup_apply
|
||||
# 防环路，meow_netmgrd.c:2588）。宿主拿不到这样的地址（例如 Android/Termux 的 hostname 不支持
|
||||
# -I）时这套 wire 测试无法成立 —— 显式 SKIP，而不是留一堆假失败。
|
||||
HOSTIP=$(hostname -I 2>/dev/null | awk '{print $1}')
|
||||
[ -n "$HOSTIP" ] || HOSTIP="127.0.0.1"
|
||||
if [ -z "$HOSTIP" ] || [ "$HOSTIP" = "127.0.0.1" ]; then
|
||||
echo "SKIP T14 DNS wire（本机无 hostname -I 或只有回环地址；daemon 拒绝把 127.0.0.1 当上游以防环路）"
|
||||
else
|
||||
cat > "$T/policy_dns" <<'EOF'
|
||||
global domain=-ads.example.com dns.filter_aaaa=1
|
||||
EOF
|
||||
@@ -422,6 +445,7 @@ ck T14e "deny=1" "$OUT"
|
||||
kill $D2PID 2>/dev/null; wait $D2PID 2>/dev/null
|
||||
# 恢复守护 A 的 MEOW_RESOLV（其未被 DNS 触碰，此处确认）
|
||||
grep -q "nameserver 223.5.5.5" "$T/resolv" && { PASS=$((PASS+1)); echo "PASS T14f daemonA resolv untouched"; } || { FAIL=$((FAIL+1)); echo "FAIL T14f daemonA resolv touched"; }
|
||||
fi # T14 上游能力守卫
|
||||
|
||||
# ---- T19: WiFi connect 状态机/持久化/隐藏网络/中文 SSID（宿主桩直驱 wifi_connect_ex）----
|
||||
# daemon IPC 写级需系统身份（SO_PEERCRED /proc/exe），宿主 CLI=CALL_OTHER 必拒；故用 #include
|
||||
|
||||
Reference in new issue
Block a user