При работе с текстом мне постоянно приходится менять представление чисел, переводя из одной системы счисления в другую. Что я хотел сказать? Emacs прекрасен. Взял и накидал несколько функций на elisp. Теперь, выделив число в тексте, можно быстро представить его в другой системе. Ниже привожу листинг.
;; convert decimal to binary
(defun pa23-dec2bin (start end)
"Convert decimal to binary."
(interactive "r")
(let ((var 0) (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end)))
(while (not (= var 0))
(setq res (concat (if (= 1 (logand var 1)) "1" "0") res))
(setq var (lsh var -1)) )
(if (string= res "") (setq res "0"))
(delete-region start end)
(insert res) ) )
;; convert decimal to hexadecimal
(defun pa23-dec2hex (start end)
"Convert decimal to hexadecimal."
(interactive "r")
(let ((var 0) (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end)))
(setq res (upcase (format "%x" var)))
(delete-region start end)
(insert res) ) )
;; convert hexadecimal to binary
(defun pa23-hex2bin (start end)
"Convert hexadecimal to binary."
(interactive "r")
(let ((var "") (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end) 16))
(while (not (= var 0))
(setq res (concat (if (= 1 (logand var 1)) "1" "0") res))
(setq var (lsh var -1)) )
(if (string= res "") (setq res "0"))
(delete-region start end)
(insert res) ) )
;; convert hexadecimal to decimal
(defun pa23-hex2dec (start end)
"Convert hexadecimal to decimal."
(interactive "r")
(let ((var 0) (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end) 16))
(setq res (number-to-string var))
(delete-region start end)
(insert res) ) )
;; convert binary to decimal
(defun pa23-bin2dec (start end)
"Convert binary to decimal."
(interactive "r")
(let ((var 0) (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end) 2))
(setq res (number-to-string var))
(delete-region start end)
(insert res) ) )
;; convert binary to hexadecimal
(defun pa23-bin2hex (start end)
"Convert binary to hexadecimal."
(interactive "r")
(let ((var 0) (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end) 2))
(setq res (upcase (format "%x" var)))
(delete-region start end)
(insert res) ) )Так уж получается, что потянуло меня опять по ряду причин на WxWidgets. Системой моей по-прежнему является ArchLinux, а для сборки программ я предпочитаю cmake. Подготовил файлы, запускаю
cmake -G "Unix Makefiles"
и получаю сообщение об ошибке
Расследование привело меня к файлу /usr/lib/wx/config/gtk3-unicode-3.0, на который есть символическая ссылка в /usr/bin. Вот только называется файл-ссылка wx-config-gtk3, а cmake хотел просто wx-config.
Решение проблемы:
sudo ln -s /usr/lib/wx/config/gtk3-unicode-3.0 /usr/bin/wx-config
И наш
cmake -G "Unix Makefiles"
теперь отрабатывает без ошибок.
