ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/rxvtperl.xs
(Generate patch)

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.38 by root, Sat Jan 7 21:22:02 2006 UTC vs.
Revision 1.40 by root, Sun Jan 8 00:07:18 2006 UTC

584 584
585PROTOTYPES: ENABLE 585PROTOTYPES: ENABLE
586 586
587BOOT: 587BOOT:
588{ 588{
589 HV *stash = gv_stashpv ("urxvt", 1); 589 sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1));
590# define export_const_iv(name) newCONSTSUB (stash, # name, newSViv (name));
591 590
592 AV *hookname = get_av ("urxvt::HOOKNAME", 1); 591 AV *hookname = get_av ("urxvt::HOOKNAME", 1);
593# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0)); 592# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0));
594# include "hookinc.h" 593# include "hookinc.h"
595# undef def 594# undef def
596 595
597 596 HV *option = get_hv ("urxvt::OPTION", 1);
597# define def(name,val) hv_store (option, # name, sizeof (# name) - 1, newSVuv (Opt_ ## name), 0);
598# define nodef(name)
599# include "optinc.h"
600# undef nodef
601# undef def
602
603 HV *stash = gv_stashpv ("urxvt", 1);
604# define export_const_iv(name) newCONSTSUB (stash, # name, newSViv (name));
598 export_const_iv (DEFAULT_RSTYLE); 605 export_const_iv (DEFAULT_RSTYLE);
599 export_const_iv (OVERLAY_RSTYLE); 606 export_const_iv (OVERLAY_RSTYLE);
600 export_const_iv (RS_Bold); 607 export_const_iv (RS_Bold);
601 export_const_iv (RS_Italic); 608 export_const_iv (RS_Italic);
602 export_const_iv (RS_Blink); 609 export_const_iv (RS_Blink);
616 export_const_iv (Button2Mask); 623 export_const_iv (Button2Mask);
617 export_const_iv (Button3Mask); 624 export_const_iv (Button3Mask);
618 export_const_iv (Button4Mask); 625 export_const_iv (Button4Mask);
619 export_const_iv (Button5Mask); 626 export_const_iv (Button5Mask);
620 export_const_iv (AnyModifier); 627 export_const_iv (AnyModifier);
621
622 sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1));
623} 628}
624 629
625SV * 630SV *
626new (...) 631new (...)
627 CODE: 632 CODE:
1151 else 1156 else
1152 THIS->rs [index] = 0; 1157 THIS->rs [index] = 0;
1153 } 1158 }
1154} 1159}
1155 1160
1161bool
1162rxvt_term::option (U32 optval, int set = -1)
1163 CODE:
1164{
1165 RETVAL = THIS->options & optval;
1166
1167 if (set >= 0)
1168 {
1169 if (set)
1170 THIS->options |= optval;
1171 else
1172 THIS->options &= ~optval;
1173
1174 switch (optval)
1175 {
1176 case Opt_skipBuiltinGlyphs:
1177 THIS->set_fonts ();
1178 THIS->scr_remap_chars ();
1179 THIS->scr_touch (true);
1180 THIS->want_refresh = 1;
1181 break;
1182
1183 case Opt_cursorUnderline:
1184 THIS->want_refresh = 1;
1185 break;
1186
1187# case Opt_scrollBar_floating:
1188# case Opt_scrollBar_right:
1189# THIS->resize_all_windows (THIS->width, THIS->height, 1);
1190# break;
1191 }
1192 }
1193}
1194 OUTPUT:
1195 RETVAL
1196
1156void 1197void
1157rxvt_term::cur (...) 1198rxvt_term::cur (...)
1158 PROTOTYPE: $;$$ 1199 PROTOTYPE: $;$$
1159 ALIAS: 1200 ALIAS:
1160 screen_cur = 0 1201 screen_cur = 0

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines