*** empty log message ***

diff --git a/doc/rxvt.7.html b/doc/rxvt.7.html
index 6be04898697e47f546f6f87374ded27505c7cc86..74308f3b75f133e55a1dcf79ec46c1cf76609d83 100644 (file)
--- a/doc/rxvt.7.html
+++ b/doc/rxvt.7.html
@@ -1879,6 +1879,7 @@ Set XTerm Parameters. 8-bit ST: 0x9c, 7-bit ST sequence: ESC \ (0x1b,
 <tr><td>Ps = 713</td><td>Set bold-italic fontset to Pt. Similar to Ps = 50 (Compile styles).</td></tr>
 <tr><td>Ps = 720</td><td>Move viewing window up by Pt lines, or clear scrollback buffer if Pt = 0 (Compile frills).</td></tr>
 <tr><td>Ps = 721</td><td>Move viewing window down by Pt lines, or clear scrollback buffer if Pt = 0 (Compile frills).</td></tr>
+<tr><td>Ps = 777</td><td>Call the perl extension with the given string, which should be of the form extension:parameters (Compile perl).</td></tr>
 </table><p></p></dl>
 <p></p>
 <p>

diff --git a/doc/rxvt.7.man.in b/doc/rxvt.7.man.in
index d366676add1d9f86963b3dc5e5ddfe32bfb4e8e1..43c86641a43af6d5dc5c169fc6a1b54146480a25 100644 (file)
--- a/doc/rxvt.7.man.in
+++ b/doc/rxvt.7.man.in
@@ -129,7 +129,7 @@
 .\" ========================================================================
 .\"
 .IX Title "rxvt 7"
-.TH rxvt 7 "2006-01-02" "6.2" "RXVT-UNICODE"
+.TH rxvt 7 "2006-01-04" "6.2" "RXVT-UNICODE"
 .SH "NAME"
 RXVT REFERENCE \- FAQ, command sequences and other background information
 .SH "SYNOPSIS"
@@ -1757,6 +1757,7 @@ Ps = 712  Set italic fontset to Pt. Similar to Ps = 50 (Compile styles).
 Ps = 713       Set bold-italic fontset to Pt. Similar to Ps = 50 (Compile styles).
 Ps = 720       Move viewing window up by Pt lines, or clear scrollback buffer if Pt = 0 (Compile frills).
 Ps = 721       Move viewing window down by Pt lines, or clear scrollback buffer if Pt = 0 (Compile frills).
+Ps = 777       Call the perl extension with the given string, which should be of the form extension:parameters (Compile perl).
 .TE
 
 .PP

diff --git a/doc/rxvt.7.pod b/doc/rxvt.7.pod
index 2f3766261d55a9083cff8c6483b4428790ec810d..90d71bbda96b846f7924b0d67497f54b3e1e928d 100644 (file)
--- a/doc/rxvt.7.pod
+++ b/doc/rxvt.7.pod
@@ -1617,6 +1617,7 @@ B<octet> can be escaped by prefixing it with SYN (0x16, ^V).
        B<< C<Ps = 713> >>      Set bold-italic fontset to B<< C<Pt> >>. Similar to C<Ps = 50> (Compile styles).
        B<< C<Ps = 720> >>      Move viewing window up by B<< C<Pt> >> lines, or clear scrollback buffer if C<Pt = 0> (Compile frills).
        B<< C<Ps = 721> >>      Move viewing window down by B<< C<Pt> >> lines, or clear scrollback buffer if C<Pt = 0> (Compile frills).
+       B<< C<Ps = 777> >>      Call the perl extension with the given string, which should be of the form C<extension:parameters> (Compile perl).
 
 =end table
 

diff --git a/doc/rxvt.7.txt b/doc/rxvt.7.txt
index 19919bbcf882635a8fbe5b2dfe6015f23993659e..b2300dfb3ffad74e88bdcdafad3156ed86926053 100644 (file)
--- a/doc/rxvt.7.txt
+++ b/doc/rxvt.7.txt
@@ -1286,6 +1286,7 @@ XTerm Operating System Commands
            Ps = 713        Set bold-italic fontset to Pt. Similar to Ps = 50 (Compile styles). 
            Ps = 720        Move viewing window up by Pt lines, or clear scrollback buffer if Pt = 0 (Compile frills). 
            Ps = 721        Move viewing window down by Pt lines, or clear scrollback buffer if Pt = 0 (Compile frills). 
+           Ps = 777        Call the perl extension with the given string, which should be of the form extension:parameters (Compile perl). 
 
 
 

diff --git a/doc/rxvtperl.3.html b/doc/rxvtperl.3.html
index f33e822137416e79bfcdda82f6fbf8fbbfb4b1f9..d9998d912cd9224e95e1e8eed577c446a7b6b899 100644 (file)
--- a/doc/rxvtperl.3.html
+++ b/doc/rxvtperl.3.html
@@ -239,6 +239,22 @@ number of lines that will be in the scrollback buffer.</p>
 Called whenever the <code>program(s)</code> running in the urxvt window send output.
 </dd>
 <p></p>
+<dt><strong><a name="item_on_osc_seq__24term_2c__24string">on_osc_seq $term, $string</a></strong><br />
+</dt>
+<dd>
+Called whenever the <strong>ESC ] 777 ; string ST</strong> command sequence (OSC =
+operating system command) is processed. Cursor position and other state
+information is up-to-date when this happens. For interoperability, the
+string should start with the extension name and a colon, to distinguish
+it from commands for other extensions, and this might be enforced in the
+future.
+</dd>
+<dd>
+<p>Be careful not ever to trust (in a security sense) the data you receive,
+as its source can not easily be controleld (e-mail content, messages from
+other users on the same system etc.).</p>
+</dd>
+<p></p>
 <dt><strong><a name="item_on_refresh_begin__24term">on_refresh_begin $term</a></strong><br />
 </dt>
 <dd>

