26 lines
548 B
Common Lisp
26 lines
548 B
Common Lisp
(in-package :croatoan)
|
|
|
|
;;; legacy coding
|
|
;;; http://invisible-island.net/ncurses/man/legacy_coding.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; int use_legacy_coding(int level);
|
|
|
|
;;; Low-level C functions
|
|
|
|
(defcfun ("use_legacy_coding" %use-legacy-coding) :int (level :int))
|
|
|
|
;;; High-level Lisp wrappers
|
|
|
|
;; Possible values: 0 (default), 1 and 2.
|
|
(defun set-char-representation (level)
|
|
"Set how char-to-string will represent a char."
|
|
(%use-legacy-coding level))
|
|
|
|
;;; NOTES
|
|
|
|
;; This affects %unctrl/char-to-string. See util.lisp and the manpage.
|
|
|
|
;;; TODOs
|
|
|