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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.111 by root, Thu Dec 14 17:33:53 2006 UTC vs.
Revision 1.114 by ayin, Mon Aug 27 18:31:00 2007 UTC

   return sv;
 }
 static SV *
-new_ref (HV *hv, const char *klass)
-{
-  return sv_bless (newRV ((SV *)hv), gv_stashpv (klass, 1));
-}
-static SV *
 newSVptr (void *ptr, const char *klass)
 {
   HV *hv = newHV ();
   sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0);
   return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
 }
 /////////////////////////////////////////////////////////////////////////////
 #define IOM_CLASS "urxvt"
+#define IOM_WARN rxvt_warn
 #include <iom_perl.h>
 /////////////////////////////////////////////////////////////////////////////
 struct rxvt_perl_interp rxvt_perl;
 SV *
 rxvt_term::special_decode (SV *text)
 	CODE:
 {
         wchar_t *wstr = sv2wcs (text);
-        int wlen = wcslen (wstr);
         int dlen = 0;
         // find length
         for (wchar_t *s = wstr; *s; s++)
           if (*s == NOCHAR)
 const char *
 rxvt_term::x_resource (const char *name)
 bool
-rxvt_term::option (U32 optval, int set = -1)
+rxvt_term::option (U8 optval, int set = -1)
 	CODE:
 {
-	RETVAL = THIS->options & optval;
+	RETVAL = THIS->option (optval);
         if (set >= 0)
           {
-            if (set)
-              THIS->options |= optval;
+            THIS->set_option (optval, set);
-            else
-              THIS->options &= ~optval;
             if (THIS->check_ev.is_active ()) // avoid doing this before START
               switch (optval)
                 {
                   case Opt_skipBuiltinGlyphs:

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