mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

Implement more data type conversions for Haiku selections

Browse source 
* src/haikuselect.c (haiku_message_to_lisp):
(lisp_to_type_code):
(haiku_lisp_to_message):
(Fhaiku_drag_message): Recognize `double' and `float' types.
(syms_of_haikuselect): New defsyms.
This commit is contained in:
Po Lu 2022-05-20 01:49:43 +00:00
parent de9dfb1939
commit d2865bfa2c
1 changed files with 52 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

53
src/haikuselect.c
View file

@ -295,6 +295,14 @@ haiku_message_to_lisp (void *message)
t1 = make_int ((intmax_t) *(ssize_t *) buf);
break;
case 'DBLE':
t1 = make_float (*(double *) buf);
break;
case 'FLOT':
t1 = make_float (*(float *) buf);
break;
default:
t1 = make_uninit_string (buf_size);
memcpy (SDATA (t1), buf, buf_size);
@ -353,6 +361,14 @@ haiku_message_to_lisp (void *message)
t2 = Qpoint;
break;
case 'DBLE':
t2 = Qdouble;
break;
case 'FLOT':
t2 = Qfloat;
break;
default:
t2 = make_int (type_code);
}
@ -398,6 +414,10 @@ lisp_to_type_code (Lisp_Object obj)
return 'SSZT';
else if (EQ (obj, Qpoint))
return 'BPNT';
else if (EQ (obj, Qfloat))
return 'FLOT';
else if (EQ (obj, Qdouble))
return 'DBLE';
else
return -1;
}
@ -416,7 +436,8 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
ssize_t ssizet_data;
intmax_t t4;
uintmax_t t5;
float t6, t7;
float t6, t7, float_data;
double double_data;
int rc;
specpdl_ref ref;
@ -520,6 +541,30 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
signal_error ("Invalid point", data);
break;
case 'FLOT':
CHECK_NUMBER (data);
float_data = XFLOATINT (data);
rc = be_add_message_data (message, SSDATA (name),
type_code, &float_data,
sizeof float_data);
if (rc)
signal_error ("Failed to add float", data);
break;
case 'DBLE':
CHECK_NUMBER (data);
double_data = XFLOATINT (data);
rc = be_add_message_data (message, SSDATA (name),
type_code, &double_data,
sizeof double_data);
if (rc)
signal_error ("Failed to add double", data);
break;
case 'SHRT':
if (!TYPE_RANGED_FIXNUMP (int16, data))
signal_error ("Invalid value", data);
@ -734,6 +779,10 @@ system. If TYPE is `ssize_t', then DATA is an integer that can hold
values from -1 to the maximum value of the C data type `ssize_t' on
the current system. If TYPE is `point', then DATA is a cons of float
values describing the X and Y coordinates of an on-screen location.
If TYPE is `float', then DATA is a low-precision floating point
number, whose exact precision is not guaranteed. If TYPE is `double',
then DATA is a floating point number that can represent any value a
Lisp float can represent.
If the field name is not a string but the symbol `type', then it
associates to a 32-bit unsigned integer describing the type of the
@ -928,6 +977,8 @@ used to retrieve the current position of the mouse. */);
DEFSYM (Qsize_t, "size_t");
DEFSYM (Qssize_t, "ssize_t");
DEFSYM (Qpoint, "point");
DEFSYM (Qfloat, "float");
DEFSYM (Qdouble, "double");
DEFSYM (Qalready_running, "already-running");
defsubr (&Shaiku_selection_data);