diff --git a/doc/rxvtperl.3.man.in b/doc/rxvtperl.3.man.in
index 21bb1bb4d46f0e858baed725671a1ce4f4ac8f87..4510220fe0ad8279a4fbb550ff8a227982e0b474 100644 (file)
--- a/doc/rxvtperl.3.man.in
+++ b/doc/rxvtperl.3.man.in
@@ -299,6 +299,19 @@ number of lines that will be in the scrollback buffer.
 .el .IP "on_tty_activity \f(CW$term\fR *NYI*" 4
 .IX Item "on_tty_activity $term *NYI*"
 Called whenever the program(s) running in the urxvt window send output.
+.ie n .IP "on_osc_seq $term\fR, \f(CW$string" 4
+.el .IP "on_osc_seq \f(CW$term\fR, \f(CW$string\fR" 4
+.IX Item "on_osc_seq $term, $string"
+Called whenever the \fB\s-1ESC\s0 ] 777 ; string \s-1ST\s0\fR command sequence (\s-1OSC\s0 =
+operating system command) is processed. Cursor position and other state
+information is up-to-date when this happens. For interoperability, the
+string should start with the extension name and a colon, to distinguish
+it from commands for other extensions, and this might be enforced in the
+future.
+.Sp
+Be careful not ever to trust (in a security sense) the data you receive,
+as its source can not easily be controleld (e\-mail content, messages from
+other users on the same system etc.).
 .ie n .IP "on_refresh_begin $term" 4
 .el .IP "on_refresh_begin \f(CW$term\fR" 4
 .IX Item "on_refresh_begin $term"

diff --git a/doc/rxvtperl.3.txt b/doc/rxvtperl.3.txt
index 39007fdb2d3c5c5c26605d42402e1a99e54ec7ea..5f81ead428c64ac3050499ebaf28a8e1cffc2869 100644 (file)
--- a/doc/rxvtperl.3.txt
+++ b/doc/rxvtperl.3.txt
@@ -145,6 +145,18 @@ DESCRIPTION
         Called whenever the program(s) running in the urxvt window send
         output.
 
+    on_osc_seq $term, $string
+        Called whenever the ESC ] 777 ; string ST command sequence (OSC =
+        operating system command) is processed. Cursor position and other
+        state information is up-to-date when this happens. For
+        interoperability, the string should start with the extension name
+        and a colon, to distinguish it from commands for other extensions,
+        and this might be enforced in the future.
+
+        Be careful not ever to trust (in a security sense) the data you
+        receive, as its source can not easily be controleld (e-mail content,
+        messages from other users on the same system etc.).
+
     on_refresh_begin $term
         Called just before the screen gets redrawn. Can be used for overlay
         or similar effects by modify terminal contents in refresh_begin, and

