[ViewVC] Diff of: cvs/rxvt-unicode/src/rxvtperl.xs

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.1 by root, Mon Jan 2 15:35:43 2006 UTC vs.
Revision 1.11 by root, Tue Jan 3 02:01:27 2006 UTC

…		…
35	#include "rxvtutil.h"	35	#include "rxvtutil.h"
36	#include "rxvtperl.h"	36	#include "rxvtperl.h"
37		37
38	#include "perlxsi.c"	38	#include "perlxsi.c"
39		39
		40	#undef LINENO
		41	#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows)
		42	#undef ROW
		43	#define ROW(n) THIS->row_buf [LINENO (n)]
		44
40	/////////////////////////////////////////////////////////////////////////////	45	/////////////////////////////////////////////////////////////////////////////
41		46
42	static wchar_t *	47	static wchar_t *
43	sv2wcs (SV *sv)	48	sv2wcs (SV *sv)
44	{	49	{
…		…
208	}	213	}
209		214
210	bool	215	bool
211	rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)	216	rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
212	{	217	{
213	if (!perl)	218	if (!perl
		219	\|\| (!should_invoke [htype] && htype != HOOK_INIT && htype != HOOK_DESTROY))
214	return false;	220	return false;
215		221
216	if (htype == HOOK_INIT) // first hook ever called	222	if (htype == HOOK_INIT) // first hook ever called
217	term->self = (void )newSVptr ((void )term, "urxvt::term");	223	term->self = (void )newSVptr ((void )term, "urxvt::term");
218	else if (htype == HOOK_DESTROY)
219	{
220	// TODO: clear magic
221	hv_clear ((HV )SvRV ((SV )term->self));
222	SvREFCNT_dec ((SV *)term->self);
223	}
224		224
225	if (!should_invoke [htype])
226	return false;
227
228	dSP;	225	dSP;
229	va_list ap;	226	va_list ap;
230		227
231	va_start (ap, htype);	228	va_start (ap, htype);
232		229
…		…
249		246
250	case DT_LONG:	247	case DT_LONG:
251	XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));	248	XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));
252	break;	249	break;
253		250
		251	case DT_STRING:
		252	XPUSHs (sv_2mortal (newSVpv (va_arg (ap, char *), 0)));
		253	break;
		254
254	case DT_END:	255	case DT_END:
255	{	256	{
256	va_end (ap);	257	va_end (ap);
257		258
258	PUTBACK;	259	PUTBACK;
…		…
270	LEAVE;	271	LEAVE;
271		272
272	if (SvTRUE (ERRSV))	273	if (SvTRUE (ERRSV))
273	rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));	274	rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));
274		275
		276	if (htype == HOOK_DESTROY)
		277	{
		278	// TODO: clear magic
		279	hv_clear ((HV )SvRV ((SV )term->self));
		280	SvREFCNT_dec ((SV *)term->self);
		281	}
		282
