Changeset 3029

Timestamp:

03/02/03 18:19:50 (6 years ago)

Author:

himi

Message:

(mw32_encode_lispy_string)
(mw32_decode_lispy_string): New functions.

Files:

• work/cvs2svn/src/mw32fns.c (modified) (1 diff)

work/cvs2svn/src/mw32fns.c

@@ -2067 +2067 @@
-  coding->composing = COMPOSITION_DISABLED;
-  return encoding_buffer_size (coding, bytes);
+}
+
+/* 
+   Encode str in Lisp String to string for external systems,
+   which include Windows APIs.
+   This function returns a string in LPTSTR, and set the size
+   in byte to *psize only if psize is not NULL.
+*/
+LPTSTR
+mw32_encode_lispy_string (Lisp_Object coding_system,
+                          Lisp_Object str,
+                          int *psize)
+{
+  str = code_convert_string_norecord (str, coding_system, 1);
+  if (psize) *psize = LISPY_STRING_BYTES(str);
+
+  return (LPTSTR) XSTRING(str)->data;
+}
+
+/* 
+   Decode tstr in LPTSTR to Lisp String for Emacs system.
+   This function returns a Lisp String.  If size is not 0,
+   it is regarded as size of tstr in byte.  If size is 0,
+   this function call lstrlen to count the byte size of tstr.
+*/
+Lisp_Object
+mw32_decode_lispy_string (Lisp_Object coding_system,
+                          LPTSTR tstr, int size)
+{
+  Lisp_Object str;
+  if (size == 0) {
+    size = lstrlen (tstr);
+  }
+  str = make_string (tstr, size);
+  return code_convert_string_norecord (str, coding_system, 0);
-}
-