diff --git a/src/command.C b/src/command.C
index fbb297cd215672f3c952f93828ad044bee25eff7..ec026f7bf1b24c5ecc49a921e2be551e57d34d0d 100644 (file)
--- a/src/command.C
+++ b/src/command.C
@@ -3963,12 +3963,14 @@ rxvt_term::process_xterm_seq (int op, const char *str, unsigned char resp)
 
       case URxvt_view_up:
       case URxvt_view_down:
-        int lines = atoi (str);
+        {
+          int lines = atoi (str);
 
-        if (lines)
-          scr_page (op == URxvt_view_up ? UP : DN, lines);
-        else
-          scr_erase_savelines ();
+          if (lines)
+            scr_page (op == URxvt_view_up ? UP : DN, lines);
+          else
+            scr_erase_savelines ();
+        }
 
         break;
 #endif
@@ -3978,9 +3980,7 @@ rxvt_term::process_xterm_seq (int op, const char *str, unsigned char resp)
         if (PERL_INVOKE ((this, HOOK_OSC_SEQ, DT_STRING, str, DT_END)))
           ; // no responses yet
         break;
-
 #endif
-
     }
 }
 /*----------------------------------------------------------------------*/

diff --git a/src/rxvt.h b/src/rxvt.h
index 596066cf347b4af9d7e27e4e6a1ad03ed549a15a..3dca1c1503d84fc0f70601012582c75ad9abfb90 100644 (file)
--- a/src/rxvt.h
+++ b/src/rxvt.h
@@ -471,6 +471,8 @@ enum {
 
   URxvt_view_up          = 720,
   URxvt_view_down        = 721,
+
+  URxvt_perl             = 777,
 };
 
 /* Words starting with `Color_' are colours.  Others are counts */

diff --git a/src/rxvtperl.h b/src/rxvtperl.h
index b52b18a9c2a14d8c39bbbd87c1f01d6c2dbb9ab3..99327e5365a9a8257562237dfbb4b20516e56c18 100644 (file)
--- a/src/rxvtperl.h
+++ b/src/rxvtperl.h
@@ -38,6 +38,7 @@ enum hook_type {
   HOOK_VIEW_CHANGE,
   HOOK_SCROLL_BACK,
   HOOK_TTY_ACTIVITY,
+  HOOK_OSC_SEQ,
 
   HOOK_REFRESH_BEGIN,
   HOOK_REFRESH_END,

diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs
index 23ff21e900b69a003e6e7c085ae93cd9baec2589..8949d3b8d84585c931d479391b0b36a44cfa0cda 100644 (file)
--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -519,6 +519,7 @@ BOOT:
   set_hookname (VIEW_CHANGE);
   set_hookname (SCROLL_BACK);
   set_hookname (TTY_ACTIVITY);
+  set_hookname (OSC_SEQ);
   set_hookname (REFRESH_BEGIN);
   set_hookname (REFRESH_END);
   set_hookname (KEYBOARD_COMMAND);

diff --git a/src/urxvt.pm b/src/urxvt.pm
index faf8be5739c68498d7c0939eec81fd1de5b3c57c..7b6ea94f4f54406fe8769ace3c923b25e7f72d2d 100644 (file)
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -176,11 +176,16 @@ Called whenever the program(s) running in the urxvt window send output.
 
 =item on_osc_seq $term, $string
 
-Called whenever the B<ESC ] 777 ; string ST> command sequence is
-processed. Cursor position and other state information is up-to-date when
-this happens. For interoperability, the string should start with the
-extension name and a colon, to distinguish it from commands for other
-extensions, and this might be enforced in the future.
+Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC =
+operating system command) is processed. Cursor position and other state
+information is up-to-date when this happens. For interoperability, the
+string should start with the extension name and a colon, to distinguish
+it from commands for other extensions, and this might be enforced in the
+future.
+
+Be careful not ever to trust (in a security sense) the data you receive,
+as its source can not easily be controleld (e-mail content, messages from
+other users on the same system etc.).
 
 =item on_refresh_begin $term