275	return count;	283	return count;
276	}	284	}
277		285
278	default:	286	default:
279	rxvt_fatal ("FATAL: unable to pass data type %d\n", dt);	287	rxvt_fatal ("FATAL: unable to pass data type %d\n", dt);
…		…
288	PROTOTYPES: ENABLE	296	PROTOTYPES: ENABLE
289		297
290	BOOT:	298	BOOT:
291	{	299	{
292	# define set_hookname(sym) av_store (hookname, PP_CONCAT(HOOK_, sym), newSVpv (PP_STRINGIFY(sym), 0))	300	# define set_hookname(sym) av_store (hookname, PP_CONCAT(HOOK_, sym), newSVpv (PP_STRINGIFY(sym), 0))
		301	# define export_const(name) newCONSTSUB (gv_stashpv ("urxvt", 1), #name, newSViv (name));
293	AV *hookname = get_av ("urxvt::HOOKNAME", 1);	302	AV *hookname = get_av ("urxvt::HOOKNAME", 1);
294	set_hookname (LOAD);
295	set_hookname (INIT);	303	set_hookname (INIT);
296	set_hookname (RESET);	304	set_hookname (RESET);
297	set_hookname (START);	305	set_hookname (START);
298	set_hookname (DESTROY);	306	set_hookname (DESTROY);
299	set_hookname (SEL_BEGIN);	307	set_hookname (SEL_BEGIN);
…		…
305	set_hookname (VIEW_CHANGE);	313	set_hookname (VIEW_CHANGE);
306	set_hookname (SCROLL_BACK);	314	set_hookname (SCROLL_BACK);
307	set_hookname (TTY_ACTIVITY);	315	set_hookname (TTY_ACTIVITY);
308	set_hookname (REFRESH_BEGIN);	316	set_hookname (REFRESH_BEGIN);
309	set_hookname (REFRESH_END);	317	set_hookname (REFRESH_END);
		318	set_hookname (KEYBOARD_COMMAND);
		319
		320	export_const (DEFAULT_RSTYLE);
		321	export_const (OVERLAY_RSTYLE);
		322	export_const (RS_Bold);
		323	export_const (RS_Italic);
		324	export_const (RS_Blink);
		325	export_const (RS_RVid);
		326	export_const (RS_Uline);
310		327
311	sv_setpv (get_sv ("urxvt::LIBDIR", 1), LIBDIR);	328	sv_setpv (get_sv ("urxvt::LIBDIR", 1), LIBDIR);
312	}	329	}
313		330
314	void	331	void
…		…
323		340
324	void	341	void
325	fatal (const char *msg)	342	fatal (const char *msg)
326	CODE:	343	CODE:
327	rxvt_fatal ("%s", msg);	344	rxvt_fatal ("%s", msg);
328
329	int
330	wcswidth (SV *str)
331	CODE:
332	{
333	wchar_t *wstr = sv2wcs (str);
334	RETVAL = wcswidth (wstr, wcslen (wstr));
335	free (wstr);
336	}
337	OUTPUT:
338	RETVAL
339		345
340	NV	346	NV
341	NOW ()	347	NOW ()
342	CODE:	348	CODE:
343	RETVAL = NOW;	349	RETVAL = NOW;
344	OUTPUT:	350	OUTPUT:
345	RETVAL	351	RETVAL
346		352
		353	int
		354	GET_BASEFG (int rend)
		355	CODE:
		356	RETVAL = GET_BASEFG (rend);
		357	OUTPUT:
		358	RETVAL
		359
		360	int
		361	GET_BASEBG (int rend)
		362	CODE:
		363	RETVAL = GET_BASEBG (rend);
		364	OUTPUT:
		365	RETVAL
		366
		367	int
		368	SET_FGCOLOR (int rend, int color)
		369	CODE:
		370	RETVAL = SET_FGCOLOR (rend, color);
		371	OUTPUT:
		372	RETVAL
		373
		374	int
		375	SET_BGCOLOR (int rend, int color)
		376	CODE:
		377	RETVAL = SET_BGCOLOR (rend, color);
		378	OUTPUT:
		379	RETVAL
		380
