-- Leo's gemini proxy

-- Connecting to git.thebackupbox.net:1965...

-- Connected

-- Sending request

-- Meta line: 20 text/gemini

repo: rxvt-unicode-sixel
action: commit
revision:
path_from:
revision_from: e4cef17b3b410d7ee148c8920114a5d4daed3a31:
path_to:
revision_to:

commit e4cef17b3b410d7ee148c8920114a5d4daed3a31
Author: Marc Lehmann <schmorp@schmorp.de>
Date:   Tue Jan 3 00:06:57 2006 +0000

    *** empty log message ***

diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs

--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -37,6 +37,11 @@

 #include "perlxsi.c"

+#undef LINENO
+#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows)
+#undef ROW
+#define ROW(n) THIS->row_buf [LINENO (n)]
+
 /////////////////////////////////////////////////////////////////////////////

 static wchar_t *
@@ -414,6 +419,133 @@ rxvt_term::view_start (int newval = -1)
         OUTPUT:
 	RETVAL

+int
+rxvt_term::nrow ()
+	CODE:
+        RETVAL = THIS->nrow;
+        OUTPUT:
+        RETVAL
+
+int
+rxvt_term::ncol ()
+	CODE:
+        RETVAL = THIS->ncol;
+        OUTPUT:
+        RETVAL
+
+void
+rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0)
+	PPCODE:
+{
+        if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow))
+          croak ("row_number number of out range");
+
+        line_t &l = ROW(row_number);
+
+        if (GIMME_V != G_VOID)
+          {
+            wchar_t *wstr = new wchar_t [THIS->ncol];
+
+            for (int col = 0; col <THIS->ncol; col++)
+              wstr [col] = l.t [col];
+
+            char *str = rxvt_wcstoutf8 (wstr, THIS->ncol);
+            free (wstr);
+
+            SV *sv = newSVpv (str, 0);
+            SvUTF8_on (sv);
+            XPUSHs (sv_2mortal (sv));
+            free (str);
+          }
+
+        if (new_text)
+          {
+            STRLEN slen;
+            char *str = SvPVutf8 (new_text, slen);
+            wchar_t *wstr = rxvt_utf8towcs (str, slen);
+
+            int len = wcslen (wstr);
+
+            if (start_col + len > THIS->ncol)
+              {
+                free (wstr);
+                croak ("new_text extends beyond right margin");
+              }
+
+            for (int col = start_col; col < start_col + len; col++)
+              {
+                l.t [col] = wstr [col];
+                l.r [col] = SET_FONT (l.r [col], THIS->fontset [GET_STYLE (l.r [col])]->find_font (l.t [col]));
+              }
+          }
+}
+
+void
+rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0)
+	PPCODE:
+{
+        if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow))
+          croak ("row_number number of out range");
+
+        line_t &l = ROW(row_number);
+
+        if (GIMME_V != G_VOID)
+          {
+            AV *av = newAV ();
+
+            av_extend (av, THIS->ncol - 1);
+            for (int col = 0; col < THIS->ncol; col++)
+              av_store (av, col, newSViv (l.r [col]));
+
+            XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
+          }
+
+        if (new_rend)
+          {
+            if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV)
+              croak ("new_rend must be arrayref");
+
+            AV *av = (AV *)SvRV (new_rend);
+            int len = av_len (av) + 1;
+
+            if (start_col + len > THIS->ncol)
+              croak ("new_rend array extends beyond right margin");
+
+            for (int col = start_col; col < start_col + len; col++)
+              {
+                rend_t r = SvIV (*av_fetch (av, col, 1)) & ~RS_fontMask;
+
+                l.r [col] = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (l.t [col]));
+              }
+          }
+}
+
+int
+rxvt_term::ROW_l (int row_number, int new_length = -2)
+	CODE:
+{
+        if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow))
+          croak ("row_number number of out range");
+
+        line_t &l = ROW(row_number);
+        RETVAL = l.l;
+
+        if (new_length >= -1)
+          l.l = new_length;
+}
+        OUTPUT:
+        RETVAL
+
+SV *
+rxvt_term::special_encode (SV *str)
+	CODE:
+        abort ();//TODO
+
+SV *
+rxvt_term::special_decode (SV *str)
+	CODE:
+        abort ();//TODO
+
 void
 rxvt_term::_resource (char *name, int index, SV *newval = 0)
 	PPCODE:
diff --git a/src/urxvt.pm b/src/urxvt.pm

--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -395,6 +395,13 @@ Write the octets given in C<$data> to the tty (i.e. as program input). To
 pass characters instead of octets, you should convert your strings first
 to the locale-specific encoding using C<< $term->locale_encode >>.

+=item $nrow = $term->nrow
+
+=item $ncol = $term->ncol
+
+Return the number of rows/columns of the terminal window (i.e. as
+specified by C<-geometry>, excluding any scrollback).
+
 =item $nsaved = $term->nsaved

 Returns the number of lines in the scrollback buffer.
@@ -405,14 +412,17 @@ Returns the negative row number of the topmost line. Minimum value is
 C<0>, which displays the normal terminal contents. Larger values scroll
 this many lines into the scrollback buffer.

-=item $text = $term->ROW_t ($row_number[, $new_text])
+=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]])

 Returns the text of the entire row with number C<$row_number>. Row C<0>
 is the topmost terminal line, row C<< $term->$ncol-1 >> is the bottommost
 terminal line. The scrollback buffer starts at line C<-1> and extends to
 line C<< -$term->nsaved >>.

-If C<$new_text> is specified, it will completely replace the current line.
+If C<$new_text> is specified, it will replace characters in the current
+line, starting at column C<$start_col> (default C<0>), which is useful
+to replace only parts of a line. The font iindex in the rendition will
+automatically be updated.

 C<$text> is in a special encoding: tabs and wide characters that use more
 than one cell when displayed are padded with urxvt::NOCHAR characters
@@ -427,9 +437,21 @@ characters.
 The methods C<< $term->special_encode >> and C<< $term->special_decode >>
 can be used to convert normal strings into this encoding and vice versa.

-=item $rend = $term->ROW_r ($row_number[, $new_rend])
+=item $rend = $term->ROW_r ($row_number[, $new_rend[, $start_col]])
+
+Like C<< $term->ROW_t >>, but returns an arrayref with rendition
+bitsets. Rendition bitsets contain information about colour, font, font
+styles and similar information. See also C<< $term->ROW_t >>.
+
+When setting rendition, the font mask will be ignored.

-Like C<< $term->ROW_t >>
+See the section on RENDITION, below.
+
+=item $length = $term->ROW_l ($row_number[, $new_length])
+
+Returns the number of screen cells that are in use ("the line length"). If
+it is C<-1>, then the line is part of a multiple-row logical "line", which
+means all characters are in use and it is continued on the next row.

 =item $text = $term->special_encode $string

@@ -444,6 +466,27 @@ C<< $term->ROW_t >> for details.

 =back

+=head2 RENDITION
+
+Rendition bitsets contain information about colour, font, font styles and
+similar information for each screen cell.
+
+The following "macros" deal with changes in rendition sets. You should
+never just create a bitset, you should always modify an existing one,
+as they contain important information required for correct operation of
+rxvt-unicode.
+
+=over 4
+
+=item $rend = urxvt::DEFAULT_RSTYLE
+
+Returns the default rendition, as used when the terminal is starting up or
+being reset. Useful as a base
+
+=back
+
+=cut
+
 =head2 The C<urxvt::timer> Class

 This class implements timer watchers/events. Time is represented as a

-- Response ended

-- Page fetched on Sun Jun 2 12:15:19 2024