From: Hoehle, Joerg-C. <Joe...@t-...> - 2003-04-01 14:06:30
|
Hi, >Joerg, what's up?! I don't know. I still have to manage to build a CLISP with modules on = Linux (no, no help needed for now). Please tell me if combinations of these work for you: A:> (linux:fprintf0 linux:stdout "hi") B:FFI[97]> (with-foreign-object (x 'passwd (make-passwd :pw_name "name" = :pw_passwd "pw" :pw_uid 1 :pw_gid 2 :pw_gecos "geck" :pw_dir "/root/" = :pw_shell "Bourne")) (print (foreign-type x)) (describe = x)(foreign-value x)) #(C-STRUCT #(PW_NAME PW_PASSWD PW_UID PW_GID PW_GECOS PW_DIR PW_SHELL) #<COMPILED-CLOSURE :LAMBDA> C-STRING C-STRING UINT UINT C-STRING = C-STRING C-STRING)=20 #<FOREIGN-VARIABLE "FOREIGN-VARIABLE" #x0032A5AC> is a foreign variable = of=20 foreign type=20 (C-STRUCT NIL (PW_NAME C-STRING) (PW_PASSWD C-STRING) (PW_UID UINT) (PW_GID UINT) (PW_GECOS C-STRING) (PW_DIR C-STRING) (PW_SHELL = C-STRING)). #S(PASSWD :PW_NAME "name" :PW_PASSWD "pw" :PW_UID 1 :PW_GID 2 :PW_GECOS = "geck" :PW_DIR "/root/" :PW_SHELL "Bourne") That tests conversion from and to foreign world, without any foreign = function. C: #0 0x080b1283 in nls_asciiext_wcstombs (encoding=3D{one_o =3D = 539610993}, What is your custom:*default-foreign-encoding*? ASCII? Regards, J=F6rg H=F6hle. |