347	MODULE = urxvt PACKAGE = urxvt::term	381	MODULE = urxvt PACKAGE = urxvt::term
		382
		383	int
		384	rxvt_term::strwidth (SV *str)
		385	CODE:
		386	{
		387	wchar_t *wstr = sv2wcs (str);
		388
		389	rxvt_push_locale (THIS->locale);
		390	RETVAL = wcswidth (wstr, wcslen (wstr));
		391	rxvt_pop_locale ();
		392
		393	free (wstr);
		394	}
		395	OUTPUT:
		396	RETVAL
		397
		398	SV *
		399	rxvt_term::locale_encode (SV *str)
		400	CODE:
		401	{
		402	wchar_t *wstr = sv2wcs (str);
		403
		404	rxvt_push_locale (THIS->locale);
		405	char *mbstr = rxvt_wcstombs (wstr);
		406	rxvt_pop_locale ();
		407
		408	free (wstr);
		409
		410	RETVAL = newSVpv (mbstr, 0);
		411	free (mbstr);
		412	}
		413	OUTPUT:
		414	RETVAL
		415
		416	SV *
		417	rxvt_term::locale_decode (SV *octets)
		418	CODE:
		419	{
		420	STRLEN len;
		421	char *data = SvPVbyte (octets, len);
		422
		423	rxvt_push_locale (THIS->locale);
		424	wchar_t *wstr = rxvt_mbstowcs (data, len);
		425	rxvt_pop_locale ();
		426
		427	char *str = rxvt_wcstoutf8 (wstr);
		428	free (wstr);
		429
		430	RETVAL = newSVpv (str, 0);
		431	SvUTF8_on (RETVAL);
		432	free (str);
		433	}
		434	OUTPUT:
		435	RETVAL
		436
		437	int
		438	rxvt_term::nsaved ()
		439	CODE:
		440	RETVAL = THIS->nsaved;
		441	OUTPUT:
		442	RETVAL
		443
		444	int
		445	rxvt_term::view_start (int newval = -1)
		446	CODE:
		447	{
		448	RETVAL = THIS->view_start;
		449
		450	if (newval >= 0)
		451	{
		452	THIS->view_start = min (newval, THIS->nsaved);
		453	THIS->scr_changeview (RETVAL);
		454	}
		455	}
		456	OUTPUT:
		457	RETVAL
		458
		459	int
		460	rxvt_term::nrow ()
		461	CODE:
		462	RETVAL = THIS->nrow;
		463	OUTPUT:
		464	RETVAL
		465
		466	int
		467	rxvt_term::ncol ()
		468	CODE:
		469	RETVAL = THIS->ncol;
		470	OUTPUT:
		471	RETVAL
		472
		473	void
		474	rxvt_term::want_refresh ()
		475	CODE:
		476	THIS->want_refresh = 1;
		477
		478	void
		479	rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0)
		480	PPCODE:
		481	{
		482	if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow))
		483	croak ("row_number number of out range");
		484
		485	line_t &l = ROW(row_number);
		486
		487	if (GIMME_V != G_VOID)
		488	{
		489	wchar_t *wstr = new wchar_t [THIS->ncol];
		490
		491	for (int col = 0; col <THIS->ncol; col++)
		492	wstr [col] = l.t [col];
		493
		494	char *str = rxvt_wcstoutf8 (wstr, THIS->ncol);
		495	free (wstr);
		496
		497	SV *sv = newSVpv (str, 0);
		498	SvUTF8_on (sv);
		499	XPUSHs (sv_2mortal (sv));
		500	free (str);
		501	}
		502
		503	if (new_text)
		504	{
		505	STRLEN slen;
		506	char *str = SvPVutf8 (new_text, slen);
		507	wchar_t *wstr = rxvt_utf8towcs (str, slen);
		508
		509	int len = wcslen (wstr);
		510
		511	if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len))
		512	{
		513	free (wstr);
		514	croak ("new_text extends beyond horizontal margins");
		515	}
		516
		517	for (int col = start_col; col < start_col + len; col++)
		518	{
		519	l.t [col] = wstr [col - start_col];
		520	l.r [col] = SET_FONT (l.r [col], THIS->fontset [GET_STYLE (l.r [col])]->find_font (l.t [col]));
		521	}
		522
		523	free (wstr);
		524	}
		525	}
		526
		527	void
		528	rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0)
		529	PPCODE:
		530	{
		531	if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow))
		532	croak ("row_number number of out range");
		533
		534	line_t &l = ROW(row_number);
		535
		536	if (GIMME_V != G_VOID)
		537	{
		538	AV *av = newAV ();
		539
		540	av_extend (av, THIS->ncol - 1);
		541	for (int col = 0; col < THIS->ncol; col++)
		542	av_store (av, col, newSViv (l.r [col]));
		543
		544	XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
		545	}
		546
		547	if (new_rend)
		548	{
		549	if (!SvROK (new_rend) \|\| SvTYPE (SvRV (new_rend)) != SVt_PVAV)
		550	croak ("new_rend must be arrayref");
		551
		552	AV av = (AV )SvRV (new_rend);
		553	int len = av_len (av) + 1;
		554
		555	if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len))
		556	croak ("new_rend array extends beyond horizontal margins");
		557
		558	for (int col = start_col; col < start_col + len; col++)
		559	{
		560	rend_t r = SvIV (*av_fetch (av, col - start_col, 1)) & ~RS_fontMask;
		561
		562	l.r [col] = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (l.t [col]));
		563	}
		564	}
		565	}
		566
		567	int
		568	rxvt_term::ROW_l (int row_number, int new_length = -2)
		569	CODE:
		570	{
		571	if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow))
		572	croak ("row_number number of out range");
		573
		574	line_t &l = ROW(row_number);
		575	RETVAL = l.l;
		576
		577	if (new_length >= -1)
		578	l.l = new_length;
		579	}
		580	OUTPUT:
		581	RETVAL
		582
		583	SV *
		584	rxvt_term::special_encode (SV *str)
		585	CODE:
		586	abort ();//TODO
		587
		588	SV *
		589	rxvt_term::special_decode (SV *str)
		590	CODE:
		591	abort ();//TODO
		592
		593	void
		594	rxvt_term::_resource (char name, int index, SV newval = 0)
		595	PPCODE:
		596	{
		597	struct resval { const char *name; int value; } rslist [] = {
		598	# define Rs_def(name) { # name, Rs_ ## name },
		599	# define Rs_reserve(name,count)
		600	# include "rsinc.h"
		601	# undef Rs_def
		602	# undef Rs_reserve
		603	};
		604
		605	struct resval *rs = rslist + sizeof (rslist) / sizeof (rslist [0]);
		606
		607	do {
		608	if (rs-- == rslist)
		609	croak ("no such resource '%s', requested", name);
		610	} while (strcmp (name, rs->name));
		611
		612	index += rs->value;
		613
		614	if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES))
		615	croak ("requested out-of-bound resource %s+%d,", name, index - rs->value);
		616
		617	if (GIMME_V != G_VOID)
		618	XPUSHs (THIS->rs [index] ? sv_2mortal (newSVpv (THIS->rs [index], 0)) : &PL_sv_undef);
		619
		620	if (newval)
		621	{
		622	if (SvOK (newval))
		623	{
		624	char *str = strdup (SvPVbyte_nolen (newval));
		625	THIS->rs [index] = str;
		626	THIS->allocated.push_back (str);
		627	}
		628	else
		629	THIS->rs [index] = 0;
		630	}
		631	}
