4

私はこのコードを持っています:

(define-foreign-library libc
  (:unix "libc.so.6"))
(use-foreign-library libc)
(defcfun "setlocale" :pointer (category :int) (locale :pointer))

そして私はやりたい：

(with-foreign-string (locale "en_US.UTF-8")
    (setlocale XXXX locale))

上記の呼び出しに渡すことができるように、さまざまな LC_xxx 定数の整数値を見つけるにはどうすればよいですか? これを達成するためのより良い方法はありますか？

4

2 に答える 2

2

Lispコードで定数を再宣言する必要があります。実際、CFFIはあなたのためにこれを行うことができます。

于 2011-06-10T10:54:21.720 に答える
1

私はこれを私のlocale.hで見ます：

/* These are the possibilities for the first argument to setlocale.
   The code assumes that the lowest LC_* symbol has the value zero.  */
#define LC_CTYPE          __LC_CTYPE
#define LC_NUMERIC        __LC_NUMERIC
#define LC_TIME           __LC_TIME
#define LC_COLLATE        __LC_COLLATE
#define LC_MONETARY       __LC_MONETARY
#define LC_MESSAGES       __LC_MESSAGES
#define LC_ALL            __LC_ALL
#define LC_PAPER          __LC_PAPER
#define LC_NAME           __LC_NAME
#define LC_ADDRESS        __LC_ADDRESS
#define LC_TELEPHONE      __LC_TELEPHONE
#define LC_MEASUREMENT    __LC_MEASUREMENT
#define LC_IDENTIFICATION __LC_IDENTIFICATION

およびbits/locale.hには以下が含まれます：

enum
{
  __LC_CTYPE = 0,
  __LC_NUMERIC = 1,
  __LC_TIME = 2,
  __LC_COLLATE = 3,
  __LC_MONETARY = 4,
  __LC_MESSAGES = 5,
  __LC_ALL = 6,
  __LC_PAPER = 7,
  __LC_NAME = 8,
  __LC_ADDRESS = 9,
  __LC_TELEPHONE = 10,
  __LC_MEASUREMENT = 11,
  __LC_IDENTIFICATION = 12
};

それらを出力するCプログラムをコンパイルするだけで済みます。これは、グロベラーが行うことです。

于 2011-07-03T08:54:49.173 に答える