Initial commit

.tmp_axprobe/url.swift

@@ -0,0 +1,23 @@
+import Cocoa
+let pid = pid_t(CommandLine.arguments[1])!
+let app = AXUIElementCreateApplication(pid)
+var wRef: CFTypeRef?
+AXUIElementCopyAttributeValue(app, kAXFocusedWindowAttribute as CFString, &wRef)
+func findWeb(_ e: AXUIElement, _ depth: Int) {
+    if depth > 12 { return }
+    var r: CFTypeRef?
+    AXUIElementCopyAttributeValue(e, kAXRoleAttribute as CFString, &r)
+    if (r as? String) == "AXWebArea" {
+        var u: CFTypeRef?
+        AXUIElementCopyAttributeValue(e, "AXURL" as CFString, &u)
+        var t: CFTypeRef?
+        AXUIElementCopyAttributeValue(e, kAXTitleAttribute as CFString, &t)
+        print("WebArea title=\(String(describing: t)) url=\(String(describing: u))")
+        return
+    }
+    var kids: CFTypeRef?
+    if AXUIElementCopyAttributeValue(e, kAXChildrenAttribute as CFString, &kids) == .success, let arr = kids as? [AXUIElement] {
+        for k in arr { findWeb(k, depth+1) }
+    }
+}
+if let w = wRef { findWeb(w as! AXUIElement, 0) }