348		632
349	void	633	void
350	rxvt_term::selection_mark (...)	634	rxvt_term::selection_mark (...)
351	PROTOTYPE: $;$$	635	PROTOTYPE: $;$$
352	ALIAS:	636	ALIAS:
…		…
418	wchar_t *wtext = sv2wcs (text);	702	wchar_t *wtext = sv2wcs (text);
419	THIS->scr_overlay_set (x, y, wtext);	703	THIS->scr_overlay_set (x, y, wtext);
420	free (wtext);	704	free (wtext);
421	}	705	}
422		706
		707	void
		708	rxvt_term::tt_write (SV *octets)
		709	INIT:
		710	STRLEN len;
		711	char *str = SvPVbyte (octets, len);
		712	C_ARGS:
		713	(unsigned char *)str, len
		714
423	MODULE = urxvt PACKAGE = urxvt::timer	715	MODULE = urxvt PACKAGE = urxvt::timer
424		716
425	SV *	717	SV *
426	timer::new ()	718	timer::new ()
427	CODE:	719	CODE:

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing rxvt-unicode/src/rxvtperl.xs (file contents): Revision 1.1 by root, Mon Jan 2 15:35:43 2006 UTC vs. Revision 1.11 by root, Tue Jan 3 02:01:27 2006 UTC

Diff Legend

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.1 by root, Mon Jan 2 15:35:43 2006 UTC vs.
Revision 1.11 by root, Tue Jan 3 02:01:27 2006 UTC