Programming

Voila, PowerPC architecture is being supported. Snapshots at:

https://cdn.openbsd.org/pub/OpenBSD/snapshots/powerpc64/

this is fucked up!

llvm is globohymu

#+name: 2026-01-30-12-56
#+begin_src emacs-lisp :eval no :results none :lexical t
;; url-retrieve-synchronously advice
(!let ((urs 'url-retrieve-synchronously))
:collect-symbol: !def
(!def wait ((sit-for 1))))
(!def adv
(![&optional urs url silent u timeout]
(cond*
((bind* (_ (url-p url)))
(setq url (url-recreate-url url)))
((or (not (executable-find "curl"))
(not (string-match-p "^http[s]?:" url)))
(urs url silent u timeout))
((bind* (cmd "curl") (inhibit-message silent)
(opt `("-is" "--ssl-no-revoke" ,url))
(B (format " *%s*" url)) P
(B (generate-new-buffer B)))
(with-current-buffer B (set-buffer-multibyte nil))
(setq P (apply #'start-process cmd B cmd opt))
(message "Retrieving %s..." url)
(if (null timeout) (wait P)
(with-timeout
(timeout (message "Timeout: %s." url)
(delete-process P) (kill-buffer B))
(wait P))))
((eq (process-status P) 'exit)
(message "Retrieving %s done." url)
(with-current-buffer B
(save-excursion
(goto-char (point-min))
(save-match-data
(when (re-search-forward "^\r$" nil t)
(delete-region
(match-beginning 0) (match-end 0))))
(goto-char (point-max))
(forward-line -1) (delete-line))
B)))))
(
(advice-remove urs adv))))
#+end_src

#+begin_src emacs-lisp :noweb yes :lexical t :results none
(!def (! bootstrap def 'ursa)
<<2026-01-30-12-56>>)
#+end_src